[Koha-patches] [PATCH 50/55] Adding EXPIRED flag to Members management

[Henri-Damien LAURENT]

This flag is raised whenever dateexpiry is before today
EXPIRED Flag was only set if patron was debarred

followup: 6bcd5fe2413155682ca403f29fe62ffc1610f47d
EXPIRED flag is added to patronflags

Signed-off-by: Henri-Damien LAURENT <henridamien.laurent at biblibre.com>
---
 C4/Members.pm |   14 +++++++++++---
 1 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/C4/Members.pm b/C4/Members.pm
index 8e669b1..abc611c 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -395,9 +395,9 @@ sub GetMemberDetails {
  $flags->{ LOST  }->{noissues}      Set for each LOST
  $flags->{ LOST  }->{message}       Message -- deprecated
 
- $flags->{DBARRED}                  Set if patron debarred, no access
- $flags->{DBARRED}->{noissues}      Set for each DBARRED
- $flags->{DBARRED}->{message}       Message -- deprecated
+ $flags->{DEBARRED}                  Set if patron debarred, no access
+ $flags->{DEBARRED}->{noissues}      Set for each DEBARRED
+ $flags->{DEBARRED}->{message}       Message -- deprecated
 
  $flags->{ NOTES }
  $flags->{ NOTES }->{message}       The note itself.  NOT deprecated
@@ -411,6 +411,7 @@ sub GetMemberDetails {
  $flags->{WAITING}->{message}       Message -- deprecated
  $flags->{WAITING}->{itemlist}      ref-to-array: list of available items
 
+ $flags->{EXPIRED}                  patron subscription expired
 =over 4
 
 C<$flags-E<gt>{ODUES}-E<gt>{itemlist}> is a reference-to-array listing the
@@ -471,6 +472,13 @@ sub patronflags {
         $flaginfo{'noissues'} = 1;
         $flags{'LOST'}        = \%flaginfo;
     }
+    if ( check_date(split(/-/,$patroninformation->{'dateexpiry'})) ){
+        if(Date_to_Days(Date::Calc::Today) > Date_to_Days(split(/-/,$patroninformation->{'dateexpiry'}) )){
+            my %flaginfo;
+            $flaginfo{'noissues'} = 1;
+            $flags{'EXPIRED'} = \%flaginfo;
+        }
+    }
     if ( $patroninformation->{'debarred'} && check_date(split(/-/,$patroninformation->{'debarred'})) ){
         if(Date_to_Days(Date::Calc::Today) < Date_to_Days(split(/-/,$patroninformation->{'debarred'}) )){
             my %flaginfo;
-- 
1.6.3.3