my $sublength = $input->param('sublength');
my $custompattern = $input->param('custompattern');
+my $frequency = GetSubscriptionFrequency($frequencyid);
my %pattern = (
numberingmethod => $input->param('numberingmethod') // '',
my ($calculated) = GetSeq(\%subscription, \%pattern);
push @predictions_loop, {
number => $calculated,
- publicationdate => $date,
+ publicationdate => ($frequency->{unit} ? $date : undef),
issuenumber => $issuenumber,
dow => Day_of_Week(split /-/, $date),
};
$date = GetNextDate(\%subscription, $date);
}
if(defined $date){
- $line{'publicationdate'} = $date;
+ $line{'publicationdate'} = $date if $frequency->{unit};
$line{'dow'} = Day_of_Week(split /-/, $date);
}
predictions_loop => \@predictions_loop,
);
-my $frequency = GetSubscriptionFrequency($frequencyid);
-
if ( $frequency->{unit} and not $custompattern ) {
$template->param( ask_for_irregularities => 1 );
if ( $frequency->{unit} eq 'day' and $frequency->{unitsperissue} == 1 ) {