Changeset 10534 for trunk/ippScripts/scripts/detrend_process_exp.pl

Timestamp:

Dec 7, 2006, 12:56:06 PM (19 years ago)

Author:

Paul Price

Message:

Convert back to relative paths when putting filenames into the database.

File:

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

trunk/ippScripts/scripts/detrend_process_exp.pl

@@ -94 +94 @@
 my $outputRoot = $exp_tag . '.detproc.' . $det_id; # Root output name
 $outputRoot = File::Spec->catpath( $vol, $dir, $outputRoot );
-$outputRoot = $ipprc->convert_filename ($outputRoot);
+$outputRoot = $ipprc->convert_filename_absolute($outputRoot);
 my $list1Name = $outputRoot . '.b1.list'; # Name for the input file list for binning 1
 my $list2Name = $outputRoot . '.b2.list'; # Name for the input file list for binning 2
@@ -102 +102 @@
 open my $list2File, '>' . $list2Name;
 foreach my $file (@$files) {
-    print $list1File ($ipprc->convert_filename ( $file->{b1_uri} ) . "\n");
-    print $list2File ($ipprc->convert_filename ( $file->{b2_uri} ) . "\n");
+    print $list1File ($ipprc->convert_filename_absolute( $file->{b1_uri} ) . "\n");
+    print $list2File ($ipprc->convert_filename_absolute( $file->{b2_uri} ) . "\n");
     push @means, $file->{bg};
     push @stdevs, $file->{bg_stdev};
@@ -132 +132 @@
 
 # Add the result into the database
-$outputRoot = $ipprc->convert_filename ( $outputRoot );
-$jpeg1  = $ipprc->convert_filename ( $jpeg1 );
-$jpeg2  = $ipprc->convert_filename ( $jpeg2 );
+$outputRoot = $ipprc->convert_filename_relative( $outputRoot );
+$jpeg1  = $ipprc->convert_filename_relative( $jpeg1 );
+$jpeg2  = $ipprc->convert_filename_relative( $jpeg2 );
 unless ($no_update) {
     my $command = "$dettool -addprocessedexp -det_id $det_id -exp_tag $exp_tag " .