dieren: fill remaining placeholders for paard and hond

Replace adjective forms by distinct entities, but also an obscure easter egg
over non-animal turnpaard.

diff --git a/dieren.plp b/dieren.plp
index 50f9981ec32a163a428a75ff607f555502ef13cd..477f3ac191c924f9841712be84aeb690dd3ded8e 100644 (file)
--- a/dieren.plp
+++ b/dieren.plp
@@ -92,7 +92,7 @@ say $pageinfo->{altlink};
 <:
 my @table = qw(
         >:        origineel: zee-:        meer_water:    land/aardig: anders:      #:
-        >hond:    hond       zeehond      waterhond??    prairiehond  vleerhond    #rodehond
+        >hond:    hond       zeehond      scheepshond?   prairiehond  vleerhond    #rodehond
         >kat:     kat        zeekat       meerkat        cat_325?    vliegende_kat #tijgerkat
        #>haas:    haas       zeehaas      waterhaas      koolhaas?    ossenhaas?   #buidelhaas
         >muis:    muis       zeemuis      waterspitsmuis aardmuis     vleermuis    #computermuis
@@ -101,7 +101,7 @@ my @table = qw(
         >varken:  varken     zeevarken=bruinvis
                                waterzwijn=capibara       aardvarken   stekelvarken #feestvarken?
         >koe:     koe        zeekoe       meerkoetje     aardekoe??   koedoe       #haiku?
-        >paard:   paard      zeepaardje   nijlpaard      aardpaard??  luipaard     #tijgerpaard
+        >paard:   paard      zeepaardje   nijlpaard      (turn)paard? luipaard     #tijgerpaard
        #>hoorn:   eenhoorn   zeehoorn     zee-eenhoorn?=narwal
                                                     bergahorn=esdoorn neushoorn    #eekhoorn
        #>bra:   bra(ssière)? zebra        -              -            cobra        #sabra
@@ -117,6 +117,7 @@ my @table = qw(
        #>mot:     mot        marmot       watermot       bergamot     -            #
        #>bij:     bij        -            waterbij       aardbei      moerbei      hommelbij
 );
+$table[4 + 9*7] = 'grasmodderpaard?=草泥马' if $Request eq 'standaard'; # replace turnpaard
 
 @table = qw(
        >hond    zeehond    prairiehond
@@ -161,7 +162,7 @@ while (my $name = shift @table) {
                print "<tr>";
        }
        $name =~ s/^-$//;
-       my ($img) = $name =~ /^([\w-]+)/;
+       my ($img) = $name =~ /([\w-]+)/;
        $name =~ y/_/ /;
        if ($name =~ s/:$//) {
                # trailing colon indicates header text