From 74b44e4c3ab621d6fb4127f88c801eba28c548ba Mon Sep 17 00:00:00 2001
From: Nahuel ANGELINETTI <nahuel.angelinetti@biblibre.com>
Date: Wed, 16 Sep 2009 12:29:43 +0200
Subject: [PATCH] don't die if a bad date is specified

---
 C4/Serials.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/C4/Serials.pm b/C4/Serials.pm
index 56558596df..fdf15e1dcc 100644
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -2386,6 +2386,7 @@ sub GetNextDate(@) {
     #date supposed to be in ISO.
     
     my ( $year, $month, $day ) = split(/-/, $planneddate);
+    return undef if not check_date($year, $month, $day);
     $month=1 unless ($month);
     $day=1 unless ($day);
     my @resultdate;
-- 
2.39.5