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

(-)a/tools/modborrowers.pl (-2 / +1 lines)
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
- 

Return to bug 31095