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

index ce714bf..85bf68a 100755 (executable)
@@ -71,7 +71,11 @@ if ( $DRY_RUN ) {
 my $hashref = {};
 $hashref->{dry_run} = 1 if $DRY_RUN;
 $hashref->{debug} = 1 if $DEBUG;
-print join "\n", prune_applications($hashref) unless $opt_s;
+if ( $DRY_RUN ) {
+  print join "\n", prune_applications($hashref) unless $opt_s;
+} else {
+  prune_applications($hashref) unless $opt_s;
+}
 print "\n" if $DRY_RUN;
 
 if ( $dbh->{Driver}->{Name} =~ /^mysql/i && ! $opt_s ) {