From aded505558b6ec9e3a7fe7dd59584c19169a8fa7 Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Sun, 1 Apr 2007 15:29:08 +1000
Subject: [PATCH] The run number should be written when making a new scan
 entry.

r1776 | ffr | 2007-04-01 15:29:08 +1000 (Sun, 01 Apr 2007) | 2 lines
---
 .../instrument/config/nexus/nxscripts_common_1.tcl    | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

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]]