=cut
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
query => $input,
type => 'intranet',
authnotrequired => 0,
- flagsrequired => { 'parameters' => 1 }
+ flagsrequired => { 'serials' => 1 }
} );
my $op = $input->param('op');
my @frequencies = GetSubscriptionFrequencies();
my @subtypes;
push @subtypes, { value => $_ } for (qw/ issues weeks months /);
- my @locales = map {
- chomp;
- /^C|^POSIX$/ ? () : $_
- } `locale -a`;
+
+ my $languages = [ map {
+ {
+ language => $_->{iso639_2_code},
+ description => $_->{language_description} || $_->{language}
+ }
+ } @{ C4::Languages::getAllLanguages() } ];
$template->param(
$op => 1,
frequencies_loop => \@frequencies,
subtypes_loop => \@subtypes,
- locales => \@locales,
- DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
+ locales => $languages,
);
output_html_with_http_headers $input, $cookie, $template->output;
exit;