From a721f509630732053217bf526ce73ad36aba17e9 Mon Sep 17 00:00:00 2001
From: Nigel Horne <njh@bandsman.co.uk>
Date: Fri, 14 Jun 2024 18:52:44 -0400
Subject: [PATCH] Start to make the wide_ routines more table driven

---
 ged2site | 100 ++++++++++++++++++++++++++++++++++++++-----------------
 1 file changed, 69 insertions(+), 31 deletions(-)

diff --git a/ged2site b/ged2site
index d43444ba..8a3fc5c4 100755
--- a/ged2site
+++ b/ged2site
@@ -14040,37 +14040,75 @@ sub wide_to_html
 		return $string;
 	}
 
-	$string =~ s/\xc2\xa3/&pound;/g;
-	$string =~ s/\xc2\xa9/&copy;/g;
-	$string =~ s/\xc2\xae/&reg;/g;
-	$string =~ s/\xc3\xa1/&aacute;/g;
-	$string =~ s/\xc3\xa2/&acirc;/g;
-	$string =~ s/\xc3\xa4/&auml;/g;
-	$string =~ s/\xc3\xa9/&eacute;/g;
-	$string =~ s/\xc3\xad/&iacute;/g;	# í
-	$string =~ s/\xc3\xb4/&ocirc;/g;	# ô
-	$string =~ s/\xc3\xb6/&ouml;/g;
-	$string =~ s/\xc5\xa1/&scaron;/g;
-	$string =~ s/\xc4\x8d/&ccaron;/g;
-	$string =~ s/\xc5\xbe/&zcaron;/g;
-	$string =~ s/\xc3\xa7/&ccedil;/g;
-	$string =~ s/\xc3\xb3/&oacute;/g;
-	$string =~ s/\xc3\x96/&Ouml;/g; # Ö
-	$string =~ s/\xc3\xa8/&egrave;/g;
-	$string =~ s/\xc3\x89/&Eacute;/g;
-	$string =~ s/\xc3\x9f/&szlig;/g;
-	$string =~ s/\xc3\xaa/&ecirc;/g;
-	$string =~ s/\xc3\xab/&euml;/g;
-	$string =~ s/\xc3\xae/&icirc;/g;
-	$string =~ s/\xc3\xbb/&ucirc;/g;
-	$string =~ s/\xc3\xbc/&uuml;/g; # ü
-	$string =~ s/\xc5\x9b/&sacute;/g;
-	$string =~ s/\xc5\xa0/&Scaron;/g;
-	$string =~ s/\xe2\x80\x93/&ndash;/g;
-	$string =~ s/\xc3\xb1/&ntilde;/g;	# ñ
-	$string =~ s/\xe2\x80\x9c/&quot;/g;
-	$string =~ s/\xe2\x80\x9d/&quot;/g;
-	$string =~ s/\xe2\x80\xa6/.../g;
+	my %chars = (
+		'\xc2\xa3' => '&pound;',
+		'\xc2\xa9' => '&copy;',
+		'\xc2\xae' => '&reg;',
+		'\xc3\xa1' => '&aacute;',
+		'\xc3\xa2' => '&acirc;',
+		'\xc3\xa4' => '&auml;',
+		'\xc3\xa9' => '&eacute;',
+		'\xc3\xad' => '&iacute;',	# í
+		'\xc3\xb4' => '&ocirc;',	# ô
+		'\xc3\xb6' => '&ouml;',
+		'\xc5\xa1' => '&scaron;',
+		'\xc4\x8d' => '&ccaron;',
+		'\xc5\xbe' => '&zcaron;',
+		'\xc3\xa7' => '&ccedil;',
+		'\xc3\xb3' => '&oacute;',
+		'\xc3\x96' => '&Ouml;', # Ö
+		'\xc3\xa8' => '&egrave;',
+		'\xc3\x89' => '&Eacute;',
+		'\xc3\x9f' => '&szlig;',
+		'\xc3\xaa' => '&ecirc;',
+		'\xc3\xab' => '&euml;',
+		'\xc3\xae' => '&icirc;',
+		'\xc3\xbb' => '&ucirc;',
+		'\xc3\xbc' => '&uuml;', # ü
+		'\xc5\x9b' => '&sacute;',
+		'\xc5\xa0' => '&Scaron;',
+		'\xe2\x80\x93' => '&ndash;',
+		'\xc3\xb1' => '&ntilde;',	# ñ
+		'\xe2\x80\x9c' => '&quot;',
+		'\xe2\x80\x9d' => '&quot;',
+		'\xe2\x80\xa6' => '...',
+	);
+
+	foreach my $char(keys %chars) {
+		$string =~ s/$char/$chars{$char}/g;
+	};
+
+	# $string =~ s/\xc2\xa3/&pound;/g;
+	# $string =~ s/\xc2\xa9/&copy;/g;
+	# $string =~ s/\xc2\xae/&reg;/g;
+	# $string =~ s/\xc3\xa1/&aacute;/g;
+	# $string =~ s/\xc3\xa2/&acirc;/g;
+	# $string =~ s/\xc3\xa4/&auml;/g;
+	# $string =~ s/\xc3\xa9/&eacute;/g;
+	# $string =~ s/\xc3\xad/&iacute;/g;	# í
+	# $string =~ s/\xc3\xb4/&ocirc;/g;	# ô
+	# $string =~ s/\xc3\xb6/&ouml;/g;
+	# $string =~ s/\xc5\xa1/&scaron;/g;
+	# $string =~ s/\xc4\x8d/&ccaron;/g;
+	# $string =~ s/\xc5\xbe/&zcaron;/g;
+	# $string =~ s/\xc3\xa7/&ccedil;/g;
+	# $string =~ s/\xc3\xb3/&oacute;/g;
+	# $string =~ s/\xc3\x96/&Ouml;/g; # Ö
+	# $string =~ s/\xc3\xa8/&egrave;/g;
+	# $string =~ s/\xc3\x89/&Eacute;/g;
+	# $string =~ s/\xc3\x9f/&szlig;/g;
+	# $string =~ s/\xc3\xaa/&ecirc;/g;
+	# $string =~ s/\xc3\xab/&euml;/g;
+	# $string =~ s/\xc3\xae/&icirc;/g;
+	# $string =~ s/\xc3\xbb/&ucirc;/g;
+	# $string =~ s/\xc3\xbc/&uuml;/g; # ü
+	# $string =~ s/\xc5\x9b/&sacute;/g;
+	# $string =~ s/\xc5\xa0/&Scaron;/g;
+	# $string =~ s/\xe2\x80\x93/&ndash;/g;
+	# $string =~ s/\xc3\xb1/&ntilde;/g;	# ñ
+	# $string =~ s/\xe2\x80\x9c/&quot;/g;
+	# $string =~ s/\xe2\x80\x9d/&quot;/g;
+	# $string =~ s/\xe2\x80\xa6/.../g;
 
 	$string =~ s/\N{U+00A0}/ /g;
 	$string =~ s/\N{U+00A3}/&pound;/g,