Changeset 11360 for trunk/ippScripts/scripts/detrend_process_imfile.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_process_imfile.pl (modified) (2 diffs)

trunk/ippScripts/scripts/detrend_process_imfile.pl

@@ -87 +87 @@
     $workdir = $dir;
 }
-my $outputRoot = $exp_tag . '.detproc.' . $det_id; # Root name
-$outputRoot = File::Spec->catfile( $workdir, $outputRoot );
-print "OUTPUTROOT: $outputRoot\n";
-$input_uri = $ipprc->convert_filename_absolute( $input_uri );
-
+my $outputFile = "$exp_tag.detproc.$det_id"; # Root name
+my $outputRoot = File::Spec->catfile( $workdir, $exp_tag, $outputFile );
 my $outputImage = $ipprc->filename("PPIMAGE.OUTPUT", $outputRoot, $class_id);
 my $outputBin1 = $ipprc->filename("PPIMAGE.BIN1", $outputRoot, $class_id);
@@ -97 +94 @@
 
 my $outputStats = $outputRoot . '.' . $class_id . '.stats';
+
+$input_uri = $ipprc->convert_filename_absolute( $input_uri );
 
 # Run ppImage