Hi!
I hope this it the right place to get some help using the module.
I have written a little perl program to extract all persons from an exported
Gedcom file to a tab delimited list. That works well so far.
My problem now is how to get out the marriage names for persons who are
marriaged.
Is
Am 05.05.2017 um 13:47 schrieb Nigel Horne:
>my $surname;
>my $sex = get_value({ person => $self, value => 'sex' });
>if(defined($sex) && ($sex eq 'F')) {
>if(my $husband = $self->husband()) {
>$surname = $husband->surname();
>$ha
Hi!
Am 07.05.2017 um 02:56 schrieb Ron Savage:
>>
>> I have this code snippet included for testing purposes now:
>>
>> my $surname;
>> if(my $husband = $i->husband()) {
>> $surname = $husband->get_value(["name", 1], "surn");
>> } else {
>> $surname = "";
>> }
>>
>> I get a surname now for m
Am 12.06.2017 um 09:51 schrieb Ron Savage:
> I patched your ged data to make it validate, and wrote a little script to get
> you going. See:
>
> o https://savage.net.au/misc/jutta.ged
>
> o https://savage.net.au/misc/jutta.log
>
> o https://savage.net.au/misc/jutta.sample (Rename to jutta.pl)
Hi!
I want to get the number of children of a woman.
If I call number_of_children for every family, I get only the correct number,
if there isn't one of the childrens added to two of the families.
Example:
Woman gets a child
Then she is divorced an married again before the child is adult.
The c
Hi!
I do not understand how to get access to the pedigree information for a child
in a family.
I have this in my code to print out the children in each family of a certain
person as starting point:
(essentials here only)
my @fams = $start->fams;
my @fams = $start->fams;
for my $fam (@fams)
Hi!
THanks for help with my children count problem.
Ich got it working to print out all families of one person requested an get the
children mumered and counted correctly.
I can print my grandma for exampple and both husbands and have my father in
both of the families with index that does not c
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 prob