From 758453442bf400c0fa373040c92c2acbb9f1d3ce Mon Sep 17 00:00:00 2001
From: Galen Charlton <gmc@esilibrary.com>
Date: Mon, 5 May 2014 16:16:56 +0000
Subject: [PATCH] Bug 6739: (follow-up) handle case where patron has no
 expiration date set

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---
 C4/Members.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/C4/Members.pm b/C4/Members.pm
index fead8b56d0..f8324951ed 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -386,7 +386,10 @@ sub GetMemberDetails {
       C4::Context->preference('BlockExpiredPatronOpacActions')
       if ( $borrower->{'BlockExpiredPatronOpacActions'} == -1 );
 
-    $borrower->{'is_expired'} =
+    $borrower->{'is_expired'} = 0;
+    $borrower->{'is_expired'} = 1 if
+      defined($borrower->{dateexpiry}) &&
+      $borrower->{'dateexpiry'} ne '0000-00-00' &&
       Date_to_Days( Today() ) >
       Date_to_Days( split /-/, $borrower->{'dateexpiry'} );
 
-- 
2.39.5