X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/6311c65d7397e07947d6cf38df772545a3fa296d..701d8b4edb385c8a122a88ddfcfa28ffb5903962:/dieren.plp diff --git a/dieren.plp b/dieren.plp index deb2ac3..4d0ee93 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 => { @@ -83,10 +83,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 +109,7 @@ for my $row (@{$table}) { print '