You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2013/12/26 09:36:42 UTC
svn commit: r1553460 - /perl/embperl/trunk/Embperl/Form/Control.pm
Author: richter
Date: Thu Dec 26 08:36:41 2013
New Revision: 1553460
URL: http://svn.apache.org/r1553460
Log:
Embperl::Form
Modified:
perl/embperl/trunk/Embperl/Form/Control.pm
Modified: perl/embperl/trunk/Embperl/Form/Control.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control.pm?rev=1553460&r1=1553459&r2=1553460&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control.pm Thu Dec 26 08:36:41 2013
@@ -262,9 +262,11 @@ sub label_text
{
my ($self, $req) = @_ ;
- return $self -> {label_text} if ($self -> {label_text}) ;
+ my $key = 'label_text' . $req -> {form_options}{language} ;
- return $self -> {label_text} = $self -> {showtext}?($self->{text} ||
+ return $self -> {$key} if ($self -> {$key}) ;
+
+ return $self -> {$key} = $self -> {showtext}?($self->{text} ||
$self->{name}):$self -> form -> convert_label ($self, undef, undef, $req) ;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org