Wikipedia

Modulo:Camera.it

Info Istruzioni per l'uso
Questo è un modulo scritto in Lua. Le istruzioni che seguono sono contenute nella sottopagina Modulo:Camera.it/man (modifica · cronologia)
Sandbox: Modulo:Camera.it/sandbox (modifica · cronologia) · Sottopagine: lista · Test: Modulo:Camera.it/test (modifica · cronologia · Esegui)

Modulo che implementa il template {{Camera.it}}. 

local getArgs = require('Modulo:Arguments').getArgs
local mWikidataCheck = require('Modulo:Controllo Wikidata')._main
local mEditAtWikidata = require('Modulo:Modifica su Wikidata')._showMessage
local mPipetrick = require('Modulo:Pipetrick')._pipetrick
local mRoman = require('Modulo:Numero romano').main
local mCitazione = require('Modulo:Citazione')
local mWikidata = require('Modulo:Wikidata')

-- costanti
local ERROR_CAT = '[[Categoria:Errori di compilazione del template Camera.it]]'
local PROP_CARICA = 'P39'
local PROP_ID_DEPUTATO = 'P1341'
local PROP_LEGISLATURA = 'P2937'

local romanToNumber = {
	['I'] = 1, ['II'] = 2, ['III'] = 3, ['IV'] = 4, ['IIII'] = 4,
	['V'] = 5, ['VI'] = 6, ['VII'] = 7, ['VIII'] = 8, ['IX'] = 9,
	['X'] = 10, ['XI'] = 11, ['XII'] = 12, ['XIII'] = 13, ['XIV'] = 14,
	['XV'] = 15, ['XVI'] = 16, ['XVII'] = 17, ['XVIII'] = 18, ['XIX'] = 19
}

local function buildUrl(legNum, id)
	local leg = tonumber(legNum)
	return leg == 0  and "http://legislature.camera.it/chiosco.asp?content=altre_sezioni/assemblea_costituente/composizione/costituenti/framedeputato.asp?Deputato=d" .. id
		or leg == 1  and "http://legislature.camera.it/chiosco.asp?content=deputati/legislatureprecedenti/framedeputato.asp?Deputato=d" .. id
		or leg >= 2  and leg <= 9 and string.format("http://legislature.camera.it/chiosco.asp?content=deputati/legislatureprecedenti/Leg0%d/framedeputato.asp?Deputato=d%s", leg, id)
		or leg >= 10 and leg <= 12 and string.format("http://legislature.camera.it/chiosco.asp?content=deputati/legislatureprecedenti/Leg%d/framedeputato.asp?Deputato=d%s", leg, id)
		or leg == 13 and "http://leg13.camera.it/cartellecomuni/leg13/Deputati/scheda_deputato/scheda.asp?id=d" .. id
		or leg == 14 and string.format("http://leg14.camera.it/organiparlamentari/assemblea/contenitore_dati.asp?tipopagina=&deputato=d%s&source=%%2Fdeputatism%%2F240%%2Fdocumentoxml.asp&position=Deputati\La%%20Scheda%%20Personale&Pagina=Deputati/Composizione/01.camera/nuovacomposizione/datpersonali2.asp%%3Fdeputato=d%s", id, id)
		or leg == 15 and string.format("http://leg15.camera.it/cartellecomuni/leg15/include/contenitore_dati.asp?deputato=d%s&source=%%2Fdeputatism%%2F240%%2Fdocumentoxml.asp&Pagina=Deputati/Composizione/SchedeDeputati/SchedeDeputati.asp%%3Fdeputato=%s", id, id)
		or leg == 16 and "http://leg16.camera.it/29?shadow_deputato=" .. id
		or leg >= 17 and string.format("http://www.camera.it/leg%s/29?shadow_deputato=%s&idLegislatura=%s", leg, id, leg)
end

local function formatError(error_msg)
	return string.format('<strong class="error">Errore: %s.</strong>%s', error_msg,
		mw.title.getCurrentTitle().namespace == 0 and ERROR_CAT or '')
end

local function paramError(param_name, no_wikidata)
	local error_msg = "il parametro <kbd>" .. param_name .. "</kbd> non è compilato"

	if no_wikidata == false then
		error_msg = error_msg .. " e non è ricavabile da Wikidata"
	end

	return formatError(error_msg)
end

