More encoding

gedcom

@@ -12648,6 +12648,7 @@ sub wide_to_html
 	$string =~ s/\xc3\xa4/ä/g;
 	$string =~ s/\xc3\xa9/é/g;
 	$string =~ s/\xc3\xb4/ô/g;	# ô
+	$string =~ s/\xc3\xb6/ö/g;
 	$string =~ s/\xc5\xa1/š/g;
 	$string =~ s/\xc4\x8d/č/g;
 	$string =~ s/\xc5\xbe/ž/g;
@@ -12656,6 +12657,7 @@ sub wide_to_html
 	$string =~ s/\xc3\x96/Ö/g;	# Ö
 	$string =~ s/\xc3\xa8/è/g;
 	$string =~ s/\xc3\x89/É/g;
+	$string =~ s/\xc3\x9f/ß/g;
 	$string =~ s/\xc3\xaa/ê/g;
 	$string =~ s/\xc3\xab/ë/g;
 	$string =~ s/\xc3\xae/î/g;
@@ -12670,6 +12672,7 @@ sub wide_to_html
 	$string =~ s/\N{U+0161}/š/g;
 	$string =~ s/\N{U+010D}/č/g;
 	$string =~ s/\N{U+017E}/ž/g;
+	$string =~ s/\N{U+00DF}/ß/g;	# ß
 	$string =~ s/\N{U+00E1}/á;/g;
 	$string =~ s/\N{U+00E2}/â/g;
 	$string =~ s/\N{U+00E4}/ä/g;
@@ -12679,6 +12682,7 @@ sub wide_to_html
 	$string =~ s/\N{U+00D6}/Ö/g;	# Ö
 	$string =~ s/\N{U+00E7}/ç/g;	# ç
 	$string =~ s/\N{U+00F4}/ô/g;	# ô
+	$string =~ s/\N{U+00F6}/ö/g;
 	$string =~ s/\N{U+00C9}/É/g;
 	$string =~ s/\N{U+00CA}/ê/g;
 	$string =~ s/\N{U+00EB}/ë/g;
@@ -12747,6 +12751,7 @@ sub wide_to_html
 	$string =~ s/®/®/g;
 	$string =~ s/ó/ó/g;
 	$string =~ s/ô/ô/g;
+	$string =~ s/ö/ö/g;
 	$string =~ s/ś/ś/g;
 	$string =~ s/û/û/g;
 	$string =~ s/£/£/g;
@@ -12767,6 +12772,18 @@ sub wide_to_html
 	# }
 
 	# print STDERR __LINE__, ": ($string)\n";
+	if($string =~ /[^[:ascii:]]/) {
+		print STDERR (unpack 'H*', $string);
+		print STDERR __LINE__, ': ';
+		print STDERR (sprintf '%v02X', $string), "\n";
+		print STDERR "\n";
+		my $i = 0;
+		while((my @call_details = caller($i++))) {
+			print STDERR "\t", colored($call_details[2] . ' of ' . $call_details[1], 'red'), "\n";
+		}
+		die "BUG: wide_to_html($string)";
+	}
+
 	return $string;
 }