From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 7 Apr 2008 17:51:35 +0000 (+0000)
Subject: returning home org in AQ field for patron info requests.  Thanks for the SIP support... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=c484aa2ea03034c2a39ef7da7e549a27e9d0f513;p=Evergreen.git

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
---

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;