Changeset 9091 for trunk/ippScripts/scripts/detrend_reject_imfile.pl

Timestamp:

Oct 2, 2006, 11:54:11 AM (20 years ago)

Author:

Paul Price

Message:

Adding -no-update option (bug 825).

File:

• trunk/ippScripts/scripts/detrend_reject_imfile.pl (modified) (3 diffs)

trunk/ippScripts/scripts/detrend_reject_imfile.pl

@@ -15 +15 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $iter, $exp_id, $det_type);
+my ($det_id, $iter, $exp_id, $det_type, $no_update);
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -21 +21 @@
     'exp_id|e=s'        => \$exp_id,
     'det_type|t=s'      => \$det_type,
+    'no-update'         => \$no_update
 ) or pod2usage( 2 );
 
@@ -193 +194 @@
 
 # Add the result into the database
-{
+unless ($no_update) {
     my $command = "$dettool -addresidexp -det_id $det_id -iteration $iter -exp_id $exp_id " .
         "-recip " . RECIPE1() . "," . RECIPE2() . " -b1_uri $jpeg1Name -b2_uri $jpeg2Name " .