Index: trunk/ippScripts/scripts/detrend_reject_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 10333)
+++ trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 10419)
@@ -71,5 +71,6 @@
 # Generate the file list, and get the statistics
 my $outputRoot = $exp_tag . '.detresid.' . $det_id . '.' . $iter; # Root output 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 $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
@@ -79,6 +80,6 @@
 open my $list2File, '>' . $list2Name;
 foreach my $file (@$files) {
-    print $list1File (File::Spec->rel2abs( $file->{b1_uri}, $ipprc->workdir() ) . "\n");
-    print $list2File (File::Spec->rel2abs( $file->{b2_uri}, $ipprc->workdir() ) . "\n");
+    print $list1File ($ipprc->convert_filename ( $file->{b1_uri} ) . "\n");
+    print $list2File ($ipprc->convert_filename ( $file->{b2_uri} ) . "\n");
     push @means, $file->{bg};
     ## calculate the root-mean-square of the bd_stdevs
@@ -194,6 +195,6 @@
 
 # Add the result into the database
-$jpeg1Name = File::Spec->abs2rel( $jpeg1Name, $ipprc->workdir() );
-$jpeg2Name = File::Spec->abs2rel( $jpeg2Name, $ipprc->workdir() );
+$jpeg1Name = $ipprc->convert_filename ( $jpeg1Name );
+$jpeg2Name = $ipprc->convert_filename ( $jpeg2Name );
 unless ($no_update) {
     my $command = "$dettool -addresidexp -det_id $det_id -iteration $iter -exp_tag $exp_tag " .