Author: richter
Date: Thu Mar 10 14:56:25 2011
New Revision: 1080241
URL: http://svn.apache.org/viewvc?rev=1080241&view=rev
Log:
Changes for jQuery
Modified:
perl/embperl/trunk/Embperl/Form/Control/grid.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=1080241&r1=1080240&r2=1080241&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/grid.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/grid.pm Thu Mar 10 14:56:25 2011
@@ -75,19 +75,19 @@ sub init_data
my @entries = ref $fdat{$name} eq
'ARRAY'?@{$fdat{$name}}:split("\t",$fdat{$name});
my $fields = $self -> {fields} ;
- my @data;
+ my $data;
my $i = 0 ;
my $j ;
my $col ;
foreach my $entry (@entries)
{
- @data = ecos::LdapBase -> splitAttrValue($entry);
- my $rowno = shift @data ;
+ $data = ref $entry eq 'ARRAY'?$entry:[ecos::LdapBase ->
splitAttrValue($entry)];
+ my $rowno = shift @$data ;
$j = 0 ;
foreach my $field (@$fields)
{
$col = exists $field -> {col}?$field -> {col}:$j ;
- $fdat{"$name-$field->{name}-$i"} = $data[$col] ;
+ $fdat{"$name-$field->{name}-$i"} = $data->[$col] ;
if ($field -> can ('init_data'))
{
local $field->{name} = "$name-$field->{name}-$i" ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
