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
Auto-generation of tag names.
[gedcom-parse.git]
/
gom
/
lds_event.c
diff --git
a/gom/lds_event.c
b/gom/lds_event.c
index fbd021d9e02266549d37633472e67f8a4465d51f..ac8db42f9eafa09f89b3a7be92d6a5379a00b68d 100644
(file)
--- a/
gom/lds_event.c
+++ b/
gom/lds_event.c
@@
-166,16
+166,19
@@
int write_lds_events(Gedcom_write_hndl hndl, int parent, struct lds_event *lds)
parent, NULL);
if (obj->date_status)
result |= gedcom_write_element_str(hndl, ELT_SUB_LIO_BAPL_STAT, 0,
parent, NULL);
if (obj->date_status)
result |= gedcom_write_element_str(hndl, ELT_SUB_LIO_BAPL_STAT, 0,
- parent, obj->date_status);
+ obj_elt, obj->date_status);
+ if (obj->date)
+ result |= gedcom_write_element_date(hndl, ELT_SUB_LIO_BAPL_DATE, 0,
+ obj_elt, obj->date);
if (obj->temple_code)
result |= gedcom_write_element_str(hndl, ELT_SUB_LIO_BAPL_TEMP, 0,
if (obj->temple_code)
result |= gedcom_write_element_str(hndl, ELT_SUB_LIO_BAPL_TEMP, 0,
-
paren
t, obj->temple_code);
+
obj_el
t, obj->temple_code);
if (obj->place_living_ordinance)
result |= gedcom_write_element_str(hndl, ELT_SUB_LIO_BAPL_PLAC, 0,
if (obj->place_living_ordinance)
result |= gedcom_write_element_str(hndl, ELT_SUB_LIO_BAPL_PLAC, 0,
-
paren
t, obj->place_living_ordinance);
+
obj_el
t, obj->place_living_ordinance);
if (obj->family)
result |= gedcom_write_element_xref(hndl, ELT_SUB_LIO_SLGC_FAMC, 0,
if (obj->family)
result |= gedcom_write_element_xref(hndl, ELT_SUB_LIO_SLGC_FAMC, 0,
-
paren
t, obj->family);
+
obj_el
t, obj->family);
if (obj->citation)
result |= write_citations(hndl, obj_elt, obj->citation);
if (obj->note)
if (obj->citation)
result |= write_citations(hndl, obj_elt, obj->citation);
if (obj->note)