Changeset 13946

Timestamp:

Jun 21, 2007, 3:14:51 PM (19 years ago)

Author:

eugene

Message:

set det_type to upper case to select reduction class

Location:

trunk/ippScripts/scripts

Files:

• detrend_process_imfile.pl (modified) (1 diff)
• detrend_resid.pl (modified) (1 diff)
• detrend_stack.pl (modified) (1 diff)

trunk/ippScripts/scripts/detrend_process_imfile.pl

@@ -62 +62 @@
 
 $reduction = "DETREND" unless defined $reduction;
-my $recipe = $ipprc->reduction($reduction, $det_type . '_PROCESS'); # Recipe name to use
+my $recipe = $ipprc->reduction($reduction, uc($det_type) . '_PROCESS'); # Recipe name to use
 
 # Look for programs we need

trunk/ippScripts/scripts/detrend_resid.pl

@@ -71 +71 @@
 my $recipe;                     # Name of recipe to use
 if ($mode eq 'master') {
-    $recipe = $det_type . '_RESID';
+    $recipe = uc($det_type) . '_RESID';
 } elsif ($mode eq 'verify') {
-    $recipe = $det_type . '_VERIFY';
+    $recipe = uc($det_type) . '_VERIFY';
 } else {
     &my_die("Unrecognised mode: $mode", $det_id, $iter, $exp_tag, $class_id, $PS_EXIT_PROG_ERROR);

trunk/ippScripts/scripts/detrend_stack.pl

@@ -63 +63 @@
 # Recipes to use as a function of detrend type
 $reduction = "DETREND" unless defined $reduction;
-my $recipe = $ipprc->reduction($reduction, $det_type . '_STACK'); # Recipe name to use
+my $recipe = $ipprc->reduction($reduction, uc($det_type) . '_STACK'); # Recipe name to use
 
 # Look for programs we need