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

(-)a/misc/debarrBorrowersWithFines.pl (-4 / +4 lines)
Lines 4-10 use Modern::Perl; Link Here
4
use Getopt::Long;
4
use Getopt::Long;
5
5
6
use C4::Accounts;
6
use C4::Accounts;
7
use Koha::Borrower::Debarments;
7
use Koha::Patrons;
8
use Koha::Patron::Debarments;
8
9
9
my ($help, $confirm, $message, $expiration, $file);
10
my ($help, $confirm, $message, $expiration, $file);
10
GetOptions(
11
GetOptions(
Lines 59-71 elsif (not($file) && not(length($message) > 20)) { Link Here
59
    exit 1;
60
    exit 1;
60
}
61
}
61
62
62
my $badBorrowers = C4::Accounts::GetAllBorrowersWithUnpaidFines();
63
my $badBorrowers = Koha::Patrons->search->search_patrons_with_unpaid_fines();
63
$message = getMessageContent();
64
$message = getMessageContent();
64
65
65
foreach my $bb (@$badBorrowers) {
66
foreach my $bb (@$badBorrowers) {
66
    #Don't crash, but keep debarring as long as you can!
67
    #Don't crash, but keep debarring as long as you can!
67
    eval {
68
    eval {
68
        my $success = Koha::Borrower::Debarments::AddDebarment({
69
        my $success = Koha::Patron::Debarments::AddDebarment({
69
            borrowernumber => $bb->{borrowernumber},
70
            borrowernumber => $bb->{borrowernumber},
70
            expiration     => $expiration,
71
            expiration     => $expiration,
71
            type           => 'MANUAL',
72
            type           => 'MANUAL',
72
- 

Return to bug 15157