projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 );
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'} );
Date_to_Days( Today() ) >
Date_to_Days( split /-/, $borrower->{'dateexpiry'} );