[open-ils-commits] r20269 - branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/SIP (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2011-04-21 09:16:19 -0400 (Thu, 21 Apr 2011)
New Revision: 20269

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

Modified: branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm
===================================================================
--- branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm	2011-04-21 13:15:17 UTC (rev 20268)
+++ branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm	2011-04-21 13:16:19 UTC (rev 20269)
@@ -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?