From 4f99f6f875653ef3f398e5ee3296f8eae0778619 Mon Sep 17 00:00:00 2001 From: Nigel Horne Date: Fri, 9 Aug 2024 16:07:37 -0400 Subject: [PATCH] Re-enable debugging of unknown records --- ged2site | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ged2site b/ged2site index aa1f7451..28381877 100755 --- a/ged2site +++ b/ged2site @@ -6706,7 +6706,7 @@ sub print_person ($type ne 'Register UK 1939')) { complain({ person => $person, warning => "Unhandled event type: $type" }); - # die 'TODO: ', $person->as_string({ nee => 1, include_years => 1, middle_names => 1 }), " event type $type"; + die 'TODO: ', $person->as_string({ nee => 1, include_years => 1, middle_names => 1 }), " event type $type"; if(my $notes = notes(record => $event, note_locations => \@note_locations)) { $notes = ucfirst($notes); $bio .= " ($notes)"; @@ -7213,7 +7213,7 @@ sub print_person ($type ne 'Race') && ($type ne 'Hospitalisation')) { complain({ person => $person, warning => "Unhandled event type: $type" }); - # die 'TODO: ', $person->as_string({ nee => 1, include_years => 1, middle_names => 1 }), " event type $type"; + die 'TODO: ', $person->as_string({ nee => 1, include_years => 1, middle_names => 1 }), " event type $type"; if(my $notes = notes(record => $event, note_locations => \@note_locations)) { $notes =~ s/[\s\.]+$//; my $date = year(record => $event);