|
Lines 383-389
if ( $op eq 'do' ) {
Link Here
|
| 383 |
if ( grep { /debarred/ } @disabled ) { |
383 |
if ( grep { /debarred/ } @disabled ) { |
| 384 |
eval { |
384 |
eval { |
| 385 |
my $debarrments = $patron->restrictions; |
385 |
my $debarrments = $patron->restrictions; |
| 386 |
foreach my $debarment (@$debarrments) { |
386 |
while( my $debarment = $debarrments->next ) { |
| 387 |
DelDebarment( $debarment->borrower_debarment_id ); |
387 |
DelDebarment( $debarment->borrower_debarment_id ); |
| 388 |
} |
388 |
} |
| 389 |
}; |
389 |
}; |
| 390 |
- |
|
|