Diff: Module:Transclusion count

local p = {}

local p = {}

function p.fetch(frame)

function p.fetch(frame)

	local template = nil

	local template = nil

	local return_value = nil

	local return_value = nil

	-- Use demo parameter if it exists, otherswise use current template name

	-- Use demo parameter if it exists, otherswise use current template name

	local namespace = mw.title.getCurrentTitle().namespace

	local namespace = mw.title.getCurrentTitle().namespace

	if frame.args["demo"] and frame.args["demo"] ~= "" then

	if frame.args["demo"] and frame.args["demo"] ~= "" then

		template = mw.ustring.gsub(frame.args["demo"],"^[Tt]emplate:","")

		template = mw.ustring.gsub(frame.args["demo"],"^[Tt]emplate:","")

	elseif namespace == 10 then -- Template namespace

	elseif namespace == 10 then -- Template namespace

		template = mw.title.getCurrentTitle().text

		template = mw.title.getCurrentTitle().text

	elseif namespace == 828 then -- Module namespace

	elseif namespace == 828 then -- Module namespace

		template = (mw.site.namespaces[828].name .. ":" .. mw.title.getCurrentTitle().text)

		template = (mw.site.namespaces[828].name .. ":" .. mw.title.getCurrentTitle().text)

	end

	end

	-- If in template or module namespace, look up count in /data

	-- If in template or module namespace, look up count in /data

	if template ~= nil then

	if template ~= nil then

		namespace = mw.title.new(template, "Template").namespace

		namespace = mw.title.new(template, "Template").namespace

		if namespace == 10 or namespace == 828 then

		if namespace == 10 or namespace == 828 then

			template =  mw.ustring.gsub(template, "/doc$", "") -- strip /doc from end

			template =  mw.ustring.gsub(template, "/doc$", "") -- strip /doc from end

			template =  mw.ustring.gsub(template, "/sandbox$", "") -- strip /sandbox from end

			template =  mw.ustring.gsub(template, "/sandbox$", "") -- strip /sandbox from end

			local index = mw.ustring.sub(mw.title.new(template).text,1,1)

			local index = mw.ustring.sub(mw.title.new(template).text,1,1)

			local status, data = pcall(function () 

			local status, data = pcall(function () 

				return(mw.loadData('Module:Transclusion_count/data/' .. (mw.ustring.find(index, "%a") and index or "other"))) 

				return(mw.loadData('Module:Transclusion_count/data/' .. (mw.ustring.find(index, "%a") and index or "other"))) 

			end)

			end)

			if status then

			if status then

				return_value = tonumber(data[mw.ustring.gsub(template, " ", "_")])

				return_value = tonumber(data[mw.ustring.gsub(template, " ", "_")])

			end

			end

		end

		end

	end

	end

	-- If database value doesn't exist, use value passed to template

	-- If database value doesn't exist, use value passed to template

	if return_value == nil and frame.args[1] ~= nil then

	if return_value == nil and frame.args[1] ~= nil then

		local arg1=mw.ustring.match(frame.args[1], '[%d,]+')

		local arg1=mw.ustring.match(frame.args[1], '[%d,]+')

		if arg1 and arg1 ~= '' then

		if arg1 and arg1 ~= '' then

			return_value = tonumber(frame:callParserFunction('formatnum', arg1, 'R'))

			return_value = tonumber(frame:callParserFunction('formatnum', arg1, 'R'))

		end

		end

	end

	end

	return return_value	

	return return_value	

end

end

-- Tabulate this data for [[iWiki:Database reports/Templates transcluded on the most pages]]

-- Tabulate this data for [[iWiki:Database reports/Templates transcluded on the most pages]]

function p.tabulate(frame)

function p.tabulate(frame)

	local list = {}

	local list = {}

	for i = 65, 91 do

	for i = 65, 91 do

		local data = mw.loadData('Module:Transclusion count/data/' .. ((i == 91) and 'other' or string.char(i)))

		local data = mw.loadData('Module:Transclusion count/data/' .. ((i == 91) and 'other' or string.char(i)))

		for name, count in pairs(data) do

		for name, count in pairs(data) do

			table.insert(list, {mw.title.new(name, "Template").fullText, count})	

			table.insert(list, {mw.title.new(name, "Template").fullText, count})	

		end

		end

	end

	end

	table.sort(list, function(a, b)

	table.sort(list, function(a, b)

		return (a[2] == b[2]) and (a[1] < b[1]) or (a[2] > b[2])

		return (a[2] == b[2]) and (a[1] < b[1]) or (a[2] > b[2])

	end)

	end)

	local lang = mw.getContentLanguage();

	local lang = mw.getContentLanguage();

	for i = 1, #list do

	for i = 1, #list do

		list[i] = ('|-\n| %d || [[%s]] || %s\n'):format(i, list[i][1]:gsub('_', ' '), lang:formatNum(list[i][2]))

		list[i] = ('|-\n| %d || [[%s]] || %s\n'):format(i, list[i][1]:gsub('_', ' '), lang:formatNum(list[i][2]))

	end

	end

	return table.concat(list)

	return table.concat(list)

end

end

return p

return p