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

(-)a/C4/Circulation.pm (-6 / +12 lines)
Lines 3274-3279 sub CanBookBeRenewed { Link Here
3274
        my $account                  = $patron->account;
3274
        my $account                  = $patron->account;
3275
        my $balance                  = $account->balance;
3275
        my $balance                  = $account->balance;
3276
        my $non_issues_charges       = $account->non_issues_charges;
3276
        my $non_issues_charges       = $account->non_issues_charges;
3277
        my $amountoutstanding_for_renewal =
3278
            C4::Context->preference("OPACFineNoRenewalsIncludeCredits")
3279
            ? $balance
3280
            : $non_issues_charges;
3277
3281
3278
        if ( $restricted and $restrictionblockrenewing ) {
3282
        if ( $restricted and $restrictionblockrenewing ) {
3279
            return ( 0, 'restriction' );
3283
            return ( 0, 'restriction' );
Lines 3281-3287 sub CanBookBeRenewed { Link Here
3281
            || ( $issue->is_overdue and $overduesblockrenewing eq 'blockitem' ) )
3285
            || ( $issue->is_overdue and $overduesblockrenewing eq 'blockitem' ) )
3282
        {
3286
        {
3283
            return ( 0, 'overdue' );
3287
            return ( 0, 'overdue' );
3284
        } elsif ( $finesblockrenewing && $non_issues_charges > $finesblockrenewing ) {
3288
        } elsif ( $finesblockrenewing && $amountoutstanding_for_renewal > $finesblockrenewing ) {
3285
            return ( 0, 'too_much_owing' );
3289
            return ( 0, 'too_much_owing' );
3286
        }
3290
        }
3287
3291
Lines 5049-5058 sub _CanBookBeAutoRenewed { Link Here
5049
    }
5053
    }
5050
5054
5051
    if ( C4::Context->preference('OPACFineNoRenewalsBlockAutoRenew') ) {
5055
    if ( C4::Context->preference('OPACFineNoRenewalsBlockAutoRenew') ) {
5052
        my $fine_no_renewals   = C4::Context->preference("FineNoRenewals");
5056
        my $fine_no_renewals = C4::Context->preference("FineNoRenewals");
5053
        my $account            = $patron->account;
5057
        my $account          = $patron->account;
5054
        my $non_issues_charges = $account->non_issues_charges;
5058
        my $amountoutstanding =
5055
        if ( $non_issues_charges and $non_issues_charges > $fine_no_renewals ) {
5059
            C4::Context->preference("OPACFineNoRenewalsIncludeCredits")
5060
            ? $account->balance
5061
            : $account->non_issues_charges;
5062
        if ( $amountoutstanding and $amountoutstanding > $fine_no_renewals ) {
5056
            return "auto_too_much_owing";
5063
            return "auto_too_much_owing";
5057
        }
5064
        }
5058
    }
5065
    }
5059
- 

Return to bug 23415