|
Lines 106-116
while ( my $patron = $patrons->next ) {
Link Here
|
| 106 |
|
106 |
|
| 107 |
# Don't crash, but keep debarring as long as you can! |
107 |
# Don't crash, but keep debarring as long as you can! |
| 108 |
eval { |
108 |
eval { |
| 109 |
Koha::Patron::Debarments::AddDebarment( |
109 |
Koha::Patron::Debarments::AddUniqueDebarment( |
| 110 |
{ |
110 |
{ |
| 111 |
borrowernumber => $patron->id, |
111 |
borrowernumber => $patron->id, |
| 112 |
expiration => $expiration, |
112 |
expiration => $expiration, |
| 113 |
type => 'MANUAL', |
113 |
type => 'SUSPENSION', |
| 114 |
comment => $message, |
114 |
comment => $message, |
| 115 |
} |
115 |
} |
| 116 |
); |
116 |
); |
| 117 |
- |
|
|