X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/beabcbe2db77145e8aa7d1d90dd2f6cfa198a7a8..aa4e270baad2dcb970c0a89e41f3d7ac907a311b:/countries.plp diff --git a/countries.plp b/countries.plp index b310a2f..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-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,22 +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 = "data/flag/$ref.png";
- $_ = sprintf ' | %s', - $_ ? 'X '.$class : '', EscapeHTML("$code: $name"), $_; + $cell ? 'X '.$class : '', EscapeHTML("$code: $name"), $cell; } print "\n"; } - print " |
---|