i18n, RT#12515

[freeside.git] / FS / FS / Maketext.pm

diff --git a/FS/FS/Maketext.pm b/FS/FS/Maketext.pm
new file mode 100644 (file)
index 0000000..319fb1d
--- /dev/null
+++ b/FS/FS/Maketext.pm
@@ -0,0 +1,27 @@
+package FS::Maketext;
+
+use base qw( Exporter );
+use FS::CurrentUser;
+use FS::Conf;
+use FS::L10N;
+
+our @EXPORT_OK = qw( mt );
+
+our $lh;
+
+sub mt {
+  $lh ||= lh();
+  $lh->maketext(@_);
+}
+
+sub lh {
+  my $locale =  $FS::CurrentUser::CurrentUser->option('locale')
+             || FS::Conf->new->config('locale')
+             || 'en_US';
+  $locale =~ s/_/-/g;
+  FS::L10N->get_handle($locale) || die "Unknown locale $locale";
+}
+
+# XXX pod me
+
+1;