[open-ils-commits] r9255 - trunk/Open-ILS/src/perlmods/OpenILS/SIP

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-04-07 13:52:23 -0400 (Mon, 07 Apr 2008)
New Revision: 9255

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
Log:
returning home org in AQ field for patron info requests.  Thanks for the SIP support, David

Modified: trunk/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2008-04-07 17:51:35 UTC (rev 9254)
+++ trunk/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2008-04-07 17:52:23 UTC (rev 9255)
@@ -96,6 +96,13 @@
 		$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;