Module:TestModule

---

local p = {} --p stands for package

function funcRecurseLineage(output, parentTopic)

 local output = ""
 local parentTopic = frame.args.parentTopic

 local topics, errors = mw.ext.externaldata.getExternalData {
   source = "CaseData",
   query = "childrenTopics",
   data = "topicName=topic_name",
   parameters = parentTopic
  }

 if topics ~= nil then

  output = output .. "<ul>"

  for i, topic in ipairs(topics) do

   output = output .. " <li>" .. "[[" .. topic.topicName .. "]]"

   local childTopics, errors3 = mw.ext.externaldata.getExternalData {
    source = "CaseData",
    query = "childrenTopics",
    data = "topicName=topic_name",
    parameters = topic.topicName
   }

   if childTopics ~= nil then
    output = output .. "<ul>"
    for i, childTopic in ipairs(childTopics) do
     output = output .. " <li>" .. "[[" .. childTopic.topicName .. "]]"
    end
    output = output .. "</ul>"
   end

  end

  output = output .. "</ul>"

 end

 return output

end

function p.recurseLineage( frame )

 local output = frame.args.output
 local parentTopic = frame.args.parentTopic

 final = funcRecurseLineage({output=frame.args.output, parentTopic=frame.args.parentTopic})

 return final

end

function p.topicLineage( frame )

 local output = ""
 local parentTopic = frame.args.parentTopic

 local topics, errors = mw.ext.externaldata.getExternalData {
   source = "CaseData",
   query = "childrenTopics",
   data = "topicName=topic_name",
   parameters = parentTopic
  }

 if topics ~= nil then

  output = output .. "<ul>"

  for i, topic in ipairs(topics) do

   output = output .. " <li>" .. "[[" .. topic.topicName .. "]]"

   local childTopics, errors3 = mw.ext.externaldata.getExternalData {
    source = "CaseData",
    query = "childrenTopics",
    data = "topicName=topic_name",
    parameters = topic.topicName
   }

   if childTopics ~= nil then
    output = output .. "<ul>"
    for i, childTopic in ipairs(childTopics) do
     output = output .. " <li>" .. "[[" .. childTopic.topicName .. "]]"
    end
    output = output .. "</ul>"
   end

  end

  output = output .. "</ul>"

 end

 return output

end


return p