Ignore entries that just say "Retired" as their occupation

nigelhorne · Oct 27, 2023 · bb4cc6d · bb4cc6d
1 parent 60c9420
commit bb4cc6d
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/gedcom b/gedcom
@@ -10491,6 +10491,10 @@ sub get_all_occupations
 	while($occupations[0] && ($occupations[0] =~ /Unpaid domestic duties/i)) {
 		shift @occupations;
 	}
+	while($occupations[0] && ($occupations[0] eq 'Retired')) {
+		shift @occupations;
+	}
+
 	while(scalar(@occupations) > 1) {
 		if(($occupations[0] =~ /^labou?rer/i) && ($occupations[1] =~ /^labou?rer/i)) {
 			shift @occupations;