From 9e30a158fb5f26d1de2133bf02e9ed3e131ed9d6 Mon Sep 17 00:00:00 2001 From: Ferdi Franceschini Date: Thu, 14 Feb 2013 11:32:36 +1100 Subject: [PATCH] server_config.tcl Remove call to obsolete ::utility::set_sctobj_attributes because it returns an error and aborts the server_set_sobj_attributes proc. This bug meant that script context objects weren't being linked into the hdb tree. util/utility.tcl Removed obselete ::utility::set_sctobj_attributes proc because sctcontrollers are no longer being added to the root of the hdb tree. --- site_ansto/instrument/server_config.tcl | 1 - site_ansto/instrument/util/utility.tcl | 6 ------ 2 files changed, 7 deletions(-) diff --git a/site_ansto/instrument/server_config.tcl b/site_ansto/instrument/server_config.tcl index cb96e9b2..9945e5b0 100644 --- a/site_ansto/instrument/server_config.tcl +++ b/site_ansto/instrument/server_config.tcl @@ -226,7 +226,6 @@ proc server_set_sobj_attributes {} { ::nexus::set_sobj_attributes ::histogram_memory::set_sobj_attributes ::utility::set_chopper_attributes - ::utility::set_sctobj_attributes ::utility::set_sct_object_attributes ## TODO move the following to the new ansto gumxml.tcl sicslist setatt getgumtreexml privilege internal diff --git a/site_ansto/instrument/util/utility.tcl b/site_ansto/instrument/util/utility.tcl index 76660fae..1722bc99 100644 --- a/site_ansto/instrument/util/utility.tcl +++ b/site_ansto/instrument/util/utility.tcl @@ -435,12 +435,6 @@ proc ::utility::set_histomem_attributes {} { sicslist setatt $hm mutable true } } -proc ::utility::set_sctobj_attributes {} { - foreach sobj [sicslist type SctController] { - hsetprop /$sobj control false - hsetprop /$sobj data false - } -} proc ::utility::set_sct_object_attributes {} { foreach sobj [sicslist type SCT_OBJECT] { sicslist setatt $sobj data true