Lines 25-31
use strict;
Link Here
|
25 |
use C4::Context; |
25 |
use C4::Context; |
26 |
use C4::Dates qw(format_date_in_iso); |
26 |
use C4::Dates qw(format_date_in_iso); |
27 |
use Digest::MD5 qw(md5_base64); |
27 |
use Digest::MD5 qw(md5_base64); |
28 |
use Date::Calc qw/Today Add_Delta_YM/; |
28 |
use Date::Calc qw/Today Add_Delta_YM check_date Date_to_Days/; |
29 |
use C4::Log; # logaction |
29 |
use C4::Log; # logaction |
30 |
use C4::Overdues; |
30 |
use C4::Overdues; |
31 |
use C4::Reserves; |
31 |
use C4::Reserves; |
Lines 489-501
sub patronflags {
Link Here
|
489 |
$flaginfo{'noissues'} = 1; |
489 |
$flaginfo{'noissues'} = 1; |
490 |
$flags{'LOST'} = \%flaginfo; |
490 |
$flags{'LOST'} = \%flaginfo; |
491 |
} |
491 |
} |
492 |
if ( $patroninformation->{'debarred'} |
492 |
if ( $patroninformation->{'debarred'} && check_date( split( /-/, $patroninformation->{'debarred'} ) ) ) { |
493 |
&& $patroninformation->{'debarred'} == 1 ) |
493 |
if ( Date_to_Days(Date::Calc::Today) < Date_to_Days( split( /-/, $patroninformation->{'debarred'} ) ) ) { |
494 |
{ |
494 |
my %flaginfo; |
495 |
my %flaginfo; |
495 |
$flaginfo{'debarredcomment'} = $patroninformation->{'debarredcomment'}; |
496 |
$flaginfo{'message'} = 'Borrower is Debarred.'; |
496 |
$flaginfo{'message'} = $patroninformation->{'debarredcomment'}; |
497 |
$flaginfo{'noissues'} = 1; |
497 |
$flaginfo{'noissues'} = 1; |
498 |
$flags{'DBARRED'} = \%flaginfo; |
498 |
$flaginfo{'dateend'} = $patroninformation->{'debarred'}; |
|
|
499 |
$flags{'DBARRED'} = \%flaginfo; |
500 |
} |
499 |
} |
501 |
} |
500 |
if ( $patroninformation->{'borrowernotes'} |
502 |
if ( $patroninformation->{'borrowernotes'} |
501 |
&& $patroninformation->{'borrowernotes'} ) |
503 |
&& $patroninformation->{'borrowernotes'} ) |