Skip to content

Commit

Permalink
Test Unicode mapping
Browse files Browse the repository at this point in the history
  • Loading branch information
nigelhorne committed Jun 15, 2024
1 parent a721f50 commit 40077aa
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions ged2site
Original file line number Diff line number Diff line change
Expand Up @@ -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";
}
Expand Down Expand Up @@ -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) {
Expand Down Expand Up @@ -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;
Expand Down

0 comments on commit 40077aa

Please sign in to comment.