X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/94340f1100e0b3171e6d382b6bf9d304919683f4..refs/heads/master:/countries.plp diff --git a/countries.plp b/countries.plp index a97a174..efd2f25 100644 --- a/countries.plp +++ b/countries.plp @@ -2,21 +2,22 @@ Html({ title => 'country code cheat sheet', - version => 'v1.0', + version => '1.3', description => - "Table of ISO-3166-2 country codes with the names of reserved territories.", - keywords => [qw'country code cc tld territory land table'], + "Table of ISO-3166-1 country codes with the names of reserved territories.", + keywords => [qw'country code cc tld cctld continent territory land table'], stylesheet => [qw'light dark circus mono red'], + data => ['data/countries.inc.pl'], }); :> -
â³";
@@ -33,21 +34,30 @@ my $cc = do 'countries.inc.pl';
next;
};
my ($name, $class, $short, $ref) = @$country;
+ $name .= " â $ref" if $ref;
$ref ||= $code;
- local $_ = $ref;
+ my $cell;
if (exists $get{show}) {
- my $img = "flag/$ref.png";
- $_ = sprintf ' | %s', - $_ ? 'X '.$class : '', EscapeHTML("$code: $name"), $_; + $cell ? 'X '.$class : '', EscapeHTML("$code: $name"), $cell; } print "\n"; } - print " |
---|