do not allow checkouts if patron or card is inactive

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5232 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
index 64ad8f6..933f817 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
@@ -190,6 +190,14 @@ sub fetch_user_data {
 
        return undef unless my $patron = $ctx->{patron};
 
+       return OpenILS::Event->new('PATRON_INACTIVE')
+               unless $U->is_true($patron->active);
+
+       $patron->card($e->retrieve_actor_card($patron->card));
+
+       return OpenILS::Event->new('PATRON_CARD_INACTIVE')
+               unless $U->is_true($patron->card->active);
+
        $patron->home_ou( 
                $e->retrieve_actor_org_unit($patron->home_ou) ) 
                unless ref $patron->home_ou;
@@ -215,10 +223,6 @@ sub fetch_user_data {
        $patron->profile( $GROUP_SET{$patron->profile} )
                unless ref $patron->profile;
 
-       $patron->card($e->retrieve_actor_card($patron->card));
-
-       return OpenILS::Event->new('PATRON_CARD_INACTIVE')
-               unless $U->is_true($patron->card->active);
 
        $ctx->{requestor} = $ctx->{requestor} || $e->requestor;