Bug 25157: Silent patron deletion cmd line script

Without -v the script will no longer display messages unless the error
is major.

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

diff --git a/misc/cronjobs/delete_patrons.pl b/misc/cronjobs/delete_patrons.pl
index 8129359..3d25cb7 100755 (executable)
--- a/misc/cronjobs/delete_patrons.pl
+++ b/misc/cronjobs/delete_patrons.pl
@@ -89,9 +89,10 @@ if (!defined $members and @file_members) {
 unless ($confirm) {
     say "Doing a dry run; no patron records will actually be deleted.";
     say "Run again with --confirm to delete the records.";
+    $verbose ||= 1;
 }
 
-say scalar(@$members) . " patrons to delete";
+say scalar(@$members) . " patrons to delete" if $verbose;;
 
 my $deleted = 0;
 for my $member (@$members) {
@@ -105,14 +106,14 @@ for my $member (@$members) {
         next;
     }
     if ( my $charges = $patron->account->non_issues_charges ) { # And what if we owe to this patron?
-        say "Failed to delete patron $borrowernumber: patron has $charges in fines";
+        say "Failed to delete patron $borrowernumber: patron has $charges in fines" if $verbose;
         next;
     }
 
     if ( $confirm ) {
         my $deleted = eval { $patron->move_to_deleted; };
         if ($@ or not $deleted) {
-            say "Failed to delete patron $borrowernumber, cannot move it" . ( $@ ? ": ($@)" : "" );
+            say "Failed to delete patron $borrowernumber, cannot move it" . ( $@ ? ": ($@)" : "" ) if $verbose;
             next;
         }
 
@@ -126,7 +127,7 @@ for my $member (@$members) {
     say "OK" if $verbose;
 }
 
-say "$deleted patrons deleted";
+say "$deleted patrons deleted" if $verbose;
 
 =head1 NAME