X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=gom%2Fheader.c;h=122c780d30dc2dcb23ee169f7910914011090288;hb=08936924a7a4b1541ee5f9778cae6bffef1767b3;hp=448059aa0e8ba341fdb735754cc27c367c7167fd;hpb=1568cb8ab16ecc1984d0d00b8ae8189c32508b08;p=gedcom-parse.git

diff --git a/gom/header.c b/gom/header.c
index 448059a..122c780 100644
--- a/gom/header.c
+++ b/gom/header.c
@@ -21,6 +21,7 @@
 /* $Id$ */
 /* $Name$ */
 
+#include <time.h>
 #include "header.h"
 #include "submission.h"
 #include "submitter.h"
@@ -163,15 +164,23 @@ struct header* gom_get_header()
   return &gom_header;
 }
 
+int gom_header_update_timestamp(time_t t)
+{
+  int result = 0;
+  struct tm *tm_ptr = localtime(&t);
+  result |= update_date(&gom_header.date, tm_ptr);
+  result |= update_time(&gom_header.time, tm_ptr);
+  return result;
+}
+
 int write_header(Gedcom_write_hndl hndl)
 {
   int result = 0;
   int i;
   
-  result |= gedcom_write_record_str(hndl, REC_HEAD, 0, NULL, NULL);
+  result |= gedcom_write_record_str(hndl, REC_HEAD, NULL, NULL);
   if (gom_header.charset.name)
-    result |= gedcom_write_element_str(hndl, ELT_HEAD_CHAR, 0,
-				       REC_HEAD,
+    result |= gedcom_write_element_str(hndl, ELT_HEAD_CHAR, 0, REC_HEAD,
 				       gom_header.charset.name);
   if (gom_header.charset.version)
     result |= gedcom_write_element_str(hndl, ELT_HEAD_CHAR_VERS, 0,