git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1835a0d
)
dieren: 3 column beknopt mode of 39 custom words
author
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 16 Oct 2021 16:07:05 +0000
(18:07 +0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 25 Oct 2021 14:33:21 +0000
(16:33 +0200)
dieren.plp
patch
|
blob
|
history
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,
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',
},
uitgebreid => {
title => 'uitgebreid dieren',
@@
-16,6
+17,11
@@
my %subpages = (
prefix => '#',
secrets => 1,
},
prefix => '#',
secrets => 1,
},
+ beknopt => {
+ title => 'beknopt dieren',
+ intro => "een aantal $intro",
+ altlink => 'Zie het <a href="/dieren">populaire overzicht</a> voor meer.',
+ },
);
$Request ||= 'standaard';
);
$Request ||= 'standaard';
@@
-92,6
+98,22
@@
my @table = qw(
#>bij: bij - waterbij aardbei moerbei hommelbij
);
#>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);
if (exists $get{r}) {
use List::MoreUtils qw( part );
my @trans = (part { state $col; /^#?>/ ? ($col = 0) : ++$col } @table);