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

(-)a/C4/SIP/ILS/Patron.pm (-1 / +4 lines)
Lines 65-72 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
68
    my $fines_amount = $flags->{CHARGES}->{amount}; # This "amount" is the negative balance or the one of the guarantees
69
    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;
70
    $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
    $fines_amount += $guarantees_fines_amount;
73
70
    my $fee_limit = _fee_limit();
74
    my $fee_limit = _fee_limit();
71
    my $fine_blocked = $fines_amount > $fee_limit;
75
    my $fine_blocked = $fines_amount > $fee_limit;
72
    my $circ_blocked =( C4::Context->preference('OverduesBlockCirc') ne "noblock" &&  defined $flags->{ODUES}->{itemlist} ) ? 1 : 0;
76
    my $circ_blocked =( C4::Context->preference('OverduesBlockCirc') ne "noblock" &&  defined $flags->{ODUES}->{itemlist} ) ? 1 : 0;
73
- 

Return to bug 22037