From e031f03b5002fb092ff1c3eb5e054612ffd1c895 Mon Sep 17 00:00:00 2001
From: Nigel Horne <njh@bandsman.co.uk>
Date: Sat, 19 Oct 2019 16:09:23 -0400
Subject: [PATCH] Added baptimal dates to ICS file -
 https://github.com/nigelhorne/gedcom/issues/96

---
 gedcom | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/gedcom b/gedcom
index 1e6d7d6..e438aad 100755
--- a/gedcom
+++ b/gedcom
@@ -1161,6 +1161,17 @@ sub generate {
 					summary => 'birth of ' . $person->as_string()
 				);
 			}
+			my $dateofbaptism = get_value({ person => $person, value => 'baptism date' });
+			if((!$dateofbaptism) && (my $baptism = $person->get_record('baptism'))) {
+				$dateofbaptism = $baptism->date();
+			}
+			if($dateofbaptism && ($dateofbaptism =~ /^\d+\s\w{3}\s\d{3,4}$/)) {
+				add_to_ical(
+					ical => $ical,
+					datetime => date_to_datetime(date => $dateofbaptism),
+					summary => 'baptism of ' . $person->as_string()
+				);
+			}
 			if(my $marriage = $person->get_record('marriage') || $person->get_record('fams marriage')) {
 				if(my $dateofmarriage = $marriage->date()) {
 					if($dateofmarriage && ($dateofmarriage =~ /^\d+\s\w{3}\s\d{3,4}$/)) {
@@ -3853,6 +3864,10 @@ sub print_person
 														(($ss->sex() eq 'F') ? 'sister-in-law, ' : 'brother-in-law, ') .
 														$ss->as_string();
 														$first = 0;
+												} elsif($language eq 'French') {
+													$residencestring .= ' et ' .
+														(($ss->sex() eq 'F') ? 'belle-sœer, ' : 'beau-frère, ') .
+														$ss->as_string();
 												} else {
 													# FIXME: If possible, should say
 													#	sisters-in-law or