Index: trunk/ippScripts/scripts/ipp_serial_phase0.pl
===================================================================
--- trunk/ippScripts/scripts/ipp_serial_phase0.pl	(revision 11414)
+++ trunk/ippScripts/scripts/ipp_serial_phase0.pl	(revision 11846)
@@ -12,8 +12,10 @@
 use Pod::Usage qw( pod2usage );
 
-my ($dbname			# Database name to use
+my ($dbname,			# Database name to use
+    $workdir,			# Working directory
     );
 GetOptions(
-	   'dbname|d=s' => \$dbname,
+	   'dbname|d=s'  => \$dbname,
+	   'workdir|w=s' => \$workdir,
 ) or pod2usage( 2 );
 
@@ -50,4 +52,5 @@
     
     my $command = "$phase0_imfile --exp_tag $exp_tag --class $class --class_id $class_id --uri $uri --dbname $dbname";
+    $command .= " --workdir $workdir" if defined $workdir;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
 	run( command => $command, verbose => 1 );
@@ -69,4 +72,5 @@
     
     my $command = "$phase0_exp --exp_tag $exp_tag --dbname $dbname";
+    $command .= " --workdir $workdir" if defined $workdir;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
 	run( command => $command, verbose => 1 );