blob: 625743dc074e4115da6ea4c27124a2c40c8d2dbe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
package FS::Msgcat;
use strict;
use vars qw( @ISA @EXPORT_OK $conf $locale $debug );
use Exporter;
use FS::UID;
#use FS::Record qw( qsearchs ); # wtf? won't import...
use FS::Record;
use FS::Conf;
use FS::msgcat;
@ISA = qw(Exporter);
@EXPORT_OK = qw( gettext geterror );
$FS::UID::callback{'Msgcat'} = sub {
$conf = new FS::Conf;
$locale = $conf->config('locale') || 'en_US';
$debug = $conf->exists('show-msgcat-codes')
};
=head1 NAME
FS::Msgcat - Message catalog functions
=head1 SYNOPSIS
use FS::Msgcat qw(gettext geterror);
#simple interface for retreiving messages...
$message = gettext('msgcode');
#or errors (includes the error code)
$message = geterror('msgcode');
=head1 DESCRIPTION
FS::Msgcat provides functions to use the message catalog. If you want to
maintain the message catalog database, see L<FS::msgcat> instead.
=head1 SUBROUTINES
=over 4
=item gettext MSGCODE
Returns the full message for the supplied message code.
=cut
sub gettext {
$debug ? geterror(@_) : _gettext(@_);
}
sub _gettext {
my $msgcode = shift;
my $msgcat = FS::Record::qsearchs('msgcat', {
'msgcode' => $msgcode,
'locale' => $locale
} );
if ( $msgcat ) {
$msgcat->msg;
} else {
warn "WARNING: message for msgcode $msgcode in locale $locale not found";
$msgcode;
}
}
=item geterror MSGCODE
Returns the full message for the supplied message code, including the message
code.
=cut
sub geterror {
my $msgcode = shift;
my $msg = _gettext($msgcode);
if ( $msg eq $msgcode ) {
"Error code $msgcode (message for locale $locale not found)";
} else {
"$msg (error code $msgcode)";
}
}
=back
=head1 BUGS
i18n/l10n, eek
=head1 SEE ALSO
L<FS::msgcat>, L<FS::Record>, schema.html from the base documentation.
=cut
1;
|