projects
/
freeside.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
improve mandatory fields, #9260
[freeside.git]
/
FS
/
FS
/
L10N
/
DBI.pm
1
package FS::L10N::DBI;
2
use base qw(FS::L10N);
3
use strict;
4
use FS::Msgcat;
5
6
our %Lexicon = ();
7
8
sub maketext {
9
my($lh, $key, @rest) = @_;
10
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 );
15
}
16
17
$lh->SUPER::maketext($key, @rest);
18
19
}
20
21
1;
22