From b16ebb61e918ea6b67674f515814f4fae6fcc37f Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 9 Apr 2017 01:09:29 +0200
Subject: [PATCH] charset: link specific pages back to overview

---
 charset.plp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/charset.plp b/charset.plp
index 5e50004..9dd98a4 100644
--- a/charset.plp
+++ b/charset.plp
@@ -43,7 +43,7 @@ sub optionlink {
 print join " •\n", (
 	map {
 		join " ·\n", pairmap {
-			optionlink($b || ucfirst $a, "/charset/$a?compare", $a eq $Request);
+			optionlink($b || ucfirst $a, '/charset'.($a && "/$a?compare"), $a eq $Request);
 		} @{$_}
 	}
 	[
@@ -51,6 +51,7 @@ print join " •\n", (
 		dos      => 'DOS',
 		mac      => 'Apple',
 		ebcdic   => 'EBCDIC',
+		$tablist[0] eq 'default' ? () : ('' => 'common'),
 	],
 	[
 		westeur  => 'West',
-- 
2.30.0