From 87f4ea46c52950275bfa543ba15d84d8e52b49e5 Mon Sep 17 00:00:00 2001
From: Nigel Horne <njh@bandsman.co.uk>
Date: Mon, 19 Aug 2024 07:56:11 -0400
Subject: [PATCH] Revert fix which broke some relationship calculations

---
 ged2site | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/ged2site b/ged2site
index 9fe045ca..573a8954 100755
--- a/ged2site
+++ b/ged2site
@@ -10054,10 +10054,8 @@ sub Gedcom::Individual::relationship_up
 	my $other = shift;
 	my @ancestors;
 
-	unless(@myancestors) {
-		@myancestors = $self->ancestors();
-	}
-	if($me && ($self eq $me)) {
+	if($me && ($self->xref() eq $me->xref())) {
+		# Cache myancestors since we call this a lot of times
 		unless(@myancestors) {
 			@myancestors = $me->ancestors();
 		}
@@ -10755,6 +10753,7 @@ sub Gedcom::Individual::relationship_down
 	my @descendant;
 
 	if($me && ($self->xref() eq $me->xref())) {
+		# Cache mydescendants since we call this a lot of times
 		unless(@mydescendants) {
 			# @mydescendants = $me->descendants();
 			@mydescendants = descendants($me);