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

(-)a/C4/Overdues.pm (-3 / +2 lines)
Lines 551-557 sub UpdateFine { Link Here
551
    while (my $rec = $sth->fetchrow_hashref) {
551
    while (my $rec = $sth->fetchrow_hashref) {
552
        if ( $rec->{issue_id} == $issue_id && $rec->{accounttype} eq 'FU' ) {
552
        if ( $rec->{issue_id} == $issue_id && $rec->{accounttype} eq 'FU' ) {
553
            if ($data) {
553
            if ($data) {
554
                warn "Not a unique accountlines record for issue_id $issue_id";
554
                $debug and warn "Not a unique accountlines record for issue_id $issue_id";
555
                #FIXME Should we still count this one in total_amount ??
555
                #FIXME Should we still count this one in total_amount ??
556
            }
556
            }
557
            else {
557
            else {
Lines 566-572 sub UpdateFine { Link Here
566
        if ($total_amount_other + $amount > $maxfine) {
566
        if ($total_amount_other + $amount > $maxfine) {
567
            my $new_amount = $maxfine - $total_amount_other;
567
            my $new_amount = $maxfine - $total_amount_other;
568
            return if $new_amount <= 0.00;
568
            return if $new_amount <= 0.00;
569
            warn "Reducing fine for item $itemnum borrower $borrowernumber from $amount to $new_amount - MaxFine reached";
569
            $debug and warn "Reducing fine for item $itemnum borrower $borrowernumber from $amount to $new_amount - MaxFine reached";
570
            $amount = $new_amount;
570
            $amount = $new_amount;
571
        }
571
        }
572
    }
572
    }
573
- 

Return to bug 22547