Am 20.02.2018 um 15:47 schrieb Paul Johnson: > my @mothers = $start->mother; > print "\tkeine Mutter bekannt\n" unless @mothers; > print_person($_, 1) for @mothers;
Hmm that might not solve my problem alwas, but it is useful though.
Being a bit impationt I thought about how to sovlve the problem getting the
families a person is child in with famc.
Looks like it sit nicht so complicated at all:
> my @famc = $start->famc;
> my $famcount = 0;
> if ($#famc > 0) { $famcount = $#famc; }
> my $parentnum = 1;
> for my $fam (@famc)
> {
> my $husb;
> my $wife;
> if ($fam->husband) # Mann existiert
> {
> $husb = $fam->husband;
> } else {
> $husb = $ged->get_individual("Unbekannter Kindsvater");
> }
> if ($fam->wife) # Frau existiert
> {
> $wife = $fam->wife;
> } else {
> $wife = $ged->get_individual("Unbekannte Kindsmutter");
> }
> my $gennumpar = "I.$parentnum";
> if ($famcount) { print "Elternfamilie $parentnum\n"; }
> print_person($husb, $gennumpar);
> print_person($wife, $gennumpar);
> ++$parentnum;
> undef $husb;
> undef $wife;
> }
This gives me:
Eltern von Full_name:
Elternfamilie 1
I.1 Kindsvater, Unbekannter * +
I.1 Natural_Mother_Surname, Liesbeth Anna Frieda * +
Elternfamilie 2
I.2 Father2_Surname, Otto Friedrich Wilhelm * Bith_date Lüchow -
welches? + Death_date Hamburg
I.2 Mother2_Surname, Auguste Maria *Bith_date Hamburg +Death_date
Hamburg Ehenamen: Father2_Surname
print_person function gets needed data for a single individual and prints it
out.
"Ehenamen" == family names - currently derived for females only. Program looks
up to which partners they have been married
I think this will be okay for. I may add the marriage(s) and divorces there.
Whether "Full_name" person ist adopted can be seen from the Name of him/her
normally. If the name differs from the father's one, there has been no adoption.
regards,
Jutta
--
http://www.witch.westfalen.de
signature.asc
Description: Message signed with OpenPGP using GPGMail
