I need spaces in Notes. Code from Nigel:

pjcj#21 Addressing this Issue in ged2site: nigelhorne/ged2site#121
jhannah · Jun 17, 2024 · b74f936 · b74f936
1 parent 2fd2f91
commit b74f936
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Gedcom/Item.pm b/lib/Gedcom/Item.pm
@@ -579,7 +579,8 @@ sub full_value {
         my $v = defined $item->{value} ? $item->{value} : "";
         $v =~ s/[\r\n]+$//;
         $value .= "\n$v" if $item->{tag} eq "CONT";
-        $value .=    $v  if $item->{tag} eq "CONC";
+        $value .= ' '  if(($item->{tag} eq 'CONC') && ($value !~ /\s$/));
+        $value .= $v  if $item->{tag} eq "CONC";
     }
     $value
 }