From 2af1a7ef4cc2320192ef5f383b911adb07b2d89b Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 31 Aug 2006 00:04:10 +0000 Subject: [PATCH] added bypass for user checks - good for item checkin where it does not matter git-svn-id: svn://svn.open-ils.org/ILS/trunk@5797 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../OpenILS/Application/Circ/ScriptBuilder.pm | 28 ++++++++++--------- 1 file changed, 15 insertions(+), 13 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm index ac3ef98946..585d931ec9 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm @@ -175,19 +175,21 @@ 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); - - my $expire = DateTime::Format::ISO8601->new->parse_datetime( - clense_ISO8601($patron->expire_date)); - - return OpenILS::Event->new('PATRON_ACCOUNT_EXPIRED') - if( CORE::time > $expire->epoch ) ; + unless( $ctx->{ignore_user_status} ) { + 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); + + my $expire = DateTime::Format::ISO8601->new->parse_datetime( + clense_ISO8601($patron->expire_date)); + + return OpenILS::Event->new('PATRON_ACCOUNT_EXPIRED') + if( CORE::time > $expire->epoch ) ; + } $patron->home_ou( $e->retrieve_actor_org_unit($patron->home_ou) ) -- 2.43.2