Skip to content

Commit

Permalink
The word 'there' doesn't really add anything
Browse files Browse the repository at this point in the history
  • Loading branch information
nigelhorne committed Aug 29, 2024
1 parent afa011d commit 7ab12d4
Showing 1 changed file with 9 additions and 9 deletions.
18 changes: 9 additions & 9 deletions gedcom
Original file line number Diff line number Diff line change
Expand Up @@ -3580,13 +3580,13 @@ sub print_person
$phrase = Data::Text->new("$pronoun ");
@phrases = ();
}
unless($dateofbirth || $placeofbirth) {
if($language eq 'French') {
if(($aod || $opts{'a'} || $opts{'p'}) && $placeofbaptism && $placeofbirth && ($placeofbaptism eq $placeofbirth)) {
$phrase->append('y ');
}
}
}
# unless($dateofbirth || $placeofbirth) {
# if($language eq 'French') {
# if(($aod || $opts{'a'} || $opts{'p'}) && $placeofbaptism && $placeofbirth && ($placeofbaptism eq $placeofbirth)) {
# $phrase->append('y ');
# }
# }
# }
if($language eq 'French') {
$phrase->append("a \N{U+00E9}t\N{U+00E9} baptis\N{U+00E9}");
if($sex eq 'F') {
Expand All @@ -3599,7 +3599,7 @@ sub print_person
}
if($placeofbaptism) {
if(($aod || $opts{'a'} || $opts{'p'}) && $placeofbirth && ($placeofbaptism eq $placeofbirth)) {
$phrase->append(' there') unless($language eq 'French');
# $phrase->append(' there') unless($language eq 'French');
if(my $address = $baptism->address()) {
if($address =~ /(.+),\s*$placeofbirth$/) {
$address = $1;
Expand Down Expand Up @@ -3711,7 +3711,7 @@ sub print_person
$phrase->append(" \N{U+00E0} $address");
}
} else {
$phrase->append(' there');
# $phrase->append(' there');
if(my $address = $baptism->address()) {
$phrase->append(" at $address");
}
Expand Down

0 comments on commit 7ab12d4

Please sign in to comment.