From d554ba953e645559ddd2a01b322b24d22453923c Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 29 Feb 2024 19:43:22 +0100
Subject: [PATCH] dieren: what does the fox say?

---
 dieren.inc.pl | 1 +
 dieren.plp    | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/dieren.inc.pl b/dieren.inc.pl
index ab3d781..169fb81 100644
--- a/dieren.inc.pl
+++ b/dieren.inc.pl
@@ -19,6 +19,7 @@ use utf8;
 #olifant:	+olifant	+zeeolifant	+olifantsvis	?kamerolifant	 -	#olifantsoor
  beer:	+beer	+zeebeer	 waterbeertje	 ijsbeer	+wasbeer	#neusbeer
  leeuw:	+leeuw	+zeeleeuw	?waterleeuw?	?aardleeuw?=kameleon	+mierenleeuw	#leeuwerik
+#vos:	vos	+zeevos=voshaai	-	koolvos	voskonijn	#Zorro
  wolf:	+wolf	+zeewolf	?waterwolf?=snoek	 aardwolf	+korenwolf	#bijenwolf
  haan:	+haan	+zeehaan	 waterhaan	 rotshaan	+sprinkhaan	#wilde_haan?=wildrooster
 #pad:	 pad	?zebrapad	rivierdonderpad	 landpad	 schildpad	#paddenstoel
diff --git a/dieren.plp b/dieren.plp
index 03d0dc9..8e66008 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -34,7 +34,7 @@ my $pageinfo = $subpages{$Request}
 
 Html({
 	title => $pageinfo->{title}.' cheat sheet',
-	version => '1.1',
+	version => '1.2',
 	lang => 'nl',
 	description => "Tabeloverzicht met afbeeldingen van $pageinfo->{intro}",
 	keywords => [qw'
@@ -126,7 +126,7 @@ for my $row (@{$table}) {
 		$name .= " <small>($alt)</small>" if $alt;
 
 		printf '<figure%s>', $hidden && !$pageinfo->{secrets} && ' hidden';
-		if ($img and -e ($img = "data/dieren/$img.jpg")) {
+		if ($img and -e ($img = lc "data/dieren/$img.jpg")) {
 			printf '<img src="/%s"', $img;
 			printf ' alt="%s"', $alt || $name;
 			print ' />';
-- 
2.30.0