returning OK on screen_msg if nothing is wrong to make sure the message is returning...
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 25 Aug 2006 21:57:11 +0000 (21:57 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 25 Aug 2006 21:57:11 +0000 (21:57 +0000)
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

index c3c955f..722a907 100644 (file)
@@ -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 {