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

(-)a/C4/SIP/ILS/Patron.pm (-2 / +1 lines)
Lines 65-71 sub new { Link Here
65
    $dob and $dob =~ s/-//g;    # YYYYMMDD
65
    $dob and $dob =~ s/-//g;    # YYYYMMDD
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
    my $fines_amount = $patron->account->balance;
68
    my $fines_amount = $flags->{CHARGES}->{amount}; # This "amount" is the negative balance or the one of the guarantees
69
    $fines_amount = ($fines_amount and $fines_amount > 0) ? $fines_amount : 0;
69
    $fines_amount = ($fines_amount and $fines_amount > 0) ? $fines_amount : 0;
70
    my $fee_limit = _fee_limit();
70
    my $fee_limit = _fee_limit();
71
    my $fine_blocked = $fines_amount > $fee_limit;
71
    my $fine_blocked = $fines_amount > $fee_limit;
72
- 

Return to bug 22037