Lines 41-46
use Try::Tiny qw( catch try );
Link Here
|
41 |
use Koha::Calendar; |
41 |
use Koha::Calendar; |
42 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
42 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
43 |
use Koha::Patrons; |
43 |
use Koha::Patrons; |
|
|
44 |
use Koha::Database; |
44 |
use C4::Log qw( cronlogaction ); |
45 |
use C4::Log qw( cronlogaction ); |
45 |
|
46 |
|
46 |
my $help; |
47 |
my $help; |
Lines 100-105
my $libname = C4::Context->preference('LibraryName');
Link Here
|
100 |
my $control = C4::Context->preference('CircControl'); |
101 |
my $control = C4::Context->preference('CircControl'); |
101 |
my $mode = C4::Context->preference('finesMode'); |
102 |
my $mode = C4::Context->preference('finesMode'); |
102 |
my $delim = "\t"; # ? C4::Context->preference('CSVDelimiter') || "\t"; |
103 |
my $delim = "\t"; # ? C4::Context->preference('CSVDelimiter') || "\t"; |
|
|
104 |
my $dbh = Koha::Database->dbh; |
103 |
|
105 |
|
104 |
my %is_holiday; |
106 |
my %is_holiday; |
105 |
my $today = dt_from_string(); |
107 |
my $today = dt_from_string(); |
Lines 157-172
for my $overdue ( @{$overdues} ) {
Link Here
|
157 |
&& ( $amount && $amount > 0 ) |
159 |
&& ( $amount && $amount > 0 ) |
158 |
) |
160 |
) |
159 |
{ |
161 |
{ |
160 |
UpdateFine( |
162 |
# Make sure the fine hasn't changed since the script started. |
|
|
163 |
$dbh->do('LOCK TABLES accountlines'); |
164 |
my $fines = Koha::Account::Lines->search( |
161 |
{ |
165 |
{ |
162 |
issue_id => $overdue->{issue_id}, |
166 |
issue_id => $overdue->{issue_id}, |
163 |
itemnumber => $overdue->{itemnumber}, |
167 |
debit_type_code => 'OVERDUE', |
164 |
borrowernumber => $overdue->{borrowernumber}, |
168 |
status => 'UNRETURNED', |
165 |
amount => $amount, |
|
|
166 |
due => output_pref($datedue), |
167 |
} |
169 |
} |
168 |
); |
170 |
); |
169 |
$updated++; |
171 |
if ( $fines->count == 1 ) { |
|
|
172 |
UpdateFine( |
173 |
{ |
174 |
issue_id => $overdue->{issue_id}, |
175 |
itemnumber => $overdue->{itemnumber}, |
176 |
borrowernumber => $overdue->{borrowernumber}, |
177 |
amount => $amount, |
178 |
due => output_pref($datedue), |
179 |
} |
180 |
); |
181 |
$updated++; |
182 |
} |
183 |
$dbh->do('UNLOCK TABLES'); |
170 |
} |
184 |
} |
171 |
my $borrower = $patron->unblessed; |
185 |
my $borrower = $patron->unblessed; |
172 |
if ($filename) { |
186 |
if ($filename) { |
173 |
- |
|
|