diff options
author | ivan <ivan> | 2002-04-07 05:56:09 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-04-07 05:56:09 +0000 |
commit | 44e3eff0aa6e7bdb7f4ecd9ee1ddf141e1b68af3 (patch) | |
tree | 6a636ec1d2984f18a97515ef54969c4c9a641e8c /FS/FS/msgcat.pm | |
parent | fca110eff969104793774ed717985e91c53f5318 (diff) |
working message catalogs (not used for enough yet)
- almost (but not quite) closes Bug#385 - still have to catalog the
backend things triggered by signup server.
Diffstat (limited to 'FS/FS/msgcat.pm')
-rw-r--r-- | FS/FS/msgcat.pm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/FS/FS/msgcat.pm b/FS/FS/msgcat.pm index 53a7aee..3eca14b 100644 --- a/FS/FS/msgcat.pm +++ b/FS/FS/msgcat.pm @@ -1,7 +1,7 @@ package FS::msgcat; use strict; -use vars qw( @ISA @EXPORT_OK $conf $locale ); +use vars qw( @ISA @EXPORT_OK $conf $locale $debug ); use Exporter; use FS::UID; use FS::Record qw( qsearchs ); @@ -13,6 +13,7 @@ use FS::Conf; $FS::UID::callback{'msgcat'} = sub { $conf = new FS::Conf; $locale = $conf->config('locale') || 'en_US'; + $debug = $conf->exists('show-msgcat-codes') }; =head1 NAME @@ -140,6 +141,10 @@ Returns the full message for the supplied message code. =cut sub gettext { + $debug ? geterror(@_) : _gettext(@_); +} + +sub _gettext { my $msgcode = shift; my $msgcat = qsearchs('msgcat', { 'msgcode' => $msgcode, @@ -163,7 +168,7 @@ code. sub geterror { my $msgcode = shift; - my $msg = gettext($msgcode); + my $msg = _gettext($msgcode); if ( $msg eq $msgcode ) { "Error code $msgcode (message for locale $locale not found)"; } else { @@ -175,7 +180,7 @@ sub geterror { =head1 BUGS -i18n/l10n is a mess. +i18n/l10n, eek =head1 SEE ALSO |