Skip to content

Commit 9ed3b60

Browse files
committed
Added wife information from obit
1 parent 0643d38 commit 9ed3b60

File tree

2 files changed

+4
-0
lines changed

2 files changed

+4
-0
lines changed

bin/extract

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -284,6 +284,8 @@ sub extract_family_info
284284
push @{$family{'spouse'}}, { name => $1 }
285285
} elsif($text =~ /\bsurvived by her husband ([^.,;]+)/i) {
286286
push @{$family{'spouse'}}, { name => $1, 'status' => 'living', 'sex' => 'M' }
287+
} elsif($text =~ /\bsurvived by his wife ([^.,;]+)/i) {
288+
push @{$family{'spouse'}}, { name => $1, 'status' => 'living', 'sex' => 'F' }
287289
}
288290

289291
# Ensure spouse location is properly handled

gedcom

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -13851,6 +13851,8 @@ sub extract_family_info
1385113851
push @{$family{'spouse'}}, { name => $1 }
1385213852
} elsif($text =~ /\bsurvived by her husband ([^.,;]+)/i) {
1385313853
push @{$family{'spouse'}}, { name => $1, 'status' => 'living', 'sex' => 'M' }
13854+
} elsif($text =~ /\bsurvived by his wife ([^.,;]+)/i) {
13855+
push @{$family{'spouse'}}, { name => $1, 'status' => 'living', 'sex' => 'F' }
1385413856
}
1385513857

1385613858
# Ensure spouse location is properly handled

0 commit comments

Comments
 (0)