From 1f0b04d4652ae70325dbda049f1e099376fdd2f3 Mon Sep 17 00:00:00 2001
From: Nigel Horne <njh@bandsman.co.uk>
Date: Fri, 14 Jun 2024 12:18:40 -0400
Subject: [PATCH] Improved paragraph handling

---
 gedcom | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/gedcom b/gedcom
index e26083c..ffcef16 100755
--- a/gedcom
+++ b/gedcom
@@ -9682,8 +9682,9 @@ sub getaddress {
 	return $rc;
 }
 
-# paragraph => 1: ignore spacing and put it all into one paragraph
-sub notes {
+# paragraph => 0: ignore spacing and put it all into one paragraph
+sub notes
+{
 	my %params = (ref($_[0]) eq 'HASH') ? %{$_[0]} : @_;
 
 	my $record = $params{'record'};
@@ -9719,12 +9720,13 @@ sub notes {
 			}
 			$note =~ s/\r//g;
 			next if($note =~ /^\s*$/);
-			$note =~ s/\s\s+/ /g;
+			$note =~ s/ \n/\n/g;
 			if($paragraph) {
 				$note =~ s/\n+/\n\t/g;
 			} else {
 				$note =~ s/\n+/; /g;
 			}
+			$note =~ s/\s\s+/ /g;
 			$note =~ s/\s+$//g;
 			$note =~ s/\. /.  /g;
 			$note =~ s/Dr\.\s\s/Dr. /g;