Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 29145: (QA follow-up) Add missing POD and don't return undef

Browse source 
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
David Gustafsson 2022-11-04 15:16:17 +01:00 committed by Tomas Cohen Arazi
parent 0a66a4879a
commit 12a6d4d4ba
Signed by: tomascohen
GPG key ID: 0A272EA1B2F3C15F
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Koha/Patron.pm
View file

@ -1014,6 +1014,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 //= {};
@ -1082,7 +1091,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