Hi Jutta
OK. Glad your problem is solved.
On 12/06/17 23:37, Jutta Wrage wrote:
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)
My web hosting company will not let me upload files with names like:
Thanks for you help!
Just before getting you mail I have found a solution yesterday after creating a
family table with information whether married or not.
My code to get the names in the individual table now is:
my @families = $i->fams;
my $sex = uc $i->sex;
if ($sex eq "F") {
my $firsthusband = 1;
for my $f (@families) {
if (my $marriage = $f->marr()) {
if(my $husband = $f->husband()) {
my $husbname = $husband->get_value(["name", 1], "surn");
if ($firsthusband) {
$surname .= "$husbname";
$firsthusband = 0;
} else {
$surname .= ", $husbname";
}
}
}
}
}
This way I get only the new surnames for women if they are married.
And that matches to the information in the names section I have had already in
my data and which I did not know, how to access using the gedcom modules. The
only thing to do was adding marriage records without data everywhere, where I
know they where married but had no data for the marriage.
My sources hav names like "HRE K NAME" for marriage entries in church books and
so I can analyze automatically, where I have the original data and not only second level
information already for birth, marriage and death.
Once one gets an idea how to use the modules, they are really great.
Regards,
Jutta
--
Ron Savage - savage.net.au
