Handle ª

gedcom

@@ -9367,7 +9367,7 @@ sub place {
 		$address = undef;
 	}
 
-	$place =~ s/\.$//;
+	$place =~ s/[\.,]+$//;	# remove trailing full stops and commas
 	$place =~ s/\s\s+/ /;
 
 	return if(lc($place) eq 'unknown');
@@ -12846,6 +12846,7 @@ sub wide_to_html
 
 	$string =~ s/\xc2\xa3/£/g;
 	$string =~ s/\xc2\xa9/©/g;
+	$string =~ s/\xc2\xaa/ª/g;	# ª
 	$string =~ s/\xc2\xab/"/g;	# «
 	$string =~ s/\xc2\xae/®/g;
 	$string =~ s/\xc2\xbb/"/g;	# »
@@ -12890,6 +12891,7 @@ sub wide_to_html
 	$string =~ s/\N{U+00A0}/ /g;
 	$string =~ s/\N{U+00A3}/£/g,
 	$string =~ s/\N{U+00A9}/©/g;
+	$string =~ s/\N{U+00AA}/ª/g;	# ª
 	$string =~ s/\N{U+00AB}/"/g;	# «
 	$string =~ s/\N{U+00AE}/®/g;
 	$string =~ s/\N{U+00BB}/"/g;	# »
@@ -12977,6 +12979,7 @@ sub wide_to_html
 
 	$string =~ s/Á/Á/g;
 	$string =~ s/å/å/g;
+	$string =~ s/ª/ª/g;
 	$string =~ s/š/š/g;
 	$string =~ s/Š/Š/g;
 	$string =~ s/č/č/g;