9 my($lh, $key, @rest) = @_;
11 unless ( exists $Lexicon{$key} ) {
12 my $lang = $lh->language_tag;
13 $lang =~ s/-(\w*)/_\U$1/;
14 $Lexicon{$key} = FS::Msgcat::_gettext( $key, $lang );
17 my $res = eval { $lh->SUPER::maketext($key, @rest) };
19 my $errmsg = "MT error for '$key'";