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
