blob: db387dba6bb97078ec83bdbe51055e29583f0b74 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
package FS::L10N::DBI;
use base qw(FS::L10N);
use strict;
use FS::Msgcat;
our %Lexicon = ();
sub maketext {
my($lh, $key, @rest) = @_;
unless ( exists $Lexicon{$key} ) {
my $lang = $lh->language_tag;
$lang =~ s/-(\w*)/_\U$1/;
$Lexicon{$key} = FS::Msgcat::_gettext( $key, $lang );
}
my $res = eval { $lh->SUPER::maketext($key, @rest) };
if ( !$res || $@ ) {
my $errmsg = "MT error for '$key'";
warn "$errmsg\n";
return $errmsg;
}
$res;
}
1;
|