From a59f088761ffd16ce71b1d71887236de7c0e2864 Mon Sep 17 00:00:00 2001 From: Douglas Clowes Date: Wed, 19 Sep 2012 12:18:20 +1000 Subject: [PATCH] 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 --- .../config/nexus/nxscripts_common_1.tcl | 21 +++++++++++-------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/site_ansto/instrument/config/nexus/nxscripts_common_1.tcl b/site_ansto/instrument/config/nexus/nxscripts_common_1.tcl index af7ad4ce..5fadc74a 100644 --- a/site_ansto/instrument/config/nexus/nxscripts_common_1.tcl +++ b/site_ansto/instrument/config/nexus/nxscripts_common_1.tcl @@ -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]]