don't print out the cust_credit_refund pruning every time
authorivan <ivan>
Fri, 30 May 2008 01:33:51 +0000 (01:33 +0000)
committerivan <ivan>
Fri, 30 May 2008 01:33:51 +0000 (01:33 +0000)
FS/bin/freeside-upgrade

index 063373a..cc0c1ee 100755 (executable)
@@ -61,12 +61,9 @@ if ( $DRY_RUN ) {
 
 my $hashref = {};
 $hashref->{dry_run} = 1 if $DRY_RUN;
-$hashref->{debug} = 1 if $DEBUG;
-if ( $DRY_RUN ) {
-  print join "\n", prune_applications($hashref) unless $opt_s;
-} else {
-  prune_applications($hashref) unless $opt_s;
-}
+$hashref->{debug} = 1 if $DEBUG && $DRY_RUN;
+prune_applications($hashref) unless $opt_s;
+
 print "\n" if $DRY_RUN;
 
 if ( $dbh->{Driver}->{Name} =~ /^mysql/i && ! $opt_s ) {