Módulo:Sucesiones

Documentación del módulo

A continuación se muestra la documentación transcluida desde la subpágina /doc. [salta a la caja de código]

---

Uso

---

Esta documentación está transcluida desde Módulo:Sucesiones/doc.
Por favor, añade las categorías en la subpágina de documentación y los interwikis en Wikidata. Subpáginas de este módulo.

local z = {}

-- Módulos utilizados
local ModuloArgumentos= require('Module:Argumentos')
local ModuloTablas    = require('Module:Tablas')
local elementoTabla   = ModuloTablas.elemento
local ModuloWikidata  = require('Module:Wikidata')

local Entidad       -- Tabla con los datos en Wikidata del libro.
local etiquetaWikidata

function z.sucesionPremios(frame)
	ModuloWikidata:setFrame(frame)
	local argumentos = ModuloArgumentos.obtenerArgumentos(frame)
	
	if not argumentos then
		return
	end
	
	local sucesion = mw.html.create('table')
                :addClass('wikitable')
                :css('text-align', 'center')
                :css('width','100%')
                :css('clear','both')
                :css('font-size','90%')

	insertarPremios(sucesion, argumentos[1])

	for k,v in pairs(argumentos) do
		if k~=1 then
			insertarPremios(sucesion, v)
		end
	end
    
    return tostring(sucesion)
end

function insertarPremios(tabla, idEntidad)
    -- Obtener los datos de la página donde se inserta la ficha de Wikidata.'
    -- En su caso se le pasa el valor de la idEntidad. Por ejemplo, Q21502008
    local entidad              = mw.wikibase.getEntityObject(idEntidad)
    local etiquetaWikidata     = elementoTabla(entidad,'labels','es','value') -- entidad['labels']['es']['value']
    local declaracionesPremios = elementoTabla(entidad,'claims','P166')       -- entidad['claims']['P166']
    
    if not etiquetaWikidata or not declaracionesPremios then
    	return
    end
    
	-- Crear una tabla de premios con los datos de Wikidata
	
	local declaracionPremio, premios, k, premio, idPredecesor, idSucesor
	
	premios = {}
	
    for k, declaracionPremio in pairs(declaracionesPremios) do
        idPredecesor = obtenerCalificativo(declaracionPremio, 'P155')
        idSucesor    = obtenerCalificativo(declaracionPremio, 'P156')

        --Saltarse los premios sin predecesor ni sucesor en Wikidata
        if idPredecesor or idSucesor then
    	    premio = {}        	
            premio.nombre = ModuloWikidata.formatoIdEntidad('Q' .. declaracionPremio.mainsnak.datavalue.value['numeric-id'],
    	    	{['enlace'] = 'sí', ['calificativo'] = 'P585', ['mayúscula'] = 'sí'})
    	    premio.idPredecesor = idPredecesor
    	    premio.idSucesor    = idSucesor    	    
    	
    	    -- Premio con fecha
    	    if declaracionPremio.qualifiers and declaracionPremio.qualifiers.P585 and declaracionPremio.qualifiers.P585[1] then 
    	        premio.anyo = ModuloWikidata.formatoDato(declaracionPremio.qualifiers.P585[1],
    	    	    {['enlace'] = 'no', ['formatoTexto']='mayúscula'})
    	    end
    	    
    	    if declaracionPremio.qualifiers and declaracionPremio.qualifiers.P1706 and declaracionPremio.qualifiers.P1706[1] then 
    	        premio.junto = ModuloWikidata.formatoDato(declaracionPremio.qualifiers.P1706[1],
    	    	    {['enlace'] = 'sí', ['formatoTexto']='mayúscula'})
    	    end
    	    
    	    if premio.anyo and premio.junto then
    	    	premio.nombre = premio.nombre .. " (" .. premio.anyo .. ", junto con ''" .. premio.junto ..  "'')"
    	    elseif premio.anyo then
    	    	premio.nombre = premio.nombre .. " (" .. premio.anyo ..  ")"
    	    elseif premio.junto then
    	    	premio.nombre = premio.nombre .. " (junto con ''" .. premio.junto ..  "'')"
    	    end
    	    
    	    table.insert(premios, premio)
    	end
    end
    
    if not premios[1] then
    	return
    end
    
    -- Ordenar los premios por año
    ModuloTablas.ordenar(premios, {'anyo'})
    
    -- grabar los datos obtenidos en la tabla html
    local fila  = tabla:tag('tr')
    local celda = fila:tag('th')

	
	celda:wikitext('Predecesor')
         :css('width','30%')                          
         :css('background-color','#FFEC80')                          
    fila:tag('th'):wikitext("Premios de ''" .. etiquetaWikidata .. "''")
                  :css('background-color','#FFEC80')
        :tag('th'):wikitext('Sucesor')
                  :css('width','30%')    
                  :css('background-color','#FFEC80')   
                          
    -- Por cada premio obtenido
    local k, premio
    local premioAnterior
    
    for k,premio in pairs(premios) do
    	-- insertar una fila
    	fila = tabla:tag('tr')
    	
    	-- con el predecesor (si no coincide con el del premio anterior)
    
    	if premioAnterior and premio.idPredecesor == premioAnterior.idPredecesor then
    		premio.celdaPredecesor = premioAnterior.celdaPredecesor
    		premioAnterior.celdaPredecesor.numeroFilas = premioAnterior.celdaPredecesor.numeroFilas + 1
    		premioAnterior.celdaPredecesor:attr('rowspan',premioAnterior.celdaPredecesor.numeroFilas)
    	else
    		premio.celdaPredecesor = fila:tag('td'):wikitext(formatoObrasAutor(premio['idPredecesor']))
    		premio.celdaPredecesor.numeroFilas = 1
    	end

    	--, el nombre y fecha del premio
    	fila:tag('td'):wikitext(premio.nombre)      		
    		
    	-- y el sucesor (si no coincide con el del premio anterior)
    	if premioAnterior and premio.idSucesor == premioAnterior.idSucesor then
    		premio.celdaSucesor = premioAnterior.celdaSucesor
    		premioAnterior.celdaSucesor.numeroFilas = premioAnterior.celdaSucesor.numeroFilas + 1
    		premioAnterior.celdaSucesor:attr('rowspan',premioAnterior.celdaSucesor.numeroFilas)
    	else
    		premio.celdaSucesor = fila:tag('td'):wikitext(formatoObrasAutor(premio['idSucesor']))
    		premio.celdaSucesor.numeroFilas = 1
    	end    	
    	
    	premioAnterior=premio
    end                          
