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

Timestamp:

Jan 29, 2007, 7:37:37 AM (19 years ago)

Author:

eugene

Message:

update workdir and outroot names

File:

• trunk/ippScripts/scripts/detrend_resid.pl (modified) (2 diffs)

trunk/ippScripts/scripts/detrend_resid.pl

@@ -117 +117 @@
     $workdir = $dir;
 }
-my $outputRoot = $exp_tag . '.detresid.' . $det_id . '.' . $iter; # Root name
-$outputRoot = File::Spec->catfile( $workdir, $outputRoot );
-$input_uri = $ipprc->convert_filename_absolute( $input_uri );
-$detrend = $ipprc->convert_filename_absolute( $detrend ) if defined $detrend;
+
+my $outputFile = "$exp_tag.detresid.$det_id.$iter"; # Root name
+my $outputRoot = File::Spec->catfile( $workdir, $exp_tag, $outputFile );
 
 my $outputName = $ipprc->filename("PPIMAGE.OUTPUT", $outputRoot, $class_id);
@@ -127 +126 @@
 
 my $outputStats = $outputRoot . '.' . $class_id . '.stats';
+
+$detrend = $ipprc->convert_filename_absolute( $detrend ) if defined $detrend;
+$input_uri = $ipprc->convert_filename_absolute( $input_uri );
 
 # Run ppImage