Removed dup_date and dup_age.

[gedcom-parse.git] / gom / source_description.c

diff --git a/gom/source_description.c b/gom/source_description.c
index ecec1dc30cb187bcd5f5427c79257ff3ba1b9502..b03e3973541501fe176a7f0c9ee12644e6ad5f2e 100644 (file)
--- a/gom/source_description.c
+++ b/gom/source_description.c
@@ -90,3 +90,24 @@ void source_description_cleanup(struct source_description* desc)
     DESTROY_CHAIN_ELTS(user_data, desc->extra, user_data_cleanup);
   }
 }
+
+int write_source_descriptions(Gedcom_write_hndl hndl, int parent,
+                             struct source_description *desc)
+{
+  int result = 0;
+  struct source_description* obj;
+
+  if (!desc) return 1;
+
+  for (obj = desc; obj; obj = obj->next) {
+    result |= gedcom_write_element_str(hndl, ELT_SUB_REPO_CALN, 0,
+                                      parent, obj->call_number);
+    if (obj->media)
+      result |= gedcom_write_element_str(hndl, ELT_SUB_REPO_CALN_MEDI, 0,
+                                        ELT_SUB_REPO_CALN, obj->media);
+    if (obj->extra)
+      result |= write_user_data(hndl, obj->extra);    
+  }
+
+  return result;
+}