Include fix from ged2site for living with siblings

nigelhorne · Nov 21, 2023 · da67843 · da67843
1 parent 959aa35
commit da67843
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/gedcom b/gedcom
@@ -4865,10 +4865,14 @@ sub print_person
 								my $sdate = $sr->date();
 								next if(!defined($sdate));
 								next if($sdate ne $rdate);
-								if(($place =~ /^\d/) && (place({ person => $sibling, record => $sr, nopreposition => 1 }) eq $place)) {
+								if(($place =~ /^\s\d/) && (place({ person => $sibling, record => $sr, nopreposition => 1 }) eq $place)) {
+									$residencestring =~ s/^\s//;
+									push @residencestringarray, $residencestring;
 									if($first) {
-										$residencestring .= i18n(' with ') . ($person->pronoun() eq 'She' ? 'her' : 'his');
+										$residencestring = ' there ' . i18n('with ') . ($person->pronoun() eq 'She' ? 'her' : 'his');
 										$first = 0;
+									} else {
+										$residencestring = undef;
 									}
 									$residencestring .= ' ' .
 										i18n(($sibling->sex() eq 'F') ? 'sister, ' : 'brother, ') .