Put notes in a new paragraph

nigelhorne · Sep 26, 2024 · 0654bd3 · 0654bd3
1 parent 54ff620
commit 0654bd3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/gedcom b/gedcom
@@ -7304,9 +7304,10 @@ sub print_person
 					$phrase = Data::Text->new();
 				}
 				if(scalar(@phrases)) {
-					$bio->append(conjunction(map { $_->as_string() } @phrases))->append(".\n");
+					$bio->append(conjunction(map { $_->as_string() } @phrases))->append('.');
 					@phrases = ();
 				}
+				$notes = "\n$notes";
 			}
 			$notes =~ s/\.$//;
 			$phrase = Data::Text->new($notes);