Changeset 12676 for trunk/ippScripts/scripts/detrend_reject_exp.pl

Timestamp:

Mar 29, 2007, 10:48:31 AM (19 years ago)

Author:

Paul Price

Message:

Fix directory.

File:

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

trunk/ippScripts/scripts/detrend_reject_exp.pl

@@ -121 +121 @@
 my $reject_meanstdev = rejection_limit( 'ENSEMBLE.MEANSTDEV', $det_type, $filter );
 
-$workdir = $ipprc->convert_filename_absolute( $workdir );
-
 my $logName = "$camera.$det_type.$det_id.$iter.detreject.log"; # Name for log
-$logName = File::Spec->catfile( $workdir, $logName );
+if (defined $workdir) {
+    $workdir = $ipprc->convert_filename_absolute( $workdir );
+    my $subdir = "$camera.$det_type.$det_id";
+    $logName = File::Spec->catfile( $workdir, $subdir, $logName );
+}
 my $logFile;
 unless ($no_op) {