From c9fd44319da34ce8e65e4a486bda7d0460ae0f7e Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 25 Aug 2006 13:40:50 +0000
Subject: [PATCH] added more penalty checks

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5669 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
index b6ed04562c..c3c955f1f2 100644
--- a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
+++ b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
@@ -204,7 +204,23 @@ sub fee_amount {
 }
 
 sub screen_msg {
-    my $self = shift;
+	my $self = shift;
+	my $u = $self->{user};
+	return 'barred' if $u->barred eq 't';
+
+	my $b = 'blocked';
+	return $b if $u->card->active eq 'f';
+
+	if( $u->standing_penalties ) {
+		return $b if 
+			grep { $_->penalty_type eq 'PATRON_EXCEEDS_OVERDUE_COUNT' } 
+				@{$u->standing_penalties};
+
+		return $b if 
+			grep { $_->penalty_type eq 'PATRON_EXCEEDS_FINES' } 
+				@{$u->standing_penalties};
+	}
+
 	return '';
 }
 
-- 
2.43.2