Changeset 14022

Timestamp:

Jul 5, 2007, 1:33:08 PM (19 years ago)

Author:

eugene

Message:

applying mods to the exp_tag, exp_id, exp_name concepts

File:

• trunk/ippTasks/register.pro (modified) (6 diffs)

trunk/ippTasks/register.pro

@@ -100 +100 @@
   task.exit $EXIT_SUCCESS
     # convert 'stdout' to book format
-    ipptool2book stdout regPendingImfile -key exp_tag:class_id -uniq -setword dbname $options:0
+    ipptool2book stdout regPendingImfile -key exp_id:class_id -uniq -setword dbname $options:0
     if ($VERBOSE > 2)
       book listbook regPendingImfile
@@ -137 +137 @@
     book setword regPendingImfile $pageName state RUN
 
-    book getword regPendingImfile $pageName exp_tag -var EXP_TAG
+    book getword regPendingImfile $pageName exp_id -var EXP_ID
+    book getword regPendingImfile $pageName exp_name -var EXP_NAME
     book getword regPendingImfile $pageName class_id -var CLASS_ID
     book getword regPendingImfile $pageName uri -var URI
     book getword regPendingImfile $pageName workdir -var WORKDIR
     book getword regPendingImfile $pageName dbname -var DBNAME
+
+    # EXP_TAG is used to generate the unique, but human-readable, filenames
+    $EXP_TAG = $EXP_NAME.$EXP_ID
 
     # specify choice of remote host
@@ -161 +165 @@
     options $pageName
 
-    $run = register_imfile.pl --exp_tag $EXP_TAG --class_id $CLASS_ID --uri $URI
+    $run = register_imfile.pl --exp_id $EXP_ID --class_id $CLASS_ID --exp_name $EXP_NAME --exp_tag $EXP_TAG --uri $URI
     add_standard_args run
 
@@ -210 +214 @@
   task.exit $EXIT_SUCCESS
     # convert 'stdout' to book format
-    ipptool2book stdout regPendingExp -key exp_tag -uniq -setword dbname $options:0
+    ipptool2book stdout regPendingExp -key exp_id -uniq -setword dbname $options:0
     if ($VERBOSE > 2)
       book listbook regPendingExp
@@ -246 +250 @@
 
     book setword regPendingExp $pageName state RUN
-    book getword regPendingExp $pageName exp_tag -var EXP_TAG
+    book getword regPendingExp $pageName exp_id -var EXP_ID
+    book getword regPendingExp $pageName exp_name -var EXP_NAME
     book getword regPendingExp $pageName workdir -var WORKDIR
     book getword regPendingExp $pageName dbname -var DBNAME
+
+    # EXP_TAG is used to generate the unique, but human-readable, filenames
+    $EXP_TAG = $EXP_NAME.$EXP_ID
 
     # specify choice of remote host:(need to choose based on chips)
@@ -268 +276 @@
     options $pageName
 
-    $run = register_exp.pl --exp_tag $EXP_TAG
+    $run = register_exp.pl --exp_id $EXP_ID --exp_tag $EXP_TAG
     add_standard_args run