#>haas: haas zeehaas waterhaas koolhaas? ossenhaas? #buidelhaas
>muis: muis zeemuis waterspitsmuis aardmuis vleermuis #computermuis
>rat: rat zeerat waterrat woestijnrat buidelrat #beverrat
- >egel: egel zee-egel wateregel? aardegel?? mierenegel #
- >varken: varken zeevarken waterzwijn aardvarken stekelvarken #
+ >egel: egel zee-egel wateregel? aardegel??=cactus mierenegel #kegel?
+ >varken: varken zeevarken=bruinvis
+ waterzwijn=capibara aardvarken stekelvarken #feestvarken?
>koe: koe zeekoe meerkoetje aardekoe?? koedoe #haiku?
>paard: paard zeepaardje nijlpaard aardpaard?? luipaard #tijgerpaard
- #>hoorn: eenhoorn zeehoorn zee-eenhoorn? bergahorn neushoorn #eekhoorn
+ #>hoorn: eenhoorn zeehoorn zee-eenhoorn?=narwal
+ bergahorn=esdoorn neushoorn #eekhoorn
#>bra: bra(ssière)? zebra - - cobra #sabra
#>olifant: olifant zeeolifant olifantsvis kamerolifant? - #olifantsoor
>beer: beer zeebeer waterbeertje ijsbeer wasbeer #neusbeer
- >leeuw: leeuw zeeleeuw waterleeuw?? aardleeuw?? mierenleeuw #
- >wolf: wolf zeewolf waterwolf?? aardwolf korenwolf #buidelwolf
- >haan: haan zeehaan waterhaan rotshaan sprinkhaan #wilde_haan??
+ >leeuw: leeuw zeeleeuw waterleeuw?? aardleeuw??=kameleon
+ mierenleeuw #
+ >wolf: wolf zeewolf waterwolf??=snoek aardwolf korenwolf #strandwolf=bruine_hyena
+ >haan: haan zeehaan waterhaan rotshaan sprinkhaan #wilde_haan??=wildrooster
#>pad: pad zebrapad? waterpad? landpad schildpad #paddenstoel
- #>draak: draak zeedraak waterdraak - komododraak #
- #>vlo: vlo zeevlo watervlo aardvlo - #vlok?
+ #>draak: draak zeedraak waterdraak=agame - komododraak=varaan #
+ #>vlo: vlo zeevlo watervlo aardvlo vlok? #
#>mot: mot marmot watermot bergamot - #
#>bij: bij - waterbij aardbei moerbei hommelbij
);
next;
}
print '<td>';
+ my $alt = $1 if $name =~ s/=(.*)//;
my $hidden = $name =~ s/\?$//;
- my $alt = $name;
$name = "<q>$name</q>" if $name =~ s/\?$//;
+ $name .= " <small>($alt)</small>" if $alt;
printf '<figure%s>', $hidden && !$pageinfo->{secrets} && ' hidden';
if ($img and -e ($img = "data/dieren/$img.jpg")) {
- my $alt = -l $img && readlink($img) =~ s/\.jpg$//r;
- if ($alt) {
- $name .= " <small>($alt)</small>";
- }
- else {
- $alt = $name;
- }
printf '<img src="/%s"', $img;
- printf ' alt="%s"', $alt;
+ printf ' alt="%s"', $alt || $name;
print ' />';
print "<figcaption>$name</figcaption>";
}