diff --git a/gedcom b/gedcom index d5d3c27..38f6d60 100755 --- a/gedcom +++ b/gedcom @@ -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') { @@ -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')); @@ -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 @@ -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 @@ -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