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