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

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-11-18 10:14:15 -0500 (Thu, 18 Nov 2010)
New Revision: 18779

Modified:
   branches/rel_1_6_0/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_0/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
===================================================================
--- branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2010-11-18 15:13:48 UTC (rev 18778)
+++ branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2010-11-18 15:14:15 UTC (rev 18779)
@@ -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};