Secondary order by module name

This commit is contained in:
Jamie Cameron
2009-06-09 01:00:11 +00:00
parent ce39d419a7
commit eee618ca4e

View File

@@ -181,7 +181,8 @@ print &text('wsearch_found', scalar(@rv)),"<p>\n";
# Sort results by relevancy
# XXX can do better?
@rv = sort { $b->{'rank'} <=> $a->{'rank'} } @rv;
@rv = sort { $b->{'rank'} <=> $a->{'rank'} ||
lc($a->{'mod'}->{'desc'}) cmp lc($b->{'mod'}->{'desc'}) } @rv;
# Show in table
if (@rv) {