Family Historian User Group

Code: Select all

function CopyBranch(ptrSource,ptrTarget)
  local strTag = fhGetTag(ptrSource)
  if strTag == "_FMT" then return end    -- Skip rich text format code
  if strTag == "_FIELD" then             -- Substitute metafield shortcut
    strTag = fhGetMetafieldShortcut(ptrSource)
  end
  local ptrNew = fhCreateItem(strTag,ptrTarget,true)
  if ptrNew:IsNull() then return end     -- Escape if item not created
  fhSetValue_Copy(ptrNew,ptrSource)
  CopyChildren(ptrSource,ptrNew)
end -- function CopyBranch