Fix call on wrong record type

nigelhorne · Dec 24, 2023 · 4c1e7eb · 4c1e7eb
1 parent da762f8
commit 4c1e7eb
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/gedcom b/gedcom
@@ -5653,11 +5653,12 @@ sub print_person
 					if(scalar(@phrases) == 0) {
 						$phrase->set($firstname // $pronoun)->append(' ');
 					}
-					my $url = $event->source()->tag_record('REF')->value();
+					my $newspaper = newspaper({ gedcom => $ged, person => $person, event => $event });
 					$phrase->append('appeared in a newspaper');
-					if(my $date = $event->date()) {
+					if(my $date = $newspaper->date()) {
 						$phrase->append(" on $date");
 					}
+					my $url = $newspaper->url();
 					$phrase->append(" ($url)");
 
 					# die $i->page();