@@ -, +, @@ --- tools/modborrowers.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) --- a/tools/modborrowers.pl +++ a/tools/modborrowers.pl @@ -383,7 +383,7 @@ if ( $op eq 'do' ) { if ( grep { /debarred/ } @disabled ) { eval { my $debarrments = $patron->restrictions; - foreach my $debarment (@$debarrments) { + while( my $debarment = $debarrments->next ) { DelDebarment( $debarment->borrower_debarment_id ); } }; --