Index: trunk/ippScripts/scripts/detrend_norm_apply.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_norm_apply.pl	(revision 11321)
+++ trunk/ippScripts/scripts/detrend_norm_apply.pl	(revision 11333)
@@ -74,5 +74,7 @@
 }
 
-unless (defined $workdir) {
+if (defined $workdir) {
+    $workdir = $ipprc->convert_filename_absolute( $workdir );
+} else {
     my ($vol, $dir, $file) = File::Spec->splitpath( $input );
     $workdir = $dir;
@@ -83,5 +85,4 @@
 my $outputRoot = $camera . '.' . $detType . '.norm.' . $detId . '.' . $iter; # Root output name
 $outputRoot = File::Spec->catfile( $workdir, $outputRoot );
-$outputRoot = $ipprc->convert_filename_absolute($outputRoot);
 
 my $output = $ipprc->filename("PPIMAGE.OUTPUT", $outputRoot, $classId);
Index: trunk/ippScripts/scripts/detrend_norm_exp.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_norm_exp.pl	(revision 11321)
+++ trunk/ippScripts/scripts/detrend_norm_exp.pl	(revision 11333)
@@ -108,5 +108,7 @@
 }
 
-unless (defined $workdir) {
+if (defined $workdir) {
+    $workdir = $ipprc->convert_filename_absolute( $workdir );
+} else {
     my $example = ${$files}[0]->{b1_uri}; # Example file, for path
     my ($vol, $dir, $file) = File::Spec->splitpath( $example );
@@ -117,5 +119,4 @@
 my $outputRoot = $camera . '.' . $det_type . '.norm.' . $det_id . '.' . $iter; # Root output name
 $outputRoot = File::Spec->catfile( $workdir, $outputRoot );
-$outputRoot = $ipprc->convert_filename_absolute( $outputRoot );
 my $list1Name = $outputRoot . '.b1.list'; # Name for the input file list for binning 1
 my $list2Name = $outputRoot . '.b2.list'; # Name for the input file list for binning 2
Index: trunk/ippScripts/scripts/detrend_process_exp.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_process_exp.pl	(revision 11321)
+++ trunk/ippScripts/scripts/detrend_process_exp.pl	(revision 11333)
@@ -106,5 +106,7 @@
 }
 
-unless (defined $workdir) {
+if (defined $workdir) {
+    $workdir = $ipprc->convert_filename_absolute( $workdir );
+} else {
     my $example = ${$files}[0]->{b1_uri}; # Example filename
     my ($vol, $dir, $file) = File::Spec->splitpath( $example );
@@ -115,5 +117,4 @@
 my $outputRoot = $exp_tag . '.detproc.' . $det_id; # Root output name
 $outputRoot = File::Spec->catfile( $workdir, $outputRoot );
-$outputRoot = $ipprc->convert_filename_absolute($outputRoot);
 my $list1Name = $outputRoot . '.b1.list'; # Name for the input file list for binning 1
 my $list2Name = $outputRoot . '.b2.list'; # Name for the input file list for binning 2
Index: trunk/ippScripts/scripts/detrend_process_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_process_imfile.pl	(revision 11321)
+++ trunk/ippScripts/scripts/detrend_process_imfile.pl	(revision 11333)
@@ -81,5 +81,7 @@
 
 ### Output file name
-unless (defined $workdir) {
+if (defined $workdir) {
+    $workdir = $ipprc->convert_filename_absolute( $workdir );
+} else {
     my ($vol, $dir, $file) = File::Spec->splitpath( $input_uri );
     $workdir = $dir;
@@ -87,5 +89,5 @@
 my $outputRoot = $exp_tag . '.detproc.' . $det_id; # Root name
 $outputRoot = File::Spec->catfile( $workdir, $outputRoot );
-$outputRoot = $ipprc->convert_filename_absolute( $outputRoot );
+print "OUTPUTROOT: $outputRoot\n";
 $input_uri = $ipprc->convert_filename_absolute( $input_uri );
 
Index: trunk/ippScripts/scripts/detrend_reject_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 11321)
+++ trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 11333)
@@ -86,5 +86,7 @@
 }
 
-unless (defined $workdir) {
+if (defined $workdir) {
+    $workdir = $ipprc->convert_filename_absolute( $workdir );
+} else {
     my $example = ${$files}[0]->{b1_uri}; # Example file
     my ($vol, $dir, $file) = File::Spec->splitpath( $example );
@@ -95,5 +97,4 @@
 my $outputRoot = $exp_tag . '.detresid.' . $det_id . '.' . $iter; # Root output name
 $outputRoot = File::Spec->catfile( $workdir, $outputRoot );
-$outputRoot = $ipprc->convert_filename_absolute($outputRoot);
 my $list1Name = $outputRoot . '.b1.list'; # Name for the input file list for binning 1
 my $list2Name = $outputRoot . '.b2.list'; # Name for the input file list for binning 2
Index: trunk/ippScripts/scripts/detrend_resid.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_resid.pl	(revision 11321)
+++ trunk/ippScripts/scripts/detrend_resid.pl	(revision 11333)
@@ -111,5 +111,7 @@
 
 ### Output file names --- must match camera configuration!
-unless (defined $workdir) {
+if (defined $workdir) {
+    $workdir = $ipprc->convert_filename_absolute( $workdir );
+} else {
     my ($vol, $dir, $file) = File::Spec->splitpath( $input_uri );
     $workdir = $dir;
@@ -117,5 +119,4 @@
 my $outputRoot = $exp_tag . '.detresid.' . $det_id . '.' . $iter; # Root name
 $outputRoot = File::Spec->catfile( $workdir, $outputRoot );
-$outputRoot = $ipprc->convert_filename_absolute( $outputRoot );
 $input_uri = $ipprc->convert_filename_absolute( $input_uri );
 $detrend = $ipprc->convert_filename_absolute( $detrend ) if defined $detrend;
Index: trunk/ippScripts/scripts/detrend_stack.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_stack.pl	(revision 11321)
+++ trunk/ippScripts/scripts/detrend_stack.pl	(revision 11333)
@@ -91,5 +91,7 @@
 }
 
-unless (defined $workdir) {
+if (defined $workdir) {
+    $workdir = $ipprc->convert_filename_absolute( $workdir );
+} else {
     my $example = ${$files}[0]->{uri}; # Example file
     my ($vol, $dir, $file) = File::Spec->splitpath( $example );
@@ -100,5 +102,4 @@
 my $outputRoot = $camera . '.' . $det_type . '.' . $det_id . '.' . $iter . '.' . $class_id; # Root name
 $outputRoot = File::Spec->catfile( $workdir, $outputRoot );
-$outputRoot = $ipprc->convert_filename_absolute($outputRoot);
 my $outputStack = $outputRoot . '.fits'; # Output name
 my $outputStats = $outputRoot . '.stats'; # Statistics name
Index: trunk/ippScripts/scripts/phase2.pl
===================================================================
--- trunk/ippScripts/scripts/phase2.pl	(revision 11321)
+++ trunk/ippScripts/scripts/phase2.pl	(revision 11333)
@@ -64,5 +64,7 @@
 }
 
-unless (defined $workdir) {
+if (defined $workdir) {
+    $workdir = $ipprc->convert_filename_absolute( $workdir );
+} else {
     my ($vol, $dir, $file) = File::Spec->splitpath( $input );
     $workdir = $dir;
@@ -72,5 +74,4 @@
 my $outputRoot =  $exp_tag . '.p2';
 $outputRoot = File::Spec->catfile( $workdir, $outputRoot );
-$outputRoot = $ipprc->convert_filename_absolute($outputRoot);
 $input = $ipprc->convert_filename_absolute ( $input );
 
Index: trunk/ippScripts/scripts/phase3.pl
===================================================================
--- trunk/ippScripts/scripts/phase3.pl	(revision 11321)
+++ trunk/ippScripts/scripts/phase3.pl	(revision 11333)
@@ -113,5 +113,7 @@
 }
 
-unless (defined $workdir) {
+if (defined $workdir) {
+    $workdir = $ipprc->convert_filename_absolute( $workdir );
+} else {
     my $example = ${$files}[0]->{b1_uri}; # Example filename
     my ($vol, $dir, $file) = File::Spec->splitpath( $example );
@@ -122,5 +124,4 @@
 my $outputRoot = $exp_tag . '.p3'; # Root output name
 $outputRoot = File::Spec->catfile( $workdir, $outputRoot );
-$outputRoot = $ipprc->convert_filename_absolute($outputRoot);
 my $list1Name = $outputRoot . '.b1.list'; # Name for the input file list for binning 1
 my $list2Name = $outputRoot . '.b2.list'; # Name for the input file list for binning 2