From e779b8924f28035ef6592110202aee0ccfd97e91 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.

Signed-off-by: Emily Lamancusa <emily.lamancusa@montgomerycountymd.gov>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
---
 Koha/Checkout.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/Koha/Checkout.pm b/Koha/Checkout.pm
index 1e3f227306..8b97cf8b36 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;