X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=gom%2Fsource_description.c;h=b03e3973541501fe176a7f0c9ee12644e6ad5f2e;hb=39bb8d4c3317074cfa3e8e92cc12e6160675e246;hp=ecec1dc30cb187bcd5f5427c79257ff3ba1b9502;hpb=bdf47fdee469d5a1d7ddfd06a0e4b26f3b40b0f4;p=gedcom-parse.git

diff --git a/gom/source_description.c b/gom/source_description.c
index ecec1dc..b03e397 100644
--- 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;
+}