X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=blobdiff_plain;f=mkindex.pl;h=cdce0480e0b0705ae96741f4fb65a1d4e6ca24b5;hp=bbdaca21b3e9c494a7bbbb6420802b9a854c3fd2;hb=HEAD;hpb=530f2c7856392d5869694d8d334f83baa174bc69 diff --git a/mkindex.pl b/mkindex.pl index bbdaca2..cdce048 100755 --- a/mkindex.pl +++ b/mkindex.pl @@ -65,7 +65,8 @@ print h1("Gallery Index"),"\n"; print start_table({-cellspacing=>3}),"\n"; foreach my $yr(sort @years) { print start_Tr,"\n"; - print td({-bgcolor=>"#ffc0ff"},$yr); + print td({-bgcolor=>"#ffc0ff"}, + a({-href=>$yr.'/index.html'},$yr)); for (my $mo=1;$mo<=12;$mo++) { my $dir=sprintf "%04d/%02d",$yr,$mo; if (-d $dir) {