@@ -, +, @@ --- misc/debarrBorrowersWithFines.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) mode change 100644 => 100755 misc/debarrBorrowersWithFines.pl --- a/misc/debarrBorrowersWithFines.pl +++ a/misc/debarrBorrowersWithFines.pl @@ -60,14 +60,14 @@ elsif (not($file) && not(length($message) > 20)) { exit 1; } -my $badBorrowers = Koha::Patrons->search->search_patrons_with_unpaid_fines(); +my $badBorrowers = Koha::Patrons->filter_by_amount_owed( { more_than => 0 } ); $message = getMessageContent(); -foreach my $bb (@$badBorrowers) { +while (my $bb = $badBorrowers->next ) { #Don't crash, but keep debarring as long as you can! eval { my $success = Koha::Patron::Debarments::AddDebarment({ - borrowernumber => $bb->{borrowernumber}, + borrowernumber => $bb->borrowernumber, expiration => $expiration, type => 'MANUAL', comment => $message, @@ -88,4 +88,4 @@ sub getMessageContent { my @msg = <$FH>; close $FH; return join("",@msg); -} +} --