From 2ef0803d5f0496cd7fde36d611f4123b54c6c69b Mon Sep 17 00:00:00 2001 From: Kyle Hall Date: Fri, 27 Jan 2023 09:22:59 -0500 Subject: [PATCH] Bug 29145: (QA follow-up) Rename has_debarring_overdues to has_restricting_overdues --- C4/Circulation.pm | 2 +- Koha/Patron.pm | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index 8809108530..c189c3533c 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -2562,7 +2562,7 @@ sub MarkIssueReturned { if (C4::Context->preference('AutoRemoveOverduesRestrictions') ne 'no' && $patron->is_debarred) { my $remove_restrictions = C4::Context->preference('AutoRemoveOverduesRestrictions') eq 'when_no_overdue_causing_debarment' ? - !$patron->has_debarring_overdues({ issue_branchcode => $issue_branchcode }) : + !$patron->has_restricting_overdues({ issue_branchcode => $issue_branchcode }) : !$patron->has_overdues; if ( $remove_restrictions && diff --git a/Koha/Patron.pm b/Koha/Patron.pm index 1b811f7eeb..9fcf0d654e 100644 --- a/Koha/Patron.pm +++ b/Koha/Patron.pm @@ -986,15 +986,15 @@ sub has_overdues { } -=head3 has_debarring_overdues +=head3 has_restricting_overdues -my $has_debarring_overdues = $patron->has_debarring_overdues({ issue_branchcode => $branchcode }); +my $has_restricting_overdues = $patron->has_restricting_overdues({ issue_branchcode => $branchcode }); Returns true if patron has overdues that would result in debarment. =cut -sub has_debarring_overdues { +sub has_restricting_overdues { my ($self, $params) = @_; $params //= {}; my $date = dt_from_string()->truncate( to => 'day' ); -- 2.30.2