Index: /trunk/PS-IPP-Config/lib/PS/IPP/Operations.pm
===================================================================
--- /trunk/PS-IPP-Config/lib/PS/IPP/Operations.pm	(revision 16331)
+++ /trunk/PS-IPP-Config/lib/PS/IPP/Operations.pm	(revision 16332)
@@ -1,5 +1,5 @@
 # Copyright (c) 2007  Paul Price
 #
-# $Id: Operations.pm,v 1.6 2008-02-06 03:59:46 price Exp $
+# $Id: Operations.pm,v 1.7 2008-02-06 04:04:33 price Exp $
 
 package PS::IPP::Operations;
@@ -50,4 +50,5 @@
     my $skycells = shift;	# List of skycell ids
     my $workdir = shift;	# Working directory
+    my $verbose = shift;	# Verbose?
 
     unless (defined $ipprc and defined $tess_id and defined $skycells and defined $workdir) {
@@ -72,5 +73,5 @@
 	    my $command = "$dvoImageExtract -D CATDIR $tess_dir $skycell_id -o $skyFileResolved";
 	    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-		run(command => $command, verbose => 1);
+		run(command => $command, verbose => $verbose);
 	    unless ($success) {
 		carp "Unable to perform dvoImageExtract for $tess_id $skycell_id";