Index: trunk/ippScripts/scripts/phase0imfile.pl
===================================================================
--- trunk/ippScripts/scripts/phase0imfile.pl	(revision 9091)
+++ trunk/ippScripts/scripts/phase0imfile.pl	(revision 9097)
@@ -15,8 +15,8 @@
 use Pod::Usage qw( pod2usage );
 
-my ($exp_id, $class_id, $uri, $no_update);
+my ($exp_tag, $class_id, $uri, $no_update);
 
 GetOptions(
-    'exp_id|e=s'    => \$exp_id,
+    'exp_tag|e=s'    => \$exp_tag,
     'class_id|i=s'  => \$class_id,
     'uri|u=s'       => \$uri,
@@ -26,7 +26,7 @@
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 pod2usage(
-    -msg => "Required options: --exp_id --class_id --uri",
+    -msg => "Required options: --exp_tag --class_id --uri",
     -exitval => 3,
-) unless defined $exp_id 
+) unless defined $exp_tag 
     and defined $class_id 
     and defined $uri;
@@ -60,5 +60,5 @@
 # Switches for p0tool
 use constant P0TOOL_MODE => '-updateimfile'; # Mode for p0tool
-use constant P0TOOL_EXPID => '-exp_id'; # Switch to specify the exposure id
+use constant P0TOOL_EXPTAG => '-exp_tag'; # Switch to specify the exposure id
 use constant P0TOOL_CLASSID => '-class_id'; # Switch to specify the class id
 use constant P0TOOL_BG_MEAN => '-bg'; # Switch to add the background
@@ -78,5 +78,5 @@
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $command, verbose => 1);
-    die "Unable to perform ppStats on exposure id $exp_id: $error_code\n" if not $success;
+    die "Unable to perform ppStats on exposure id $exp_tag: $error_code\n" if not $success;
     
     # Parse the output
@@ -92,5 +92,5 @@
 # Push the results into the database
 unless ($no_update) {
-    my $command = $p0tool . " " . P0TOOL_MODE() . " " . P0TOOL_EXPID() . " " . $exp_id . " " .
+    my $command = $p0tool . " " . P0TOOL_MODE() . " " . P0TOOL_EXPTAG() . " " . $exp_tag . " " .
         P0TOOL_CLASSID() . " " . $class_id; # Command to run p0tool