Mailing List Archive

Author: richter
Date: Thu Apr 10 05:01:09 2014
New Revision: 1586215

URL: http://svn.apache.org/r1586215
Log:
Use I18N when displaying r/o select & radio

Modified:
perl/embperl/trunk/Embperl/Form/ControlMultValue.pm

Modified: perl/embperl/trunk/Embperl/Form/ControlMultValue.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/ControlMultValue.pm?rev=1586215&r1=1586214&r2=1586215&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/ControlMultValue.pm (original)
+++ perl/embperl/trunk/Embperl/Form/ControlMultValue.pm Thu Apr 10 05:01:09 2014
@@ -244,7 +244,10 @@ sub get_option_from_value
{
if ($_ eq $value)
{
- return $self -> {options}[$i] || $value ;
+ my $options = [$self -> {options}[$i] || $value] ;
+ $options = $self -> form -> convert_options ($self, [$value], $options, $req)
+ if (!$self -> {showoptions}) ;
+ return $options -> [0] ;
}
$i++ ;
}
@@ -319,7 +322,7 @@ sub is_with_id
sub get_display_text
{
my ($self, $req, $value) = @_ ;
-
+
$value = $self -> get_value ($req) if (!defined ($value)) ;
$value = $self -> get_option_from_value ($value, $req) ;




---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org