Lines 546-554
sub UpdateFine {
Link Here
|
546 |
if (my $maxfine = C4::Context->preference('MaxFine')) { |
546 |
if (my $maxfine = C4::Context->preference('MaxFine')) { |
547 |
if ($total_amount_other + $amount > $maxfine) { |
547 |
if ($total_amount_other + $amount > $maxfine) { |
548 |
my $new_amount = $maxfine - $total_amount_other; |
548 |
my $new_amount = $maxfine - $total_amount_other; |
549 |
warn "Reducing fine for item $itemnum borrower $borrowernumber from $amount to $new_amount - MaxFine reached"; |
|
|
550 |
return if $new_amount <= 0.00; |
549 |
return if $new_amount <= 0.00; |
551 |
|
550 |
warn "Reducing fine for item $itemnum borrower $borrowernumber from $amount to $new_amount - MaxFine reached"; |
552 |
$amount = $new_amount; |
551 |
$amount = $new_amount; |
553 |
} |
552 |
} |
554 |
} |
553 |
} |
555 |
- |
|
|