Модуль:Праверыць Вікізьвесткі

Зьвесткі зь Вікіпэдыі — вольнай энцыкляпэдыі

Дакумэнтацыю да гэтага модуля можна стварыць у Модуль:Праверыць Вікізьвесткі/Дакумэнтацыя

local p = {}

function p.wikidatacheck(frame)
	local pframe = frame:getParent()
	local config = frame.args -- аргумэнты, перададзеныя шаблёнам, у вікітэкст самога шаблёну
	local args = pframe.args -- аргумэнты, перададзеныя Ў шаблён, у вікітэкст, які трансьлюецца шаблёнам

	local property = config.property
	local value = config.value or ""
	local catbase = config.category
	local namespaces = config.namespaces
	local ok = false -- аднабаковы сьцяжок, каб праверыць, ці ў слушнай мы прасторы назваў
	local ns = mw.title.getCurrentTitle().namespace
	for v in mw.text.gsplit( namespaces, ",", true) do
		if tonumber(v) == ns then
			ok = true
		end
	end
	if not ok then -- ні ў вадной з патрэбных прастораў назваў
		return ""
	end
	local entity = mw.wikibase.getEntityObject()
	if not entity then -- няма элемэнту Вікізьвестак
		return "[[Катэгорыя:" .. catbase .. " адсутнічае ў Вікізьвестках]]"
	end
	if value == "" then
		return nil -- Выкарыстаньне Вікізьвестак
	end
	local claims = entity.claims or {}
	local hasProp = claims[property]
	if not hasProp then -- няма сьцьверджаньня да гэтай уласьцівасьці
		return "[[Катэгорыя:" .. catbase .. " адсутнічае ў Вікізьвестках]]" -- блага. Патрэбна дадаць уласьцівасьць робатам
	end
	for i, v in ipairs(hasProp) do -- Спрабуем перабраць усе магчымыя значэньні?
		propValue = (v.mainsnak.datavalue or {}).value
		if propValue == value then
			return "[[Катэгорыя:" .. catbase .. " супадае зь Вікізьвесткамі]]" -- яху!
		end
	end
	return "[[Катэгорыя:" .. catbase .. " адрозьніваецца ад Вікізьвестак]]" -- патрэбнае чалавечае ўмяшаньне :(
end

return p