Re: Another Problem with Adopted Children

--Apple-Mail=_7DE7B6CD-CF14-4BE0-A4C4-C154F532F03F
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain;
	charset=iso-8859-1


Am 20.02.2018 um 15:47 schrieb Paul Johnson:

> my @mothers =3D $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 =3D $start->famc;
>     my $famcount =3D 0;
>     if ($#famc > 0) { $famcount =3D $#famc;  }
>     my $parentnum =3D 1;
>     for my $fam (@famc)
>     {
>     	my $husb;
>     	my $wife;
> 		if ($fam->husband) # Mann existiert
> 		{
> 			$husb =3D $fam->husband;
> 		} else {
> 			$husb =3D $ged->get_individual("Unbekannter =
Kindsvater");
> 		}
> 		if ($fam->wife) # Frau existiert
> 		{
> 			$wife =3D $fam->wife;
> 		} else {
> 			$wife =3D $ged->get_individual("Unbekannte =
Kindsmutter");
> 		}
>     	my $gennumpar =3D "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=FCchow - 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" =3D=3D 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


--Apple-Mail=_7DE7B6CD-CF14-4BE0-A4C4-C154F532F03F
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
	filename=signature.asc
Content-Type: application/pgp-signature;
	name=signature.asc
Content-Description: Message signed with OpenPGP using GPGMail

-----BEGIN PGP SIGNATURE-----
Version: GnuPG/MacGPG2 v2.0.28
Comment: GPGTools - http://gpgtools.org

iEYEARECAAYFAlqMlV8ACgkQOgZ5N97kHkf9FgCguQbyIxntcMqjjHKaEYaalXMo
BKAAoISckYoxkCbIMkBuxTuYs9W+93V3
=GX8A
-----END PGP SIGNATURE-----

--Apple-Mail=_7DE7B6CD-CF14-4BE0-A4C4-C154F532F03F--