From ea807fc79129755634ec537afd3a1b32069ed009 Mon Sep 17 00:00:00 2001 From: David Gustafsson Date: Fri, 4 Nov 2022 15:16:17 +0100 Subject: [PATCH] Bug 29145: (QA follow-up) Add missing POD and don't return undef --- Koha/Patron.pm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/Koha/Patron.pm b/Koha/Patron.pm index a269f0e687..a2c99d2c12 100644 --- a/Koha/Patron.pm +++ b/Koha/Patron.pm @@ -999,6 +999,15 @@ sub has_overdues { return $self->_result->issues->search({ date_due => { '<' => $dtf->format_datetime($date) } })->count; } + +=head3 has_debarring_overdues + +my $has_debarring_overdues = $patron->has_debarring_overdues({ issue_branchcode => $branchcode }); + +Returns true if patron has overdues that would result in debarment. + +=cut + sub has_debarring_overdues { my ($self, $params) = @_; $params //= {}; @@ -1067,7 +1076,6 @@ sub _get_overdue_debarred_delay { return $overdue_rules->{"delay2"} if($overdue_rules->{"debarred2"}); return $overdue_rules->{"delay3"} if($overdue_rules->{"debarred3"}); } - return undef; } =head3 track_login -- 2.30.2