Author: richter
Date: Thu Oct 20 08:39:42 2011
New Revision: 1186667
URL: http://svn.apache.org/viewvc?rev=1186667&view=rev
Log:
Fix problem with static values/options
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=1186667&r1=1186666&r2=1186667&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/ControlMultValue.pm (original)
+++ perl/embperl/trunk/Embperl/Form/ControlMultValue.pm Thu Oct 20 08:39:42 2011
@@ -202,10 +202,25 @@ sub get_option_from_value
}
}
- my $option = $self -> {datasrcobj} -> get_option_from_value ($value, $req,
$self) ;
-
- return $option if (defined ($option)) ;
+ if ($self->{datasrc})
+ {
+ my $option = $self -> {datasrcobj} -> get_option_from_value ($value,
$req, $self) ;
+ return $option if (defined ($option)) ;
+ }
+ else
+ {
+ my $i = 0 ;
+ foreach (@{$self -> {values}})
+ {
+ if ($_ eq $value)
+ {
+ return $self -> {options}[$i] || $value ;
+ }
+ $i++ ;
+ }
+ }
+
my $addbottom = $self -> {addbottom} ;
if ($addbottom)
{
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
