From ccc677fdffa100c77c4aaae9074f5f0b40c4cd9a Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 1 Feb 2015 09:25:34 +0100
Subject: [PATCH] countries: minor name cleanup (escape ampersands)

Mostly invisible, but fixes html validation and drops useless replacement
intended to undo swapped names in old list.
---
 countries.plp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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"), $_;
 		}
-- 
2.30.0