push CSS hook for PATRON_EXPIRED in alt patron summary

Signed-off-by: Jason Stephenson <jason@sigio.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/PatronSummary.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/PatronSummary.pm
index a751333..4e32be6 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/PatronSummary.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/PatronSummary.pm
@@ -138,7 +138,13 @@ sub load_patron_summary {
         push @classnames, 'PATRON_HAS_INVALID_ADDRESS';
     }
 
-    # TODO: PATRON_EXPIRED
+    my $expire = DateTime::Format::ISO8601->new->parse_datetime(
+        cleanse_ISO8601($au_resp->expire_date));
+
+    if( CORE::time > $expire->epoch ) {
+        push @classnames, 'PATRON_EXPIRED';
+    }
+
     # TODO: PATRON_AGE_IS_
     # TODO: PATRON_AGE_LT_
     # TODO: PATRON_AGE_GE_