Author: richter
Date: Thu Aug 2 05:44:42 2012
New Revision: 1368355
URL: http://svn.apache.org/viewvc?rev=1368355&view=rev
Log:
Embperl::Form
Modified:
perl/embperl/trunk/Embperl/Form/Control/grid.pm
perl/embperl/trunk/Embperl/Form/Control/mult.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=1368355&r1=1368354&r2=1368355&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/grid.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/grid.pm Thu Aug 2 05:44:42 2012
@@ -22,6 +22,7 @@ use base 'Embperl::Form::ControlMultValu
use vars qw{%fdat $epreq} ;
use Embperl::Inline ;
+use Storable ;
# ---------------------------------------------------------------------------
#
@@ -60,8 +61,8 @@ sub init
my $fields = $self -> {fields} ;
if (@flat)
{
- my @fields = @$fields ;
- foreach (@fields)
+ my $dfields = Storable::dclone ($fields) ;
+ foreach (@$dfields)
{
my $name = $_ -> {name} ;
for (my $i = 0 ; $i < @flat; $i+=3)
@@ -69,7 +70,7 @@ sub init
$_ -> {$flat[$i+1]} = $flat[$i+2] if ($name eq $flat[$i]);
}
}
- $fields = \@fields ;
+ $fields = $dfields ;
$self -> {fields} = $fields ;
}
my $form = $self -> form ;
Modified: perl/embperl/trunk/Embperl/Form/Control/mult.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/mult.pm?rev=1368355&r1=1368354&r2=1368355&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/mult.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/mult.pm Thu Aug 2 05:44:42 2012
@@ -104,7 +104,7 @@ sub prepare_fdat
$val = $fdat->{"__${name}__$i"} ;
push @rows, $val if ($val ne '') ;
}
- $fdat->{$name} = \@rows ;
+ $fdat->{$name} = \@rows if (@rows > 1 || defined ($rows[0]) ||
$fdat->{"__${name}_max"} > 0) ;
foreach my $key (keys %$fdat)
{
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
