diff --git a/gedcom b/gedcom index 8454387..113a6c0 100755 --- a/gedcom +++ b/gedcom @@ -5631,6 +5631,9 @@ sub print_person } my $url = $event->source()->tag_record('REF')->value(); $phrase->append("appeared in a newspaper ($url)"); + if(my $date = $event->date()) { + $phrase->append(" on $date"); + } # die $i->page(); } elsif($type eq 'Funeral') { @@ -5947,7 +5950,9 @@ sub print_person } my $url = $event->source()->tag_record('REF')->value(); $phrase->append("appeared in a newspaper ($url)"); - + if(my $date = $event->date()) { + $phrase->append(" on $date"); + } # die $i->page(); # } elsif(($type !~ /^Census U[KS] \d{4}$/) && } elsif($type eq 'Funeral') {