Index: trunk/ippScripts/scripts/detrend_reject_exp.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_reject_exp.pl	(revision 16196)
+++ trunk/ippScripts/scripts/detrend_reject_exp.pl	(revision 16308)
@@ -37,5 +37,5 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $iter, $det_type, $camera, $outroot, $filter, $dbname, $no_update, $no_op);
+my ($det_id, $iter, $det_type, $camera, $outroot, $filter, $dbname, $verbose, $no_update, $no_op);
 GetOptions(
 	   'det_id|d=s'        => \$det_id,
@@ -43,7 +43,8 @@
 	   'det_type|t=s'      => \$det_type,
 	   'camera=s'          => \$camera,
-	   'outroot|w=s'   => \$outroot,   # output file base name
+	   'outroot|w=s'       => \$outroot,   # output file base name
 	   'filter=s'          => \$filter,
 	   'dbname|d=s'        => \$dbname, # Database name
+	   'verbose'           => \$verbose,   # Print to stdout
 	   'no-update'         => \$no_update,
 	   'no-op'             => \$no_op,
@@ -106,5 +107,5 @@
     $command .= " -dbname $dbname" if defined $dbname;
     ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-	run(command => $command, verbose => 1);
+	run(command => $command, verbose => $verbose);
     unless ($success) {
 	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -261,5 +262,5 @@
 	# Update 
 	( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-	    run(command => $command, verbose => 1);
+	    run(command => $command, verbose => $verbose);
 	unless ($success) {
 	    $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -308,5 +309,5 @@
 unless ($no_update) {
     ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-	run(command => $command, verbose => 1);
+	run(command => $command, verbose => $verbose);
     unless ($success) {
 	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);