dieren: empty cells to fill missing columns

diff --git a/dieren.plp b/dieren.plp
index 4852f9c4638a1f7d8f897b984267b7263d702910..5370377378e92ce55ad520ba72d36a7c51b7d0ab 100644 (file)
--- a/dieren.plp
+++ b/dieren.plp
@@ -41,28 +41,28 @@ EOT
 
 <:
 my @table = qw(
-       >:         origineel: zee-:        meer_water:  aardig:      anders:
-       >hond:     hond       zeehond      waterhond?   aardhond?    vleerhond #rodehond
-       >kat:      kat        zeekat       meerkat      caterpillar? tijgerkat
-       #>haas:    haas       zeehaas      waterhaas    aardhaas?    ossenhaas?
-       >muis:     muis       zeemuis    waterspitsmuis aardmuis     vleermuis
-       >rat:      rat        zeerat       waterrat     woestijnrat  buidelrat #beverrat
-       >egel:     egel       zee-egel     wateregel?   aardegel?    mierenegel
-       >varken:   varken     zeevarken    waterzwijn   aardvarken   stekelvarken
-       >koe:      koe        zeekoe       meerkoetje   aardkoe?     koedoe    #haiku?
-       >paard:    paard      zeepaardje   nijlpaard    aardpaard?   luipaard
-       #>hoorn:   eenhoorn   zeehoorn    zee-eenhoorn? aardhoorn?   neushoorn eekhoorn
-       #>bra:     brassiere? zebra        waterbra?    aardbra?     cobra
-       #>olifant: olifant    zeeolifant  waterolifant? landolifant? ?
-       >beer:     beer       zeebeer      waterbeertje ijsbeer      wasbeer   #neusbeer
-       >leeuw:    leeuw      zeeleeuw     waterleeuw?  aardleeuw?   mierenleeuw
-       #>wolf:    wolf       zeewolf      waterwolf?   aardwolf     buidelwolf
-       >haan:     haan       zeehaan      waterhaan    rotshaan     sprinkhaan
-       #>pad:     pad        zeepad?      waterpad?    landpad      schildpad
-       #>draak:   draak      zeedraak     waterdraak   aarddraak?   komododraak
-       #>vlo:     vlo        strandvlo    watervlo     aardvlo      ?
-       #>mot:     mot        zeemot?      watermot     aardmot?     marmot
-       #>bij:     bij        zeebij?      waterbij     aardbij      ?
+       >:         origineel: zee-:        meer_water:    aardig:      anders:      #:
+       >hond:     hond       zeehond      waterhond?     aardhond?    vleerhond    #rodehond
+       >kat:      kat        zeekat       meerkat        caterpillar? tijgerkat    #
+       #>haas:    haas       zeehaas      waterhaas      aardhaas?    ossenhaas?   #
+       >muis:     muis       zeemuis      waterspitsmuis aardmuis     vleermuis    #
+       >rat:      rat        zeerat       waterrat       woestijnrat  buidelrat    #beverrat
+       >egel:     egel       zee-egel     wateregel?     aardegel?    mierenegel   #
+       >varken:   varken     zeevarken    waterzwijn     aardvarken   stekelvarken #
+       >koe:      koe        zeekoe       meerkoetje     aardkoe?     koedoe       #haiku?
+       >paard:    paard      zeepaardje   nijlpaard      aardpaard?   luipaard     #
+       #>hoorn:   eenhoorn   zeehoorn     zee-eenhoorn?  aardhoorn?   neushoorn    #eekhoorn
+       #>bra:     brassiere? zebra        waterbra?      aardbra?     cobra        #
+       #>olifant: olifant    zeeolifant   waterolifant?  landolifant? #            #
+       >beer:     beer       zeebeer      waterbeertje   ijsbeer      wasbeer      #neusbeer
+       >leeuw:    leeuw      zeeleeuw     waterleeuw?    aardleeuw?   mierenleeuw  #
+       #>wolf:    wolf       zeewolf      waterwolf?     aardwolf     buidelwolf   #
+       >haan:     haan       zeehaan      waterhaan      rotshaan     sprinkhaan   #
+       #>pad:     pad        zeepad?      waterpad?      landpad      schildpad    #
+       #>draak:   draak      zeedraak     waterdraak     aarddraak?   komododraak  #
+       #>vlo:     vlo        strandvlo    watervlo       aardvlo      #            #
+       #>mot:     mot        zeemot?      watermot       aardmot?     marmot       #
+       #>bij:     bij        zeebij?      waterbij       aardbij      #            #
 );
 
 if (exists $get{r}) {
@@ -96,9 +96,9 @@ while (my $name = shift @table) {
                print "<th>$name</th>";
                next;
        }
-       print qq{<td title="$name">};
+       printf '<td title="%s">', $name // '?';
        my $hidden = $name =~ s/\?$//;
-       if (-e (my $img = "data/dieren/$name.jpg")) {
+       if ($name and -e (my $img = "data/dieren/$name.jpg")) {
                printf '<img src="/%s"', $img;
                printf ' alt="%s"', -l $img ? readlink($img) =~ s/\.jpg$//r : $name;
                print ' hidden' if $hidden;