Lines 105-121
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 |
my @locales = map { |
108 |
my $languages = [ map { |
109 |
chomp; |
109 |
{ |
110 |
/^C|^POSIX$/ ? () : $_ |
110 |
language => $_->{language}, |
111 |
} `locale -a`; |
111 |
description => $_->{native_description} || $_->{language} |
|
|
112 |
} |
113 |
} @{ C4::Languages::getTranslatedLanguages() } ]; |
112 |
|
114 |
|
113 |
$template->param( |
115 |
$template->param( |
114 |
$op => 1, |
116 |
$op => 1, |
115 |
frequencies_loop => \@frequencies, |
117 |
frequencies_loop => \@frequencies, |
116 |
subtypes_loop => \@subtypes, |
118 |
subtypes_loop => \@subtypes, |
117 |
locales => \@locales, |
119 |
locales => $languages, |
118 |
DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(), |
|
|
119 |
); |
120 |
); |
120 |
output_html_with_http_headers $input, $cookie, $template->output; |
121 |
output_html_with_http_headers $input, $cookie, $template->output; |
121 |
exit; |
122 |
exit; |
122 |
- |
|
|