Moduli:Transclusion count

local p = {}function p.fetch(frame)local template = nillocal return_value = nil-- Use demo parameter if it exists, otherswise use current template namelocal namespace = mw.title.getCurrentTitle().namespaceif frame.args["demo"] and frame.args["demo"] ~= "" thentemplate = mw.ustring.gsub(frame.args["demo"],"^[Tt]emplate:","")elseif namespace == 10 then -- Template namespacetemplate = mw.title.getCurrentTitle().textelseif namespace == 828 then -- Module namespacetemplate = (mw.site.namespaces[828].name .. ":" .. mw.title.getCurrentTitle().text)end-- If in template or module namespace, look up count in /dataif template ~= nil thennamespace = mw.title.new(template, "Template").namespaceif namespace == 10 or namespace == 828 thentemplate =  mw.ustring.gsub(template, "/doc$", "") -- strip /doc from endtemplate =  mw.ustring.gsub(template, "/sandbox$", "") -- strip /sandbox from endlocal index = mw.ustring.sub(mw.title.new(template).text,1,1)local status, data = pcall(function () return(mw.loadData('Module:Transclusion_count/data/' .. (mw.ustring.find(index, "%a") and index or "other"))) end)if status thenreturn_value = tonumber(data[mw.ustring.gsub(template, " ", "_")])endendend-- If database value doesn't exist, use value passed to templateif return_value == nil and frame.args[1] ~= nil thenlocal arg1=mw.ustring.match(frame.args[1], '[%d,]+')if arg1 and arg1 ~= '' thenreturn_value = tonumber(frame:callParserFunction('formatnum', arg1, 'R'))endendreturn return_valueend-- Tabulate this data for [[Wikipedia:Database reports/Templates transcluded on the most pages]]function p.tabulate(frame)local list = {}for i = 65, 91 dolocal data = mw.loadData('Module:Transclusion count/data/' .. ((i == 91) and 'other' or string.char(i)))for name, count in pairs(data) dotable.insert(list, {mw.title.new(name, "Template").fullText, count})endendtable.sort(list, function(a, b)return (a[2] == b[2]) and (a[1] < b[1]) or (a[2] > b[2])end)local lang = mw.getContentLanguage();for i = 1, #list dolist[i] = ('|-\n| %d || [[%s]] || %s\n'):format(i, list[i][1]:gsub('_', ' '), lang:formatNum(list[i][2]))endreturn table.concat(list)endreturn p