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

(-)a/C4/Circulation.pm (-6 / +12 lines)
Lines 3246-3251 sub CanBookBeRenewed { Link Here
3246
        my $account                  = $patron->account;
3246
        my $account                  = $patron->account;
3247
        my $balance                  = $account->balance;
3247
        my $balance                  = $account->balance;
3248
        my $non_issues_charges       = $account->non_issues_charges;
3248
        my $non_issues_charges       = $account->non_issues_charges;
3249
        my $amountoutstanding_for_renewal =
3250
            C4::Context->preference("OPACFineNoRenewalsIncludeCredits")
3251
            ? $balance
3252
            : $non_issues_charges;
3249
3253
3250
        if ( $restricted and $restrictionblockrenewing ) {
3254
        if ( $restricted and $restrictionblockrenewing ) {
3251
            return ( 0, 'restriction' );
3255
            return ( 0, 'restriction' );
Lines 3253-3259 sub CanBookBeRenewed { Link Here
3253
            || ( $issue->is_overdue and $overduesblockrenewing eq 'blockitem' ) )
3257
            || ( $issue->is_overdue and $overduesblockrenewing eq 'blockitem' ) )
3254
        {
3258
        {
3255
            return ( 0, 'overdue' );
3259
            return ( 0, 'overdue' );
3256
        } elsif ( $finesblockrenewing && $non_issues_charges > $finesblockrenewing ) {
3260
        } elsif ( $finesblockrenewing && $amountoutstanding_for_renewal > $finesblockrenewing ) {
3257
            return ( 0, 'too_much_owing' );
3261
            return ( 0, 'too_much_owing' );
3258
        }
3262
        }
3259
3263
Lines 4990-4999 sub _CanBookBeAutoRenewed { Link Here
4990
    }
4994
    }
4991
4995
4992
    if ( C4::Context->preference('OPACFineNoRenewalsBlockAutoRenew') ) {
4996
    if ( C4::Context->preference('OPACFineNoRenewalsBlockAutoRenew') ) {
4993
        my $fine_no_renewals   = C4::Context->preference("FineNoRenewals");
4997
        my $fine_no_renewals = C4::Context->preference("FineNoRenewals");
4994
        my $account            = $patron->account;
4998
        my $account          = $patron->account;
4995
        my $non_issues_charges = $account->non_issues_charges;
4999
        my $amountoutstanding =
4996
        if ( $non_issues_charges and $non_issues_charges > $fine_no_renewals ) {
5000
            C4::Context->preference("OPACFineNoRenewalsIncludeCredits")
5001
            ? $account->balance
5002
            : $account->non_issues_charges;
5003
        if ( $amountoutstanding and $amountoutstanding > $fine_no_renewals ) {
4997
            return "auto_too_much_owing";
5004
            return "auto_too_much_owing";
4998
        }
5005
        }
4999
    }
5006
    }
5000
- 

Return to bug 23415