Only try to delete address if present.

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

diff --git a/gom/submitter.c b/gom/submitter.c
index bb2ef3e9273458db971f5fe6f22cae212683553d..06376b26d639aa142804de7ead813ba6e1963032 100644 (file)
--- a/gom/submitter.c
+++ b/gom/submitter.c
@@ -39,7 +39,6 @@ DEFINE_DESTROYFUNC(submitter, gom_first_submitter)
 DEFINE_ADDFUNC(submitter, XREF_SUBM)
 DEFINE_DELETEFUNC(submitter)
 DEFINE_GETXREFFUNC(submitter, XREF_SUBM)
-DEFINE_MAKELINKFUNC(submitter, XREF_SUBM)
      
 DEFINE_REC_CB(submitter, subm_start)
 DEFINE_STRING_CB(submitter, subm_name_start, name)
@@ -92,6 +91,16 @@ void submitter_subscribe()
   gedcom_subscribe_to_element(ELT_SUBM_RIN, subm_rin_start, def_elt_end);
 }
 
+void UNREFALLFUNC(submitter)(struct submitter *obj)
+{
+  if (obj) {
+    UNREFALLFUNC(address)(obj->address);
+    UNREFALLFUNC(multimedia_link)(obj->mm_link);
+    UNREFALLFUNC(change_date)(obj->change_date);
+    UNREFALLFUNC(user_data)(obj->extra);
+  }
+}
+
 void CLEANFUNC(submitter)(struct submitter* rec)
 {
   if (rec) {