git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
writing: script name outside of table include
[sheet.git]
/
latin.plp
diff --git
a/latin.plp
b/latin.plp
index 2809d7efdb8ef74bc1fb2d8db384dfb32b402ab1..162a0b6d69e14cec796da85b9772a4b53af5b1f4 100644
(file)
--- a/
latin.plp
+++ b/
latin.plp
@@
-28,12
+28,21
@@
unless (exists $get{v}) {
$glyphs->{digraph}--;
}
$glyphs->{digraph}--;
}
+my %scriptname = (
+ latn => 'Latin',
+ brai => 'Braille',
+ morse => 'Morse',
+);
+
my @table = do 'writing-latn.inc.pl';
if ($! or $@) {
printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
}
else {
my @table = do 'writing-latn.inc.pl';
if ($! or $@) {
printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
}
else {
- print $glyphs->table(exists $get{uc} ? [map {s/\s.//; uc} @table] : \@table);
+ print $glyphs->table([map {
+ ref $_ ne 'ARRAY' ? ".>$scriptname{$_}"
+ : exists $get{uc} ? map {uc} @$_ : @$_
+ } @table]);
}
print "</div>\n";
}
print "</div>\n";