Skip to content

Commit

Permalink
Handle U+25CF character
Browse files Browse the repository at this point in the history
  • Loading branch information
@nigelhorne
nigelhorne committed Jul 25, 2024
1 parent c57a107 commit ac13b19
Showing 1 changed file with 6 additions and 0 deletions.
6 changes: 6 additions & 0 deletions ged2site
View file
Original file line number Diff line number Diff line change
Expand Up @@ -14368,6 +14368,7 @@ sub wide_to_html
$string =~ s/\xe2\x80\x9c/"/g;
$string =~ s/\xe2\x80\x9d/"/g;
$string =~ s/\xe2\x80\xa6/.../g;
$string =~ s/\xe2\x97\x8f/●/g; # ●

$string =~ s/\N{U+00A0}/ /g;
$string =~ s/\N{U+00A3}/£/g,
Expand Down Expand Up @@ -14413,6 +14414,7 @@ sub wide_to_html
$string =~ s/\N{U+201C}/"/g;
$string =~ s/\N{U+201D}/"/g;
$string =~ s/\N{U+2026}/.../g; # …
$string =~ s/\N{U+25CF}/●/g; # ●

# utf8::encode($string);
# $string =~ s/š/š/g;
Expand Down Expand Up @@ -14496,6 +14498,7 @@ sub wide_to_html
$string =~ s/ñ/ñ/g;
$string =~ s/[“”«»]/"/g;
$string =~ s/…/.../g;
$string =~ s/●/●/g;
$string =~ tr/\x80/ /;

# if($string =~ /^Maria\(/) {
Expand Down Expand Up @@ -14670,6 +14673,7 @@ sub wide_to_xml
$string =~ s/\xe2\x80\x9c/"/g;
$string =~ s/\xe2\x80\x9d/"/g;
$string =~ s/\xe2\x80\xa6/.../g;
$string =~ s/\xe2\x97\x8f/●/g; # ●
# $string =~ s/\xe4\x8d/č/g; # ? ACOM strangeness
# $string =~ s/\N{U+0161}/š/g;
# $string =~ s/\N{U+010D}/č/g;
Expand Down Expand Up @@ -14727,6 +14731,7 @@ sub wide_to_xml
$string =~ s/\N{U+201C}/"/g;
$string =~ s/\N{U+201D}/"/g;
$string =~ s/\N{U+2026}/.../g; # …
$string =~ s/\N{U+25CF}/●/g; # ●

# utf8::encode($string);
# $string =~ s/š/&s#x161;/g;
Expand Down Expand Up @@ -14782,6 +14787,7 @@ sub wide_to_xml
$string =~ s/[“”«»]/"/g;
$string =~ s/—/-/g;
$string =~ s/…/.../g;
$string =~ s/●/●/g;
$string =~ tr/\x80/ /;

# if($string =~ /^Maria\(/) {
Expand Down

0 comments on commit ac13b19

Please sign in to comment.