git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 {
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";
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 "<h1>$title</h1>";
if (!$query) {
-
say "<p>Unicode group not specified: $@</p>"
;
+
Alert('Unicode group not specified', $@)
;
exit;
};
exit;
};