From bc8eba30c1a6d0a4ae6524a32cfafaab1a9a367b Mon Sep 17 00:00:00 2001 From: Nahuel ANGELINETTI Date: Fri, 30 Jan 2009 16:48:02 +0100 Subject: [PATCH] (bug #2937) use check_date in C4::Serials::hassubscriptionexpired This patch change the date check in hassubscriptionexpired to use Date_Calc::check_date --- C4/Serials.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/C4/Serials.pm b/C4/Serials.pm index 7b868f8166..4d10615c9d 100644 --- a/C4/Serials.pm +++ b/C4/Serials.pm @@ -1798,9 +1798,7 @@ sub HasSubscriptionExpired { my ($res) = $sth->fetchrow ; my @res=split (/-/,$res); my @endofsubscriptiondate=split(/-/,$expirationdate); - foreach (@res,@endofsubscriptiondate){ - return 2 unless $_ ; - } + return 2 if (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