From dd9b33f1e9546f3cbc9087a47858a152b9895dc9 Mon Sep 17 00:00:00 2001 From: Henri-Damien LAURENT Date: Fri, 6 Mar 2009 12:03:21 +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. Signed-off-by: Galen Charlton --- C4/Serials.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Serials.pm b/C4/Serials.pm index 2cea727086..5709519ab8 100644 --- a/C4/Serials.pm +++ b/C4/Serials.pm @@ -1806,7 +1806,7 @@ sub HasSubscriptionExpired { return 0 unless $res; 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