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