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