dieren: what does the fox say?

diff --git a/dieren.inc.pl b/dieren.inc.pl
index ab3d781f7952bf89163fdd87766931525655eeb5..169fb81cf23715d0b2d5b37704ad86d4bfd0ab5d 100644 (file)
--- 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 03d0dc91e670121a189677f618f04ee235317f0a..8e660081aaa9d93fcebf776ea4dd347f6201bc51 100644 (file)
--- 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 ' />';