X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/8b237b43167a2443b69b6c0a3aec13c926782fc1..e476c3bfbcc78e9f667d83e9b35da5d55c7a6b42:/countries.plp?ds=sidebyside
diff --git a/countries.plp b/countries.plp
index 24be348..60a392d 100644
--- a/countries.plp
+++ b/countries.plp
@@ -2,11 +2,12 @@
Html({
title => 'country code cheat sheet',
- version => 'v1.1',
+ version => '1.2',
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 => ['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 '', $img, $ref if -e $img;
+ sub showflag {
+ my ($cc) = @_;
+ my $img = "data/flag/$cc.png";
+ return -e $img &&
+ sprintf '
', $img, $cc;
+ }
+
+ $cell = showflag($code) // join(' ',
+ map { showflag($_) || $_ } split / /, $ref
+ );
}
else {
- $_ = EscapeHTML($short || $name);
- $name .= " â $ref" if $ref and $ref ne $code;
+ $cell = EscapeHTML($short || $name);
}
printf "\n".'