diff --git a/site_ansto/instrument/config/environment/magneticField/sct_oxford_ips.tcl b/site_ansto/instrument/config/environment/magneticField/sct_oxford_ips.tcl index f3817e3d..908f3ec8 100644 --- a/site_ansto/instrument/config/environment/magneticField/sct_oxford_ips.tcl +++ b/site_ansto/instrument/config/environment/magneticField/sct_oxford_ips.tcl @@ -15,6 +15,9 @@ namespace eval ::scobj::ips120 { # issue a command to read a register and expect a value response proc getValue {tc_root nextState cmd} { + if { [hpropexists [sct] geterror] } { + hdelprop [sct] geterror + } debug_log "getValue $cmd sct=[sct] root=$tc_root nextState=$nextState" sct send "@2$cmd" return $nextState @@ -138,6 +141,9 @@ debug_log "rdValue new data for $tc_root [sct] result=$data" # values in the controller in a sequence intended to transition the controller # between states. proc getState {tc_root nextState cmd} { + if { [hpropexists [sct] geterror] } { + hdelprop [sct] geterror + } debug_log "getState $tc_root $nextState $cmd sct=[sct]" if {[ catch { set my_state "[SplitReply [hgetprop $tc_root/ips120_state my_state]]" @@ -719,6 +725,7 @@ debug_log "Registering node $nodeName for write callback" hsetprop $scobj_hpath privilege spy ::scobj::hinitprops $tempobj setpoint if {[SplitReply [environment_simulation]]=="false"} { + hsetprop $scobj_hpath/setpoint type drivable ansto_makesctdrive ${tempobj}_driveable $scobj_hpath/setpoint $scobj_hpath/sensor/value $sct_controller } } catch_message ]