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

(-)a/serials/showpredictionpattern.pl (-5 / +3 lines)
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
- 

Return to bug 11689