From e64510426ce509f53a300673c1adb48a39261352 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Wed, 27 Feb 2019 12:00:03 -0500 Subject: [PATCH] Bug 14708: Enforce restriction in delete_patrons.pl --- misc/cronjobs/delete_patrons.pl | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/misc/cronjobs/delete_patrons.pl b/misc/cronjobs/delete_patrons.pl index cb59465df4..7510e76af3 100755 --- a/misc/cronjobs/delete_patrons.pl +++ b/misc/cronjobs/delete_patrons.pl @@ -60,6 +60,7 @@ unless ($confirm) { say scalar(@$members) . " patrons to delete"; +my $anonymous_patron = C4::Context->preference("AnonymousPatron"); my $deleted = 0; for my $member (@$members) { print "Trying to delete patron $member->{borrowernumber}... " @@ -76,6 +77,13 @@ for my $member (@$members) { next; } + if ( $anonymous_patron ) { + if ( $patron->id eq $anonymous_patron ) { + say "Failed to delete patron $borrowernumber: patron is AnonymousPatron"; + next; + } + } + if ( $confirm ) { my $deleted = eval { $patron->move_to_deleted; }; if ($@ or not $deleted) { -- 2.17.2 (Apple Git-113)