From: Eugene Crosser <crosser@average.org>
Date: Mon, 27 Feb 2006 09:15:39 +0000 (+0000)
Subject: subdir list in table
X-Git-Tag: 0.1~9
X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=commitdiff_plain;h=3074df385d97b2a96604796e5bc06d5e91929911

subdir list in table
---

diff --git a/mkindex.pl b/mkindex.pl
index 99a9061..cc4e66f 100755
--- 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";