From c28263c38eb8266357612080388f348c186c546f Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
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.
---
 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.46.2