Smoother English where there is no occupation

nigelhorne · Nov 2, 2023 · 500b7b9 · 500b7b9
1 parent 7d02e0e
commit 500b7b9
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/gedcom b/gedcom
@@ -3111,6 +3111,12 @@ sub print_person
 			push @phrases, $phrase;
 			$phrase = Data::Text->new();
 		}
+		if(($aob || $aod) && scalar(@phrases)) {
+			push @phrases, $phrase;
+			$bio->append(conjunction(map { $_->as_string() } @phrases))->append('.  ');
+			$phrase = Data::Text->new();
+			@phrases = ();
+		}
 
 		if((!$aob) && ($dateofbirth || $dateofbaptism || $placeofbirth || $placeofbaptism)) {
 			if((defined($firstname) && ($noun eq $firstname)) || (scalar(@phrases) == 0)) {