|
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 |
- |
|
|