From 450bb7e55e25da414b569d90229f97b21e0cd18b Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 25 Aug 2006 21:57:11 +0000
Subject: [PATCH] returning OK on screen_msg if nothing is wrong to make sure
 the message is returning something return blocked of patron account is
 expired

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

diff --git a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
index c3c955f1f2..722a907c7c 100644
--- a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
+++ b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
@@ -221,7 +221,12 @@ sub screen_msg {
 				@{$u->standing_penalties};
 	}
 
-	return '';
+	my $expire = DateTime::Format::ISO8601->new->parse_datetime(
+		clense_ISO8601($u->expire_date));
+
+	return $b if CORE::time > $expire->epoch;
+
+	return 'OK';
 }
 
 sub print_line {
-- 
2.11.0