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