add mandatory "alt" tags to imgs
authorEugene Crosser <crosser@average.org>
Mon, 1 Sep 2008 20:27:11 +0000 (20:27 +0000)
committerEugene Crosser <crosser@average.org>
Mon, 1 Sep 2008 20:27:11 +0000 (20:27 +0000)
mkgallery.pl

index a486e1b29dd8af353a54cf6563e4d9291298b72a..b5a82c8d1871ecc602f517eeeb9432df7ea67860 100755 (executable)
@@ -509,7 +509,8 @@ sub makeaux {
                                end_Tr,
                                end_table,"\n",
                                center(table({-class=>'picframe'},
-                                       Tr(td(img({-src=>$imgsrc}))))),"\n",
+                                       Tr(td(img({-src=>$imgsrc,
+                                                  -alt=>$title}))))),"\n",
                                end_html,"\n";
                        close($F);
                }
@@ -536,7 +537,8 @@ sub makeaux {
                        start_center,"\n",
                        h1($title),"\n",
                        table({-class=>'ipage'},
-                               Tr(td(img({-src=>$imgsrc})),
+                               Tr(td(img({-src=>$imgsrc,
+                                          -alt=>$title})),
                                        td($self->infotable))),
                        a({-href=>'../index.html',-class=>'conceal'},
                                'Index'),"\n",
@@ -676,7 +678,7 @@ sub img_entry {
                                -title=>$title,
                                -class=>'showImage',
                                -id=>$name},
-                               img({-src=>$thumb})),"\n"),"\n",
+                               img({-src=>$thumb,-alt=>$title})),"\n"),"\n",
                start_div({-class=>'varimages',-id=>$name,-title=>$title}),"\n";
        foreach my $sz(@sizes) {
                my $src=$self->{$sz}->{'url'};