[project @ 2003-06-20 17:27:02 by cjwatson]

Lowercase all package names for indexing.

diff --git a/cgi/common.pl b/cgi/common.pl
index 04e77b82b855e0cf778cc6b7eecc08b654d9da40..e42f6e01686528fea8e7634dd5490cb0a486a99a 100644 (file)
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -129,7 +129,7 @@ sub quitcgi {
 sub splitpackages {
     my $pkgs = shift;
     return unless defined $pkgs;
-    return split /[ \t?,()]+/, $pkgs;
+    return map lc, split /[ \t?,()]+/, $pkgs;
 }
 
 # Generate a comma-separated list of HTML links to each package given in