|
Lines 55-60
my $subtype = $input->param('subtype');
Link Here
|
| 55 |
my $sublength = $input->param('sublength'); |
55 |
my $sublength = $input->param('sublength'); |
| 56 |
my $custompattern = $input->param('custompattern'); |
56 |
my $custompattern = $input->param('custompattern'); |
| 57 |
|
57 |
|
|
|
58 |
my $frequency = GetSubscriptionFrequency($frequencyid); |
| 58 |
|
59 |
|
| 59 |
my %pattern = ( |
60 |
my %pattern = ( |
| 60 |
numberingmethod => $input->param('numberingmethod') // '', |
61 |
numberingmethod => $input->param('numberingmethod') // '', |
|
Lines 118-124
my @predictions_loop;
Link Here
|
| 118 |
my ($calculated) = GetSeq(\%subscription, \%pattern); |
119 |
my ($calculated) = GetSeq(\%subscription, \%pattern); |
| 119 |
push @predictions_loop, { |
120 |
push @predictions_loop, { |
| 120 |
number => $calculated, |
121 |
number => $calculated, |
| 121 |
publicationdate => $date, |
122 |
publicationdate => ($frequency->{unit} ? $date : undef), |
| 122 |
issuenumber => $issuenumber, |
123 |
issuenumber => $issuenumber, |
| 123 |
dow => Day_of_Week(split /-/, $date), |
124 |
dow => Day_of_Week(split /-/, $date), |
| 124 |
}; |
125 |
}; |
|
Lines 142-148
while( $i < 1000 ) {
Link Here
|
| 142 |
$date = GetNextDate(\%subscription, $date); |
143 |
$date = GetNextDate(\%subscription, $date); |
| 143 |
} |
144 |
} |
| 144 |
if(defined $date){ |
145 |
if(defined $date){ |
| 145 |
$line{'publicationdate'} = $date; |
146 |
$line{'publicationdate'} = $date if $frequency->{unit}; |
| 146 |
$line{'dow'} = Day_of_Week(split /-/, $date); |
147 |
$line{'dow'} = Day_of_Week(split /-/, $date); |
| 147 |
} |
148 |
} |
| 148 |
|
149 |
|
|
Lines 177-184
$template->param(
Link Here
|
| 177 |
predictions_loop => \@predictions_loop, |
178 |
predictions_loop => \@predictions_loop, |
| 178 |
); |
179 |
); |
| 179 |
|
180 |
|
| 180 |
my $frequency = GetSubscriptionFrequency($frequencyid); |
|
|
| 181 |
|
| 182 |
if ( $frequency->{unit} and not $custompattern ) { |
181 |
if ( $frequency->{unit} and not $custompattern ) { |
| 183 |
$template->param( ask_for_irregularities => 1 ); |
182 |
$template->param( ask_for_irregularities => 1 ); |
| 184 |
if ( $frequency->{unit} eq 'day' and $frequency->{unitsperissue} == 1 ) { |
183 |
if ( $frequency->{unit} eq 'day' and $frequency->{unitsperissue} == 1 ) { |
| 185 |
- |
|
|