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

(-)a/misc/cronjobs/delete_patrons.pl (-1 / +8 lines)
Lines 60-65 unless ($confirm) { Link Here
60
60
61
say scalar(@$members) . " patrons to delete";
61
say scalar(@$members) . " patrons to delete";
62
62
63
my $anonymous_patron = C4::Context->preference("AnonymousPatron");
63
my $deleted = 0;
64
my $deleted = 0;
64
for my $member (@$members) {
65
for my $member (@$members) {
65
    print "Trying to delete patron $member->{borrowernumber}... "
66
    print "Trying to delete patron $member->{borrowernumber}... "
Lines 76-81 for my $member (@$members) { Link Here
76
        next;
77
        next;
77
    }
78
    }
78
79
80
    if ( $anonymous_patron ) {
81
        if ( $patron->id eq $anonymous_patron ) {
82
            say "Failed to delete patron $borrowernumber: patron is AnonymousPatron";
83
            next;
84
        }
85
    }
86
79
    if ( $confirm ) {
87
    if ( $confirm ) {
80
        my $deleted = eval { $patron->move_to_deleted; };
88
        my $deleted = eval { $patron->move_to_deleted; };
81
        if ($@ or not $deleted) {
89
        if ($@ or not $deleted) {
82
- 

Return to bug 14708