Index: trunk/ippScripts/scripts/register_exp.pl
===================================================================
--- trunk/ippScripts/scripts/register_exp.pl	(revision 12225)
+++ trunk/ippScripts/scripts/register_exp.pl	(revision 12245)
@@ -31,5 +31,5 @@
     );
 
-my ($cache, $exp_tag, $workdir, $dbname, $no_update);
+my ($cache, $exp_tag, $workdir, $dbname, $no_update, $no_op);
 
 GetOptions(
@@ -38,5 +38,6 @@
     'workdir|w=s'   => \$workdir, # Working directory for output files
     'dbname|d=s'    => \$dbname, # Database name    
-    'no-update'     => \$no_update
+    'no-update'     => \$no_update,
+    'no-op'         => \$no_op,
 ) or pod2usage( 2 );
 
Index: trunk/ippScripts/scripts/register_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/register_imfile.pl	(revision 12225)
+++ trunk/ippScripts/scripts/register_imfile.pl	(revision 12245)
@@ -37,5 +37,5 @@
 use Pod::Usage qw( pod2usage );
 
-my ($cache, $exp_tag, $class_id, $uri, $workdir, $dbname, $no_update);
+my ($cache, $exp_tag, $class_id, $uri, $workdir, $dbname, $no_update, $no_op);
 
 # print "args: @ARGV\n";
@@ -51,5 +51,6 @@
     'workdir|w=s'   => \$workdir, # Working directory for output files
     'dbname|d=s'    => \$dbname,# Database name
-    'no-update'     => \$no_update
+    'no-update'     => \$no_update,
+    'no-op'         => \$no_op,
 ) or pod2usage( 2 );