X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/a6462b5d3af5799f73f6475cbe551b35b84c44b2..14080bda5528468fe4dbc5ae3b1a3c62c47a5806:/keyboard/altgr/index.inc.plp

diff --git a/keyboard/altgr/index.inc.plp b/keyboard/altgr/index.inc.plp
index 36b50c3..75c2cc3 100644
--- a/keyboard/altgr/index.inc.plp
+++ b/keyboard/altgr/index.inc.plp
@@ -39,7 +39,10 @@ for my $inc (@incs) {
 	print '<figure>';
 	printf '<a href="/%s">', $inc =~ s/\.eng$//r;
 	if (my $table = eval { Data($inc) }) {
-		printf '<img src="/%s" />', $_ for $table->{image} || ();
+		if (my $img = $table->{image}) {
+			EscapeHTML $name = $table->{imagealt} // $img =~ m{.*/([^/.]*)};
+			print qq{<img src="/$img" alt="$name" />};
+		}
 		$inc = $table->{title};
 	}
 	printf '<figcaption>%s</figcaption>', $inc;