Hi all,
as it is often the case that old church books do not give a date of
birth, but only a date of baptism, I have effected minimal changes on
the life() function, so it will return ~<date> where (and only where)
*<date> is not available::
sub life
{
my $self = shift;
my ($birt,undef) = map { $_->date } $self->birt;
my ($bapm,undef) = map { $_->date } $self->bapm; # line added
my ($deat,undef) = map { $_->date } $self->deat;
$birt=(defined $birt)?"*$birt":((defined $bapm)?"~$bapm":''); # line
amended
$deat=(defined $deat)?"+$deat":'';
my $life=join(" ",$birt,$deat);
$life eq " "?'':$life;
}
Since among other places I use life() as part of the result display for
my search function, this now gives much better results for persons where
not much besides the date of baptism is known. Example:
literal match using : WELLMANN
- Georgius BINDER ( GEORGIUS BINDER WELLMANN ) *1798
- Catharina SCHENKER ( CATHARINA SCHENKER WELLMANN ) *1745 +06.FEB.1810
- Agnetha VEBER ( AGNETHA VEBER WELLMANN ) ~13.MAR.1719
- Sara WAGNER ( SARA WAGNER WELLMANN ) ~06.NOV.1753
- Daniel WELLMANN ( DANIEL WELLMANN ) ~23.DEC.1770
- Georg WELLMANN ( GEORG WELLMANN WAGNER ) ~18.NOV.1742
- Georg WELLMANN ( GEORG VELLMANN WELLMANN VEBER ) +1742
- Johann Georg WELLMANN ( JOHANN GEORG WELLMANN )
- Johann WELLMANN ( JOHANN WELLMANN SCHENKER ) ~24.JUL.1739
- Johann WELLMANN ( JOHANN WELLMANN )
- Justina Elisabeth WELLMANN ( JUSTINA ELISABETH WELLMANN BINDER )
~11.JAN.1802 +17.MAR.1843
- Michael WELLMANN ( MICHAEL WELLMANN )
- Sara Elisabeth WELLMANN ( SARA ELISABETH WELLMANN ) ~15.JUL.1773
+16.AUG.1855
Perhaps this is something fit for the distribution.
Cheers,
Michael
