3 use base qw(Locale::Maketext);
8 use Locale::Maketext::Lexicon {
12 C4::Context->config('intranetdir')
13 . '/misc/translator/po/*-messages.po'
18 sub get_handle_from_context {
19 my ($class, $cgi, $interface) = @_;
22 my $lang = C4::Templates::getlanguage($cgi, $interface);
24 $lh = $class->get_handle($lang)
25 or die "No language handle for '$lang'";
27 $lh = $class->get_handle()
28 or die "Can't get a language handle";