--- title.cgi	2001/04/25 06:23:36	1.1
+++ title.cgi	2001/04/25 06:31:05
@@ -194,8 +194,12 @@
     @SELECTED_CAT = keys %CAT;
   } 
   if (defined(@SELECTED_CAT)) {
-    foreach $cat (@SELECTED_CAT) {
-      print "<h3>";
+      my $i = 1;
+    foreach $cat ( 
+     sort {  $aa = $a ; $bb = $b ;
+             $aa =~ y/A-Z/a-z/; $bb =~ y/A-Z/a-z/; $aa cmp $bb } 
+                                               @SELECTED_CAT) {
+      print "<h3>(",$i++,") ";
 
       $enc_cat = $cat;
       $enc_cat =~ s/([^a-zA-Z0-9~\-\_\.\/\:\%])/