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

(-)a/misc/debarrBorrowersWithFines.pl (-5 / +4 lines)
Lines 60-73 elsif (not($file) && not(length($message) > 20)) { Link Here
60
    exit 1;
60
    exit 1;
61
}
61
}
62
62
63
my $badBorrowers = Koha::Patrons->search->search_patrons_with_unpaid_fines();
63
my $badBorrowers = Koha::Patrons->filter_by_amount_owed( { more_than => 0 } );
64
$message = getMessageContent();
64
$message = getMessageContent();
65
65
66
foreach my $bb (@$badBorrowers) {
66
while (my $bb = $badBorrowers->next ) {
67
    #Don't crash, but keep debarring as long as you can!
67
    #Don't crash, but keep debarring as long as you can!
68
    eval {
68
    eval {
69
        my $success = Koha::Patron::Debarments::AddDebarment({
69
        my $success = Koha::Patron::Debarments::AddDebarment({
70
            borrowernumber => $bb->{borrowernumber},
70
            borrowernumber => $bb->borrowernumber,
71
            expiration     => $expiration,
71
            expiration     => $expiration,
72
            type           => 'MANUAL',
72
            type           => 'MANUAL',
73
            comment        => $message,
73
            comment        => $message,
Lines 88-91 sub getMessageContent { Link Here
88
    my @msg = <$FH>;
88
    my @msg = <$FH>;
89
    close $FH;
89
    close $FH;
90
    return join("",@msg);
90
    return join("",@msg);
91
}
91
}
92
- 

Return to bug 15157