richter at apache
Oct 11, 2006, 7:30 AM
Post #1 of 1
(1441 views)
Permalink
|
|
svn commit: r462815 - in /perl/embperl/trunk: Changes.pod Embperl/Form/Validate.pm
|
|
Author: richter
Date: Wed Oct 11 07:30:41 2006
New Revision: 462815
URL: http://svn.apache.org/viewvc?view=rev&rev=462815
Log:
Fixed default_language handling in Embperl::Form::Validate
Modified:
perl/embperl/trunk/Changes.pod
perl/embperl/trunk/Embperl/Form/Validate.pm
Modified: perl/embperl/trunk/Changes.pod
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Changes.pod?view=diff&rev=462815&r1=462814&r2=462815
==============================================================================
--- perl/embperl/trunk/Changes.pod (original)
+++ perl/embperl/trunk/Changes.pod Wed Oct 11 07:30:41 2006
@@ -9,6 +9,8 @@
Spotted by Randy Korbes.
- Added UTF-8 messages to Embperl::Form::Validate.
- Documented all options of embpexec.pl.
+ - Fixed default_language handling in Embperl::Form::Validate.
+ Patch from Kathryn Andersen.
=head1 2.2.0 8. Apr. 2006
Modified: perl/embperl/trunk/Embperl/Form/Validate.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate.pm?view=diff&rev=462815&r1=462814&r2=462815
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate.pm Wed Oct 11 07:30:41 2006
@@ -364,7 +364,7 @@
my ($self, $id, $key, $name, $msg, $param, $typeobj, $pref, $epreq) = @_ ;
my $language = $pref -> {language} ;
- my $default_language = $pref -> {default_language} ;
+ my $default_language = $pref -> {default_language} || $self -> {default_language} ;
my $charset = $pref -> {charset} ;
my $txt ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe [at] perl
For additional commands, e-mail: embperl-cvs-help [at] perl
|
