From 7dc91ad686974064ee5db563e807a0a4a8365b86 Mon Sep 17 00:00:00 2001
From: Nigel Horne <njh@bandsman.co.uk>
Date: Fri, 12 Jul 2024 08:21:01 -0400
Subject: [PATCH] Avoid printing marriage location twice

---
 gedcom | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/gedcom b/gedcom
index 8e88e5d..7386fc6 100755
--- a/gedcom
+++ b/gedcom
@@ -3926,7 +3926,21 @@ sub print_person
 				}
 				$phrase->append("[$marriagecitation]") if($marriagecitation);
 				if(defined($marriage)) {
-					append_notes({ phrase => $phrase, record => $marriage });
+					my $do_marriage_notes = 1;
+					if($placeofmarriage && (my $addr = $marriage->address()) && (my $notes = $marriage->get_value())) {
+						if("$addr, $placeofmarriage" =~ /^\Q$notes\E/) {
+							# This can happen with things like this
+							# 1 MARR Ebenezer Chapel, Meeting Street, Ramsgate
+							# 2 _PRIM Y
+							# 2 DATE 10 Dec 1882
+							# 2 PLAC Ramsgate, Kent, England
+							# 2 ADDR Ebenezer Chapel, Meeting Street
+							$do_marriage_notes = 0;
+						}
+					}
+					if($do_marriage_notes) {
+						append_notes({ phrase => $phrase, record => $marriage });
+					}
 				}
 			} else {	# scalar(@spouses) > 1
 				if(is_alive(person => $person)) {