View | Details | Raw Unified | Return to bug 14708
Collapse All | Expand All

(-)a/misc/cronjobs/delete_patrons.pl (-1 / +8 lines)
Lines 94-99 unless ($confirm) { Link Here
94
94
95
say scalar(@$members) . " patrons to delete" if $verbose;;
95
say scalar(@$members) . " patrons to delete" if $verbose;;
96
96
97
my $anonymous_patron = C4::Context->preference("AnonymousPatron");
97
my $deleted = 0;
98
my $deleted = 0;
98
for my $member (@$members) {
99
for my $member (@$members) {
99
    print "Trying to delete patron $member->{borrowernumber}... "
100
    print "Trying to delete patron $member->{borrowernumber}... "
Lines 110-115 for my $member (@$members) { Link Here
110
        next;
111
        next;
111
    }
112
    }
112
113
114
    if ( $anonymous_patron ) {
115
        if ( $patron->id eq $anonymous_patron ) {
116
            say "Failed to delete patron $borrowernumber: patron is AnonymousPatron";
117
            next;
118
        }
119
    }
120
113
    if ( $confirm ) {
121
    if ( $confirm ) {
114
        my $deleted = eval { $patron->move_to_deleted; };
122
        my $deleted = eval { $patron->move_to_deleted; };
115
        if ($@ or not $deleted) {
123
        if ($@ or not $deleted) {
116
- 

Return to bug 14708