From a5964271506c1724cb54e84a1280b8ef50687afd Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Mon, 7 Nov 2016 14:24:54 +0000
Subject: [PATCH] Bug 17568: Add the Koha::Patron->library method

This method will be convenient when moving code to Koha::Patrons

Test plan:
  prove t/db_dependent/Koha/Patrons.t
should return green

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
Signed-off-by: Julian Maurice <julian.maurice@biblibre.com>
---
 Koha/Patron.pm                | 5 +++++
 t/db_dependent/Koha/Patrons.t | 8 +++++++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/Koha/Patron.pm b/Koha/Patron.pm
index c05dbd2..a9c3f8a 100644
--- a/Koha/Patron.pm
+++ b/Koha/Patron.pm
@@ -127,6 +127,11 @@ sub image {
     return Koha::Patron::Images->find( $self->borrowernumber )
 }
 
+sub library {
+    my ( $self ) = @_;
+    return Koha::Library->_new_from_dbic($self->_result->branchcode)
+}
+
 =head3 guarantees
 
 Returns the guarantees (list of Koha::Patron) of this patron
diff --git a/t/db_dependent/Koha/Patrons.t b/t/db_dependent/Koha/Patrons.t
index 7be731c..2c8656f 100644
--- a/t/db_dependent/Koha/Patrons.t
+++ b/t/db_dependent/Koha/Patrons.t
@@ -19,7 +19,7 @@
 
 use Modern::Perl;
 
-use Test::More tests => 13;
+use Test::More tests => 14;
 use Test::Warn;
 
 use C4::Members;
@@ -68,6 +68,12 @@ is( Koha::Patrons->search->count, $nb_of_patrons + 2, 'The 2 patrons should have
 my $retrieved_patron_1 = Koha::Patrons->find( $new_patron_1->borrowernumber );
 is( $retrieved_patron_1->cardnumber, $new_patron_1->cardnumber, 'Find a patron by borrowernumber should return the correct patron' );
 
+subtest 'library' => sub {
+    plan tests => 2;
+    is( $retrieved_patron_1->library->branchcode, $library->{branchcode}, 'Koha::Patron->library should return the correct library' );
+    is( ref($retrieved_patron_1->library), 'Koha::Library', 'Koha::Patron->library should return a Koha::Library object' );
+};
+
 subtest 'guarantees' => sub {
     plan tests => 8;
     my $guarantees = $new_patron_1->guarantees;
-- 
2.1.4