dieren: generic extension syntax for secret exceptions

[sheet.git] / dieren.plp

diff --git a/dieren.plp b/dieren.plp
index deb2ac363933c5e4b780040d3c2997428a79e129..4d0ee93c83a9557522d7c3e01065846d56514c30 100644 (file)
--- a/dieren.plp
+++ b/dieren.plp
@@ -16,7 +16,7 @@ my %subpages = (
                title => 'uitgebreid dieren',
                intro => "$intro.. en dergelijke.",
                altlink => 'Zie het <a href="/dieren">populaire overzicht</a> 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 '<tr>';
        for my $name (@{$row}) {
                my $hidden = $name =~ s/^\?//;
+               $name =~ s/#.*//; # ignore prefixed part
                $name =~ s/^-$//;
                my ($img) = $name =~ /([\w-]+)/;
                $name =~ y/_/ /;