[open-ils-commits] r18778 - branches/rel_1_6_1/Open-ILS/src/perlmods/OpenILS/SIP (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-11-18 10:13:48 -0500 (Thu, 18 Nov 2010)
New Revision: 18778

Modified:
   branches/rel_1_6_1/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
Log:
back-porting 17292: added custom internal_id handler to SIP patron module

Modified: branches/rel_1_6_1/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
===================================================================
--- branches/rel_1_6_1/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2010-11-18 14:57:29 UTC (rev 18777)
+++ branches/rel_1_6_1/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2010-11-18 15:13:48 UTC (rev 18778)
@@ -116,6 +116,11 @@
         $addr->post_code);
 }
 
+sub internal_id {
+    my $self = shift;
+    return $self->{user}->id;
+}
+
 sub address {
 	my $self = shift;
 	my $u = $self->{user};