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