From c484aa2ea03034c2a39ef7da7e549a27e9d0f513 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 7 Apr 2008 17:51:35 +0000
Subject: [PATCH] returning home org in AQ field for patron info requests. 
 Thanks for the SIP support, David

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_2@9254 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
index 8f609b2a29..a780b7e69c 100644
--- a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
+++ b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
@@ -96,6 +96,13 @@ sub name {
 		$u->second_given_name . ' ' . $u->family_name;
 }
 
+sub home_library {
+    my $self = shift;
+    my $lib = $self->{editor}->retrieve_actor_org_unit($self->{user}->home_ou)->shortname;
+	syslog('LOG_DEBUG', "OILS: Patron home library is $lib");
+    return $lib;
+}
+
 sub __addr_string {
 	my $addr = shift;
 	return "" unless $addr;
-- 
2.11.0