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 HtmlBuilder     = require('Module:HtmlBuilder') -- Obsoleto. Usar mw.html
local ModuloTablas    = require('Module:Tablas')
local ModuloWikidata  = require('Module:Wikidata')

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

function z.sucesionPremios(frame)
    -- Obtener los datos de la página donde se inserta la ficha de Wikidata.
    Entidad = mw.wikibase.getEntityObject()
    
    -- Obra sin etiqueta en Wikidata
    if not Entidad or not Entidad.labels or not Entidad.labels.es then
    	return
    end
    -- Obra sin premios en Wikidata
    if not Entidad.claims or not Entidad.claims['P166'] then
    	return
    end
    
    etiquetaWikidata = Entidad.labels.es.value
    
    sucesion = mw.html.create('table')
                :addClass('wikitable')
                :css('text-align', 'center')
                :css('width','100%')
                :css('clear','both')
                :css('font-size','90%')
                
    sucesion:tag('tr')
                :tag('th'):wikitext('Predecesor')              
                          :css('width','30%')                          
                          :css('background-color','#FFEC80')                          
                :tag('th'):wikitext("Premios de ''" .. etiquetaWikidata .. "''")
                          :css('background-color','#FFEC80')                
                :tag('th'):wikitext('Sucesor')                                                    
                          :css('width','30%')    
                          :css('background-color','#FFEC80')                          
	-- Grabar los datos obtenidos de Wikidata en una tabla
	
    nombrePremios  = {}
    idPredecesores = {}
    idSucesores    = {}
    
    for k,premio in pairs(Entidad.claims['P166']) do   
        nombrePremios[k] = ModuloWikidata.formatoIdEntidad('Q' .. premio.mainsnak.datavalue.value['numeric-id'],
    	    	{['enlace'] = 'sí', ['calificativo']   = 'P585'})    	
    	
    	-- Premio con fecha    
    	if premio.qualifiers and premio.qualifiers.P585 and premio.qualifiers.P585[1] then 
    	    anyoPremio = ModuloWikidata.formatoDato(premio.qualifiers.P585[1],
    	    	{['enlace'] = 'sí', ['formatoTexto']='mayúscula'})
    	    nombrePremios[k] = nombrePremios[k] .. ' (' .. anyoPremio .. ')'
    	end
    	
    	if premio.qualifiers                   and 
    	   premio.qualifiers.P155              and 
    	   premio.qualifiers.P155[1]           and 
    	   premio.qualifiers.P155[1].datavalue and 
    	   premio.qualifiers.P155[1].datavalue.value then     	
    	
    	    idPredecesores[k] = premio.qualifiers.P155[1].datavalue.value['numeric-id']
    	end
    	
    	if premio.qualifiers                   and 
    	   premio.qualifiers.P156              and 
    	   premio.qualifiers.P156[1]           and 
    	   premio.qualifiers.P156[1].datavalue and 
    	   premio.qualifiers.P156[1].datavalue.value then     	
    	
    	    idSucesores[k] = premio.qualifiers.P156[1].datavalue.value['numeric-id']
    	end    	
    end
    
    -- Formatear los datos obtenidos
    for k,premio in pairs(nombrePremios) do   
    	fila = sucesion:tag('tr')  
    	
    	-- Predecesor
    	if not idPredecesores[k] or idPredecesores[k] ~= idPredecesores[k - 1] then
    	    if idPredecesores[k] then
    	        tituloPredecesor = "''" .. ModuloWikidata.formatoIdEntidad('Q' .. idPredecesores[k],
    	    	    {['enlace'] = 'sí'}) .. "''"
    	    else
    		    tituloPredecesor = '-'
    	    end
    		
    		if idPredecesores[k] and idPredecesores[k] == idPredecesores[k + 1] and 
    		   idPredecesores[k] == idPredecesores[k + 2] then
    		   	
    	    	fila:tag('td'):wikitext(tituloPredecesor)
    		        :attr('rowspan', 3) 		   	
    	    elseif idPredecesores[k] and idPredecesores[k] == idPredecesores[k + 1] then
    	    	fila:tag('td'):wikitext(tituloPredecesor)
    		        :attr('rowspan', 2)		        
    		else
    		    fila:tag('td'):wikitext(tituloPredecesor)    		    
    		end
    	end

    	fila:tag('td'):wikitext(nombrePremios[k])      		
    		
    	-- Sucesor
    	if not idSucesores[k] or idSucesores[k] ~= idSucesores[k - 1] then
    	    if idSucesores[k] then
    	        tituloSucesor = "''" .. ModuloWikidata.formatoIdEntidad('Q' .. idSucesores[k],
    	    	    {['enlace'] = 'sí'}) .. "''"
    	    else
    		    tituloSucesor = '-'
    	    end
    		
    		if idSucesores[k] and idSucesores[k] == idSucesores[k + 1] and
    		   idSucesores[k] == idSucesores[k + 2] then
    		   	
    	    	fila:tag('td'):wikitext(tituloSucesor)
    		        :attr('rowspan', 3)		   	
    	    elseif idSucesores[k] and idSucesores[k] == idSucesores[k + 1] then
    	    	fila:tag('td'):wikitext(tituloSucesor)
    		        :attr('rowspan', 2)    		        
    		else
    		    fila:tag('td'):wikitext(tituloSucesor)    			   		    
    		end
    	end
    end
    
    return tostring(sucesion)
    
end

return z