Index: trunk/ippScripts/scripts/detrend_reject_exp.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_reject_exp.pl	(revision 9091)
+++ trunk/ippScripts/scripts/detrend_reject_exp.pl	(revision 9097)
@@ -73,14 +73,14 @@
 }
 
-my @expIds;			# Array of exposure IDs
+my @expTags;			# Array of exposure IDs
 my @means;			# Array of means
 my @stdevs;			# Array of stdevs
 my @meanStdevs;			# Array of mean stdevs
 foreach my $exposure (@$exposures) {
-    die "Unable to find exposure id.\n" if not defined $exposure->{exp_id};
+    die "Unable to find exposure id.\n" if not defined $exposure->{exp_tag};
     die "Unable to find mean.\n" if not defined $exposure->{bg};
     die "Unable to find stdev.\n" if not defined $exposure->{bg_stdev};
     die "Unable to find mean stdev.\n" if not defined $exposure->{bg_mean_stdev};
-    push @expIds, $exposure->{exp_id};
+    push @expTags, $exposure->{exp_tag};
     push @means, $exposure->{bg};
     push @stdevs, $exposure->{bg_stdev};
@@ -105,6 +105,6 @@
 my $numRejected = 0;		# Number of exposures rejected
 for (my $i = 0; $i < scalar @means; $i++) {
-    my $expId = $expIds[$i];	# Exposure ID
-    my $command = "$dettool -updateresidexp -det_id $det_id -iteration $iter -exp_id $expId"; # Command to run
+    my $expTag = $expTags[$i];	# Exposure ID
+    my $command = "$dettool -updateresidexp -det_id $det_id -iteration $iter -exp_tag $expTag"; # Command to run
     my $reject = 0;		# Reject this exposure?
     if (defined REJECT_MEAN->{$det_type} and
@@ -112,5 +112,5 @@
 	$meanStats->standard_deviation() > 0 and
 	($means[$i] - $meanStats->mean()) / $meanStats->standard_deviation() > REJECT_MEAN->{$det_type}) {
-	print "Rejecting $expId based on bad mean: " .
+	print "Rejecting $expTag based on bad mean: " .
 	    (($means[$i] - $meanStats->mean()) / $meanStats->standard_deviation()) .
 	    " vs " . REJECT_MEAN->{$det_type} . "\n";
@@ -121,5 +121,5 @@
 	     ($stdevs[$i] - $stdevStats->mean()) / $stdevStats->standard_deviation() >
 	     REJECT_STDEV->{$det_type}) {
-	print "Rejecting $expId based on bad stdev: " .
+	print "Rejecting $expTag based on bad stdev: " .
 	    (($stdevs[$i] - $stdevStats->mean()) / $stdevStats->standard_deviation()) .
 	    " vs " . REJECT_STDEV->{$det_type} . "\n";
@@ -130,5 +130,5 @@
 	     ($meanStdevs[$i] - $meanStdevStats->mean()) / $meanStdevStats->standard_deviation() >
 	     REJECT_MEAN_STDEV->{$det_type}) {
-	print "Rejecting $expId based on bad stdev: " .
+	print "Rejecting $expTag based on bad stdev: " .
 	    (($meanStdevs[$i] - $meanStdevStats->mean()) / $meanStdevStats->standard_deviation()) .
 	    " vs " . REJECT_MEAN_STDEV->{$det_type} . "\n";