Mailing List Archive

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