Copy code from latest Display.pm in VWF

nigelhorne · Nov 13, 2023 · e005c85 · e005c85
1 parent 1938c91
commit e005c85
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/gedcom b/gedcom
@@ -8848,8 +8848,12 @@ sub year
 	}
 
 	if($string =~ /^\s*(.+\d\d)\s*\-\s*(.+\d\d)\s*$/) {
-		complain({ person => $params{'person'}, warning => "Changing date '$string' to 'bet $1 and $2'" });
-		$string = "bet $1 and $2";
+		my $start = $1;
+		my $end = $2;
+		if($end !~ /^\d\d\-\d\d$/) {
+			complain({ person => $person, warning => "Changing date '$rdate' to 'bet $start and $end'" });
+			$string = "bet $start and $end";
+		}
 	}
 
 	if(($string =~ /^bet (.+) and (.+)/i) ||