[open-ils-commits] r17292 - trunk/Open-ILS/src/perlmods/OpenILS/SIP (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-08-20 14:59:52 -0400 (Fri, 20 Aug 2010)
New Revision: 17292

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
Log:
added internal_id handler

in anticipation of possible sip extension for returning patron ID

Modified: trunk/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2010-08-20 18:53:12 UTC (rev 17291)
+++ trunk/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2010-08-20 18:59:52 UTC (rev 17292)
@@ -141,6 +141,11 @@
     return $return;
 }
 
+sub internal_id {
+    my $self = shift;
+    return $self->{user}->id;
+}
+
 sub address {
 	my $self = shift;
 	my $u    = $self->{user};