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-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org