From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 1 Feb 2015 08:25:34 +0000 (+0100)
Subject: countries: minor name cleanup (escape ampersands)
X-Git-Tag: v1.6~49
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/ccc677fdffa100c77c4aaae9074f5f0b40c4cd9a

countries: minor name cleanup (escape ampersands)

Mostly invisible, but fixes html validation and drops useless replacement
intended to undo swapped names in old list.
---

diff --git a/countries.plp b/countries.plp
index cd2040d..a2fa272 100644
--- a/countries.plp
+++ b/countries.plp
@@ -40,9 +40,8 @@ my $cc = do 'countries.inc.pl';
 				$_ = sprintf '<img src="/%s" alt="%s">', $img, $ref if -e $img;
 			}
 			else {
-				$_ = $short || $name;
+				$_ = EscapeHTML($short || $name);
 			}
-			$name =~ s/([^,]*), (.*)/$2 $1/;
 			printf "\n".'<td class="%s" title="%s">%s',
 				$_ ? 'X '.$class : '', EscapeHTML("$code: $name"), $_;
 		}