Changeset 11151

Timestamp:

Jan 18, 2007, 6:26:04 PM (19 years ago)

Author:

Paul Price

Message:

Trying to make detrend type non-case sensitive.

Location:

trunk/ippScripts/scripts

Files:

• detrend_resid.pl (modified) (2 diffs)
• detrend_stack.pl (modified) (1 diff)
• phase0_exp.pl (modified) (2 diffs)
• phase0_imfile.pl (modified) (2 diffs)

trunk/ippScripts/scripts/detrend_resid.pl

@@ -94 +94 @@
 # Recipe to use in processing
 die "Unrecognised mode: $mode\n" if not defined RECIPES->{$mode};
-my $recipe = RECIPES->{$mode}->{$det_type};
+my $recipe = RECIPES->{$mode}->{lc($det_type)};
 die "Unrecognised detrend type: $det_type\n" if not defined $recipe;
 
@@ -118 +118 @@
     # Detrend to use in processing
     if (lc($mode) ne 'verify') {
-        my $detFlag = DETRENDS->{$det_type};
+        my $detFlag = DETRENDS->{lc($det_type)};
         die "Unrecognised detrend type: $det_type\n" if not defined $detFlag;
         $command .= "$detFlag $detrend";

trunk/ippScripts/scripts/detrend_stack.pl

@@ -50 +50 @@
     };
 
-die "Unrecognised detrend type: $det_type\n" if not defined RECIPES()->{$det_type};
-my $recipe = RECIPES()->{$det_type}; # Recipe to use in stacking
+my $recipe = RECIPES()->{lc($det_type)}; # Recipe to use in stacking
+die "Unrecognised detrend type: $det_type\n" if not defined $recipe;
 
 # Look for programs we need

trunk/ippScripts/scripts/phase0_exp.pl

@@ -146 +146 @@
 }
 
+if (0) {
 # XXX for a test, randomly declare a failure and return to pantasks
 my $rnd = rand(1);
@@ -151 +152 @@
     warn ("random failure");
     &my_die ($exptag, $PS_EXIT_DATA_ERROR);
+}
 }
 

trunk/ippScripts/scripts/phase0_imfile.pl

@@ -132 +132 @@
         # XXX is this a programming or a config error?
     }
- 
+
+    if (0) {
     # XXX for a test, randomly declare a failure and return to pantasks
     my $rnd = rand(1);
@@ -139 +140 @@
         &my_die ($exp_tag, $class_id, $PS_EXIT_DATA_ERROR);
     }
+}
 }