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

Timestamp:

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

Author:

eugene

Message:

added ipprc.convert_filename method, replaced workdir conversions with convert_filename

File:

• trunk/ippScripts/scripts/detrend_stack.pl (modified) (3 diffs)

trunk/ippScripts/scripts/detrend_stack.pl

@@ -76 +76 @@
 # Stack the files
 my $outputRoot = $camera . '.' . $det_type . '.' . $det_id . '.' . $iter . '.' . $class_id; # Root name
-$outputRoot = File::Spec->rel2abs( File::Spec->catpath( $vol, $dir, $outputRoot ), $ipprc->workdir() );
+$outputRoot = File::Spec->catpath( $vol, $dir, $outputRoot );
+$outputRoot = $ipprc->convert_filename ($outputRoot);
 my $outputStack = $outputRoot . '.fits'; # Output name
 my $outputStats = $outputRoot . '.stats'; # Statistics name
@@ -83 +84 @@
     foreach my $file (@$files) {
         my $uri = $file->{uri}; # URI for input file
-        $uri = File::Spec->rel2abs( $uri, $ipprc->workdir() );
+        $uri = $ipprc->convert_filename ($uri);
         $command .= ' ' . $uri;
     }
@@ -113 +114 @@
 
 # Add the resultant into the database
-$outputStack = File::Spec->abs2rel( $outputStack, $ipprc->workdir() );
+$outputStack = $ipprc->convert_filename ($outputStack);
 unless ($no_update) {
     my $command = "$dettool -addstacked -det_id $det_id -iteration $iter -class_id $class_id" .