add mandatory "alt" tags to imgs

diff --git a/mkgallery.pl b/mkgallery.pl
index a486e1b29dd8af353a54cf6563e4d9291298b72a..b5a82c8d1871ecc602f517eeeb9432df7ea67860 100755 (executable)
--- a/mkgallery.pl
+++ b/mkgallery.pl
@@ -509,7 +509,8 @@ sub makeaux {
                                end_Tr,
                                end_table,"\n",
                                center(table({-class=>'picframe'},
                                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);
                }
                                end_html,"\n";
                        close($F);
                }


@@ -536,7 +537,8 @@ sub makeaux {
                        start_center,"\n",
                        h1($title),"\n",
                        table({-class=>'ipage'},
                        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",
                                        td($self->infotable))),
                        a({-href=>'../index.html',-class=>'conceal'},
                                'Index'),"\n",


@@ -676,7 +678,7 @@ sub img_entry {
                                -title=>$title,
                                -class=>'showImage',
                                -id=>$name},
                                -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'};
                start_div({-class=>'varimages',-id=>$name,-title=>$title}),"\n";
        foreach my $sz(@sizes) {
                my $src=$self->{$sz}->{'url'};