|
Lines 105-116
if($op && ($op eq 'new' || $op eq 'modify')) {
Link Here
|
| 105 |
my @frequencies = GetSubscriptionFrequencies(); |
105 |
my @frequencies = GetSubscriptionFrequencies(); |
| 106 |
my @subtypes; |
106 |
my @subtypes; |
| 107 |
push @subtypes, { value => $_ } for (qw/ issues weeks months /); |
107 |
push @subtypes, { value => $_ } for (qw/ issues weeks months /); |
|
|
108 |
|
| 108 |
my $languages = [ map { |
109 |
my $languages = [ map { |
| 109 |
{ |
110 |
{ |
| 110 |
language => $_->{language}, |
111 |
language => $_->{iso639_2_code}, |
| 111 |
description => $_->{native_description} || $_->{language} |
112 |
description => $_->{language_description} || $_->{language} |
| 112 |
} |
113 |
} |
| 113 |
} @{ C4::Languages::getTranslatedLanguages() } ]; |
114 |
} @{ C4::Languages::getAllLanguages() } ]; |
| 114 |
|
115 |
|
| 115 |
$template->param( |
116 |
$template->param( |
| 116 |
$op => 1, |
117 |
$op => 1, |
| 117 |
- |
|
|