Skip to content

Commit

Permalink
Improved handling of nbsp
Browse files Browse the repository at this point in the history
  • Loading branch information
@nigelhorne
nigelhorne committed Jun 14, 2024
1 parent 7deb94c commit e28328a
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions ged2site
View file
Original file line number Diff line number Diff line change
Expand Up @@ -14058,6 +14058,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+00A9}/©/g;
$string =~ s/\N{U+00AE}/®/g;
$string =~ s/\N{U+0161}/š/g;
Expand Down Expand Up @@ -14157,7 +14158,7 @@ sub wide_to_html
$string =~ s/“/"/g;
$string =~ s/”/"/g;
$string =~ s/…/.../g;
# $string =~ tr/\x80/ /;
$string =~ tr/\x80/ /;

# if($string =~ /^Maria\(/) {
# # print STDERR (unpack 'H*', $string);
Expand Down Expand Up @@ -14307,6 +14308,7 @@ sub wide_to_xml
# $string =~ s/\N{U+00E9}/é/g;
# $string =~ s/\N{U+017E}/ž/g;

$string =~ s/\N{U+00A0}/ /g;
$string =~ s/\N{U+010D}/č/g;
$string =~ s/\N{U+00AE}/®/g; # ®
$string =~ s/\N{U+00E4}/ä/g; # ä
Expand Down Expand Up @@ -14389,7 +14391,7 @@ sub wide_to_xml
$string =~ s/“/"/g;
$string =~ s/”/"/g;
$string =~ s/…/.../g;
# $string =~ tr/\x80/ /;
$string =~ tr/\x80/ /;

# if($string =~ /^Maria\(/) {
# print STDERR (unpack 'H*', $string);
Expand Down

0 comments on commit e28328a

Please sign in to comment.