charset: link specific pages back to overview

[sheet.git] / charset.plp

diff --git a/charset.plp b/charset.plp
index 5e500047d48d8c685598a3ff7b798a65ff8d8093..9dd98a4028a60dc1b9310033561726700b42c266 100644 (file)
--- 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',