Lines 545-551
sub UpdateFine {
Link Here
|
545 |
# - accumulate fines for other items |
545 |
# - accumulate fines for other items |
546 |
# so we can update $itemnum fine taking in account fine caps |
546 |
# so we can update $itemnum fine taking in account fine caps |
547 |
while (my $overdue = $overdues->next) { |
547 |
while (my $overdue = $overdues->next) { |
548 |
if ( defined $overdue->issue_id && $overdue->issue_id == $issue_id && $overdue->status eq 'UNRETURNED' ) { |
548 |
if ( defined $overdue->issue_id && $overdue->issue_id == $issue_id ) { |
549 |
if ($accountline) { |
549 |
if ($accountline) { |
550 |
$debug and warn "Not a unique accountlines record for issue_id $issue_id"; |
550 |
$debug and warn "Not a unique accountlines record for issue_id $issue_id"; |
551 |
#FIXME Should we still count this one in total_amount ?? |
551 |
#FIXME Should we still count this one in total_amount ?? |
Lines 574-580
sub UpdateFine {
Link Here
|
574 |
} |
574 |
} |
575 |
|
575 |
|
576 |
if ( $accountline ) { |
576 |
if ( $accountline ) { |
577 |
if ( Koha::Number::Price->new($accountline->amount)->round != Koha::Number::Price->new($amount)->round ) { |
577 |
# a book may be returned while cronjob/fines.pl is running |
|
|
578 |
if ( ( $accountline->status eq 'UNRETURNED' || ! C4::Context->preference('CalculateFinesOnReturn') ) |
579 |
&& Koha::Number::Price->new($accountline->amount)->round != Koha::Number::Price->new($amount)->round ) { |
578 |
$accountline->adjust( |
580 |
$accountline->adjust( |
579 |
{ |
581 |
{ |
580 |
amount => $amount, |
582 |
amount => $amount, |
581 |
- |
|
|