From a48df7eaf22786e4bb6c50ff9c3c196fa2dd247d Mon Sep 17 00:00:00 2001
From: Josef Moravec <josef.moravec@gmail.com>
Date: Fri, 6 Oct 2017 08:04:34 +0000
Subject: [PATCH] Bug 14919: Add Koha::Patron->old_holds subroutine

Test plan:
Run t/db_dependent/Koha/Patrons.t

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
---
 Koha/Patron.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/Koha/Patron.pm b/Koha/Patron.pm
index daa972c..a5fa103 100644
--- a/Koha/Patron.pm
+++ b/Koha/Patron.pm
@@ -593,6 +593,20 @@ sub holds {
     return Koha::Holds->_new_from_dbic($holds_rs);
 }
 
+=head3 old_holds
+
+my $old_holds = $patron->old_holds
+
+Returnn all the historical holds for this patron
+
+=cut
+
+sub old_holds {
+    my ($self) = @_;
+    my $old_holds_rs = $self->_result->old_reserves->search( {}, { order_by => 'reservedate' } );
+    return Koha::Old::Holds->_new_from_dbic($old_holds_rs);
+}
+
 =head3 first_valid_email_address
 
 =cut
-- 
2.1.4