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

(-)a/C4/Overdues.pm (-13 / +14 lines)
Lines 515-534 sub UpdateFine { Link Here
515
515
516
    my $offset = 0;
516
    my $offset = 0;
517
    if ($fine) {
517
    if ($fine) {
518
        if (
518
        if ( $fine->accruing() ) { # Don't update or recreate fines no longer accruing
519
            sprintf( "%.6f", $fine->amount_original() )
519
            if (
520
            ne
520
                sprintf( "%.6f", $fine->amount_original() )
521
            sprintf( "%.6f", $amount ) )
521
                ne
522
        {
522
                sprintf( "%.6f", $amount ) )
523
            my $difference = $amount - $fine->amount_original();
523
            {
524
                my $difference = $amount - $fine->amount_original();
524
525
525
            $fine->amount_original( $fine->amount_original() + $difference );
526
                $fine->amount_original( $fine->amount_original() + $difference );
526
            $fine->amount_outstanding( $fine->amount_outstanding() + $difference );
527
                $fine->amount_outstanding( $fine->amount_outstanding() + $difference );
527
            $fine->amount_last_increment($difference);
528
                $fine->amount_last_increment($difference);
528
            $fine->updated_on($timestamp);
529
                $fine->updated_on($timestamp);
529
            $fine->update();
530
                $fine->update();
530
531
531
            $offset = 1;
532
                $offset = 1;
533
            }
532
        }
534
        }
533
    }
535
    }
534
    else {
536
    else {
535
- 

Return to bug 6427