X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FSerials.pm;h=2f5f27f7063d64f67664de8dbbb5ce6420284343;hb=cd14fd421c6908a73174d2cd0267779b9fd4e08f;hp=56558596df888a6f3becc4b65729d0cde3843c1d;hpb=a5aadae0a49bdcfbfc837079541c166f2d8ee71e;p=koha.git

diff --git a/C4/Serials.pm b/C4/Serials.pm
index 56558596df..2f5f27f706 100644
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -1011,7 +1011,9 @@ sub GetExpirationDate {
     my $dbh              = C4::Context->dbh;
     my $subscription     = GetSubscription($subscriptionid);
     my $enddate          = $subscription->{startdate};
-
+    
+    return if not $subscription->{startdate};
+    
 # we don't do the same test if the subscription is based on X numbers or on X weeks/months
     if (($subscription->{periodicity} % 16) >0){
       if ( $subscription->{numberlength} ) {
@@ -2386,6 +2388,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;