subdir list in table
authorEugene Crosser <crosser@average.org>
Mon, 27 Feb 2006 09:15:39 +0000 (09:15 +0000)
committerEugene Crosser <crosser@average.org>
Mon, 27 Feb 2006 09:15:39 +0000 (09:15 +0000)
mkindex.pl

index 99a90610b55cd2b2113aa6fdd67ca317be24c6b5..cc4e66f206ff244df4ca89c1286a964fbc0e8b43 100755 (executable)
@@ -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";