Lines 24-30
use C4::Languages;
Link Here
|
24 |
use C4::Context; |
24 |
use C4::Context; |
25 |
|
25 |
|
26 |
use Encode; |
26 |
use Encode; |
27 |
use Locale::Messages qw(:locale_h setlocale LC_MESSAGES); |
27 |
use Locale::Messages qw(:locale_h LC_MESSAGES); |
|
|
28 |
use POSIX qw( setlocale ); |
28 |
use Koha::Cache::Memory::Lite; |
29 |
use Koha::Cache::Memory::Lite; |
29 |
|
30 |
|
30 |
use parent 'Exporter'; |
31 |
use parent 'Exporter'; |
Lines 55-61
sub init {
Link Here
|
55 |
# LANG needs to be set to a valid locale, |
56 |
# LANG needs to be set to a valid locale, |
56 |
# otherwise LANGUAGE is ignored |
57 |
# otherwise LANGUAGE is ignored |
57 |
$ENV{LANG} = $system_locales[0]; |
58 |
$ENV{LANG} = $system_locales[0]; |
58 |
setlocale(LC_MESSAGES, ''); |
59 |
POSIX::setlocale(LC_MESSAGES, ''); |
59 |
|
60 |
|
60 |
my $langtag = C4::Languages::getlanguage; |
61 |
my $langtag = C4::Languages::getlanguage; |
61 |
my @subtags = split /-/, $langtag; |
62 |
my @subtags = split /-/, $langtag; |
62 |
- |
|
|