From e1b6299e0346913f6e0167222d593751857ac711 Mon Sep 17 00:00:00 2001
From: Nigel Horne <njh@bandsman.co.uk>
Date: Mon, 13 Nov 2023 19:20:06 -0500
Subject: [PATCH] Don't print AKA information twice

---
 gedcom | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gedcom b/gedcom
index 36ca3f3..b27010c 100755
--- 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 ');