i18n, RT#12515

diff --git a/FS/FS/L10N/DBI.pm b/FS/FS/L10N/DBI.pm
new file mode 100644 (file)
index 0000000..2f01a6a
--- /dev/null
+++ b/FS/FS/L10N/DBI.pm
@@ -0,0 +1,22 @@
+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 );
+  }
+
+  $lh->SUPER::maketext($key, @rest);
+
+}
+
+1;
+

diff --git a/FS/FS/L10N/en_us.pm b/FS/FS/L10N/en_us.pm
new file mode 100644 (file)
index 0000000..e8a592d
--- /dev/null
+++ b/FS/FS/L10N/en_us.pm
@@ -0,0 +1,7 @@
+package FS::L10N::en_us;
+use base qw(FS::L10N);
+#use strict;
+
+our %Lexicon = ( _AUTO=>1 );
+
+1;

diff --git a/FS/FS/L10N/iw_il.pm b/FS/FS/L10N/iw_il.pm
new file mode 100644 (file)
index 0000000..e1e2c66
--- /dev/null
+++ b/FS/FS/L10N/iw_il.pm
@@ -0,0 +1,4 @@
+package FS::L10N::iw_il;
+use base qw(FS::L10N::DBI);
+
+1;