[open-ils-commits] r9254 -
branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/SIP
svn at svn.open-ils.org
svn at svn.open-ils.org
Mon Apr 7 14:28:36 EDT 2008
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;
More information about the open-ils-commits
mailing list