From 40077aac3e38c12dd2aae65c0473d798ada7eab4 Mon Sep 17 00:00:00 2001 From: Nigel Horne Date: Fri, 14 Jun 2024 20:48:55 -0400 Subject: [PATCH] Test Unicode mapping --- ged2site | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/ged2site b/ged2site index 8a3fc5c4..45bd2137 100755 --- a/ged2site +++ b/ged2site @@ -10929,7 +10929,7 @@ sub place { # Avoid "in in Paris" $road =~ s/^\s*in//; $road =~ s/\s+$//; - $town =~ s/\s+$//; + $town =~ s/[\s\.]+$//; if(($road eq '') && ($town eq '')) { return "in$country"; } @@ -14072,6 +14072,7 @@ sub wide_to_html '\xe2\x80\x9c' => '"', '\xe2\x80\x9d' => '"', '\xe2\x80\xa6' => '...', + "\N{U+00A0}" => ' ', ); foreach my $char(keys %chars) { @@ -14110,7 +14111,7 @@ sub wide_to_html # $string =~ s/\xe2\x80\x9d/"/g; # $string =~ s/\xe2\x80\xa6/.../g; - $string =~ s/\N{U+00A0}/ /g; + # $string =~ s/\N{U+00A0}/ /g; $string =~ s/\N{U+00A3}/£/g, $string =~ s/\N{U+00A9}/©/g; $string =~ s/\N{U+00AE}/®/g;