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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
# Copyright (c) 2005 Nate Wiger <nate@wiger.org>. All Rights Reserved.
# Use "perldoc CGI::FormBuilder::Messages" to read full documentation.
package CGI::FormBuilder::Messages::locale;
=head1 NAME
CGI::FormBuilder::Messages::en_US - English (default) messages for FormBuilder
=head1 SYNOPSIS
use CGI::FormBuilder;
my $form = CGI::FormBuilder->new(messages => 'auto');
=cut
use strict;
our $VERSION = '3.03';
# Simply create a hash of messages for this language
our %MESSAGES = (
lang => 'en_US',
charset => 'iso-8859-1',
js_invalid_start => '%s error(s) were encountered with your submission:',
js_invalid_end => 'Please correct these fields and try again.',
js_invalid_input => '- Invalid entry for the "%s" field',
js_invalid_select => '- Select an option from the "%s" list',
js_invalid_multiple => '- Select one or more options from the "%s" list',
js_invalid_checkbox => '- Check one or more of the "%s" options',
js_invalid_radio => '- Choose one of the "%s" options',
js_invalid_password => '- Invalid entry for the "%s" field',
js_invalid_textarea => '- Please fill in the "%s" field',
js_invalid_file => '- Invalid filename for the "%s" field',
js_invalid_default => '- Invalid entry for the "%s" field',
js_noscript => 'Please enable Javascript or use a newer browser.',
form_required_text => 'Fields that are %shighlighted%s are required.',
form_invalid_text => '%s error(s) were encountered with your submission. '
. 'Please correct the fields %shighlighted%s below.',
form_invalid_input => 'Invalid entry',
form_invalid_hidden => 'Invalid entry',
form_invalid_select => 'Select an option from this list',
form_invalid_checkbox => 'Check one or more options',
form_invalid_radio => 'Choose an option',
form_invalid_password => 'Invalid entry',
form_invalid_textarea => 'Please fill this in',
form_invalid_file => 'Invalid filename',
form_invalid_default => 'Invalid entry',
form_grow_default => 'Additional %s',
form_select_default => '-select-',
form_other_default => 'Other:',
form_submit_default => 'Submit',
form_reset_default => 'Reset',
form_confirm_text => 'Success! Your submission has been received %s.',
mail_confirm_subject => '%s Submission Confirmation',
mail_confirm_text => <<EOT,
Your submission has been received %s,
and will be processed shortly.
If you have any questions, please contact our staff by replying
to this email.
EOT
mail_results_subject => '%s Submission Results',
);
# This method should remain unchanged
sub messages {
return wantarray ? %MESSAGES : \%MESSAGES;
}
1;
__END__
=head1 DESCRIPTION
This module contains English (default) messages for FormBuilder.
If the C<messages> option is set to "auto" (the recommended
but NOT default setting), these messages will automatically
be displayed to English clients, or clients for which no
language set exists:
my $form = CGI::FormBuilder->new(messages => 'auto');
To force display of these messages, use the following
option:
my $form = CGI::FormBuilder->new(messages => ':en_US');
=head1 REVISION
$Id: en_US.pm,v 1.11 2006/02/24 01:42:29 nwiger Exp $
=head1 AUTHOR
Copyright (c) 2005-2006 Nate Wiger <nate@wiger.org>. All Rights Reserved.
This module is free software; you may copy this under the terms of
the GNU General Public License, or the Artistic License, copies of
which should have accompanied your Perl kit.
=cut
|
