Catch more duplicate occupations

nigelhorne · Jan 24, 2020 · 4c5de51 · 4c5de51
1 parent 3448023
commit 4c5de51
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/gedcom b/gedcom
@@ -7836,7 +7836,7 @@ sub get_all_occupations
 	while(scalar(@occupations) > 1) {
 		if(($occupations[0] =~ /^labou?rer/i) && ($occupations[1] =~ /^labou?rer/i)) {
 			shift @occupations;
-		} elsif($occupations[0] eq $occupations[1]) {
+		} elsif(lc($occupations[0]) eq lc($occupations[1])) {
 			shift @occupations;
 		} else {
 			last;