attempt to support utf8 better
[mkgallery.git] / mkindex.pl
index bbdaca21b3e9c494a7bbbb6420802b9a854c3fd2..cdce0480e0b0705ae96741f4fb65a1d4e6ca24b5 100755 (executable)
@@ -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 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) {
        for (my $mo=1;$mo<=12;$mo++) {
                my $dir=sprintf "%04d/%02d",$yr,$mo;
                if (-d $dir) {