returning home org in AQ field for patron info requests. Thanks for the SIP support...

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 8f609b2..a780b7e 100644 (file)
--- 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;