From 180ae70929257438ef3a3616e4144ef7edad306b Mon Sep 17 00:00:00 2001
From: Nigel Horne <njh@bandsman.co.uk>
Date: Fri, 27 Oct 2023 20:53:28 -0400
Subject: [PATCH] Print the date of a newspaper (FMP)

---
 gedcom | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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') {