Author: richter
Date: Sun Oct 1 15:21:31 2023
New Revision: 1912660
URL: http://svn.apache.org/viewvc?rev=1912660&view=rev
Log:
Fix utf8 error for Embperl::Form::Validation messages
Modified:
perl/embperl/trunk/Embperl/Form/Validate/DateTime.pm
perl/embperl/trunk/Embperl/Form/Validate/Default.pm
perl/embperl/trunk/Embperl/Form/Validate/Duration.pm
perl/embperl/trunk/Embperl/Form/Validate/EMail.pm
perl/embperl/trunk/Embperl/Form/Validate/FQDN_IPAddr.pm
perl/embperl/trunk/Embperl/Form/Validate/FQDN_IPv4_IPv6Addr.pm
perl/embperl/trunk/Embperl/Form/Validate/IP6Addr_Mask.pm
perl/embperl/trunk/Embperl/Form/Validate/IPAddr.pm
perl/embperl/trunk/Embperl/Form/Validate/IPAddr_Mask.pm
perl/embperl/trunk/Embperl/Form/Validate/IPv6Addr.pm
perl/embperl/trunk/Embperl/Form/Validate/IPv6Addr_Mask.pm
perl/embperl/trunk/Embperl/Form/Validate/Number.pm
perl/embperl/trunk/Embperl/Form/Validate/PosInteger.pm
perl/embperl/trunk/Embperl/Form/Validate/TimeHHMM.pm
perl/embperl/trunk/Embperl/Form/Validate/TimeHHMMSS.pm
perl/embperl/trunk/Embperl/Form/Validate/TimeValue.pm
Modified: perl/embperl/trunk/Embperl/Form/Validate/DateTime.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/DateTime.pm?rev=1912660&r1=1912659&r2=1912660&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/DateTime.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/DateTime.pm Sun Oct 1 15:21:31
2023
@@ -19,6 +19,13 @@ package Embperl::Form::Validate::DateTim
use base qw(Embperl::Form::Validate::Default);
use utf8 ;
+my %errutf8 =
+ (
+ validate_datetime_eu => 'Feld %0: "%1" ist kein gültiges Zeitformat.
Geben Sie die Zeit in der Form tt.mm.jjjj hh:mm:ss ein. Die Angabe der Zeit
nach dem Datum ist optional.',
+ ) ;
+
+no utf8 ;
+
my %error_messages =
(
de =>
@@ -26,10 +33,7 @@ my %error_messages =
validate_datetime_eu => 'Feld %0: "%1" ist kein gültiges Zeitformat.
Geben Sie die Zeit in der Form tt.mm.jjjj hh:mm:ss ein. Die Angabe der Zeit
nach dem Datum ist optional.',
},
- 'de.utf-8' =>
- {
- validate_datetime_eu => 'Feld %0: "%1" ist kein gültiges Zeitformat.
Geben Sie die Zeit in der Form tt.mm.jjjj hh:mm:ss ein. Die Angabe der Zeit
nach dem Datum ist optional.',
- },
+ 'de.utf-8' => \%errutf8,
en =>
{
Modified: perl/embperl/trunk/Embperl/Form/Validate/Default.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/Default.pm?rev=1912660&r1=1912659&r2=1912660&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/Default.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/Default.pm Sun Oct 1 15:21:31 2023
@@ -18,12 +18,37 @@ package Embperl::Form::Validate::Default
use strict;
use vars qw($VERSION %error_messages %script_functions %prefixes);
-use utf8 ;
$VERSION = '2.0.0' ;
%script_functions = ();
%prefixes = ();
+use utf8 ;
+
+my %errutf8 =
+ (
+ validate_required => 'Bitte Feld "%0" ausfüllen',
+ validate_eq => 'Falscher Inhalt "%1" des Feldes "%0": Erwartet wird
"%2"',
+ validate_same => '"%0" stimmt nicht mit "%2" überein',
+ validate_lt => '"%0" muà kleiner als %2 sein',
+ validate_gt => '"%0" muà gröÃer als %2 sein',
+ validate_le => '"%0" muà kleiner oder gleich wie %2 sein',
+ validate_ge => '"%0" muà gröÃer oder gleich %2 sein',
+ validate_ne => '"%0" muà ungleich %2 sein',
+ validate_length_max => 'Inhalt des Feldes "%0" ist zu lang, maximale
Länge sind %2, eingegeben wurden %1 Zeichen',
+ validate_length_min => 'Inhalt des Feldes "%0" ist zu kurz, minimal
Länge sind %2, eingegeben wurden %1 Zeichen',
+ validate_length_eq => 'Inhalt des Feldes "%0" hat die falsche Länge:
Er sollte %2 Zeichen lang sein, ist aber %1 lang',
+ validate_matches_regex => 'Inhalt "%1" des Feldes "%0" entspricht nicht
dem regulären Ausdruck /%2/',
+ validate_matches_regex_js => 'Inhalt "%1" des Feldes "%0" entspricht
nicht dem regulären Ausdruck /%2/',
+ validate_not_matches_regex => 'Inhalt "%1" des Feldes "%0" darf nicht
dem regulären Ausdruck /%2/ entsprechen',
+ validate_not_matches_regex_js => 'Inhalt "%1" des Feldes "%0" darf
nicht dem regulären Ausdruck /%2/ entsprechen',
+ validate_matches_wildcard => 'Inhalt "%1" des Feldes "%0" entspricht
nicht dem Wildcard-Ausdruck "%2"',
+ validate_must_only_contain => 'Das Feld "%0" darf nur folgende Zeichen
enthalten: "%2"',
+ validate_must_contain_one_of => 'Das Feld "%0" muà mindestens eines
der folgenden Zeichen enthalten: "%2"',
+ validate_must_not_contain => 'Das Feld "%0" darf folgende Zeichen nicht
enthalten: "%2"'
+ ) ;
+
+no utf8 ;
%error_messages =
(
@@ -49,30 +74,9 @@ $VERSION = '2.0.0' ;
validate_must_contain_one_of => 'Das Feld "%0" muß mindestens eines der
folgenden Zeichen enthalten: "%2"',
validate_must_not_contain => 'Das Feld "%0" darf folgende Zeichen nicht
enthalten: "%2"'
},
-
- 'de.utf-8' =>
- {
- validate_required => 'Bitte Feld "%0" ausfüllen',
- validate_eq => 'Falscher Inhalt "%1" des Feldes "%0": Erwartet wird
"%2"',
- validate_same => '"%0" stimmt nicht mit "%2" überein',
- validate_lt => '"%0" muà kleiner als %2 sein',
- validate_gt => '"%0" muà gröÃer als %2 sein',
- validate_le => '"%0" muà kleiner oder gleich wie %2 sein',
- validate_ge => '"%0" muà gröÃer oder gleich %2 sein',
- validate_ne => '"%0" muà ungleich %2 sein',
- validate_length_max => 'Inhalt des Feldes "%0" ist zu lang, maximale
Länge sind %2, eingegeben wurden %1 Zeichen',
- validate_length_min => 'Inhalt des Feldes "%0" ist zu kurz, minimal
Länge sind %2, eingegeben wurden %1 Zeichen',
- validate_length_eq => 'Inhalt des Feldes "%0" hat die falsche Länge:
Er sollte %2 Zeichen lang sein, ist aber %1 lang',
- validate_matches_regex => 'Inhalt "%1" des Feldes "%0" entspricht nicht
dem regulären Ausdruck /%2/',
- validate_matches_regex_js => 'Inhalt "%1" des Feldes "%0" entspricht
nicht dem regulären Ausdruck /%2/',
- validate_not_matches_regex => 'Inhalt "%1" des Feldes "%0" darf nicht
dem regulären Ausdruck /%2/ entsprechen',
- validate_not_matches_regex_js => 'Inhalt "%1" des Feldes "%0" darf
nicht dem regulären Ausdruck /%2/ entsprechen',
- validate_matches_wildcard => 'Inhalt "%1" des Feldes "%0" entspricht
nicht dem Wildcard-Ausdruck "%2"',
- validate_must_only_contain => 'Das Feld "%0" darf nur folgende Zeichen
enthalten: "%2"',
- validate_must_contain_one_of => 'Das Feld "%0" muà mindestens eines
der folgenden Zeichen enthalten: "%2"',
- validate_must_not_contain => 'Das Feld "%0" darf folgende Zeichen nicht
enthalten: "%2"'
- },
-
+
+ 'de.utf8' => \%errutf8,
+
en =>
{
validate_required => 'Please enter a value in "%0"',
Modified: perl/embperl/trunk/Embperl/Form/Validate/Duration.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/Duration.pm?rev=1912660&r1=1912659&r2=1912660&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/Duration.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/Duration.pm Sun Oct 1 15:21:31
2023
@@ -19,6 +19,13 @@ package Embperl::Form::Validate::Duratio
use base qw(Embperl::Form::Validate::Default);
use utf8 ;
+my %errutf8 =
+ (
+ validate_duration_long => 'Feld %0: "%1" ist keine gültiges Zeitdauer.
Geben Sie die Dauer in der Form hh:mm oder als Minuten ein',
+ ) ;
+
+no utf8 ;
+
my %error_messages =
(
de =>
@@ -26,10 +33,7 @@ my %error_messages =
validate_duration_long => 'Feld %0: "%1" ist keine gültige Zeitdauer.
Geben Sie die Dauer in der Form hh:mm oder als Minuten ein',
},
- 'de.utf-8' =>
- {
- validate_duration_long => 'Feld %0: "%1" ist keine gültiges Zeitdauer.
Geben Sie die Dauer in der Form hh:mm oder als Minuten ein',
- },
+ 'de.utf-8' => \%errutf8,
en =>
{
Modified: perl/embperl/trunk/Embperl/Form/Validate/EMail.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/EMail.pm?rev=1912660&r1=1912659&r2=1912660&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/EMail.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/EMail.pm Sun Oct 1 15:21:31 2023
@@ -19,6 +19,14 @@ package Embperl::Form::Validate::EMail ;
use base qw(Embperl::Form::Validate::Default);
use utf8 ;
+my %errutf8 =
+ (
+ validate_email => 'Die eingegebene E-Mail-Adresse "%0" in Feld "%1" ist
ungültig, sie muà genau ein "@" enthalten und darf keine Leerzeichen,
Klammern oder Umlaute enthalten.',
+ validate_email_nomailto => 'Die eingegebene E-Mail-Adresse "%0" in Feld
"%1" scheint mit einem "mailto:"; zu beginnen. Bitte geben Sie nur eine
E-Mail-Adresse ein und keine mit "mailto:"; beginnende URL.',
+ ) ;
+
+no utf8 ;
+
my %error_messages =
(
de =>
@@ -27,11 +35,7 @@ my %error_messages =
validate_email_nomailto => 'Die eingegebene E-Mail-Adresse "%0" in Feld
"%1" scheint mit einem "mailto:"; zu beginnen. Bitte geben Sie nur eine
E-Mail-Adresse ein und keine mit "mailto:"; beginnende URL.',
},
- 'de.utf-8' =>
- {
- validate_email => 'Die eingegebene E-Mail-Adresse "%0" in Feld "%1" ist
ungültig, sie muà genau ein "@" enthalten und darf keine Leerzeichen,
Klammern oder Umlaute enthalten.',
- validate_email_nomailto => 'Die eingegebene E-Mail-Adresse "%0" in Feld
"%1" scheint mit einem "mailto:"; zu beginnen. Bitte geben Sie nur eine
E-Mail-Adresse ein und keine mit "mailto:"; beginnende URL.',
- },
+ 'de.utf-8' => \%errutf8,
en =>
{
Modified: perl/embperl/trunk/Embperl/Form/Validate/FQDN_IPAddr.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/FQDN_IPAddr.pm?rev=1912660&r1=1912659&r2=1912660&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/FQDN_IPAddr.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/FQDN_IPAddr.pm Sun Oct 1 15:21:31
2023
@@ -19,6 +19,14 @@ package Embperl::Form::Validate::FQDN_IP
use base qw(Embperl::Form::Validate::Default);
use utf8 ;
+
+my %errutf8 =
+ (
+ validate_fqdn_ipaddr => 'Feld %0: "%1" ist keine gültiger Hostname
oder IP-Adresse.',
+ ) ;
+
+no utf8 ;
+
my %error_messages =
(
de =>
@@ -26,10 +34,7 @@ my %error_messages =
validate_fqdn_ipaddr => 'Feld %0: "%1" ist keine g�ltiger Hostname
oder IP-Adresse.',
},
- 'de.utf-8' =>
- {
- validate_fqdn_ipaddr => 'Feld %0: "%1" ist keine gültiger Hostname
oder IP-Adresse.',
- },
+ 'de.utf-8' => \%errutf8,
en =>
{
Modified: perl/embperl/trunk/Embperl/Form/Validate/FQDN_IPv4_IPv6Addr.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/FQDN_IPv4_IPv6Addr.pm?rev=1912660&r1=1912659&r2=1912660&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/FQDN_IPv4_IPv6Addr.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/FQDN_IPv4_IPv6Addr.pm Sun Oct 1
15:21:31 2023
@@ -19,6 +19,13 @@ package Embperl::Form::Validate::FQDN_IP
use base qw(Embperl::Form::Validate::Default);
use utf8 ;
+my %errutf8 =
+ (
+ validate_fqdn_ipv46addr => 'Feld %0: "%1" ist keine gültiger Hostname
oder IP-Adresse.',
+ ) ;
+
+no utf8 ;
+
my %error_messages =
(
de =>
@@ -26,10 +33,7 @@ my %error_messages =
validate_fqdn_ipv46addr => 'Feld %0: "%1" ist keine gütiger Hostname
oder IP-Adresse.',
},
- 'de.utf-8' =>
- {
- validate_fqdn_ipv46addr => 'Feld %0: "%1" ist keine gültiger Hostname
oder IP-Adresse.',
- },
+ 'de.utf-8' => \%errutf8,
en =>
{
Modified: perl/embperl/trunk/Embperl/Form/Validate/IP6Addr_Mask.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/IP6Addr_Mask.pm?rev=1912660&r1=1912659&r2=1912660&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/IP6Addr_Mask.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/IP6Addr_Mask.pm Sun Oct 1
15:21:31 2023
@@ -18,6 +18,13 @@ package Embperl::Form::Validate::IP6Addr
use base qw(Embperl::Form::Validate::Default);
+my %errutf8 =
+ (
+ validate_ip6addr_mask => 'Feld %0: "%1" ist keine gültige IP-Adresse.
Geben Sie die IPv6-Adresse in der Form fe80::ffdf:3bae:884e:ba9a ein',
+ ) ;
+
+no utf8 ;
+
my %error_messages =
(
de =>
@@ -25,10 +32,7 @@ my %error_messages =
validate_ip6addr_mask => 'Feld %0: "%1" ist keine gültige IP-Adresse.
Geben Sie die IPv6-Adresse in der Form fe80::ffdf:3bae:884e:ba9a ein',
},
- 'de.utf-8' =>
- {
- validate_ip6addr_mask => 'Feld %0: "%1" ist keine gültige IP-Adresse.
Geben Sie die IPv6-Adresse in der Form fe80::ffdf:3bae:884e:ba9a ein',
- },
+ 'de.utf-8' => \%errutf8,
en =>
{
Modified: perl/embperl/trunk/Embperl/Form/Validate/IPAddr.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/IPAddr.pm?rev=1912660&r1=1912659&r2=1912660&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/IPAddr.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/IPAddr.pm Sun Oct 1 15:21:31 2023
@@ -19,6 +19,13 @@ package Embperl::Form::Validate::IPAddr
use base qw(Embperl::Form::Validate::Default);
use utf8 ;
+my %errutf8 =
+ (
+ validate_ipaddr => 'Feld %0: "%1" ist keine gültige IP-Adresse. Geben
Sie die IP-Adresse in der Form nnn.nnn.nnn.nnn ein',
+ ) ;
+
+no utf8 ;
+
my %error_messages =
(
de =>
@@ -26,10 +33,7 @@ my %error_messages =
validate_ipaddr => 'Feld %0: "%1" ist keine gültige IP-Adresse. Geben
Sie die IP-Adresse in der Form nnn.nnn.nnn.nnn ein',
},
- 'de.utf-8' =>
- {
- validate_ipaddr => 'Feld %0: "%1" ist keine gültige IP-Adresse. Geben
Sie die IP-Adresse in der Form nnn.nnn.nnn.nnn ein',
- },
+ 'de.utf-8' => \%errutf8,
en =>
{
Modified: perl/embperl/trunk/Embperl/Form/Validate/IPAddr_Mask.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/IPAddr_Mask.pm?rev=1912660&r1=1912659&r2=1912660&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/IPAddr_Mask.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/IPAddr_Mask.pm Sun Oct 1 15:21:31
2023
@@ -19,6 +19,13 @@ package Embperl::Form::Validate::IPAddr_
use base qw(Embperl::Form::Validate::Default);
use utf8 ;
+my %errutf8 =
+ (
+ validate_ipaddr_mask => 'Feld %0: "%1" ist keine gültige
IP-Adresse/Netzmaske. Geben Sie die IP-Adresse/Netzmaske in der Form
nnn.nnn.nnn.nnn/mm ein',
+ ) ;
+
+no utf8 ;
+
my %error_messages =
(
de =>
@@ -26,10 +33,7 @@ my %error_messages =
validate_ipaddr_mask => 'Feld %0: "%1" ist keine gültige
IP-Adresse/Netzmaske. Geben Sie die IP-Adresse/Netzmaske in der Form
nnn.nnn.nnn.nnn/mm ein',
},
- 'de.utf-8' =>
- {
- validate_ipaddr_mask => 'Feld %0: "%1" ist keine gültige
IP-Adresse/Netzmaske. Geben Sie die IP-Adresse/Netzmaske in der Form
nnn.nnn.nnn.nnn/mm ein',
- },
+ 'de.utf-8' => \%errutf8,
en =>
{
Modified: perl/embperl/trunk/Embperl/Form/Validate/IPv6Addr.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/IPv6Addr.pm?rev=1912660&r1=1912659&r2=1912660&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/IPv6Addr.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/IPv6Addr.pm Sun Oct 1 15:21:31
2023
@@ -21,6 +21,13 @@ package Embperl::Form::Validate::IPv6Add
use base qw(Embperl::Form::Validate::Default);
use utf8 ;
+my %errutf8 =
+ (
+ validate_ipv6addr => 'Feld %0: "%1" ist keine gültige IPv6-Adresse.
Geben Sie die IP-Adresse in der Form n:n:.... ein',
+ ) ;
+
+no utf8 ;
+
my %error_messages =
(
de =>
@@ -28,10 +35,7 @@ my %error_messages =
validate_ipv6addr => 'Feld %0: "%1" ist keine gültige IPv6-Adresse.
Geben Sie die IP-Adresse in der Form n:n:.... ein',
},
- 'de.utf-8' =>
- {
- validate_ipv6addr => 'Feld %0: "%1" ist keine gültige IPv6-Adresse.
Geben Sie die IP-Adresse in der Form n:n:.... ein',
- },
+ 'de.utf-8' => \%errutf8,
en =>
{
Modified: perl/embperl/trunk/Embperl/Form/Validate/IPv6Addr_Mask.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/IPv6Addr_Mask.pm?rev=1912660&r1=1912659&r2=1912660&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/IPv6Addr_Mask.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/IPv6Addr_Mask.pm Sun Oct 1
15:21:31 2023
@@ -21,6 +21,13 @@ package Embperl::Form::Validate::IPv6Add
use base qw(Embperl::Form::Validate::Default);
use utf8 ;
+my %errutf8 =
+ (
+ validate_ipv6addr_mask => 'Feld %0: "%1" ist keine gültige
IPv6-Adresse/Netzmaske. Geben Sie die IP-Adresse/Netzmaske in der Form
n:n:..../mm ein',
+ ) ;
+
+no utf8 ;
+
my %error_messages =
(
de =>
@@ -28,10 +35,7 @@ my %error_messages =
validate_ipv6addr_mask => 'Feld %0: "%1" ist keine gültige
IPv6-Adresse/Netzmaske. Geben Sie die IP-Adresse/Netzmaske in der Form
n:n:..../mm ein',
},
- 'de.utf-8' =>
- {
- validate_ipv6addr_mask => 'Feld %0: "%1" ist keine gültige
IPv6-Adresse/Netzmaske. Geben Sie die IP-Adresse/Netzmaske in der Form
n:n:..../mm ein',
- },
+ 'de.utf-8' => \%errutf8,
en =>
{
Modified: perl/embperl/trunk/Embperl/Form/Validate/Number.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/Number.pm?rev=1912660&r1=1912659&r2=1912660&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/Number.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/Number.pm Sun Oct 1 15:21:31 2023
@@ -22,6 +22,13 @@ use utf8 ;
my
$VERSION = '2.0.0' ;
+my %errutf8 =
+ (
+ validate_number => '"%0" muà eine Zahl sein',
+ ) ;
+
+no utf8 ;
+
my %error_messages =
(
de =>
@@ -29,10 +36,7 @@ my %error_messages =
validate_number => '"%0" muß eine Zahl sein',
},
- 'de.utf-8' =>
- {
- validate_number => '"%0" muà eine Zahl sein',
- },
+ 'de.utf-8' => \%errutf8,
en =>
{
Modified: perl/embperl/trunk/Embperl/Form/Validate/PosInteger.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/PosInteger.pm?rev=1912660&r1=1912659&r2=1912660&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/PosInteger.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/PosInteger.pm Sun Oct 1 15:21:31
2023
@@ -19,6 +19,13 @@ package Embperl::Form::Validate::PosInte
use base qw(Embperl::Form::Validate::Integer);
use utf8 ;
+my %errutf8 =
+ (
+ validate_pos_number => '"%0" muà eine Zahl gröÃer oder gleich Null
sein',
+ ) ;
+
+no utf8 ;
+
my %error_messages =
(
de =>
@@ -26,10 +33,7 @@ my %error_messages =
validate_pos_number => '"%0" muß eine Zahl größer oder gleich Null
sein',
},
- 'de.utf-8' =>
- {
- validate_pos_number => '"%0" muà eine Zahl gröÃer oder gleich Null
sein',
- },
+ 'de.utf-8' => \%errutf8,
en =>
{
Modified: perl/embperl/trunk/Embperl/Form/Validate/TimeHHMM.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/TimeHHMM.pm?rev=1912660&r1=1912659&r2=1912660&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/TimeHHMM.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/TimeHHMM.pm Sun Oct 1 15:21:31
2023
@@ -19,6 +19,13 @@ package Embperl::Form::Validate::TimeHHM
use base qw(Embperl::Form::Validate::Default);
use utf8 ;
+my %errutf8 =
+ (
+ validate_time => 'Feld %0: "%1" ist kein gültiges Zeitformat. Geben
Sie die Zeit in der Form hh:mm ein',
+ ) ;
+
+no utf8 ;
+
my %error_messages =
(
de =>
@@ -26,10 +33,7 @@ my %error_messages =
validate_time => 'Feld %0: "%1" ist kein gültiges Zeitformat. Geben Sie
die Zeit in der Form hh:mm ein',
},
- 'de.utf-8' =>
- {
- validate_time => 'Feld %0: "%1" ist kein gültiges Zeitformat. Geben
Sie die Zeit in der Form hh:mm ein',
- },
+ 'de.utf-8' => \%errutf8,
en =>
{
Modified: perl/embperl/trunk/Embperl/Form/Validate/TimeHHMMSS.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/TimeHHMMSS.pm?rev=1912660&r1=1912659&r2=1912660&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/TimeHHMMSS.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/TimeHHMMSS.pm Sun Oct 1 15:21:31
2023
@@ -18,6 +18,13 @@ package Embperl::Form::Validate::TimeHHM
use base qw(Embperl::Form::Validate::Default);
+my %errutf8 =
+ (
+ validate_time_long => 'Feld %0: "%1" ist kein gültiges Zeitformat.
Geben Sie die Zeit in der Form hh:mm:ss ein',
+ ) ;
+
+no utf8 ;
+
my %error_messages =
(
de =>
@@ -25,10 +32,7 @@ my %error_messages =
validate_time_long => 'Feld %0: "%1" ist kein gültiges Zeitformat.
Geben Sie die Zeit in der Form hh:mm:ss ein',
},
- 'de.utf-8' =>
- {
- validate_time_long => 'Feld %0: "%1" ist kein gültiges Zeitformat.
Geben Sie die Zeit in der Form hh:mm:ss ein',
- },
+ 'de.utf-8' => \%errutf8,
en =>
{
Modified: perl/embperl/trunk/Embperl/Form/Validate/TimeValue.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/TimeValue.pm?rev=1912660&r1=1912659&r2=1912660&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/TimeValue.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/TimeValue.pm Sun Oct 1 15:21:31
2023
@@ -19,6 +19,13 @@ package Embperl::Form::Validate::TimeVal
use base qw(Embperl::Form::Validate::Integer);
use utf8 ;
+my %errutf8 =
+ (
+ validate_time_long => 'Feld %0: "%1" ist kein gültiges Zeitformat.
Geben Sie die Zeit in der Form hh:mm:ss ein',
+ ) ;
+
+no utf8 ;
+
my %error_messages =
(
de =>
@@ -26,10 +33,7 @@ my %error_messages =
validate_timevalue => 'Feld %0: "%1" ist keine gültige Zeit. Geben Sie
eine Zahl gefolgt von s, m, h, d oder w ein.',
},
- 'de.utf-8' =>
- {
- validate_timevalue => 'Feld %0: "%1" ist keine gültige Zeit. Geben Sie
eine Zahl gefolgt von s, m, h, d oder w ein.',
- },
+ 'de.utf-8' => \%errutf8,
en =>
{
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
