Changeset 12079 for trunk/ippScripts/scripts/detrend_process_exp.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_process_exp.pl (modified) (3 diffs)

trunk/ippScripts/scripts/detrend_process_exp.pl

@@ -116 +116 @@
     $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;
@@ -131 +131 @@
 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");
@@ -172 +172 @@
 # Add the result into the database
 $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 " .
-        "-recip " . RECIPE1() . "," . RECIPE2() . " -b1_uri $outputRoot " .
+        "-recip " . RECIPE1() . "," . RECIPE2() . " -path_base $outputRoot " .
         "-bg $bg -bg_stdev $bg_stdev -bg_mean_stdev $bg_mean_stdev"; # Command to run
     $command .= " -dbname $dbname" if defined $dbname;