www: Shorten progress status index.

diff --git a/www/bin/list_progress.perl b/www/bin/list_progress.perl
index 0ea5479..632faa2 100755 (executable)
--- a/www/bin/list_progress.perl
+++ b/www/bin/list_progress.perl
@@ -55,13 +55,24 @@ my ($key, $pkg);
 print "<H2>ステータス一覧</H2>\n";
 
 print "<H3>目次</H3>\n";
-print "<UL>\n";
+#print "<UL>\n";
+#foreach $key (sort keys %tl){
+#    $pkg = $key; $pkg =~ s/ /_/eg;
+#    print "<LI><A HREF=\"#$pkg\">$key</A></LI>\n";
+#}
+#print "</UL>\n";
+$my $count = 0;
+$my $width = 10;
+print "<TABLE BORDER=0>\n";
 foreach $key (sort keys %tl){
+    print "<TR>" if $count % $width == 0;
     $pkg = $key; $pkg =~ s/ /_/eg;
-    print "<LI><A HREF=\"#$pkg\">$key</A></LI>\n";
+    print "<TD><A HREF=\"#$pkg\">$key</A></TD>\n";
+    $count++;
+    print "</TR>" if $count % $width == 0;
 }
-print "</UL>\n";
-
+print "</TR>" if $count % $width != 0;
+print "</TABLE>\n";
 
 foreach $key (sort keys %tl){
     $pkg = $key; $pkg =~ s/ /_/eg;