Mailing List Archive

Author: richter
Date: Tue Feb 26 07:44:03 2013
New Revision: 1450057

URL: http://svn.apache.org/r1450057
Log:
Grid: default value for maxrows

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=1450057&r1=1450056&r2=1450057&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/grid.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/grid.pm Tue Feb 26 07:44:03 2013
@@ -282,7 +282,7 @@ __EMBPERL__
[.$ sub show_control_readonly ($self, $req)

my $name = $self -> {name} ;
- my $max = $fdat{"__${name}_max"} ;
+ my $max = $fdat{"__${name}_max"} ||= 0 ;

my $flat = $self -> {flat} ;
my @flat = split /\s*;\s*/, $flat ;
@@ -335,7 +335,7 @@ __EMBPERL__
my $name = $self -> {name} ;
my $span = ($self->{width_percent}) ;
my $nsprefix = $self -> form -> {jsnamespace} ;
- my $max = $fdat{"__${name}_max"} ;
+ my $max = $fdat{"__${name}_max"} ||= 1 ;
$self -> {fullid} = $req -> {uuid} . '_' . $self -> {id} ;
$]<table class="ef-element ef-element-width-[+ $self -> {width_percent} +][+ ' ' +][+ $self -> {state} +]" _ef_attach="ef_grid">
<tr>



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org