[open-ils-commits] r20000 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/SIP (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2011-04-06 14:38:16 -0400 (Wed, 06 Apr 2011)
New Revision: 20000

Modified:
   branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
Log:
Patch from Thomas Berezansky to support patron priv expiration information in SIP2

Modified: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2011-04-06 18:37:16 UTC (rev 19999)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2011-04-06 18:38:16 UTC (rev 20000)
@@ -240,6 +240,13 @@
 	return $dob;
 }
 
+sub sip_expire {
+    my $self = shift;
+    my $expire = OpenILS::SIP->format_date($self->{user}->expire_date);
+    syslog('LOG_DEBUG', "OILS: Patron Expire = $expire");
+    return $expire;
+}
+
 sub ptype {
     my $self = shift;