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

(-)a/C4/SIP/ILS/Patron.pm (-2 / +2 lines)
Lines 66-72 sub new { Link Here
66
    my $dexpiry     = $kp->{dateexpiry};
66
    my $dexpiry     = $kp->{dateexpiry};
67
    $dexpiry and $dexpiry =~ s/-//g;    # YYYYMMDD
67
    $dexpiry and $dexpiry =~ s/-//g;    # YYYYMMDD
68
68
69
    my $fines_amount = $flags->{CHARGES}->{amount}; # This "amount" is the negative balance or the one of the guarantees
69
    # Get fines and add fines for guarantees (depends on preference NoIssuesChargeGuarantees)
70
    my $fines_amount = $flags->{CHARGES}->{amount};
70
    $fines_amount = ($fines_amount and $fines_amount > 0) ? $fines_amount : 0;
71
    $fines_amount = ($fines_amount and $fines_amount > 0) ? $fines_amount : 0;
71
    my $guarantees_fines_amount = $flags->{CHARGES_GUARANTEES} ? $flags->{CHARGES_GUARANTEES}->{amount} : 0;
72
    my $guarantees_fines_amount = $flags->{CHARGES_GUARANTEES} ? $flags->{CHARGES_GUARANTEES}->{amount} : 0;
72
    $fines_amount += $guarantees_fines_amount;
73
    $fines_amount += $guarantees_fines_amount;
73
- 

Return to bug 22037