Changeset 10419 for trunk/ippScripts/scripts/detrend_process_imfile.pl

Timestamp:

Dec 3, 2006, 8:42:44 AM (19 years ago)

Author:

eugene

Message:

added ipprc.convert_filename method, replaced workdir conversions with convert_filename

File:

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

trunk/ippScripts/scripts/detrend_process_imfile.pl

@@ -64 +64 @@
 my ($vol, $dir, $file) = File::Spec->splitpath( $input_uri );
 my $outputRoot = $exp_tag . '.detproc.' . $det_id; # Root name
-$outputRoot = File::Spec->rel2abs( File::Spec->catpath( $vol, $dir, $outputRoot ), $ipprc->workdir() );
-$input_uri = File::Spec->rel2abs( $input_uri, $ipprc->workdir() );
+$outputRoot = File::Spec->catpath( $vol, $dir, $outputRoot );
+$outputRoot = $ipprc->convert_filename ($outputRoot);
+$input_uri = $ipprc->convert_filename ( $input_uri );
 
 my $outputImage = $ipprc->filename("PPIMAGE.OUTPUT", $outputRoot, $class_id);
@@ -101 +102 @@
 
 # Take off the absolute path, to stuff into the database
-$outputImage = File::Spec->abs2rel( $outputImage, $ipprc->workdir() );
-$outputBin1 = File::Spec->abs2rel( $outputBin1, $ipprc->workdir() );
-$outputBin2 = File::Spec->abs2rel( $outputBin2, $ipprc->workdir() );
+$outputImage = $ipprc->convert_filename ( $outputImage );
+$outputBin1  = $ipprc->convert_filename ( $outputBin1  );
+$outputBin2  = $ipprc->convert_filename ( $outputBin2  );
 
 # Add the processed file to the database