dieren: generic extension syntax for secret exceptions

diff --git a/dieren.inc.pl b/dieren.inc.pl
index 475fa129897dde4a07f568e199093a2951e3ab23..68b29ed77350fca3f79521135912d6183e924863 100644 (file)
--- a/dieren.inc.pl
+++ b/dieren.inc.pl
@@ -13,7 +13,7 @@ use utf8;
  egel: +egel   +zee-egel       ?wateregel      ?aardegel?=cactus       +mierenegel     #kegel
  varken:       +varken +zeevarken=bruinvis      waterzwijn=capibara     aardvarken     +stekelvarken   #feestvarken
  koe:  +koe    +zeekoe +meerkoetje     ?aardekoe?       koedoe #haiku
- paard:        +paard  +zeepaardje     +nijlpaard      ?(turn)paard     luipaard       #tijgerpaard
+ paard:        +paard  +zeepaardje     +nijlpaard      ?grasmodderpaard=草泥马#?(turn)paard  luipaard       #tijgerpaard
 #hoorn:         eenhoorn        zeehoorn       ?zee-eenhoorn=narwal     bergahorn=esdoorn       neushoorn      #eekhoorn
 #bra:  ?bra(ssière)    zebra   -       -       cobra  #sabra
 #olifant:      +olifant        +zeeolifant     +olifantsvis    ?kamerolifant    -      #olifantsoor
@@ -22,7 +22,7 @@ use utf8;
  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       ?aarddraak=戊辰        komododraak=varaan     #drakenkop
+ draak:         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

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/_/ /;