for (obj = evt; obj; obj = obj->next) {
result |= gedcom_write_element_str(hndl, ELT_SOUR_DATA_EVEN, 0,
parent, obj->recorded_events);
for (obj = evt; obj; obj = obj->next) {
result |= gedcom_write_element_str(hndl, ELT_SOUR_DATA_EVEN, 0,
parent, obj->recorded_events);