Bug 8044: (follow-up) ensure Modern::Perl is imported first
[koha.git] / Koha / I18N.pm
1 package Koha::I18N;
2
3 # Copyright 2012 BibLibre
4 #
5 # This file is part of Koha.
6 #
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
10 # version.
11 #
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15 #
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20 use Modern::Perl;
21 use base qw(Locale::Maketext);
22
23 use C4::Templates;
24 use C4::Context;
25
26 use Locale::Maketext::Lexicon {
27     'en' => ['Auto'],
28     '*' => [
29         Gettext =>
30             C4::Context->config('intranetdir')
31             . '/misc/translator/po/*-messages.po'
32     ],
33     '_AUTO' => 1,
34 };
35
36 sub get_handle_from_context {
37     my ($class, $cgi, $interface) = @_;
38
39     my $lh;
40     my $lang = C4::Templates::getlanguage($cgi, $interface);
41     if ($lang) {
42         $lh = $class->get_handle($lang)
43             or die "No language handle for '$lang'";
44     } else {
45         $lh = $class->get_handle()
46             or die "Can't get a language handle";
47     }
48
49     return $lh;
50 }
51
52 1;