Index: /branches/eam_branch_20080121/ippScripts/scripts/register_exp.pl
===================================================================
--- /branches/eam_branch_20080121/ippScripts/scripts/register_exp.pl	(revision 16191)
+++ /branches/eam_branch_20080121/ippScripts/scripts/register_exp.pl	(revision 16192)
@@ -34,10 +34,9 @@
     );
 
-my ($cache, $exp_id, $exp_tag, $workdir, $dbname, $no_update, $no_op);
+my ($cache, $exp_id, $exp_tag, $dbname, $no_update, $no_op);
 GetOptions(
     'caches'        => \$cache,
     'exp_id|e=s'    => \$exp_id,
     'exp_tag|t=s'   => \$exp_tag,
-    'workdir|w=s'   => \$workdir, # Working directory for output files
     'dbname|d=s'    => \$dbname, # Database name    
     'no-update'     => \$no_update,
Index: /branches/eam_branch_20080121/ippScripts/scripts/register_imfile.pl
===================================================================
--- /branches/eam_branch_20080121/ippScripts/scripts/register_imfile.pl	(revision 16191)
+++ /branches/eam_branch_20080121/ippScripts/scripts/register_imfile.pl	(revision 16192)
@@ -37,5 +37,5 @@
 use Pod::Usage qw( pod2usage );
 
-my ($cache, $exp_id, $tmp_class_id, $tmp_exp_name, $uri, $workdir, $dbname, $no_update, $no_op);
+my ($cache, $exp_id, $tmp_class_id, $tmp_exp_name, $uri, $dbname, $no_update, $no_op);
 GetOptions(
     'caches'           => \$cache,
@@ -44,5 +44,4 @@
     'tmp_exp_name|n=s' => \$tmp_exp_name,
     'uri|u=s'          => \$uri,
-    'workdir|w=s'      => \$workdir, # Working directory for output files
     'dbname|d=s'       => \$dbname,# Database name
     'no-update'        => \$no_update,