Don't print AKA information twice

nigelhorne · Nov 14, 2023 · e1b6299 · e1b6299
1 parent 1f4bf2d
commit e1b6299
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/gedcom b/gedcom
@@ -2842,10 +2842,10 @@ sub print_person
 			} else {
 				if(scalar(@phrases) == 0) {
 					$phrase->set(ucfirst($noun));
-					$noun = $pronoun;
-					if(my $aka = $person->as_string({ use_aka => 1 })) {
+					if(($noun eq $firstname) && (my $aka = $person->as_string({ use_aka => 1 }))) {
 						$phrase->append(", also known as $aka,");
 					}
+					$noun = $pronoun;
 				}
 				if(is_alive(person => $person)) {
 					$phrase->append(' is ');