Módulo:SDcat

A documentação para este módulo pode ser criada na página Módulo:SDcat/doc

--[[
SDcat
Module to check whether local short description matches that on Wikidata
--]]
local p = {}
-------------------------------------------------------------------------------
--[[
setCat has the qid of a Wikidata entity passed as |qid=
(it defaults to the associated qid of the current article if omitted)
and the local short description passed as |sd=
It returns a category if there is an associated Wikidata entity.
It returns one of the following tracking categories, as appropriate:
* Category:Short description matches Wikidata (case-insensitive)
* Category:Short description is different from Wikidata
* Category:Short description with empty Wikidata description
For testing purposes, a link prefix |lp= may be set to ":" to make the categories visible.
--]]
-- function exported for use in other modules
-- (local short description, Wikidata entity-ID, link prefix)
p._setCat = function(sdesc, itemID, lp)
				if not mw.wikibase then return nil end
				if itemID == "" then itemID = nil end
				-- Wikidata description field
				local wdesc = (mw.wikibase.getDescription(itemID) or ""):lower()
				if wdesc == "" then
								return "[[" .. lp .. "Categoria:!Descrições curtas com descrição Wikidata vazia]]"
				elseif wdesc == sdesc then
								return "[[" .. lp .. "Categoria:!Descrições curtas com descrição igual no Wikidata]]"
				else
								return "[[" .. lp .. "Categoria:!Descrições curtas com descrição diferente no Wikidata]]"
				end
end
-- function exported for call from #invoke
p.setCat = function(frame)
				local args
				if frame.args.sd then
								args = frame.args
				else
								args = frame:getParent().args
				end
				-- local short description
				local sdesc = mw.text.trim(args.sd or ""):lower()
				-- Wikidata entity-ID
				local itemID = mw.text.trim(args.qid or "")
				-- link prefix, strip quotes
				local lp = mw.text.trim(args.lp or ""):gsub('"', '')
				return p._setCat(sdesc, itemID, lp)
end
return p