From e973184e0377c4d57048f67226cc1b40e02ff5e0 Mon Sep 17 00:00:00 2001
From: djfiander <djfiander>
Date: Tue, 11 Mar 2008 21:35:22 +0000
Subject: [PATCH] Add support for "home_library" field in patron database

---
 ILS/Patron.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/ILS/Patron.pm b/ILS/Patron.pm
index ce79210..b96025a 100644
--- a/ILS/Patron.pm
+++ b/ILS/Patron.pm
@@ -30,6 +30,7 @@ our %patron_db = (
 		      address => '2 Meadowvale Dr. St Thomas, ON',
 		      home_phone => '(519) 555 1234',
 		      email_addr => 'djfiander@hotmail.com',
+		      home_library => 'Beacock',
 		      charge_ok => 1,
 		      renew_ok => 1,
 		      recall_ok => 0,
@@ -378,6 +379,16 @@ sub inet_privileges {
     return $self->{inet} ? 'Y' : 'N';
 }
 
+# Extension requested by PINES. Report the home system for
+# the patron in the 'AQ' field. This is normally the "permanent
+# location" field for an ITEM, but it's not used in PATRON info.
+# Apparently TLC systems do this.
+sub home_library {
+    my $self = shift;
+
+    return $self->{home_library}
+}
+
 #
 # Messages
 #
-- 
2.11.0