Modulo:Senato.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 Senato.it]]'
local PROP_CARICA = 'P39'
local PROP_ID_SENATORE = 'P2549'
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 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 senatore
-- (restituisce nil se è impossibile ricavare l'id del senatore)
local function getIdFromWikidata(item)
	local claims = mWikidata._getClaims(PROP_ID_SENATORE, { 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)
	return leg:match("^%d+$") and leg or romanToNumber[leg:upper()]
end

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

local p = {}

-- La funzione ritorna i collegamenti ad una o più legislature per il senatore
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 = 'Senato.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
	
	if id == nil and id_from_WD == nil then
		err = paramError('id', leg and true or false)
	elseif #legs == 0 and leg then
		err = formatError("il numero di legislatura indicato è errato")
	elseif #legs == 0 then
		err = paramError('legislatura', id and true or false)
	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_SENATORE, qid = item, id }) or ''
	local wd_tracking_cat = mWikidataCheck({ PROP_ID_SENATORE, id }) or ''
	
	-- generazione dei link
	local url_pattern = "https://www.senato.it/loc/link.asp?tipodoc=sattsen&id=%s&leg=%s"
	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 = string.format(url_pattern, id or id_from_WD, leg)
		local roman = mRoman({ leg }):upper()
		local short_name = roman .. " legislatura"
		local long_name = short_name .. " della Repubblica Italiana"
		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 Senato.it
function p.getLinks(frame)
	local args = getArgs(frame)
	args['mostra errori'] = frame.args['mostra errori']
	return p._main(args)
end

return p