|
Lines 559-565
sub UpdateFine {
Link Here
|
| 559 |
|
559 |
|
| 560 |
if ( my $maxfine = C4::Context->preference('MaxFine') ) { |
560 |
if ( my $maxfine = C4::Context->preference('MaxFine') ) { |
| 561 |
my $maxIncrease = $maxfine - $total_amount_other; |
561 |
my $maxIncrease = $maxfine - $total_amount_other; |
| 562 |
return if $maxIncrease <= 0.00; |
562 |
return if Koha::Number::Price->new($maxIncrease)->round <= 0.00; |
| 563 |
if ($accountline) { |
563 |
if ($accountline) { |
| 564 |
if ( ( $amount - $accountline->amount ) > $maxIncrease ) { |
564 |
if ( ( $amount - $accountline->amount ) > $maxIncrease ) { |
| 565 |
my $new_amount = $accountline->amount + $maxIncrease; |
565 |
my $new_amount = $accountline->amount + $maxIncrease; |
| 566 |
- |
|
|