From c7f5c2028bde643b138d6670de0e2f8b1b15863c Mon Sep 17 00:00:00 2001 From: Nigel Horne Date: Tue, 12 Dec 2023 11:28:14 -0500 Subject: [PATCH] =?UTF-8?q?Fix=20=C3=A9=20in=20residence=20notes?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- gedcom | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/gedcom b/gedcom index f1637f6..85497f6 100755 --- 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)) {