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 5022-5031 sub _CanBookBeAutoRenewed { Link Here
5022
    }
5026
    }
5023
5027
5024
    if ( C4::Context->preference('OPACFineNoRenewalsBlockAutoRenew') ) {
5028
    if ( C4::Context->preference('OPACFineNoRenewalsBlockAutoRenew') ) {
5025
        my $fine_no_renewals   = C4::Context->preference("FineNoRenewals");
5029
        my $fine_no_renewals = C4::Context->preference("FineNoRenewals");
5026
        my $account            = $patron->account;
5030
        my $account          = $patron->account;
5027
        my $non_issues_charges = $account->non_issues_charges;
5031
        my $amountoutstanding =
5028
        if ( $non_issues_charges and $non_issues_charges > $fine_no_renewals ) {
5032
            C4::Context->preference("OPACFineNoRenewalsIncludeCredits")
5033
            ? $account->balance
5034
            : $account->non_issues_charges;
5035
        if ( $amountoutstanding and $amountoutstanding > $fine_no_renewals ) {
5029
            return "auto_too_much_owing";
5036
            return "auto_too_much_owing";
5030
        }
5037
        }
5031
    }
5038
    }
5032
- 

Return to bug 23415