From 0c3ec64ec1eb7e4a8dcde61f5de441acbc59e839 Mon Sep 17 00:00:00 2001 From: erickson Date: Wed, 2 Aug 2006 20:49:08 +0000 Subject: [PATCH] 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 --- .../src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm index 64ad8f6b10..933f8177de 100644 --- 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; -- 2.11.0