[open-ils-commits] r9254 - branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/SIP

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-04-07 13:51:35 -0400 (Mon, 07 Apr 2008)
New Revision: 9254

Modified:
   branches/rel_1_2/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: branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
===================================================================
--- branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2008-04-07 17:27:16 UTC (rev 9253)
+++ branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2008-04-07 17:51:35 UTC (rev 9254)
@@ -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;