common: bump version to 1.11

[sheet.git] / charset.plp

diff --git a/charset.plp b/charset.plp
index 4272b6a4110b2ea309fb0fcecf5df65975f009b7..f9c50d87616715b9d304f6a16e06f4a8a8dc3f89 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -5,7 +5,7 @@ my @tablist = split m{/+}, $Request || 'default';
 
 Html({
        title => 'charset cheat sheet',
 
 Html({
        title => 'charset cheat sheet',

-       version => '1.1',
+       version => '1.2',

        description => [
                "Reference sheet with all glyphs in common character encoding tables,",
                "and an overview of Unicode ranges and UTF-8 bytes.",
        description => [
                "Reference sheet with all glyphs in common character encoding tables,",
                "and an overview of Unicode ranges and UTF-8 bytes.",


@@ -28,8 +28,15 @@ use List::Util qw( first pairmap pairfirst pairs );
 
 <p>
 <:
 
 <p>
 <:

+if ($tablist[0] eq 'unicode') {
+       say "Detailed allocation of Unicode blocks.";
+       print "See ", showlink("charsets", '/charset'), " to compare specific encodings";
+}
+else {
+

 if ($tablist[0] eq 'default') {
 if ($tablist[0] eq 'default') {

-       say "Overview of Unicode allocation and common latin code pages.";
+       say "Overview of Unicode ", showlink("allocation", '/charset/unicode');
+       say "and common latin code pages.";

        say "Compare alternate charsets:";
 }
 else {
        say "Compare alternate charsets:";
 }
 else {


@@ -60,6 +67,8 @@ print join " •\n", (
                hebrew   => 0,
        ],
 );
                hebrew   => 0,
        ],
 );

+
+}

 :>.
 </p>
 
 :>.
 </p>