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',
prefix => '#',
secrets => 1,
},
+ beknopt => {
+ title => 'beknopt dieren',
+ intro => "een aantal $intro",
+ altlink => 'Zie het <a href="/dieren">populaire overzicht</a> voor meer.',
+ },
);
$Request ||= 'standaard';
#>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);