dieren: 3 column beknopt mode of 39 custom words

diff --git a/dieren.plp b/dieren.plp
index 2626cbe943f51a497130c4b6ca5924bb1a641422..6ab51174b3b9594a1faa37addb8c32a1222884a0 100644 (file)
--- a/dieren.plp
+++ b/dieren.plp
@@ -7,7 +7,8 @@ my %subpages = (
        standaard => {
                title => 'dieren',
                intro => $intro,
-               altlink => 'Zie ook <a href="/dieren/uitgebreid">verdergezochte verbanden</a>.',
+               altlink => 'Zie ook <a href="/dieren/uitgebreid">verdergezochte verbanden</a>' .
+                          ' of het <a href="/dieren/beknopt">beknopte overzicht</a>.',
        },
        uitgebreid => {
                title => 'uitgebreid dieren',
@@ -16,6 +17,11 @@ my %subpages = (
                prefix => '#',
                secrets => 1,
        },
+       beknopt => {
+               title => 'beknopt dieren',
+               intro => "een aantal $intro",
+               altlink => 'Zie het <a href="/dieren">populaire overzicht</a> voor meer.',
+       },
 );
 
 $Request ||= 'standaard';
@@ -92,6 +98,22 @@ my @table = qw(
        #>bij:     bij        -            waterbij       aardbei      moerbei      hommelbij
 );
 
+@table = qw(
+       >hond    zeehond    prairiehond
+       >kat     zeekat     meerkat
+       >muis    zeemuis    vleermuis
+       >egel    zee-egel   mierenegel
+       >varken  zeevarken  stekelvarken
+       >koe     zeekoe     meerkoetje
+       >paard   zeepaardje nijlpaard
+       >olifant zeeolifant olifantsvis
+       >beer    zeebeer    wasbeer
+       >leeuw   zeeleeuw   mierenleeuw
+       >wolf    zeewolf    korenwolf
+       >haan    zeehaan    sprinkhaan
+       >mot     marmot     bergamot
+) if $Request eq 'beknopt';
+
 if (exists $get{r}) {
        use List::MoreUtils qw( part );
        my @trans = (part { state $col; /^#?>/ ? ($col = 0) : ++$col } @table);