|
Lines 102-110
if($op && ($op eq 'new' || $op eq 'modify')) {
Link Here
|
| 102 |
} |
102 |
} |
| 103 |
} |
103 |
} |
| 104 |
my @frequencies = GetSubscriptionFrequencies(); |
104 |
my @frequencies = GetSubscriptionFrequencies(); |
| 105 |
my @subtypes; |
|
|
| 106 |
push @subtypes, { value => $_ } for (qw/ issues weeks months /); |
| 107 |
|
| 108 |
my $languages = [ map { |
105 |
my $languages = [ map { |
| 109 |
{ |
106 |
{ |
| 110 |
language => $_->{iso639_2_code}, |
107 |
language => $_->{iso639_2_code}, |
|
Lines 115-121
if($op && ($op eq 'new' || $op eq 'modify')) {
Link Here
|
| 115 |
$template->param( |
112 |
$template->param( |
| 116 |
$op => 1, |
113 |
$op => 1, |
| 117 |
frequencies_loop => \@frequencies, |
114 |
frequencies_loop => \@frequencies, |
| 118 |
subtypes_loop => \@subtypes, |
|
|
| 119 |
locales => $languages, |
115 |
locales => $languages, |
| 120 |
); |
116 |
); |
| 121 |
output_html_with_http_headers $input, $cookie, $template->output; |
117 |
output_html_with_http_headers $input, $cookie, $template->output; |
| 122 |
- |
|
|