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-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org