From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 28 Jul 2006 22:23:57 +0000 (+0000)
Subject: added check for inactive card
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=88ab8191c5bfb582d70408caad4587f497974f52;p=Evergreen.git

added check for inactive card


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

diff --git a/Open-ILS/src/extras/ils_events.xml b/Open-ILS/src/extras/ils_events.xml
index 0a3596ab60..8c980cbde4 100644
--- a/Open-ILS/src/extras/ils_events.xml
+++ b/Open-ILS/src/extras/ils_events.xml
@@ -94,6 +94,10 @@
 		</desc>
 	</event>
 
+	<event code='1216' textcode='PATRON_INACTIVE_CARD'>
+		<desc xml:lang="en-US">The patron's card is not active</desc>
+	</event>
+
 
 
 
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
index 38315e2a6e..2ced55959e 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
@@ -1096,7 +1096,11 @@ sub walk_org_tree {
 	}
 }
 
-
+sub is_true {
+	my( $self, $item ) = @_;
+	return 1 if $item and $item !~ /^f$/i;
+	return 0;
+}
 
 
 1;
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
index 892733c443..1389ba838b 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
@@ -217,6 +217,9 @@ sub fetch_user_data {
 
 	$patron->card($e->retrieve_actor_card($patron->card));
 
+	return OpenILS::Event->new('PATRON_INACTIVE_CARD')
+		unless $U->is_true($patron->card->active);
+
 	$ctx->{requestor} = $ctx->{requestor} || $e->requestor;
 
 	# this could alter the requestor object within the editor..