From 481b6d1e63d06bfbd27ef1334dfeacd0724efd4f Mon Sep 17 00:00:00 2001
From: Jason Etheridge <jason@esilibrary.com>
Date: Thu, 18 Apr 2013 15:31:59 -0400
Subject: [PATCH] push CSS hook for PATRON_EXPIRED in alt patron summary

---
 .../src/perlmods/lib/OpenILS/WWW/EGCatLoader/PatronSummary.pm     | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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 a751333193..4e32be681b 100644
--- 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_
-- 
2.11.0