Author: richter
Date: Thu Mar 28 09:07:59 2013
New Revision: 1461999
URL: http://svn.apache.org/r1461999
Log:
Embperl::Form: copy state memeber to filled in blank fields
Modified:
perl/embperl/trunk/Embperl/Form.pm
Modified: perl/embperl/trunk/Embperl/Form.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form.pm?rev=1461999&r1=1461998&r2=1461999&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form.pm (original)
+++ perl/embperl/trunk/Embperl/Form.pm Thu Mar 28 09:07:59 2013
@@ -429,7 +429,7 @@ sub layout
if ($x < $max_x)
{
push @$line, Embperl::Form::Control::blank -> new (
- {width_percent => int($max_x - $x), level => $level,
x_percent => int($x) }) ;
+ {width_percent => int($max_x - $x), level => $level,
x_percent => int($x), state => $control -> {state} }) ;
}
push @lines, $line ;
$line = [] ;
@@ -449,7 +449,7 @@ sub layout
if ($x < $max_x)
{
push @$line, Embperl::Form::Control::blank -> new (
- {width_percent => int($max_x - $x), level => $level,
x_percent => int($x) }) ;
+ {width_percent => int($max_x - $x), level => $level,
x_percent => int($x), state => $control -> {state} }) ;
$num++ ;
$max_num = $num if ($num > $max_num) ;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
