Changeset 11333 for trunk/ippScripts/scripts/detrend_reject_imfile.pl

Timestamp:

Jan 26, 2007, 3:10:21 PM (19 years ago)

Author:

Paul Price

Message:

Fixing problem with resolving directories using PS::IPP::Config->datapath() --- use of File::Spec->catfile on $workdir = path://SOMETHING/ produced path:/SOMETHING/ which then killed the URI parsing in PS::IPP::Config->convert_filename_absolute().

File:

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

trunk/ippScripts/scripts/detrend_reject_imfile.pl

@@ -86 +86 @@
 }
 
-unless (defined $workdir) {
+if (defined $workdir) {
+    $workdir = $ipprc->convert_filename_absolute( $workdir );
+} else {
     my $example = ${$files}[0]->{b1_uri}; # Example file
     my ($vol, $dir, $file) = File::Spec->splitpath( $example );
@@ -95 +97 @@
 my $outputRoot = $exp_tag . '.detresid.' . $det_id . '.' . $iter; # Root output name
 $outputRoot = File::Spec->catfile( $workdir, $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