git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
keyboard/altgr: image alt descriptions
[sheet.git]
/
keyboard
/
altgr
/
index.inc.plp
diff --git
a/keyboard/altgr/index.inc.plp
b/keyboard/altgr/index.inc.plp
index 36b50c3955286e088216f3ff09580f61dad2b0cb..75c2cc382bced54cd0f6ea4061863ae65673099e 100644
(file)
--- 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) }) {
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;
$inc = $table->{title};
}
printf '<figcaption>%s</figcaption>', $inc;