subdir list in table

diff --git a/mkindex.pl b/mkindex.pl
index 99a90610b55cd2b2113aa6fdd67ca317be24c6b5..cc4e66f206ff244df4ca89c1286a964fbc0e8b43 100755 (executable)
--- a/mkindex.pl
+++ b/mkindex.pl
@@ -54,9 +54,11 @@ foreach my $yr(sort @years) {
 }
 print end_table,p,"\n";
 
+print start_table({-cellspacing=>3}),"\n";
 foreach my $sub(sort @subdirs) {
-       print td(a({-href=>$sub.'/'},$sub));
+       print Tr(td({-bgcolor=>"#ffffc0"},a({-href=>$sub.'/'},$sub)));
 }
+print end_table,"\n";
 
 print end_center,"\n";
 print end_html,"\n";