Changeset 19616
- Timestamp:
- Sep 19, 2008, 10:27:15 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/eam_branch_20080918/ippScripts/scripts/detrend_resid_imfile.pl
r19609 r19616 64 64 defined $mode and 65 65 defined $outroot and 66 (defined $detrend or lc($mode) eq 'verify');66 defined $detrend; 67 67 68 68 $ipprc->define_camera($camera); … … 73 73 74 74 # Recipes to use as a function of detrend type and mode 75 # XXX probably can drop the distinct 'verify' recipes 75 76 $reduction = 'DETREND' unless defined $reduction; 76 77 my $recipe; # Name of recipe to use … … 173 174 174 175 # Detrend to use in processing 175 if (lc($mode) ne 'verify') { 176 my $detFlag = DETRENDS->{lc($det_type)}; 177 &my_die("Unrecognised detrend type: $det_type", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_PROG_ERROR) unless defined $detFlag; 178 $command .= " $detFlag $detrend"; 179 } 176 my $detFlag = DETRENDS->{lc($det_type)}; 177 &my_die("Unrecognised detrend type: $det_type", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_PROG_ERROR) unless defined $detFlag; 178 $command .= " $detFlag $detrend"; 180 179 181 180 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
Note:
See TracChangeset
for help on using the changeset viewer.
