From 76d48c06a42b2107f0f396b806599d184ae4682a Mon Sep 17 00:00:00 2001
From: Eugene Crosser <crosser@average.org>
Date: Mon, 1 Sep 2008 20:27:11 +0000
Subject: [PATCH] add mandatory "alt" tags to imgs

---
 mkgallery.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/mkgallery.pl b/mkgallery.pl
index a486e1b..b5a82c8 100755
--- a/mkgallery.pl
+++ b/mkgallery.pl
@@ -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'};
-- 
2.39.2