os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Don't sort last-modified data numerically

Browse source 
I hate perl.
This commit is contained in:
Poul-Henning Kamp 1998-05-23 09:22:32 +00:00
parent 656996f6b4
commit a7e9d69764
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=2836
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
data/cgi/query-pr-summary.cgi
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $Id: query-pr-summary.cgi,v 1.15 1998-05-23 09:05:39 phk Exp $
# $Id: query-pr-summary.cgi,v 1.16 1998-05-23 09:22:32 phk Exp $
$html_mode = 1 if $ENV{'DOCUMENT_ROOT'};
$self_ref = $ENV{'SCRIPT_NAME'};
@ -201,7 +201,7 @@ foreach ("category", "originator", "priority", "class", "responsible",
&read_gnats($query_args);
if ($input{'sort'} eq 'lastmod') {
@prs = sort {$lastmod{$b} <=> $lastmod{$a}} @prs;
@prs = sort {$lastmod{$b} cmp $lastmod{$a}} @prs;
} elsif ($input{'sort'} eq 'category') {
@prs = sort {($ca,$na)=split(m|/|,$a); ($cb,$nb)=split(m|/|,$b); $ca eq $cb ? $na <=> $nb : $ca cmp $cb} @prs;
} elsif ($input{'sort'} eq 'responsible') {

4
en/cgi/query-pr-summary.cgi
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $Id: query-pr-summary.cgi,v 1.15 1998-05-23 09:05:39 phk Exp $
# $Id: query-pr-summary.cgi,v 1.16 1998-05-23 09:22:32 phk Exp $
$html_mode = 1 if $ENV{'DOCUMENT_ROOT'};
$self_ref = $ENV{'SCRIPT_NAME'};
@ -201,7 +201,7 @@ foreach ("category", "originator", "priority", "class", "responsible",
&read_gnats($query_args);
if ($input{'sort'} eq 'lastmod') {
@prs = sort {$lastmod{$b} <=> $lastmod{$a}} @prs;
@prs = sort {$lastmod{$b} cmp $lastmod{$a}} @prs;
} elsif ($input{'sort'} eq 'category') {
@prs = sort {($ca,$na)=split(m|/|,$a); ($cb,$nb)=split(m|/|,$b); $ca eq $cb ? $na <=> $nb : $ca cmp $cb} @prs;
} elsif ($input{'sort'} eq 'responsible') {