cc: add reserved codes

[sheet.git] / cc.plp

diff --git a/cc.plp b/cc.plp
index 48b9910d805f30d74be06bea80aed73e5af4200c..57a8d9138d37e4d34bee86f0b4e969d2559b8633 100644 (file)
--- a/cc.plp
+++ b/cc.plp
@@ -33,7 +33,7 @@ sub quote {
 }
 
 {
-       printf '<table class="glyphs">';
+       printf '<table class="glyphs ccmap">';
        print '<col>';
        for my $section (qw{thead}) {
                print "<$section><tr><th>↱";
@@ -49,6 +49,7 @@ sub quote {
                                print $code =~ /^x|^q[m-z]|^aa|^zz/ ? '<td class="X Co">' : '<td>';
                                next;
                        };
+                       $code = $country->[2] if defined $country->[2];
                        my $img = sprintf '<img src="/flag/%s.png" alt="%s">', $code, $code
                                if -e "flag/$code.png";
                        printf "\n".'<td class="%s" title="%s">%s',