Author: richter Date: Thu Jul 12 07:51:03 2012 New Revision: 1360565 URL: http://svn.apache.org/viewvc?rev=1360565&view=rev Log: Fix bug in grid line ordering
Modified: perl/embperl/trunk/Embperl/Form/Control/dynctrl.pm perl/embperl/trunk/Embperl/Form/Control/grid.pm Modified: perl/embperl/trunk/Embperl/Form/Control/dynctrl.pm URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/dynctrl.pm?rev=1360565&r1=1360564&r2=1360565&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/Control/dynctrl.pm (original) +++ perl/embperl/trunk/Embperl/Form/Control/dynctrl.pm Thu Jul 12 07:51:03 2012 @@ -32,7 +32,7 @@ sub create_ctrl my $fdat = ($req -> {form} && keys (%{$req -> {form}}) > 0)?$req -> {form}:\%Embperl::fdat ; my $id = $self -> {id} . $self -> {name} ; -::dbg('create_control id = ', $id, ' name = ', $self -> {name}, ' value = ', $fdat -> {$self -> {name}}, $req -> {form}, \%Embperl::fdat, $fdat) ; + #::dbg('create_control id = ', $id, ' name = ', $self -> {name}, ' value = ', $fdat -> {$self -> {name}}, $req -> {form}, \%Embperl::fdat, $fdat) ; return $req -> {"dynctrl_$id"} if ($req -> {"dynctrl_$id"}) ; my $ctrl ; Modified: perl/embperl/trunk/Embperl/Form/Control/grid.pm URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/grid.pm?rev=1360565&r1=1360564&r2=1360565&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/Control/grid.pm (original) +++ perl/embperl/trunk/Embperl/Form/Control/grid.pm Thu Jul 12 07:51:03 2012 @@ -103,7 +103,7 @@ sub init_data @entries = sort { $a -> [$order] cmp $b -> [$order] } @entries ; } } - + my $coloffset = defined ($self -> {coloffset})?$self -> {coloffset}:1 ; my $data; my $i = 0 ; @@ -212,7 +212,7 @@ sub prepare_fdat $self -> prepare_fdat_sub ($req) if ((ref ($self) =~ /::/)); my $coloffset = defined ($self -> {coloffset})?$self -> {coloffset}:1 ; - foreach my $order (sort keys %orders) + foreach my $order (sort { $a <=> $b } keys %orders) { $i = $orders{$order} ; $j = 0 ; --------------------------------------------------------------------- To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org