gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix to prevent crash on null dateexpiry. 

Error was:
    Usage: Date::Calc::Date_to_Days(year, month, day)

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Joe Atzberger 2008-08-08 12:15:10 -05:00 committed by Joshua Ferraro
parent d4ca58e80a
commit 2c9aba48dc
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
reserve/request.pl
View File

@ -93,7 +93,6 @@ if ($findborrower) {
if ($cardnumber) {
my $borrowerinfo = GetMemberDetails( 0, $cardnumber );
my $expiry;
my $diffbranch;
my @getreservloop;
my $count_reserv = 0;
@ -110,16 +109,11 @@ if ($cardnumber) {
$maxreserves = 1;
}
# we check the date expiricy of the borrower (only if there is an expiry date, otherwise, set to 1 (warn)
if ($borrowerinfo->{'dateexpiry'} ne '0000-00-00') {
my $warning = (Date_to_Days(split /-/,$date) > Date_to_Days( split /-/,$borrowerinfo->{'dateexpiry'}));
if ( $warning > 0 ) {
$messages = 1;
$expiry = 1;
}
} else {
$messages = 1;
$expiry = 1;
# we check the date expiry of the borrower (only if there is an expiry date, otherwise, set to 1 (warn)
my $expiry = $borrowerinfo->{dateexpiry};
unless ($expiry and $expiry ne '0000-00-00' and
Date_to_Days(split /-/,$date) > Date_to_Days(split /-/,$expiry)) {
$messages = $expiry = 1;
}