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