From 524bffb07fc9aa5328dfa6a5908b3a38b9fa5195 Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 17 Aug 2006 14:37:43 +0000 Subject: [PATCH] added patron expire check git-svn-id: svn://svn.open-ils.org/ILS/trunk@5555 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm index ba657b8a40..8b58dffd0f 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm @@ -6,6 +6,8 @@ use OpenILS::Application::AppUtils; use OpenILS::Application::Actor; use OpenSRF::Utils::Logger qw/$logger/; use OpenILS::Application::Circ::Holds; +use DateTime::Format::ISO8601; +use OpenSRF::Utils qw/:datetime/; use Scalar::Util qw/weaken/; my $U = "OpenILS::Application::AppUtils"; use Data::Dumper; @@ -70,7 +72,6 @@ sub build_runner { my $runner = OpenILS::Utils::ScriptRunner->new; my $gt = $GROUP_TREE; - #weaken($gt); # just to be safe $runner->insert( "$evt.groupTree", $gt, 1); @@ -190,6 +191,12 @@ sub fetch_user_data { 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) ) unless ref $patron->home_ou; -- 2.11.0