X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=gom%2Fheader.c;h=448059aa0e8ba341fdb735754cc27c367c7167fd;hb=d069cfbd954ca8d53d780ce97d7da1d363bb51fe;hp=04b00542ff0865c550e39e0a6ae210cc80e3a818;hpb=082066d0c776403b70c366f9a7d1333c7a9fac15;p=gedcom-parse.git

diff --git a/gom/header.c b/gom/header.c
index 04b0054..448059a 100644
--- a/gom/header.c
+++ b/gom/header.c
@@ -202,6 +202,10 @@ int write_header(Gedcom_write_hndl hndl)
     result |= gedcom_write_element_str(hndl, ELT_HEAD_SOUR_DATA, 0,
 				       ELT_HEAD_SOUR,
 				       gom_header.source.data.name);
+  if (gom_header.source.data.date)
+    result |= gedcom_write_element_date(hndl, ELT_HEAD_SOUR_DATA_DATE, 0,
+					ELT_HEAD_SOUR_DATA,
+					gom_header.source.data.date);
   if (gom_header.source.data.copyright)
     result |= gedcom_write_element_str(hndl, ELT_HEAD_SOUR_DATA_COPR, 0,
 				       ELT_HEAD_SOUR_DATA,
@@ -209,6 +213,12 @@ int write_header(Gedcom_write_hndl hndl)
   if (gom_header.destination)
     result |= gedcom_write_element_str(hndl, ELT_HEAD_DEST, 0, REC_HEAD,
 				       gom_header.destination);
+  if (gom_header.date)
+    result |= gedcom_write_element_date(hndl, ELT_HEAD_DATE, 0, REC_HEAD,
+					gom_header.date);
+  if (gom_header.time)
+    result |= gedcom_write_element_str(hndl, ELT_HEAD_DATE_TIME, 0,
+				       ELT_HEAD_DATE, gom_header.time);
   if (gom_header.submitter)
     result |= gedcom_write_element_xref(hndl, ELT_HEAD_SUBM, 0, REC_HEAD,
 					gom_header.submitter);