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 <[email protected]> --- 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 _______________________________________________ Koha-patches mailing list [email protected] http://lists.koha.org/mailman/listinfo/koha-patches
