dlugolecki.net.pl
Dziennik
Polecane
Software
projects
/
gedcom-parse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
New function for handling age values.
[gedcom-parse.git]
/
gom
/
header.c
diff --git
a/gom/header.c
b/gom/header.c
index 04b00542ff0865c550e39e0a6ae210cc80e3a818..448059aa0e8ba341fdb735754cc27c367c7167fd 100644
(file)
--- 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);
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,
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.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);
if (gom_header.submitter)
result |= gedcom_write_element_xref(hndl, ELT_HEAD_SUBM, 0, REC_HEAD,
gom_header.submitter);