From fbe9e006bc067b79af600846e8d8eb42dc91940c Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Sat, 3 Mar 2007 09:24:40 +1100
Subject: [PATCH] Put start and end times in each scan point entry.

r1581 | ffr | 2007-03-03 09:24:40 +1100 (Sat, 03 Mar 2007) | 2 lines
---
 site_ansto/instrument/hipd/config/scan/scan.tcl | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/site_ansto/instrument/hipd/config/scan/scan.tcl b/site_ansto/instrument/hipd/config/scan/scan.tcl
index 9f47b51e..1733aaa8 100644
--- a/site_ansto/instrument/hipd/config/scan/scan.tcl
+++ b/site_ansto/instrument/hipd/config/scan/scan.tcl
@@ -26,16 +26,12 @@ variable scanVariable scan_var scanVarStart 0 scanVarStep 1
   proc hm_scan_finish {sobj uobj} {
     hs_finish $sobj $uobj;
     nxreopenfile;
-    nxscript updatedictvar entryName stop;
-    nxscript puttext eend [sicstime];
     nxclosefile;
   }
 
   proc bm_scan_finish {sobj uobj} {
     stdscan finish $sobj $uobj;
     nxreopenfile;
-    nxscript updatedictvar entryName stop;
-    nxscript puttext eend [sicstime];
     nxclosefile;
   }
 #proc hm_scan_finish {sobj uobj} {
@@ -84,7 +80,7 @@ variable scanVariable scan_var scanVarStart 0 scanVarStep 1
 
     set scanVarPos [expr $scanVarStart + $pt * $scanVarStep];
     nxreopenfile;
-    bm_addnxentry nxscript scan_$pt $scanVariable $scanVarPos $scanVarStep $scan_pt_start_time;
+    bm_addnxentry nxscript scan_[format "%05d" $pt] $scanVariable $scanVarPos $scanVarStep $scan_pt_start_time;
     nxclosefile
   }
 }