X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/1835a0d73447dd86ffd932c03806b9bb131359d6..dcc8a72751585d4359ea945151fbd97f1288a41e:/dieren.plp
diff --git a/dieren.plp b/dieren.plp
index 2626cbe..6ab5117 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -7,7 +7,8 @@ my %subpages = (
standaard => {
title => 'dieren',
intro => $intro,
- altlink => 'Zie ook verdergezochte verbanden.',
+ altlink => 'Zie ook verdergezochte verbanden' .
+ ' of het beknopte overzicht.',
},
uitgebreid => {
title => 'uitgebreid dieren',
@@ -16,6 +17,11 @@ my %subpages = (
prefix => '#',
secrets => 1,
},
+ beknopt => {
+ title => 'beknopt dieren',
+ intro => "een aantal $intro",
+ altlink => 'Zie het populaire overzicht 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);