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

(-)a/C4/Circulation.pm (-2 / +2 lines)
Lines 898-904 sub CanBookBeIssued { Link Here
898
898
899
    # Check the debt of this patrons guarantees
899
    # Check the debt of this patrons guarantees
900
    my $no_issues_charge_guarantees = $patron_borrowing_status->{NoIssuesChargeGuarantees}->{limit};
900
    my $no_issues_charge_guarantees = $patron_borrowing_status->{NoIssuesChargeGuarantees}->{limit};
901
    if ( defined $no_issues_charge_guarantees ) {
901
    if ( defined $no_issues_charge_guarantees && length($no_issues_charge_guarantees) > 0 ) {
902
        if ( $patron_borrowing_status->{NoIssuesChargeGuarantees}->{overlimit} && !$inprocess && !$allowfineoverride ) {
902
        if ( $patron_borrowing_status->{NoIssuesChargeGuarantees}->{overlimit} && !$inprocess && !$allowfineoverride ) {
903
            $issuingimpossible{DEBT_GUARANTEES} = $patron_borrowing_status->{NoIssuesChargeGuarantees}->{charge};
903
            $issuingimpossible{DEBT_GUARANTEES} = $patron_borrowing_status->{NoIssuesChargeGuarantees}->{charge};
904
        } elsif ( $patron_borrowing_status->{NoIssuesChargeGuarantees}->{overlimit}
904
        } elsif ( $patron_borrowing_status->{NoIssuesChargeGuarantees}->{overlimit}
Lines 916-922 sub CanBookBeIssued { Link Here
916
916
917
    # Check the debt of this patrons guarantors *and* the guarantees of those guarantors
917
    # Check the debt of this patrons guarantors *and* the guarantees of those guarantors
918
    my $no_issues_charge_guarantors = $patron_borrowing_status->{NoIssuesChargeGuarantorsWithGuarantees}->{limit};
918
    my $no_issues_charge_guarantors = $patron_borrowing_status->{NoIssuesChargeGuarantorsWithGuarantees}->{limit};
919
    if ( defined $no_issues_charge_guarantors ) {
919
    if ( defined $no_issues_charge_guarantors && length($no_issues_charge_guarantors) > 0 ) {
920
        if (   $patron_borrowing_status->{NoIssuesChargeGuarantorsWithGuarantees}->{overlimit}
920
        if (   $patron_borrowing_status->{NoIssuesChargeGuarantorsWithGuarantees}->{overlimit}
921
            && !$inprocess
921
            && !$inprocess
922
            && !$allowfineoverride )
922
            && !$allowfineoverride )
(-)a/C4/SIP/ILS/Patron.pm (-3 / +2 lines)
Lines 118-128 sub new { Link Here
118
    if ( $patron_charge_limits->{noissuescharge}->{overlimit} ) {
118
    if ( $patron_charge_limits->{noissuescharge}->{overlimit} ) {
119
        $fine_blocked = 1;
119
        $fine_blocked = 1;
120
        $fines_msg .= " -- " . "Patron blocked by fines" if $fine_blocked;
120
        $fines_msg .= " -- " . "Patron blocked by fines" if $fine_blocked;
121
    } elsif ($noissueschargeguarantorswithguarantees) {
121
    } elsif ($noissueschargeguarantorswithguarantees && length($noissueschargeguarantorswithguarantees) > 0) {
122
        $fines_amount = $patron_charge_limits->{NoIssuesChargeGuarantorsWithGuarantees}->{charge};
122
        $fines_amount = $patron_charge_limits->{NoIssuesChargeGuarantorsWithGuarantees}->{charge};
123
        $fine_blocked = $patron_charge_limits->{NoIssuesChargeGuarantorsWithGuarantees}->{overlimit};
123
        $fine_blocked = $patron_charge_limits->{NoIssuesChargeGuarantorsWithGuarantees}->{overlimit};
124
        $fines_msg .= " -- " . "Patron blocked by fines ($fines_amount) on related accounts" if $fine_blocked;
124
        $fines_msg .= " -- " . "Patron blocked by fines ($fines_amount) on related accounts" if $fine_blocked;
125
    } elsif ($noissueschargeguarantees) {
125
    } elsif ($noissueschargeguarantees && length($noissueschargeguarantees) > 0) {
126
        if ( $patron->guarantee_relationships->count ) {
126
        if ( $patron->guarantee_relationships->count ) {
127
            $fines_amount += $patron_charge_limits->{NoIssuesChargeGuarantees}->{charge};
127
            $fines_amount += $patron_charge_limits->{NoIssuesChargeGuarantees}->{charge};
128
            $fine_blocked = $patron_charge_limits->{NoIssuesChargeGuarantees}->{overlimit};
128
            $fine_blocked = $patron_charge_limits->{NoIssuesChargeGuarantees}->{overlimit};
129
- 

Return to bug 41265