Sorting resullts

This commit is contained in:
hdl 2005-05-02 15:59:49 +00:00
parent 43b137f10e
commit 4f01d33ff6

View file

@ -103,7 +103,7 @@ if ($op eq "do_search") {
$seen{$item->{$display}}++;
}
my @catresults;
foreach my $name (keys %seen){
foreach my $name (sort keys %seen){
push @catresults, { value => $name , count => $seen{$name}}
}