View | Details | Raw Unified | Return to bug 10030
Collapse All | Expand All

(-)a/C4/Overdues.pm (-3 / +1 lines)
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
- 

Return to bug 10030