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 |
- |
|
|