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

trunk/ippScripts/scripts/detrend_norm_exp.pl

@@ -118 +118 @@
     $workdir = $ipprc->convert_filename_absolute( $workdir );
 } else {
-    my $example = ${$files}[0]->{b1_uri}; # Example file, for path
+    my $example = ${$files}[0]->{path_base}; # Example file, for path
     my ($vol, $dir, $file) = File::Spec->splitpath( $example );
     $workdir = $dir;
@@ -135 +135 @@
 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");
@@ -167 +167 @@
 
 # Add the result into the database
-$jpeg1Name = $ipprc->convert_filename_relative( $jpeg1Name );
-$jpeg2Name = $ipprc->convert_filename_relative( $jpeg2Name );
+$outputRoot = $ipprc->convert_filename_relative( $outputRoot );
+
 unless ($no_update) {
     my $command = "$dettool -addnormalizedexp -det_id $det_id -iteration $iter " .
-        "-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;