linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merged release 2.1

Browse Source 
r2664 | ffr | 2008-07-18 14:33:39 +1000 (Fri, 18 Jul 2008) | 2 lines
This commit is contained in:
Ferdi Franceschini
2008-07-18 14:33:39 +10:00
committed by Douglas Clowes
parent 8fb864ee37
commit e31aa973a6
10 changed files with 61 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
site_ansto/instrument/server_config.tcl
View File

@@ -1,7 +1,7 @@
# SICS common configuration
# $Revision: 1.37 $
# $Date: 2008-07-11 01:09:56 $
# $Revision: 1.38 $
# $Date: 2008-07-18 04:33:38 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by $Author: ffr $
@@ -125,11 +125,11 @@ SicsDataPrefix [SplitReply [Instrument]]
::utility::mkVar SicsDataPostFix Text manager
SicsDataPostFix nx.hdf
foreach {var val klass} {
program_name "SICS" entry
run_mode "normal" entry
foreach {var val klass priv} {
program_name "SICS" entry manager
run_mode "normal" entry user
} {
::utility::mkVar $var Text manager $var true $klass true true
::utility::mkVar $var Text $priv $var true $klass true true
$var $val
}
::utility::mkVar sics_release Text manager sics_release true entry true true
@@ -138,7 +138,7 @@ sics_release [lindex $tmpstr [expr [llength $tmpstr] - 1]]
sics_release lock
::utility::mkVar sics_revision_num Text internal
set tmpstr [string map {"$" ""} {$Revision: 1.37 $}]
set tmpstr [string map {"$" ""} {$Revision: 1.38 $}]
sics_revision_num [lindex $tmpstr [expr [llength $tmpstr] - 1]]
sics_revision_num lock