From 8ef0776e3ddff317e1bd7d9412ce109217c350a7 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 --- Koha/Checkout.pm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/Koha/Checkout.pm b/Koha/Checkout.pm index a63ec71ab8..c22917de57 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.34.1