Bug 10798: (follow-up) replace tabs by spaces

[koha_fer] / C4 / Members.pm

diff --git a/C4/Members.pm b/C4/Members.pm
index fead8b5..f832495 100644 (file)
--- 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'} );