Allow elements out of context.

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

diff --git a/gom/note.c b/gom/note.c
index 3c8bc69f7095fa1f72c67c67b013b056e194d8f2..2f1cba243ca61bd00efb4bb07bbf483608d62e30 100644 (file)
--- a/gom/note.c
+++ b/gom/note.c
@@ -73,7 +73,7 @@ Gedcom_ctxt sub_cont_conc_start(_ELT_PARAMS_)
   if (! ctxt)
     NO_CONTEXT;
   else
-    result = make_gom_ctxt(elt, ctxt->obj_type, ctxt->ctxt_ptr);
+    result = dup_gom_ctxt(ctxt, elt);
   
   return (Gedcom_ctxt)result;
 }
@@ -85,6 +85,16 @@ void note_subscribe()
   gedcom_subscribe_to_element(ELT_SUB_CONC, sub_cont_conc_start, def_elt_end);
 }
 
+void UNREFALLFUNC(note)(struct note *obj)
+{
+  if (obj) {
+    UNREFALLFUNC(source_citation)(obj->citation);
+    UNREFALLFUNC(user_ref_number)(obj->ref);
+    UNREFALLFUNC(change_date)(obj->change_date);
+    UNREFALLFUNC(user_data)(obj->extra);
+  }
+}
+
 void CLEANFUNC(note)(struct note* note)
 {
   if (note) {