diff --git a/site_ansto/instrument/config/nexus/nxscripts_common_1.tcl b/site_ansto/instrument/config/nexus/nxscripts_common_1.tcl index ebc0ce62..0405c88d 100644 --- a/site_ansto/instrument/config/nexus/nxscripts_common_1.tcl +++ b/site_ansto/instrument/config/nexus/nxscripts_common_1.tcl @@ -9,7 +9,7 @@ set tmpstr [string map {"$" ""} {$Name: not supported by cvs2svn $}] set nx_content_release_tag [lindex $tmpstr [expr [llength $tmpstr] - 1]] -set tmpstr [string map {"$" ""} {$Revision: 1.20 $}] +set tmpstr [string map {"$" ""} {$Revision: 1.21 $}] set nx_content_revision_num [lindex $tmpstr [expr [llength $tmpstr] - 1]] MakeNXScript @@ -116,6 +116,9 @@ proc hmm_addnxscanentry {nxobj entryname point scanVariable scanVarPos scanVarSt global dictalias; $nxobj puttext estart $start_time; + nxscript_data clear; + nxscript_data putint 0 $point; + $nxobj putslab erun [list $point] [list 1] nxscript_data; hmm_save $nxobj $entryname $point; fillPath $nxobj $scanVariable; $nxobj makelink scanvar $dictalias($scanVariable); @@ -141,6 +144,9 @@ proc bm_addnxscanentry {nxobj entryname point scanVariable scanVarPos scanVarSte global dictalias; $nxobj puttext estart $start_time; + nxscript_data clear; + nxscript_data putint 0 $point; + $nxobj putslab erun [list $point] [list 1] nxscript_data; bm_save $nxobj $entryname $point; fillPath $nxobj $scanVariable; $nxobj makelink scanvar $dictalias($scanVariable); @@ -219,9 +225,6 @@ proc putcrystal {nxobj} { } proc putcommon {nxobj entryName point} { $nxobj updatedictvar entryName $entryName - nxscript_data clear; - nxscript_data putint 0 $point; - $nxobj putslab erun [list $point] [list 1] nxscript_data; $nxobj puttext etitle [getVal [Title]] $nxobj puttext iname [getVal [Instrument]] $nxobj puttext username [SplitReply [user]]