Fix é in residence notes

nigelhorne · Dec 12, 2023 · c7f5c20 · c7f5c20
1 parent 2687bfc
commit c7f5c20
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/gedcom b/gedcom
@@ -4750,11 +4750,7 @@ sub print_person
 						}
 					}
 				}
-				if((!($opts{'c'} && $residence->source())) && (my $notes = notes({ record => $residence }))) {
-					$notes =~ s/\.$//;
-					$notes = lcfirst($notes);
-					$residencestring .= " ($notes)";
-				} elsif($opts{'c'}) {
+				if($opts{'c'}) {
 					if($residencecitations{$residence}) {
 						my $remove_comma = 0;
 						if($residencestring =~ s/,$//) {
@@ -4776,6 +4772,11 @@ sub print_person
 							}
 						}
 					}
+				} elsif($residence->source() && (my $notes = notes({ record => $residence }))) {
+					$notes =~ s/\.$//;
+					$notes =~ s/\xc3\xa9/\N{U+00E9}/g;
+					$notes = lcfirst($notes);
+					$residencestring .= " ($notes)";
 				}
 				$count++;
 				if(($count == 1) && (scalar(@residencelist) == 2)) {