Skip to content

Commit

Permalink
Track people living with cousins
Browse files Browse the repository at this point in the history
  • Loading branch information
nigelhorne committed Sep 8, 2024
1 parent 98d675e commit f8a0b80
Showing 1 changed file with 8 additions and 1 deletion.
9 changes: 8 additions & 1 deletion gedcom
Original file line number Diff line number Diff line change
Expand Up @@ -5785,7 +5785,7 @@ sub print_person
}

# TODO: go through the keys when I'm sure it's all sensible
foreach my $r('aunt', 'uncle', 'nephew', 'brother-in-law', 'sister-in-law', 'grandfather', 'grandmother') {
foreach my $r('aunt', 'uncle', 'nephew', 'brother-in-law', 'sister-in-law', 'grandfather', 'grandmother', 'cousin') {
next unless($living_with{$r});

if(ref($living_with{$r}) eq 'ARRAY') {
Expand Down Expand Up @@ -13021,6 +13021,7 @@ sub weather
return if($date !~ /^\d/);

if((my $d = $dfg->parse_datetime(date => $date)) &&
$record->place() &&
(my $location = get_location($record->place()))) {
my $weather = $meteo->weather($location, $d->strftime('%F'));

Expand Down Expand Up @@ -13947,6 +13948,8 @@ brothers::brothers
check out %s::check out %s
child::child
children::children
cousin::cousin
cousins::cousins
daughter::daughter
daughters::daughters
died::died
Expand Down Expand Up @@ -14037,6 +14040,8 @@ brother-in-law::beau-frère
check out %s::visitez %s
child::enfant
children::enfants
cousin:M:cousin germain
cousin:F:cousine germaine
daughter::fille
died:M:est mort
died:F:est morte
Expand Down Expand Up @@ -14125,6 +14130,8 @@ brothers::Brüder
check out %s::Schau mal bei %s
child::Kind
children::Kinder
cousin:M:Cousin
cousin:F:Cousine
daughter::Tochter
died::starb
during %s life:M:während seines Lebens
Expand Down

0 comments on commit f8a0b80

Please sign in to comment.