Say if the child is a son or daughter

nigelhorne · Oct 4, 2024 · 06c1088 · 06c1088
1 parent 2a4fa52
commit 06c1088
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/gedcom b/gedcom
@@ -3241,15 +3241,15 @@ sub print_person
 						if($language eq 'French') {
 							$phrase->append("'enfant");
 						} else {
-							$phrase->append(i18n('child'));
+							$phrase->append(i18n(($sex eq 'M') ? 'son' : 'daughter'));
 						}
 					}
 				} else {
 					# print ' only child of';
 					if($language eq 'French') {
 						$phrase->append("'enfant");
 					} else {
-						$phrase->append(i18n('child'));
+						$phrase->append(i18n(($sex eq 'M') ? 'son' : 'daughter'));
 					}
 				}
 			} else {