Modulo:Cita Wikidata

La documentazione per questo modulo può essere creata in Modulo:Cita Wikidata/man

require('Modulo:No globals')

local p = {}
local propertyId
local errorMsg = '<span style="font-size:100%" class="error citation-comment">Errore: parametro <code style="color:red;">$1</code> mancante.</span>'

local getArgs = require('Modulo:Arguments').getArgs
local mWikidata = require('Modulo:Wikidata')
local mCitazione = require('Modulo:Citazione')
local pipetrick = require('Modulo:Pipetrick')._pipetrick

-- Funzioni di supporto
local function is_set( var )
	return not (var == nil or var == '');
end

local function is_pattern( str )
	return is_set(str) and str:find('$1')
end

local function getQualifier(qualifierId, conjunction)
	return mWikidata._getQualifier( { propertyId, qualifierId, conjunction=conjunction } )
end

-- Funzioni per ricavare dati specifici
local function getAutori()
	local autoriStringa = getQualifier('P2093')
	if is_set(autoriStringa) then
		local autoriConLink = getQualifier('P50', ', ')
		if is_set(autoriConLink) then
			return autoriConLink .. ', ' .. autoriStringa
		else
			return autoriStringa
		end
	else 
		return getQualifier('P50')
	end
end

local function getTitolo()
	local titolo = getQualifier('P1476')
		or getQualifier('P1810')
		or getQualifier('P1932')
		or getQualifier('P742')
		or getQualifier('P554')
		or pipetrick()
	return titolo
end

function p.getCitation(frame)
	local args = getArgs(frame)
	
	--Ritorna un errore se in args mancano i campi medium o prop
	if not is_set(args.medium) then return errorMsg:gsub('$1', 'medium') end
	if not is_set(args.prop)   then return errorMsg:gsub('$1', 'prop')   end
	
	propertyId = args.prop
	
	local identifierFromWD = mWikidata._getProperty( { propertyId } )
	local identifier = args.id or identifierFromWD
	
	local urlType
	if is_pattern(args.url) then
		urlType = 'titolo'
		args.url = args.url:gsub('$1', identifier)
	elseif is_pattern(args.urlcapitolo) then
		urlType = 'capitolo'
		args.urlcapitolo = args.urlcapitolo:gsub('$1', identifier)
	elseif is_pattern(args.url_capitolo) then
		urlType = 'capitolo'
		args.url_capitolo = args.url_capitolo:gsub('$1', identifier)
	end
	
	-- Se un identificatore è specificato, allora si sta forzando l'inserimento manuale;
	-- in tal caso, nessun dato va ricavato da Wikidata, altrimenti si rischierebbero incongruenze fra i dati manuali e quelli automatici
	if identifier == identifierFromWD then
		if not is_set(args.autore) then
			args.autore = getAutori()
		end
		
		if urlType == 'titolo' then
			if not is_set(args.titolo) then
				args.titolo = getTitolo()
			end
		elseif urlType == 'capitolo' then
			if not is_set(args.capitolo) then
				args.capitolo = getTitolo()
			end
		end
		
		if not is_set(args.data) and not is_set(args.anno) then
			args.data = getQualifier('P577')
		end
		
		if not is_set(args.vol) and not is_set(args.volume) then
			args.volume = getQualifier('P478')
		end
	else
		if urlType == 'titolo' and not is_set(args.titolo) then
			args.titolo = pipetrick()
		elseif urlType == 'capitolo' and  not is_set(args.capitolo) then
			args.capitolo = pipetrick()
		end
	end
	
	args.cid = args.cid:gsub('$1', identifier)
	args.id = nil --non passare l'argomento 'id' al Modulo:Citazione
	
	return mCitazione.cita_da_modulo(args.medium, args)
end

return p