From 173c590460d607b0da4189d9f9d7965a823d7daf Mon Sep 17 00:00:00 2001 From: Henri-Damien LAURENT Date: Fri, 6 Mar 2009 11:59:33 +0100 Subject: [PATCH] Fix :Fatal Errors occurs when date is not a regular date When the start date or the "current date" is not a regular date the transformation and checkdate fails because there is no Year/Month/Date This patch makes it fail more 'silenty' for the users and raises an error that could be coped with. --- C4/Serials.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Serials.pm b/C4/Serials.pm index f14a855258..ace2421410 100644 --- a/C4/Serials.pm +++ b/C4/Serials.pm @@ -1804,7 +1804,7 @@ sub HasSubscriptionExpired { my ($res) = $sth->fetchrow ; my @res=split (/-/,$res); my @endofsubscriptiondate=split(/-/,$expirationdate); - return 2 if (not check_date(@res) || not check_date(@endofsubscriptiondate)); + return 2 if (scalar(@res)!=3 || scalar(@endofsubscriptiondate)!=3||not check_date(@res) || not check_date(@endofsubscriptiondate)); return 1 if ( (@endofsubscriptiondate && Delta_Days($res[0],$res[1],$res[2], $endofsubscriptiondate[0],$endofsubscriptiondate[1],$endofsubscriptiondate[2]) <= 0) || (!$res)); -- 2.39.5