Changeset 11151 for trunk/ippScripts/scripts/detrend_resid.pl

Timestamp:

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

Author:

Paul Price

Message:

Trying to make detrend type non-case sensitive.

File:

• trunk/ippScripts/scripts/detrend_resid.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";