Sorting by column on webpage

[yesti]

I have very little experience with perl. I have a plx/tmpl page that displays a data table based on a @records array. I am able to sort the array by a subkey.

I want to create links out of the column headers then change the sort order based on what the user clicks (ascending/descending). The links change the 'sort' querystring value. I am able to get the querystring with:

my $sortvar = param('sort');
 

I coded the tmpl file to change the link when the user clicks it, that part works fine.
I tried this in my plx page but it does not do anything:

if ($sortvar == '1')
{
my @records = map  { $_->[0] }
             sort { $b->[1] cmp $a->[1] }  
             map  {(my $date = $_->{COMPDATE}) =~ s/<font color="#FF0000">//;
                   my ($d,$m,$y) = split(/\s+/,$date);
                   $d = $d<10 ? "0$d" : $d;
                   $m = $month{lc substr $m,0,3};
                   [$_,"$y$m$d"]} @records;
}
elsif ($sortvar == '2')
{
my @records = map  { $_->[0] }
             sort { $a->[1] cmp $b->[1] }  
             map  {(my $date = $_->{COMPDATE}) =~ s/<font color="#FF0000">//;
                   my ($d,$m,$y) = split(/\s+/,$date);
                   $d = $d<10 ? "0$d" : $d;
                   $m = $month{lc substr $m,0,3};
                   [$_,"$y$m$d"]} @records;
}
 

Any ideas?

[KevinADC]

Giving up on Tek-Tips? ;)

[yesti]

Giving up on Tek-Tips? ;)

The tek-tips site was giving me errors earlier, so I had to search for a few more forums. I'm starting to really not like perl :(

[KevinADC]

The tek-tips site was giving me errors earlier, so I had to search for a few more forums. I'm starting to really not like perl :(

Yea, Tek-Tips does that more than most websites, errors that is.

Not liking perl? May a foul wind blow in your general direction! ;)

[yesti]

LOL. Well many thanks to people like you that are making the experience a little better.

I see you replied to my topic on tek-tips. Waiting for that site to respond is killing me ;-P

[KevinADC]

LOL. Well many thanks to people like you that are making the experience a little better.

I see you replied to my topic on tek-tips. Waiting for that site to respond is killing me ;-P

In case you can't open TT:

@records is scoped wrong. When you use "my", which you should, the variables is only visible to the enclosing block, in your case the if{} elsif{} blocks. Also you don't need to quote a number to match it numerically.

my @sorted;#<--scoped globally
if ($sortvar == 1)
{
@sorted = map  { $_->[0] }
             sort { $b->[1] cmp $a->[1] }  
             map  {(my $date = $_->{COMPDATE}) =~ s/<font color="#FF0000">//;
                   my ($d,$m,$y) = split(/\s+/,$date);
                   $d = $d<10 ? "0$d" : $d;
                   $m = $month{lc substr $m,0,3};
                   [$_,"$y$m$d"]} @records;
}
else {#<-- you don't really need to check the value of $sortvar here becuase if it is not 1 then this is the default sort.
@sorted = map  { $_->[0] }
             sort { $a->[1] cmp $b->[1] }  
             map  {(my $date = $_->{COMPDATE}) =~ s/<font color="#FF0000">//;
                   my ($d,$m,$y) = split(/\s+/,$date);
                   $d = $d<10 ? "0$d" : $d;
                   $m = $month{lc substr $m,0,3};
                   [$_,"$y$m$d"]} @records;
}
print "$_\n" for @sorted; 

[yesti]

TT just came up before I posted this, thanks!