[project @ 2004-04-19 10:03:53 by cjwatson]

Fix db2html package page ordering.

diff --git a/debian/changelog b/debian/changelog
index 1c2e8afb066ac46eb6f52f47bd49036256118773..217ec85921d3e8cbced798ab44928bf5eea4a530 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -19,6 +19,7 @@ debbugs (2.4.2) UNRELEASED; urgency=low
       directory (closes: #222118).
     - New standalone SpamAssassin queue runner, spamscan.
     - Allow # prefix on bug numbers in 'merge' command.
+    - Fix some ordering issues in old-style package pages and summaries.
 
   * Adam Heath:
     - Rewrite filtering in cgi's common.pl, to make it completely generic.

diff --git a/scripts/db2html.in b/scripts/db2html.in
index c0f20d87d7a641ec5a25fd65d4d776327d18a9ec..b45d2b95ac0e24a33bf35e61c1135d73897f1d23 100755 (executable)
--- a/scripts/db2html.in
+++ b/scripts/db2html.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: db2html.in,v 1.21 2003/08/30 00:15:15 cjwatson Exp $
+# $Id: db2html.in,v 1.22 2004/04/19 10:03:53 cjwatson Exp $
 # usage: db2html [-diff] [-stampfile=<stampfile>] [-lastrun=<days>] <wwwbase>
 
 #load the necessary libraries/configuration
@@ -87,13 +87,14 @@ close(MM);
 
 #load all database files
 opendir(D,'db-h') || &quit("opendir db-h: $!");
-@dirs = sort { $a <=> $b } grep(s#^#db-h/#,grep(/^\d+$/,readdir(D)));
+@dirs = grep(s#^#db-h/#,grep(/^\d+$/,readdir(D)));
 closedir(D);
 foreach my $dir (@dirs) {
     opendir(D,$dir);
-    push @files, sort { $a <=> $b } grep(/^-?\d+\.log$/,readdir(D));
+    push @files, grep(/^-?\d+\.log$/,readdir(D));
     closedir(D);
 }
+@files = sort { $a <=> $b } @files;
 
 for $pending (qw(pending done forwarded)) 
 {      for $severity (@showseverities)