Модуль:Wikidata/iwikiQ

Википедия — ирекле энциклопедия мәғлүмәте

Для документации этого модуля может быть создана страница Модуль:Wikidata/iwikiQ/doc

local M={}

function M.iwiki(f)-- Интервики для указанного языка и указанной страницы (только с ВД)
	local parent = f:getParent()
	local lang = f.args.lang or f.args[2] or parent.args.lang or parent.args[2]
	if lang == "" then
		lang = nil
	end
	local id = f.args.id or f.args[1] or parent.args.id or parent.args[1]
    local function try()
	    if lang then
	        return mw.wikibase.getEntityObject(id).sitelinks[lang..'wiki'].title
	    else-- список интервик
	        local r={}
	       local fg = f.args.f
	        if fg then
	        	fg = mw.text.unstripNoWiki(fg)
	        else
	        	fg = ": [[:$1:$2|({{#language:$1|ru}})]]"
	        end
	        for k,v in pairs( mw.wikibase.getEntityObject(id).sitelinks or {} ) do
				if k:sub(-4)=="wiki" then
	            	table.insert( r,  mw.message.newRawMessage(fg):rawParams(k:sub(1,-5),v.title):plain() )
	            end
	        end
                table.sort(r)
	        return f:preprocess( table.concat(r, (f.args.s or "\n"):gsub('^"(.*)"$',"%1"),nil) )
	    end
	end
	local r, result = pcall(try);
    if r then
    	return result
    else
    	return '<strong class="error">Ошибка работы со страницей Викиданных '..(id or mw.wikibase.getEntityIdForCurrentPage())..' ('..result..')</strong>';
    end
end

return M