Lines 59-66
my ($template, $loggedinuser, $cookie)
Link Here
|
59 |
|
59 |
|
60 |
|
60 |
|
61 |
my $sub_on; |
61 |
my $sub_on; |
62 |
my @subscription_types = (qw(issues weeks months)); |
|
|
63 |
my @sub_type_data; |
64 |
|
62 |
|
65 |
my $subs; |
63 |
my $subs; |
66 |
our $firstissuedate; |
64 |
our $firstissuedate; |
Lines 164-180
if ($op eq 'addsubscription') {
Link Here
|
164 |
} elsif ($op eq 'modsubscription') { |
162 |
} elsif ($op eq 'modsubscription') { |
165 |
redirect_mod_subscription(); |
163 |
redirect_mod_subscription(); |
166 |
} else { |
164 |
} else { |
167 |
while (@subscription_types) { |
165 |
|
168 |
my $sub_type = shift @subscription_types; |
166 |
$template->param( |
169 |
my %row = ( 'name' => $sub_type ); |
167 |
subtypes => [ qw( numberlength weeklength monthlength ) ], |
170 |
if ( defined $sub_on and $sub_on eq $sub_type ) { |
168 |
subtype => $sub_on, |
171 |
$row{'selected'} = ' selected'; |
169 |
); |
172 |
} else { |
|
|
173 |
$row{'selected'} = ''; |
174 |
} |
175 |
push( @sub_type_data, \%row ); |
176 |
} |
177 |
$template->param(subtype => \@sub_type_data); |
178 |
|
170 |
|
179 |
if ( $op ne 'modsubscription' && $op ne 'dup' && $op ne 'modify' ) { |
171 |
if ( $op ne 'modsubscription' && $op ne 'dup' && $op ne 'modify' ) { |
180 |
my $letters = get_letter_loop(); |
172 |
my $letters = get_letter_loop(); |
181 |
- |
|
|