X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/6311c65d7397e07947d6cf38df772545a3fa296d..edc3cd87eb42cb7e5b2c7f7f2cb07a656e9ab5b6:/dieren.plp diff --git a/dieren.plp b/dieren.plp index deb2ac3..390643b 100644 --- a/dieren.plp +++ b/dieren.plp @@ -16,7 +16,7 @@ my %subpages = ( title => 'uitgebreid dieren', intro => "$intro.. en dergelijke.", altlink => 'Zie het populaire overzicht voor minder.', - prefix => qr/^[#+]*/, # optional # or + + prefix => qr/.*?[#]|^[#+]*/, # after optional # or + secrets => 1, }, beknopt => { @@ -34,7 +34,8 @@ my $pageinfo = $subpages{$Request} Html({ title => $pageinfo->{title}.' cheat sheet', - version => '1.0', + version => '1.1', + lang => 'nl', description => "Tabeloverzicht met afbeeldingen van $pageinfo->{intro}", keywords => [qw' dier beest naam naamgeving woord taal nederlands gerelateerd @@ -72,7 +73,7 @@ EOT }); :> -
<: @@ -83,10 +84,6 @@ say $pageinfo->{altlink}; <: my $table = readdata('dieren'); -if ($Request eq 'standaard') { - $table->[ 9][4] = '?grasmodderpaard=è泥马'; # replace turnpaard - $table->[18][1] = 'draak_'; # irl animal -} if (exists $get{r}) { use List::MoreUtils qw( part ); @@ -113,6 +110,7 @@ for my $row (@{$table}) { print '