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

Timestamp:

Feb 27, 2007, 10:13:31 AM (19 years ago)

Author:

Paul Price

Message:

Changing from b1_uri as the output root filename and path to path_base.

File:

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

trunk/ippScripts/scripts/detrend_reject_imfile.pl

@@ -96 +96 @@
     $workdir = $ipprc->convert_filename_absolute( $workdir );
 } else {
-    my $example = ${$files}[0]->{b1_uri}; # Example original root name
+    my $example = ${$files}[0]->{path_base}; # Example original root name
     my ($vol, $dir, $file) = File::Spec->splitpath( $example );
     $workdir = $dir;
@@ -114 +114 @@
 open my $list2File, '>' . $list2Name;
 foreach my $file (@$files) {
-    my $origRoot = $ipprc->convert_filename_absolute( $file->{b1_uri} ); # Original root name
+    my $origRoot = $ipprc->convert_filename_absolute( $file->{path_base} ); # Original root name
     print $list1File ($ipprc->filename( "PPIMAGE.BIN1", $origRoot, $file->{class_id} ) . "\n");
     print $list2File ($ipprc->filename( "PPIMAGE.BIN2", $origRoot, $file->{class_id} ) . "\n");
@@ -283 +283 @@
 
 # Add the result into the database
-$jpeg1Name = $ipprc->convert_filename_relative( $jpeg1Name );
-$jpeg2Name = $ipprc->convert_filename_relative( $jpeg2Name );
+$outputRoot = $ipprc->convert_filename_relative( $outputRoot );
 
 my $bg = $mean;
@@ -292 +291 @@
 unless ($no_update) {
     my $command = "$dettool -addresidexp -det_id $det_id -iteration $iter -exp_tag $exp_tag " .
-        "-recip " . RECIPE1() . "," . RECIPE2() . " -b1_uri $outputRoot "; # Command to run
+        "-recip " . RECIPE1() . "," . RECIPE2() . " -path_base $outputRoot "; # Command to run
     $command .= " -bg $bg -bg_stdev $bg_stdev -bg_mean_stdev $bg_mean_stdev";
     $command .= ' -reject' if $reject;