-- La funzione ricava da Wikidata l'id del deputato
-- (restituisce nil se è impossibile ricavare l'id)
local function getIdFromWikidata(item)
	local claims = mWikidata._getClaims(PROP_ID_DEPUTATO, { from = item })
	-- ritorna il primo id (possiamo assumere che ve ne sia uno soltanto)
	if claims ~= nil and #claims > 0 then return mWikidata._formatStatement(claims[1]) end
end

-- La funzione converte il numero di legislatura in una stringa numerica (es. da "xiv" a "14")
-- (restituisce nil se è impossibile trasformare l'input in un numero naturale)
local function formatLegislatura(leg)
	-- l'Assemblea Costituente ("AC") viene trattata come legislatura 0
	if leg:upper() == 'AC' or leg == 'costituente' then return 0
	else return leg:match("^%d+$") and leg ~= '0' and leg or romanToNumber[leg:upper()]
	end
end

-- La funzione ricava da Wikidata tutte le legislature da deputato
local function getAllLegsFromWikidata(item)
	local legs = {}
	local claims = mWikidata._getClaims(PROP_CARICA, { from = item })
	if claims ~= nil then
		for _, claim in ipairs(claims) do
			local carica = claim.mainsnak.datavalue.value['id']
			
			-- Se la carica ricoperta è "deputato dell'Assemblea Costituente della Repubblica Italiana" (Q3705737)
			if carica == 'Q3705737' then
				-- allora inserisci 0 come numero di legislatura
					table.insert(legs, 0)
			
			-- altrimenti, se la carica ricoperta è "deputato della Repubblica Italiana" (Q18558478)
			elseif carica == 'Q18558478' then
				-- allora ricava la/e legislatura/e (P2937)
				local leg = mWikidata._formatQualifiers(claim, PROP_LEGISLATURA)
				for l in string.gmatch(leg, "(%w+)") do
					table.insert(legs, formatLegislatura(l))
					break
				end
			end
		end
	end
	return legs
end

local p = {}

-- La funzione ritorna i collegamenti ad una o più legislature per il deputato
function p._main(args)
	local item = args.from

	-- argomenti in input
	local id = args[1] or args['id']
	local leg = args[2] or args['legislatura']
	local name = mPipetrick(args[3] or args['nome'])
	local access_date = args['accesso']

	-- costanti
	local site = 'Camera.it'
	local publisher = 'Parlamento italiano'

	local id_from_WD = not id and getIdFromWikidata(item) or nil
	local legs = leg and { formatLegislatura(leg) } or getAllLegsFromWikidata(item)

	-- gestione messaggi e categorie di errore
	local err = select(2, pcall(function ()
		if id == nil and id_from_WD == nil then
			return paramError('id', leg and true or false)
		elseif #legs == 0 and leg then
			return formatError("il numero di legislatura indicato è errato")
		elseif #legs == 0 then
			return paramError('legislatura', id and true or false)
		end
	end))

	if err then
		return args['mostra errori'] ~= 'no' and err or nil
	end

	-- icona e categoria Wikidata
	local wd_icon = mEditAtWikidata({ pid = PROP_ID_DEPUTATO, qid = item, id }) or ''
	local wd_tracking_cat = mWikidataCheck({ PROP_ID_DEPUTATO, id }) or ''

	-- generazione dei link
	local altri_link = {}
	local first_url, first_title

	-- link disposti sempre in ordine crescente di legislatura
	table.sort(legs, function(n, m) return tonumber(n) < tonumber(m) end)

	for i = 1, #legs do
		local leg = legs[i]
		local url = buildUrl(leg, id or id_from_WD)
		local short_name, long_name
		if leg == 0 then
			short_name = "Assemblea Costituente"
			long_name = short_name .. " (Italia)"
		else 
			local roman = mRoman({ leg }):upper()
			short_name = roman .. " legislatura"
			long_name = short_name .. " della Repubblica Italiana"
		end
		if i == 1 then
			first_url = url
			if #legs == 1 then
				first_title = name
				site = string.format("%s - [[%s|%s]]", site, long_name, short_name)
			else
				first_title = string.format("%s (%s)", name, long_name)
			end
		else
			table.insert(altri_link, { url, short_name })
		end
	end

	return mCitazione.cita_da_modulo('args', {
			url = first_url,
			titolo = first_title,
			altrilink = altri_link,
			sito = site,
			editore = publisher,
			accesso = access_date
		}) .. wd_icon .. wd_tracking_cat
end

-- Entry-point per il template Camera.it
function p.getLinks(frame)
	local args = getArgs(frame)
	args['mostra errori'] = frame.args['mostra errori']
	return p._main(args)
end

return p
Estratto da "https://it.wikipedia.org/w/index.php?title=Modulo:Camera.it&oldid=130096943"