Author: richter
Date: Mon Mar 5 16:07:48 2012
New Revision: 1297111
URL: http://svn.apache.org/viewvc?rev=1297111&view=rev
Log:
Embperl::Form
Modified:
perl/embperl/trunk/Embperl/Form/Control/grid.pm
perl/embperl/trunk/Embperl/Form/ControlMultValue.pm
Modified: perl/embperl/trunk/Embperl/Form/Control/grid.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/grid.pm?rev=1297111&r1=1297110&r2=1297111&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/grid.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/grid.pm Mon Mar 5 16:07:48 2012
@@ -111,7 +111,8 @@ sub init_data
foreach my $entry (@entries)
{
$data = ref $entry eq 'ARRAY'?$entry:[$ldap?ecos::LdapBase ->
splitAttrValue($entry):$entry];
- shift @$data while ($coloffset-- > 0) ;
+ my $co = $coloffset ;
+ shift @$data while ($co-- > 0) ;
$j = 0 ;
foreach my $field ((@$fields, ($line2?($line2):())))
{
Modified: perl/embperl/trunk/Embperl/Form/ControlMultValue.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/ControlMultValue.pm?rev=1297111&r1=1297110&r2=1297111&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/ControlMultValue.pm (original)
+++ perl/embperl/trunk/Embperl/Form/ControlMultValue.pm Mon Mar 5 16:07:48 2012
@@ -208,7 +208,7 @@ sub get_option_from_value
return $option if (defined ($option)) ;
}
- else
+ elsif (ref $self -> {values})
{
my $i = 0 ;
foreach (@{$self -> {values}})
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
