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

[svn at svn.open-ils.org]

Author: erickson
Date: 2011-04-21 09:15:17 -0400 (Thu, 21 Apr 2011)
New Revision: 20268

Modified:
   trunk/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm
Log:
check user 'active' field in SIP charge_ok (and dependent) calls

Modified: trunk/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm	2011-04-21 00:10:24 UTC (rev 20267)
+++ trunk/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm	2011-04-21 13:15:17 UTC (rev 20268)
@@ -269,7 +269,10 @@
 sub charge_ok {
     my $self = shift;
     my $u = $self->{user};
-    return (($u->barred eq 'f') and ($u->card->active eq 't'));
+    return 
+        $u->barred eq 'f' and 
+        $u->active eq 't' and
+        $u->card->active eq 't';
 }
 
 # How much more detail do we need to check here?