Mailing List Archive

Author: richter
Date: Mon Feb 3 10:06:15 2014
New Revision: 1563816

URL: http://svn.apache.org/r1563816
Log:
Fix DataSource caching with addtop in Control

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=1563816&r1=1563815&r2=1563816&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/ControlMultValue.pm (original)
+++ perl/embperl/trunk/Embperl/Form/ControlMultValue.pm Mon Feb 3 10:06:15 2014
@@ -124,8 +124,16 @@ sub get_all_values

if ($values)
{
- push @values, @$values ;
- push @options, @$options ;
+ if ($addtop && $values -> [0] eq '' && $options -> [0] eq '---')
+ {
+ push @values, @{$values}[1..$#$values] ;
+ push @options, @{$options}[1..$#$options] ;
+ }
+ else
+ {
+ push @values, @$values ;
+ push @options, @$options ;
+ }
}

if ($addbottom)



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