View | Details | Raw Unified | Return to bug 15395
Collapse All | Expand All

(-)a/Koha/I18N.pm (-5 / +4 lines)
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
- 

Return to bug 15395