From e3c26dff563e2b221d297d00e34de6b22d6861f2 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Wed, 24 Mar 2021 16:38:32 +0000 Subject: [PATCH] Bug 25508: Do not attempt renewals if syspref is disabled In the case where 'RenewAccruingItemWhenPaid' is disabled we were still testing whether the fine item was renewable ragerdless. This has two issued: 1. A minor performance issue with us running more code than required. 2. The return value from renew_item when the syspref is disabled was empty, but it would still get appended to the 'renew_outcomes' array which results in some 'dirty' messages in the UI. Test plan 1 - Make sure FinesMode is on, RenewAccruingItemWhenPaid is off 2 - Checkout an item to a patron and make it overdue (can backdate the checkout) 3 - Make sure the itemtype has fines that will be charged 4 - Charge the fines: Set finesMode = production perl misc/cronjobs/fines.pl -v 5 - Check the fine appears on the patrons account 6 - Pay off the fine 7 - Receive alert after payment that reads: "The fines on the following items were paid off, renewal results are displayed below: No title ( ): Not renewed - Unknown error" 8 - Apply the patch 9 - Repeat steps 1 through 6 and note that you no longer trigger the error message. --- Koha/Account.pm | 2 +- Koha/Account/Line.pm | 13 +++++-------- 2 files changed, 6 insertions(+), 9 deletions(-) diff --git a/Koha/Account.pm b/Koha/Account.pm index b4838bcdf2..7167808db0 100644 --- a/Koha/Account.pm +++ b/Koha/Account.pm @@ -203,7 +203,7 @@ sub pay { # If we need to make a note of the item associated with this line, # in order that we can potentially renew it, do so. my $amt = $old_amountoutstanding - $amount_to_pay; - if ($fine->renewable) { + if ( C4::Context->preference('RenewAccruingItemWhenPaid') && $fine->renewable ) { my $outcome = $fine->renew_item; push @{$renew_outcomes}, $outcome; } diff --git a/Koha/Account/Line.pm b/Koha/Account/Line.pm index 2cc81993ef..185c753772 100644 --- a/Koha/Account/Line.pm +++ b/Koha/Account/Line.pm @@ -901,7 +901,9 @@ sub renewable { $self->debit_type_code && $self->debit_type_code eq 'OVERDUE' && $self->status && - $self->status eq 'UNRETURNED' + $self->status eq 'UNRETURNED' && + $self->item && + $self->patron ) ? 1 : 0; } @@ -919,19 +921,14 @@ sub renew_item { my $outcome = {}; - # We want to reject the call to renew if any of these apply: + # We want to reject the call to renew if: # - The RenewAccruingItemWhenPaid syspref is off - # - The line item doesn't have an item attached to it - # - The line item doesn't have a patron attached to it - # + # OR # - The RenewAccruingItemInOpac syspref is off - # AND # - There is an interface param passed and it's value is 'opac' if ( !C4::Context->preference('RenewAccruingItemWhenPaid') || - !$self->item || - !$self->patron || ( !C4::Context->preference('RenewAccruingItemInOpac') && $params->{interface} && -- 2.20.1