Author: richter Date: Wed Jun 12 08:32:24 2013 New Revision: 1492113 URL: http://svn.apache.org/r1492113 Log: grid sort by name
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=1492113&r1=1492112&r2=1492113&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/Control/grid.pm (original) +++ perl/embperl/trunk/Embperl/Form/Control/grid.pm Wed Jun 12 08:32:24 2013 @@ -106,9 +106,19 @@ sub init_data my $line2 = $self -> {line2} ; my $order = $self -> {order} ; my $order_desc = $self -> {order_desc} ; - + if ($order) { + if ($order !~ /^\d+$/) + { + my $i = 1 ; + foreach (@$fields) + { + $order = $i if ($_ -> {name} eq $order) ; + $i++ ; + } + } + if ($order_desc) { @entries = sort { --------------------------------------------------------------------- To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org