View | Details | Raw Unified | Return to bug 14036
Collapse All | Expand All

(-)a/C4/Serials.pm (+5 lines)
Lines 2246-2251 sub abouttoexpire { Link Here
2246
        my $expirationdate = GetExpirationDate($subscriptionid);
2246
        my $expirationdate = GetExpirationDate($subscriptionid);
2247
        my ($res) = $dbh->selectrow_array('select max(planneddate) from serial where subscriptionid = ?', undef, $subscriptionid);
2247
        my ($res) = $dbh->selectrow_array('select max(planneddate) from serial where subscriptionid = ?', undef, $subscriptionid);
2248
        my $nextdate = GetNextDate($subscription, $res);
2248
        my $nextdate = GetNextDate($subscription, $res);
2249
2250
        return unless ($nextdate and $expirationdate);
2251
2249
        if(Date::Calc::Delta_Days(
2252
        if(Date::Calc::Delta_Days(
2250
            split( /-/, $nextdate ),
2253
            split( /-/, $nextdate ),
2251
            split( /-/, $expirationdate )
2254
            split( /-/, $expirationdate )
Lines 2383-2388 sub GetNextDate { Link Here
2383
    if ($freqdata->{'unit'}) {
2386
    if ($freqdata->{'unit'}) {
2384
        my ( $year, $month, $day ) = split /-/, $publisheddate;
2387
        my ( $year, $month, $day ) = split /-/, $publisheddate;
2385
2388
2389
        return unless check_date($year, $month, $day);
2390
2386
        # Process an irregularity Hash
2391
        # Process an irregularity Hash
2387
        # Suppose that irregularities are stored in a string with this structure
2392
        # Suppose that irregularities are stored in a string with this structure
2388
        # irreg1;irreg2;irreg3
2393
        # irreg1;irreg2;irreg3

Return to bug 14036