diff --git a/C4/Serials.pm b/C4/Serials.pm index 72dc44b..86ffb15 100644 --- a/C4/Serials.pm +++ b/C4/Serials.pm @@ -2246,6 +2246,9 @@ sub abouttoexpire { my $expirationdate = GetExpirationDate($subscriptionid); my ($res) = $dbh->selectrow_array('select max(planneddate) from serial where subscriptionid = ?', undef, $subscriptionid); my $nextdate = GetNextDate($subscription, $res); + + return unless ($nextdate and $expirationdate); + if(Date::Calc::Delta_Days( split( /-/, $nextdate ), split( /-/, $expirationdate ) @@ -2383,6 +2386,8 @@ sub GetNextDate { if ($freqdata->{'unit'}) { my ( $year, $month, $day ) = split /-/, $publisheddate; + return unless check_date($year, $month, $day); + # Process an irregularity Hash # Suppose that irregularities are stored in a string with this structure # irreg1;irreg2;irreg3