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 |
- |
|
|