font: link original license with nofollow

[sheet.git] / chars.plp

diff --git a/chars.plp b/chars.plp
index b25c5e2ccb96aad30abf34c7d08f2252ef19daa3..f9af5df7ce65348fd107f9252e5cfef55d363733 100644 (file)
--- a/chars.plp
+++ b/chars.plp
@@ -33,8 +33,7 @@ for my $fontid (@fontlist) {
 
 my ($title, $parent) = ('Character overview');
 my $query = eval {
-       for ($ENV{PATH_INFO} || ()) {
-               s{^/}{};
+       for ($Request || ()) {
                return $_ if m{^[0-9 +-]+$};
 
                my ($cat, $name) = split m{/}, $_, 2 or die "invalid query\n";
@@ -54,7 +53,7 @@ my $query = eval {
 say "<h1>$title</h1>";
 
 if (!$query) {
-       say "<p>Unicode group not specified: $@</p>";
+       Alert('Unicode group not specified', $@);
        exit;
 };