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

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

Return to bug 15395