From b897689deaf28fcb1e50a38001d29f58a829913a Mon Sep 17 00:00:00 2001 From: Nigel Horne Date: Fri, 12 Jul 2024 16:08:48 -0400 Subject: [PATCH] Ignore "Newspaper Death Notice" records --- gedcom | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/gedcom b/gedcom index 7386fc6..9047130 100755 --- a/gedcom +++ b/gedcom @@ -6159,7 +6159,7 @@ sub print_person } } elsif($type eq 'Newspaper') { # FIXME: duplicate code with one event - # This is a non-standard thing that FMP has evented. + # This is a non-standard thing that FMP has evented :-( # FIXME: handle more than one newspaper if($phrase->length()) { push @phrases, $phrase; @@ -6191,6 +6191,11 @@ sub print_person $previous = $event; $prev_type = 'Newspaper'; + } elsif($type eq 'Newspaper Death Notice') { + # More non-standard FMP stuff + # TODO - difficult to handle because the field is broken + my $newspaper = newspaper({ gedcom => $ged, person => $person, event => $event }); + complain({ person => $person, warning => 'Ignoring Newspaper Death Notice from ' . $newspaper->date() }); # } elsif(($type !~ /^Census U[KS] \d{4}$/) && } elsif($type eq 'Funeral') { $funeral = $event;