Changeset 12421 for trunk/ippScripts/scripts/camera_exp.pl

Timestamp:

Mar 12, 2007, 5:01:10 PM (19 years ago)

Author:

Paul Price

Message:

Updating directory names, output file names.

File:

• trunk/ippScripts/scripts/camera_exp.pl (modified) (1 diff)

trunk/ippScripts/scripts/camera_exp.pl

@@ -125 +125 @@
 }
 
+# Set output directory
 if (defined $workdir) {
     $workdir = $ipprc->convert_filename_absolute( $workdir );
+    $workdir = File::Spec->catdir( $workdir, $exp_id );
 } else {
-    my $example = ${$files}[0]->{path_base}; # Example original root name
-    my ($vol, $dir, $file) = File::Spec->splitpath( $ipprc->convert_filename_absolute( $example ) );
+    my $example = $ipprc->convert_filename_absolute( ${$files}[0]->{path_base}) ; # Example original name
+    my ($vol, $dir, $file) = File::Spec->splitpath( $example );
     $workdir = $dir;
 }
-
-$workdir = File::Spec->catfile( $workdir, $exp_id );
 system "mkdir -p $workdir" unless -d $workdir;