X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/478368d15928cd6cac1bebcc8ae73cd1d247cabd..2d689f2ba483997f2fad02fddf99b701f88b9f9a:/dieren.plp diff --git a/dieren.plp b/dieren.plp index 477f3ac..4332d56 100644 --- a/dieren.plp +++ b/dieren.plp @@ -39,30 +39,21 @@ Html({ '], raw => <<'EOT', EOT @@ -108,16 +96,20 @@ my @table = qw( #>olifant: olifant zeeolifant olifantsvis kamerolifant? - #olifantsoor >beer: beer zeebeer waterbeertje ijsbeer wasbeer #neusbeer >leeuw: leeuw zeeleeuw waterleeuw?? aardleeuw??=kameleon - mierenleeuw # + mierenleeuw #leeuwerik >wolf: wolf zeewolf waterwolf??=snoek aardwolf korenwolf #strandwolf=bruine_hyena >haan: haan zeehaan waterhaan rotshaan sprinkhaan #wilde_haan??=wildrooster #>pad: pad zebrapad? waterpad? landpad schildpad #paddenstoel - #>draak: draak zeedraak waterdraak=agame - komododraak=varaan # - #>vlo: vlo zeevlo watervlo aardvlo vlok? # - #>mot: mot marmot watermot bergamot - # + >draak: draak zeedraak waterdraak=agame aarddraak?=戊辰 + komododraak=varaan #drakenkop + #>vlo: vlo zeevlo watervlo aardvlo - vlok? + #>mot: mot marmot watermot bergamot behemoth? # #>bij: bij - waterbij aardbei moerbei hommelbij ); -$table[4 + 9*7] = 'grasmodderpaard?=草泥马' if $Request eq 'standaard'; # replace turnpaard +if ($Request eq 'standaard') { + $table[4 + 9*7] = 'grasmodderpaard?=草泥马'; # replace turnpaard + $table[1 + 18*7] = 'draak_'; # irl animal +} @table = qw( >hond zeehond prairiehond @@ -148,7 +140,7 @@ if (exists $get{r}) { } } -say ''; +say '
'; while (my $name = shift @table) { if ($name =~ s/^#// and !$pageinfo->{prefix}) { while ($name = shift @table) {