use Locale::gettext;
our @ISA = qw( Exporter );
-our @EXPORT = qw( get_locale get_charset _g _ N_ );
-
+# the reason we have both _g and _ is simply that there
+# seem to be some situations where Perl doesn't handle _
+# correctly. If in doubt use _g
+our @EXPORT = qw( get_locale get_charset _g N_ );
my %lang2loc = ( en => "en_US",
cs => "cs_CZ",
default => "en_US",
);
-# most of them can probably changed to UTF-8 in Sarge
-# as there are more available UTF-8 locales then
+# this can probably be removed now that all locales are available in UTF-8
my %lang2charset = (
default => 'UTF-8',
- ja => 'EUC-JP',
- uk => 'KOI8-U',
);
sub get_locale {
return $lang2charset{$lang} || $lang2charset{default};
}
-sub _ { return gettext( $_[0] ) }
+sub tt_gettext {
+ my ($str, @args) = @_;
+ return dgettext( 'templates', $str ) unless @args;
+ return sprintf(dgettext( 'templates', $str ), @args);
+}
sub _g { return gettext( $_[0] ) }
sub N_ { return $_[0] }