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 |
2389 |
- |
|
|