end


function obtenerCalificativo(declaracion, idCalificativo)
	local valorCalificativo = elementoTabla(declaracion, 'qualifiers', idCalificativo) --declaracion.['qualifiers'][idCalificativo] 
	local resultado = {}
	
	if not valorCalificativo then
		return
	end

    for k,v in pairs(valorCalificativo) do
      	if v.datavalue and v.datavalue.value and v.datavalue.value['numeric-id'] then
       	    table.insert(resultado,'Q' .. v.datavalue.value['numeric-id'])
       	end
    end
	
	-- Devolver una tabla con los identificadores de las entidades de Wikidata 
	-- si hay más de una valor. Si no, devolver el identificador.
	if resultado[2] then
	   return resultado
	elseif resultado[1] then
		return resultado[1]
	end
end

function formatoObraAutor(idEntidad)
	local tituloObraEnlazado= ModuloWikidata.formatoIdEntidad(idEntidad,
			{['enlace'] = 'sí'})
		
	local entidadObra        = mw.wikibase.getEntityObject(idEntidad)
	local declaracionAutores = elementoTabla(entidadObra, 'claims', 'P50')
	
	if declaracionAutores then
	   local autores = ModuloWikidata.getPropiedad({['propiedad']='P50'}, entidadObra.claims['P50'])
	   
	   if autores then 
	   	   return "''" .. tituloObraEnlazado .. "'' de " .. autores
	   end
	end
	
	return "''" .. tituloObraEnlazado .. "''"
end

function formatoObrasAutor(identificador)
    local k2,v2
    		
    if not identificador then
    	return '-'
    elseif type(identificador) == 'table' then
    	local titulos = {}
    			
    	for k2,v2 in pairs(identificador) do
    		titulos[k2] = formatoObraAutor(v2) 
		end
				
		if titulos[2] then
	   		table.insert(titulos, '([[ex aequo|ex æquo]])')
		end
		
		return table.concat(titulos,'<br>')
	else
		return formatoObraAutor(identificador)
	end
end

return z