@@ -, +, @@ --- misc/cronjobs/delete_patrons.pl | 8 ++++++++ 1 file changed, 8 insertions(+) --- a/misc/cronjobs/delete_patrons.pl +++ a/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) { --