From 3e586e3d8d6a4f0d283e8d91aae3ae94125d1679 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Tue, 1 Oct 2024 15:55:06 +0100 Subject: [PATCH] Bug 17976: Add overdue_fines accessor to Koha::Checkout This patch adds a new filtered relation accessor to the Koha::Checkout object to return just overdue fine type account lines related to the checkout. Whilst this is easy to chain in code, it's not available via TT and so this accessor is useful for the notices case. Signed-off-by: Emily Lamancusa Signed-off-by: Kyle M Hall --- Koha/Checkout.pm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/Koha/Checkout.pm b/Koha/Checkout.pm index a63ec71ab88..c22917de57e 100644 --- a/Koha/Checkout.pm +++ b/Koha/Checkout.pm @@ -93,6 +93,20 @@ sub account_lines { return Koha::Account::Lines->_new_from_dbic( $account_lines_rs ); } +=head3 overdue_fines + + my $fines = $checkout->overdue_fines; + +Return the account lines for just the overdue fines + +=cut + +sub overdue_fines { + my ( $self ) = @_; + my $account_lines_rs = $self->_result->account_lines->search( { debit_type_code => 'OVERDUE' } ); + return Koha::Account::Lines->_new_from_dbic( $account_lines_rs ); +} + =head3 library my $library = $checkout->library; -- 2.39.5 (Apple Git-154)