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 nl_putenv setlocale LC_MESSAGES); |
27 |
use Locale::Messages qw(:locale_h setlocale LC_MESSAGES); |
28 |
use Koha::Cache::Memory::Lite; |
28 |
use Koha::Cache::Memory::Lite; |
29 |
|
29 |
|
30 |
use parent 'Exporter'; |
30 |
use parent 'Exporter'; |
Lines 54-60
sub init {
Link Here
|
54 |
if (@system_locales) { |
54 |
if (@system_locales) { |
55 |
# LANG needs to be set to a valid locale, |
55 |
# LANG needs to be set to a valid locale, |
56 |
# otherwise LANGUAGE is ignored |
56 |
# otherwise LANGUAGE is ignored |
57 |
nl_putenv('LANG=' . $system_locales[0]); |
57 |
$ENV{LANG} = $system_locales[0]; |
58 |
setlocale(LC_MESSAGES, ''); |
58 |
setlocale(LC_MESSAGES, ''); |
59 |
|
59 |
|
60 |
my $langtag = C4::Languages::getlanguage; |
60 |
my $langtag = C4::Languages::getlanguage; |
Lines 68-75
sub init {
Link Here
|
68 |
$locale .= '_' . $region; |
68 |
$locale .= '_' . $region; |
69 |
} |
69 |
} |
70 |
|
70 |
|
71 |
nl_putenv("LANGUAGE=$locale"); |
71 |
$ENV{LANGUAGE} = $locale; |
72 |
nl_putenv('OUTPUT_CHARSET=UTF-8'); |
72 |
$ENV{OUTPUT_CHARSET} = 'UTF-8'; |
73 |
|
73 |
|
74 |
my $directory = _base_directory(); |
74 |
my $directory = _base_directory(); |
75 |
textdomain($textdomain); |
75 |
textdomain($textdomain); |
76 |
- |
|
|