Add instrument/name and rename program_branch and program_revision

r3739 | dcl | 2012-09-19 12:18:20 +1000 (Wed, 19 Sep 2012) | 1 line
This commit is contained in:
Douglas Clowes
2012-09-19 12:18:20 +10:00
parent 6a49b17dde
commit a59f088761

View File

@@ -1300,15 +1300,18 @@ foreach expt $::nexus::exports {
# objects name. It is useful for making links to datasets.
# dim0 = vertical axis on detector
# dim1 = horizontal axis on detector
::utility::mkVar sics_site Text manager sics_site true entry true true
sics_site [SplitReply [SICS_Site]]
sics_site lock
::utility::mkVar sics_release Text manager sics_release true entry true true
sics_release [SplitReply [SICS_Version]]
sics_release lock
::utility::mkVar sics_revision Text manager sics_revision true entry true true
sics_revision [SplitReply [SICS_Revision]]
sics_revision lock
::utility::mkVar site_name Text manager site_name true entry true true
site_name [SplitReply [SICS_Site]]
site_name lock
::utility::mkVar program_branch Text manager program_branch true entry true true
program_branch [SplitReply [SICS_Version]]
program_branch lock
::utility::mkVar program_revision Text manager program_revision true entry true true
program_revision [SplitReply [SICS_Revision]]
program_revision lock
::utility::mkVar instrument_name Text manager name true instrument true true
instrument_name [SplitReply [Instrument]]
instrument_name lock
set tmpstr [string map {"$" ""} {$Revision: 1.51.2.14 $}]
set nx_content_revision_num [lindex $tmpstr [expr [llength $tmpstr] - 1]]