From 1794498280247b3ad7cabfbc2abac39bd1c2e542 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 3 May 2020 01:22:00 +0200
Subject: [PATCH] dieren: subpage names to indicate verbosity

---
 dieren.plp | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/dieren.plp b/dieren.plp
index 7cc7f5d..5f18108 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -1,12 +1,11 @@
 <(common.inc.plp)><:
 
-my $verbose = exists $get{v} && ($get{v} // 1);
 my $intro = 'dieren die in het Nederlands vernoemd zijn naar andere dieren.';
-$intro .= '.. en dergelijke.' if $verbose;
-$intro .= '.. enzo.' if $verbose >= 2;
+$intro .= '.. en dergelijke.' if $Request;
+$intro .= '.. enzo.' if exists $get{v};
 
 Html({
-	title => ($verbose && 'uitgebreid ') . 'dieren cheat sheet',
+	title => (!!$Request && 'uitgebreid ') . 'dieren cheat sheet',
 	version => '1.0',
 	description => "Tabeloverzicht met afbeeldingen van $intro",
 	keywords => [qw'
@@ -45,11 +44,11 @@ EOT
 <p>
 <:
 say ucfirst $intro;
-if ($verbose) {
-	say 'Zie het <a href="?">populaire overzicht</a> voor minder.';
+if ($Request) {
+	say 'Zie het <a href="/dieren">populaire overzicht</a> voor minder.';
 }
 else {
-	say 'Zie ook minderbekende en <a href="?v">verdergezochte verbanden</a>.';
+	say 'Zie ook minderbekende en <a href="/dieren/uitgebreid">verdergezochte verbanden</a>.';
 }
 :>
 </p>
@@ -95,7 +94,7 @@ if (exists $get{r}) {
 
 say '<table>';
 while (my $name = shift @table) {
-	if ($name =~ s/^#// and !$verbose) {
+	if ($name =~ s/^#// and !$Request) {
 		while ($name = shift @table) {
 			last if $name =~ m/^>/;
 		}
@@ -116,7 +115,7 @@ while (my $name = shift @table) {
 	if ($name and -e (my $img = "data/dieren/$name.jpg")) {
 		printf '<img src="/%s"', $img;
 		printf ' alt="%s"', -l $img ? readlink($img) =~ s/\.jpg$//r : $name;
-		print ' hidden' if $hidden and $verbose < 2;
+		print ' hidden' if $hidden and not exists $get{v};
 		print ' />';
 	}
 	elsif (!$hidden) {
-- 
2.30.0