[css2] Fixed bug causing missing lower case a

ianbjacobs · ianbjacobs · commit 882c865167ab · 1998-02-18T16:29:57.000Z
--HG--
extra : convert_revision : svn%3A73dc7c4b-06e6-40f3-b4f7-9ed1dbc14bfc/trunk%40972
diff --git a/css2/bin/Attic/mkidx b/css2/bin/Attic/mkidx
@@ -62,7 +62,7 @@ foreach $e (@sorted) {
 		print OUTPUT "\n</ul>";
 	    }
 	    print OUTPUT "\n<p>";
-	    foreach (chr(ord($prevletter)+1) .. $letter) {
+	    foreach (lc(chr(ord($prevletter)+1)) .. $letter) {
 		print OUTPUT "<a name=\"index-$_\">&nbsp;</a>";
 	    }
 	    print OUTPUT "\n<ul class=\"index\">";
diff --git a/css2/bin/mkidx b/css2/bin/mkidx
@@ -62,7 +62,7 @@ foreach $e (@sorted) {
 		print OUTPUT "\n</ul>";
 	    }
 	    print OUTPUT "\n<p>";
-	    foreach (chr(ord($prevletter)+1) .. $letter) {
+	    foreach (lc(chr(ord($prevletter)+1)) .. $letter) {
 		print OUTPUT "<a name=\"index-$_\">&nbsp;</a>";
 	    $lvl++;
 	}

Original file line number	Diff line number	Diff line change
`@@ -62,7 +62,7 @@ foreach $e (@sorted) {`
`62`	`62`	`print OUTPUT "\n</ul>";`
`63`	`63`	`}`
`64`	`64`	`print OUTPUT "\n<p>";`
`65`		`- foreach (chr(ord($prevletter)+1) .. $letter) {`
	`65`	`+ foreach (lc(chr(ord($prevletter)+1)) .. $letter) {`
`66`	`66`	`print OUTPUT "<a name=\"index-$_\"> </a>";`
`67`	`67`	`}`
`68`	`68`	`print OUTPUT "\n<ul class=\"index\">";`