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