Ir al contenido

Módulo:Zona de pruebas/Juan Mayordomo/Ficha de libro

De Wikipedia, la enciclopedia libre
Este módulo no tiene página de documentación[crear]
local z = {}

local argumentos    -- Tabla de argumentos con los que se llama a la función 
local argumento={}  -- Argumentos eliminando los argumentos sin datos
local Entidad       -- Tabla con los datos en Wikidata del libro.
--                         Ver Wikidata:WikiProject Books para las propicedades posibles
local etiquetaWikidata

-- Módulos utilizadost
local ModuloArgumentos       = require('Módulo:Argumentos')
local ModuloFicha            = require('Módulo:Ficha')	
local ModuloIdentificadores  = require('Módulo:Identificadores')
local ModuloPaginas          = require('Módulo:Páginas')	
local ModuloWikidataFormatos = require('Módulo:Wikidata/Formatos')
	local formatoObraAnyo = ModuloWikidataFormatos.formatoObraAnyo
local ModuloWikidata         = require('Module:Wikidata')
local ModuloTablas           = require('Module:Tablas')
	local elementoTabla      = ModuloTablas.elemento
	local insertar           = ModuloTablas.insertar
  
local enlazar                = require('Módulo:Formato texto').enlazar
local sinBandera             = require('Módulo:Bandera').sinBandera

-- Constantes
local enMayusculas    = {['formatoTexto'] = 'mayúscula'}

local categoriasGenerosNovelas = {
	 [3056541] = 'Novelas autobiográficas'	
	,[4184   ] = 'Novelas autobiográficas'	--autobiografía
	,[908667 ] = 'Novelas bélicas'
	,[4914883] = 'Novelas biográficas'
	,[174526 ] = 'Novelas ciberpunk'
	,[1077883] = 'Novelas ciberpunk' -- biopunk
	,[1341831] = 'Novelas ciberpunk' -- postciberpunk
	,[223945 ] = 'Novelas de aprendizaje'	 
	,[319226 ] = 'Novelas de aventuras'
	,[1436734] = 'Novelas de aventuras' -- aventura. FALTA corregir el enlace par que enlace a novela de aventuras.
	,[24925  ] = 'Novelas de ciencia ficción'
	,[12132683]= 'Novelas de ciencia ficción'
	,[905770 ] = 'Novelas de ciencia ficción' -- ciencia ficción blanda
	,[725757 ] = 'Ciencia ficción dura' -- ciencia ficción dura
	,[2435402] = 'Novelas de ciencia ficción feministas' -- ciencia ficción feminista
	,[2561390] = 'Novelas de humor'
	,[40831  ] = 'Novelas de humor'		  -- Comedia
	,[6585139] = 'Novelas de misterio'
	,[182015 ] = 'Novelas de suspense'
	,[193606 ] = 'Novelas de terror'
	,[1425557] = 'Novelas de vampiros'
	,[10453828] = 'Novelas de viajes en el tiempo'-- novela de viajes en el tiempo
	,[253732 ] = 'Novelas de viajes en el tiempo' -- Viaje en el tiempo en la ficción
	,[182154 ] = 'Novelas de viajes en el tiempo' -- Viaje a través del tiempo	
	,[180774 ] = 'Novelas distópicas'             -- Distopía
	,[20443047] = 'Novelas distópicas' -- literatura distópica
	,[25372  ] = 'Novelas dramáticas'	
	,[465821 ] = 'Novelas epistolares'
	,[747483 ] = 'Novelas eróticas'
	,[1426213] = 'Novelas de espionaje'
	,[10992055]= 'Novelas fantásticas' -- novela fantástica	
	,[132311 ] = 'Novelas fantásticas' -- Género fantástico	
	,[1057172] = 'Novelas fantásticas' -- Literatura fantástica
	,[603291 ] = 'Novelas fantásticas' -- fantasía histórica
	,[794912 ] = 'Novelas fantásticas' -- dark fantasy/fantasía oscura
	,[2016518] = 'Novelas filosóficas'
	,[20669641]= 'Novelas góticas'	  -- Ficción gótica	
	,[192782 ] = 'Novelas góticas'	  -- Narrativa gótica
	,[276709 ] = 'Novelas góticas'    -- Gótico sureño
	,[1196408] = 'Novelas históricas' -- Ficción histórica
	,[192239 ] = 'Novelas históricas'
	,[131539]  = 'Obras infantiles' -- Literatura infantil
	,[11825892] = 'Novelas juveniles' -- novela juvenil
	,[1233720] = 'Novelas juveniles' -- Literatura juvenil
	,[1940294] = 'Novela negra'
	,[1619888] = 'Novelas pastoriles'	
	,[208505 ] = 'Novelas policíacas'
	,[186424 ] = 'Novelas policíacas' -- El detective de ficción
	,[113013 ] = 'Novelas posmodernas' -- Literatura posmoderna
	,[286328 ] = 'Novelas psicológicas'
	,[147516]  = 'Novelas de realismo mágico'	
	,[858330 ] = 'Novelas románticas'
	,[6045975] = 'Novelas satíricas' -- novela satírica
	,[128758 ] = 'Novelas satíricas' -- Sátira
	,[7225114] = 'Novelas satíricas' -- Sátira política
	,[223685] = 'Novelas steampunk' -- steampunk
	,[3440959] = 'Novelas de suspense' -- Novela de suspenso
	,[590103]  = 'Novelas de suspense psicológico' -- thriller psicológico
	,[224989 ] = 'Novelas ucrónicas'
	,[16681629 ] = 'Novelas ucrónicas' --literatura ucrónica
}

local categoriasGeneros = {
	  [693    ] = 'Fábulas'
    , [1072723] = 'Libros de viajes' -- literatura de viajes
    , [1164267] = 'Libros de viajes' -- libro de viajes
	, [131539 ] = 'Obras infantiles' -- literatura infantil
}

local tablaGeneros={ -- Tabla de géneros exceptuando los subgéenros.
      'Q8261'    -- Novela
    , 'Q149537'  -- Novela corta
	--, 'Q482'   -- Poesía
	, 'Q49084'   -- Cuento
	, 'Q25379'   -- Obra de teatro
	, 'Q1279564' -- colección de cuentos
}

local categoriasTemasNovelas = {
 	   [180046] = 'Novelas de exploración espacial' -- exploración espacial
	,  [362   ] = 'Novelas de la Segunda Guerra Mundial' -- Segunda Guerra Mundial
	, [10453828] = 'Novelas de viajes en el tiempo'-- novela de viajes en el tiempo	
	, [253732] = 'Novelas de viajes en el tiempo' --viaje en el tiempo en la ficción
	, [182154] = 'Novelas de viajes en el tiempo' --viaje a través del tiempo	
	, [10859 ] = 'Novelas sobre la Guerra Civil Española'	
}
	
function z.Ficha(frame)
--  Hacer que funcione la función formatBandera	
    ModuloWikidata:setFrame(frame)  -- No funciona si se pone ModuloWikidata.setFrame(marco)
    
    --Obtener una copia de los argumentos eliminando los argumentos sin valor
    local argumento = ModuloArgumentos.obtenerArgumentosConValor(frame)
    
    -- Obtener los datos de la página donde se inserta la ficha de Wikidata.
    Entidad = mw.wikibase.getEntityObject(argumento.id) or {}
    
    --if true then
    --	return ModuloTablas.tostring(Entidad)
    --end
  
    corregirIdiomaWikidata(Entidad, 'P364')
    
    local generoWikidata, subgeneroWikidata, temaWikidata = obtenerGeneroWikidata()
    
    if generoWikidata then
        genero    = generoWikidata
        subgenero = subgeneroWikidata
    else 
        genero    = argumento['género'] or 
                    argumento['genero'] or
                    argumento['Género']
        subgenero = argumento['subgénero'] or
                    argumento['subgenero'] or
                    argumento['Subgénero']    	
    end
             
    if not genero then
    	ColorFondo = 'LightSteelBlue'
    	ColorFondo2 = '#d8e2ee'    	
    elseif genero:find('[Rr]elato')  or 
    	   genero:find('[Cc]uento')  or
    	   genero:find('[Ll]eyenda') or 
    	   genero:find('[Aa]ntología') then
        ColorFondo = 'LightSalmon'
    	ColorFondo2 = '#f9d9cb'        
    elseif genero:find('didáctico') or
    	   genero:find('[Ee]nsayo')  or 
    	   genero:find('[Dd]ivulgación')  or
    	   genero:find('[Cc]rítica')  or
    	   genero:find('[Tt]ratado') or
    	   genero:find('[Cc]rónica') then
        ColorFondo = 'NavajoWhite'
    	ColorFondo2 =  '#FBE7C9'
    elseif genero:find('[Pp]oesía') or
    	genero:find('[Ee]popeya') or
        genero:find('[Ll]írico') or genero:find('[Ll]írica') or
    	genero:find('[Pp]oema') then
    	ColorFondo = 'darkseagreen'
    	ColorFondo2 = '#afdeaf'
    else
    	ColorFondo = 'LightSteelBlue'
    	ColorFondo2 = '#d8e2ee'
    end
    
    Autor = propiedad('P50',{['enlace']='sí', 
               ['calificativo'] = 'P742' -- seudónimo
            }) or
            argumento['autor']   or 
            argumento['autores'] or 
            argumento['Autor']   or
            argumento['Autores']
            
    if Autor and argumento['Acotaciones al autor'] then
    	Autor = Autor .. '<br /><small>' .. argumento['Acotaciones al autor'] .. '</small>'
    end
    
    if  argumento['publicación original'] or argumento['tipo original'] or 
        argumento['tipo de publicación original'] or argumento['editorial original'] or 
        argumento['ilustrador original'] or argumento['ciudad original'] or 
        argumento['país original'] or argumento['fecha original'] or
        argumento['formato original'] or argumento['páginas original'] or
        argumento['isbn original']    or
        argumento['Año original']     or argumento['Año de publicación original'] or
        argumento['Ilustrador original'] or argumento['Ilustrador de la publicación original'] or        
        argumento['Artista de cubierta original'] or argumento['Artista de cubierta de la publicación original'] or
        argumento['Editorial original'] or argumento['Editorial de publicación original'] or
        argumento['Ciudad original'] or argumento['Ciudad de publicación original'] or
        argumento['País original'] or argumento['País de publicación original'] or
        argumento['ISBN original'] or 
        argumento['OCLC original'] or
        argumento['Formato original'] or 
        argumento['Número de páginas original']
        then
        	
       EdicionOriginal = true
    end
    
    if argumento['Título traducción']              or argumento['Título de la traducción']             or 
       argumento['Año traducción']                 or argumento['Año de publicación de la traducción'] or
       argumento['Traductor']                      or argumento['traductor']                           or
       argumento['Ilustrador traducción']          or argumento['Ilustrador de la traducción']         or
       argumento['Artista de cubierta traducción'] or argumento['Artista de cubierta de la traducción'] or
       argumento['Editorial traducción']           or argumento['Editorial de la traducción']           or
       argumento['Ciudad traducción']              or argumento['Ciudad de publicación de la traducción'] or
       argumento['País traducción']                or argumento['País de publicación de la traducción']   or
       argumento['ISBN traducción']                or argumento['ISBN de la traducción']    or
       argumento['OCLC traducción']                or 
       argumento['Formato traducción']             or argumento['Formato de la traducción'] or
       argumento['Número de páginas traducción']   or argumento['Número de páginas de la traducción']
                           then
    	EdicionTraduccion = true
    end
    
    if EdicionOriginal or EdicionTraduccion then
        IdiomaOriginal = propiedad('P364',{['enlace']='sí'}) or
                         enlazarIdioma(
        	                 argumento['lengua'] or 
        	                 argumento['idioma'] or 
        	                 argumento['idioma original'] or
        	                 argumento['Idioma original'], 'no')
        	             

        IlustradorOriginal = propiedad('P110',{['enlace']='sí'}) or
                             argumento['ilustrador original'] or 
                             argumento['Ilustrador original'] or
                             argumento['Ilustrador de la publicación original']
                            
        ArtistaOriginal    = propiedad('P736',{['enlace']='sí'}) or
                             argumento['artista original'] or
                             argumento['Artista de cubierta original'] or
                             argumento['Artista de cubierta de la publicación original']
        
        PublicacionOriginal      = propiedad('P1433',{['enlace']='sí'}) or
                                   argumento['Publicación original'] or
                                   argumento['publicación original']
                                   
        TipoPublicacionOriginal  = argumento['Tipo de publicación original'] or 
                                   argumento['tipo de publicación original'] or 
                                   argumento['tipo original']
        EditorialOriginal        = propiedad('P123',{['enlace']='sí', ['lista'] = 'no ordenada'}) or 
                                   argumento['editorial original'] or 
                                   argumento['Editorial original'] or
                                   argumento['Editorial de publicación original']
                                   
        LugarPublicacionOriginal = propiedad('P291') or 
                                   argumento['ciudad original'] or 
                                   argumento['Ciudad original'] or
                                   argumento['Ciudad de publicación original']
                                   
        PaisOriginal             = propiedad('P495') or
                                   sinBandera(argumento['país original'] or
                                   argumento['País original'] or
                                   argumento['País de publicación original'])
                                   
        AnyoOriginal             = argumento['Año original'] or 
                                   argumento['Año de publicación original']
        FechaOriginal            = propiedad('P577', enMayusculas) or
                                   argumento['Fecha original'] or 
                                   argumento['fecha original'] or 
                                   enlazar(AnyoOriginal)
                                   
        FormatoOriginal          = propiedad('P437', enMayusculas) or -- Distribución (cartoné, etc)
                                   argumento['formato original'] or 
                                   argumento['Formato original']
                                   
        PaginasOriginal          = propiedad('P1104') or 
                                   argumento['páginas original'] or 
                                   argumento['Número de páginas original']
                                   
        ISBNOriginal             = propiedad('P957',{
        	                       	  ['valor-función'] = ModuloIdentificadores.enlazarISBN,
        	                       	  ['calificativo']   = 'P437', -- distribución
        	                       }) or 
        	                       propiedad('P212',{
        	                       	  ['valor-función'] = ModuloIdentificadores.enlazarISBN,
        	                       	  ['calificativo']   = 'P437', -- distribución        	                       	  
        	                       }) or
        	                       ModuloIdentificadores.enlazarISBN(
        	                           argumento['isbn original'] or 
        	                           argumento['ISBN original'])
        	                       
        OCLCOriginal             = propiedad('P243',{['valor-función'] = ModuloIdentificadores.enlazarOCLC}) or
                                   ModuloIdentificadores.enlazarOCLC(
        	                         argumento['oclc original'] or 
        	                         argumento['OCLC original'])
        	                       
        PremiosOriginal = propiedad('P166', {
                          	['lista']         = 'no ordenada',
                          	['valor-función'] = ModuloWikidataFormatos.formatoPremio,
                            ['calificativo']  = 'P585', -- Fecha de ocurrencia                          	          
                          	['enlace']        = 'sí',
                          	['ordenar']       = 'por fecha'}) or
                          argumento['Premios'] or
                          argumento['premios']
        
        Artista          = argumento['artista_cubierta']                     or
        		           argumento['artista']                              or
        		           argumento['Artista de cubierta traducción']       or 
        		           argumento['Artista de cubierta de la traducción']
        Ilustrador       = argumento['ilustrador']                  or
                           argumento['Ilustrador traducción']       or
                           argumento['Ilustrador de la traducción']
        Editorial        = argumento['editorial']                  or
                           argumento['Editorial traducción']       or 
                           argumento['Editorial de la traducción']
        LugarPublicacion = argumento['ciudad']                                 or
                           argumento['Ciudad traducción']                      or 
                           argumento['Ciudad de publicación de la traducción']
        Publicacion      = argumento['publicación']
        Pais             = sinBandera(argumento['país'] or 
                           argumento['pais'] or
                           argumento['País traducción'] or 
                           argumento['País de publicación de la traducción'])
        Fecha            = argumento['fecha_publicación'] or 
                           argumento['fecha publicacion'] or 
                           argumento['fecha']             or
                            enlazar(
                                argumento['Año traducción'] or 
                                argumento['Año de publicación de la traducción'])
        Paginas          = argumento['páginas']                            or
                           argumento['Número de páginas traducción']       or 
                           argumento['Número de páginas de la traducción']
        ISBN             = ModuloIdentificadores.enlazarISBN(
        	                   argumento['isbn']            or
        	                   argumento['ISBN traducción'] or
        	                   argumento['ISBN de la traducción'])
        OCLC             = ModuloIdentificadores.enlazarOCLC(
        	                   argumento['oclc'] or
        	                   argumento['OCLC traducción'])
        	                   
        if IdiomaOriginal then
        	if IdiomaOriginal:find('[Ee]spañol') or IdiomaOriginal:find('[Cc]astellano') then
        		WikisourceOriginal = obtenerWikisource('español')
        	else
        		WikisourceOriginal = obtenerWikisource(IdiomaOriginal)
        		Wikisource         = obtenerWikisource('español')
        	end
        end
    else
        IdiomaOriginal   = propiedad('P364',enMayusculas) or
                           enlazarIdioma(argumento['lengua'] or 
        	                             argumento['idioma'] or 
        	                             argumento['idioma original'], 'sí')
        Artista          = propiedad('P736',{['enlace']='sí'}) or
                           argumento['artista_cubierta'] or
        		           argumento['artista']
        Ilustrador       = propiedad('P110',{['enlace']='sí'}) or argumento['ilustrador']
        Editorial        = propiedad('P123',{['enlace']='sí', ['lista'] = 'no ordenada'}) or argumento['editorial']
        LugarPublicacion = propiedad('P291',{['enlace']='sí'}) or argumento['ciudad']
        Publicacion      = propiedad('P1433',{['enlace']='sí'}) or argumento['publicación']
        Pais             = propiedad('P495') or 
                           sinBandera(argumento['país'] or argumento['pais'])
        Fecha            = propiedad('P577', enMayusculas) or argumento['fecha_publicación'] or 
                           argumento['fecha publicacion'] or 
                           argumento['fecha']
        Formato          = propiedad('P437', enMayusculas) or -- Distribución (cartoné, etc)
                           argumento['formato']    or 
            	           argumento['tipo_medio'] or
            	           argumento['Formato traducción'] or 
            	           argumento['Formato de la traducción']
                          
        Paginas          = propiedad('P1104') or argumento['páginas'] or argumento['paginas']
        ISBN             = propiedad('P957',{
        	                   ['valor-función'] = ModuloIdentificadores.enlazarISBN,
        	                   ['calificativo']   = 'P437', -- distribución
        	               }) or 
        	               propiedad('P212',{
        	                   ['valor-función'] = ModuloIdentificadores.enlazarISBN,
        	                   ['calificativo']   = 'P437', -- distribución        	                       	  
        	               }) or 
        	               ModuloIdentificadores.enlazarISBN(argumento['isbn'])
        OCLC            = propiedad('P243',{['valor-función'] = ModuloIdentificadores.enlazarOCLC}) or
                          ModuloIdentificadores.enlazarOCLC(argumento['oclc'])
        Premios         = propiedad('P166', {
                            ['lista']         = 'no ordenada',
                            ['valor-función'] = ModuloWikidataFormatos.formatoPremio,
                            ['calificativo']  = 'P585', -- Fecha de ocurrencia
                            ['enlace']        = 'sí',
                            ['ordenar']       = 'por fecha'}) or
                            argumento['premios']
                            
        if IdiomaOriginal and (IdiomaOriginal:find('[Ee]spañol') or IdiomaOriginal:find('[Cc]astellano')) then
        	-- Libro en español
        	Wikisource         = obtenerWikisource('español')
        elseif IdiomaOriginal then
        	-- Libro no en español sin datos de la edición en español
        	WikisourceOriginal = obtenerWikisource(IdiomaOriginal)
        	Wikisource         = obtenerWikisource('español')
        end
    end
    
    -- Titulo         --> Título del libro en español
    -- TituloOriginal --> Título original del libro si no está en español
    
    etiquetaWikidata = obtenerEtiquetaWikidata()
    
    if IdiomaOriginal and (IdiomaOriginal:find('[Ee]spañol') or IdiomaOriginal:find('[Cc]astellano')) then
    	--Libro escrito en español
        Titulo      =  propiedad('P1476')           or 
                       propiedad('P357')            or -- Obsoleto pero se usa aún
                       etiquetaWikidata             or
                       argumento['título original'] or
                       argumento['título_orig']     or
                       argumento['titulo_orig']     or
                       argumento['título orig']     or
                       argumento['Título original'] or
                       argumento['título']          or 
                       argumento['nombre']          or
                       ModuloPaginas.nombrePagina({desambiguar='sí'})
    else
    	--Libro no escrito en español
    	-- o del que se desconoce el idioma
        TituloOriginal  = propiedad('P1476')           or 
                          propiedad('P357')            or
                          argumento['título original'] or
                          argumento['título_orig']     or
                          argumento['titulo_orig']     or
                          argumento['título orig']     or
                          argumento['Título original']
                          
        Titulo       = etiquetaWikidata                or
                       argumento['Título traducción']  or 
                       argumento['Título de la traducción'] or
                       argumento['título']          or 
                       argumento['nombre']          or
                       ModuloPaginas.nombrePagina({desambiguar='sí'})    	
    end

    local FichaLibro = {
    	entidad         = argumento.id,
        titulo          = Titulo,
        clasetitulo     = 'libro',
        estilotitulo    = 'background-color:' .. ColorFondo .. '; color:#000; font-style:italic',
        subtitulo       = Autor and '<small>de</small>&nbsp;' .. "'''" .. Autor .. "'''",
        estilosubtitulo = 'font-size:105%; background-color:' .. ColorFondo2 .. ';',
        estiloseccion   = 'background-color:' .. ColorFondo .. '; color:#000;',
        estiloetiqueta  = 'width:35%',
        estilodatos     = 'width:65%',
        imagen          = argumento['imagen'] or argumento['Imagen'] or propiedad('P18', {uno='sí'}),
        ['tamañoimagen']= argumento['Tamaño de imagen'] or '220px', -- FALTA {{px|{{{Tamaño de imagen}}}}}
        pie             = argumento['texto_imagen'] or argumento['texto imagen'] or 
                          argumento['pie de imagen'] or argumento['Pie de imagen'],
        estilopie       = 'font-size:88%',
        {'Editor(es)', propiedad('P98')      or 
        	           argumento['Editor']   or
        	           argumento['editor']   or 
        	           argumento['Editores'] or 
                       argumento['editores']
                       },
        {'Fotografía', argumento['Fotografía'] or
        	           argumento['fotografía']},
        {'Género'    , genero},
        {'Subgénero' , subgenero},
        {'Tema(s)'   , temaWikidata or
        	           argumento['tema'] or
        	           argumento['Tema']
        	           },
        {'Ambientada en', propiedad('P840', enMayusculas)},        	           
        {tipo='sección',
            -- El título de la sección solo se muestra si hay datos de las dos ediciones.        	
            titulo = (EdicionOriginal or EdicionTraduccion) and IdiomaOriginal and 'Edición original en ' .. IdiomaOriginal,
            {'Idioma', not EdicionOriginal and not EdicionTraduccion and IdiomaOriginal},
            {'Título original'     , TituloOriginal,
                                     estilodatos='font-style:italic'},
            {'Ilustrador', IlustradorOriginal},  -- FALTA si enlazar
            {'Cubierta'            , ArtistaOriginal},
            {'Publicado en'        , PublicacionOriginal
            	                   , estilodatos='font-style:italic'},
            {'Tipo de publicación' , TipoPublicacionOriginal},
            {'Editorial'           , EditorialOriginal, clase='plainlist'},
            {'Ciudad'              , LugarPublicacionOriginal},	
            {'País'                , PaisOriginal},
            {'Fecha de publicación', FechaOriginal},
            {'Formato'             , FormatoOriginal},
            {'Páginas'             , PaginasOriginal},
            {'[[ISBN]]'            , ISBNOriginal},
            {'[[Online Computer Library Center|OCLC]]', OCLCOriginal},
            {'Premios'             , PremiosOriginal, clase='plainlist'},
            {'Texto original'      , WikisourceOriginal}            
        },
        {tipo='sección',
            -- El título de la sección solo se muestra si hay datos de las dos ediciones.
        	titulo        = (EdicionOriginal or EdicionTraduccion) and 'Edición traducida al [[idioma español|español]]',
        	{'Traducido por'         , argumento['traductor'] or argumento['Traductor']},
        	{'Adaptación'            , argumento['adaptación'] or
        		                   argumento['adaptador']},
        	{'Ilustrador'            , Ilustrador},
        	{'Artista de la cubierta', Artista},
        	{'Publicado en'          , Publicacion
        		                     , estilodatos='font-style:italic'},
        	{'Tipo de publicación'   , argumento['tipo de publicación'] or
        		                   argumento['tipo']},
        	{'Editorial', Editorial, clase='plainlist'},
        	{'Ciudad'              , LugarPublicacion},
        	{'País'                , Pais},
            {'Fecha de publicación', Fecha},
            {'Formato'             , Formato},
            {'Páginas'             , Paginas},
            --{'Tamaño y peso',       argumento['tamano_peso']},  -- Usar los parámetros para el formato
            {'[[ISBN]]',            ISBN},
            {'[[Online Computer Library Center|OCLC]]', OCLC},
            {'Premios'             , Premios, clase='plainlist'},
            {'Texto en español'    , Wikisource}
        },
        
        {tipo='sección',
        	titulo        = 'Libros',
        	{'',propiedad('P527',{['enlace']='sí', ['lista'] = 'no ordenada', ['valor-función'] = formatoObraAnyo,}), clase='plainlist'}
        }
    }
        
    -- Series de libros
    
    if Entidad and Entidad.claims and Entidad.claims.P179 and Entidad.claims.P179[1]  then
    	declaracionSerie1 = Entidad.claims.P179[1]
    	
    	tituloSerie       = "''" .. ModuloWikidata.formatoIdEntidad('Q' .. declaracionSerie1.mainsnak.datavalue.value['numeric-id'],
    	    	{['enlace'] = 'sí'}) .. "''"
    	
    	if declaracionSerie1.qualifiers and declaracionSerie1.qualifiers.P155 and declaracionSerie1.qualifiers.P155[1] and declaracionSerie1.qualifiers.P155[1].datavalue then 
    	    precedidaPor      = ModuloWikidata.formatoIdEntidad('Q' .. declaracionSerie1.qualifiers.P155[1].datavalue.value['numeric-id'],
    	    	{['enlace'] = 'sí'})
    	end

    	if declaracionSerie1.qualifiers and declaracionSerie1.qualifiers.P156 and declaracionSerie1.qualifiers.P156[1] and declaracionSerie1.qualifiers.P156[1].snaktype == 'value' then     	
    	    sucedidaPor       = ModuloWikidata.formatoIdEntidad('Q' .. declaracionSerie1.qualifiers.P156[1].datavalue.value['numeric-id'],
    	    	{['enlace'] = 'sí'})
    	end
    	
    	if precedidaPor or sucedidaPor then
            serieConCualificador = true      
        
            table.insert(FichaLibro,    
                {tipo   = 'sección',
        	     titulo = tituloSerie,
        	     {tipo  = 'sucesión',
        	        anterior          = precedidaPor,
        	        siguiente         = sucedidaPor,
                    color             = ColorFondo2,
                    ['estilo fuente'] = 'italic'
                  }            
                }
            )        
        end
    end
    
    if not serieConCualificador then  
    table.insert(FichaLibro,
        {tipo='sección',
        	titulo                = propiedad('P179',{['formatoTexto'] = 'cursivas',['enlace']='sí'}) or
        	                        argumento['serie']           or 
        	                        argumento['Serie de libros'] or
        	                        'Serie',
        	{tipo = 'sucesión',
        	    anterior          = propiedad('P155',{['enlace']='sí'}) or
        	                        argumento['precedido_por'] or  -- FALTA ver El Mago de la Serpiente
        	                        argumento['anterior']      or 
        	                        argumento['Libro que le precede'] or
        	                        argumento['Libro que le precede en la serie']
        	                        ,
        	    siguiente         = propiedad('P156',{['enlace']='sí'}) or
        	                        argumento['seguido_por'] or 
        	                        argumento['posterior']   or 
        	                        argumento['siguiente']   or 
        	                        argumento['Libro que le sigue'] or
        	                        argumento['Libro que le sigue en la serie']
        	                        ,
                color             = ColorFondo2,
                ['estilo fuente'] = 'italic'
            }
        }
    )
    end

    table.insert(FichaLibro,    
        {tipo='sección',
        	titulo                = argumento['Serie de libros 2'] or
        	                        'Serie',
        	{tipo = 'sucesión',
        	    anterior          = argumento['Libro que le precede 2'] or
        	                        argumento['Libro que le precede en la serie 2'],
        	    siguiente         = argumento['Libro que le sigue 2'] or
        	                        argumento['Libro que le sigue en la serie 2'],
                color             = ColorFondo2,
                ['estilo fuente'] = 'italic'
            }            
        }
    )
    table.insert(FichaLibro,        
        {tipo='sección',
        	titulo                = argumento['Autor'] and 'Cronología&nbsp;de ' .. argumento['Autor'],
        	{tipo = 'sucesión',
        	    anterior          = argumento['Libro anterior'] or
        	                        argumento['Libro que le precede en la cronología'],
        	    siguiente         = argumento['Libro posterior'] or
        	                        argumento['Libro que le sigue en la cronología'],
        	    ['año anterior']  = argumento['Año anterior'] or argumento['Año del libro que le precede en la cronología'],
        	    ['año']           = AnyoOriginal,
        	    ['año siguiente'] = argumento['Año posterior'] or argumento['Año del libro que le sigue en la cronología'],
                color             = ColorFondo2,
                ['estilo fuente'] = 'italic'
            }            
        }        
    )
    
    -- Añadir categorías si es posible
    
    if not ModuloPaginas.sePuedeCategorizar() then
    	return ModuloFicha.infobox(FichaLibro)
    end
    
    local categorias = ''

    -- Errores

    if etiquetaWikidata and etiquetaWikidata:match('%(') then
       categorias=categorias .. '[[Categoría:Wikipedia:Páginas con etiquetas de Wikidata con paréntesis]]'
    end
   
    -- Géneros

    local categoriasGeneros = {}
    
    if Entidad and Entidad.claims then
    	if generoWikidata then
    		if generoWikidata:find('[Cc]uento') then
    			-- Cuentos del autor
    			table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = 'Cuentos de $1'},Entidad.claims['P50']))
    		    -- Cuentos de un año
                table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = 'Cuentos de $1', ['formatoFecha']='año'},Entidad.claims['P577']))
       
                -- Cuentos de un país
                table.insert(categoriasGeneros, ModuloWikidata.categorizar(
       	             {['categoría']     = 'Cuentos de $1'
       	           },Entidad.claims['P495']))
                -- Pendiente si categorizar por el idioma.

                if subgeneroWikidata then
                    if subgeneroWikidata:find('[Cc]iencia ficción') then
                    	table.insert(categoriasGeneros, '[[Categoría:Cuentos de ciencia ficción]]')
                    end
                    
                    if subgeneroWikidata:find('[Ff]antástica') then
                    	table.insert(categoriasGeneros, '[[Categoría:Cuentos fantásticos]]')
                    end
                end
            end
            
            if generoWikidata:find('[Tt]eatro') then
            	-- Obras de teatro por autor
            	table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = 'Obras de teatro de $1'},Entidad.claims['P50']))
            	-- Obras de teatro de un año
            	table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = 'Obras de teatro de $1', ['formatoFecha']='año'},Entidad.claims['P577']))
       
            	-- Obras de teatro de un país
            	table.insert(categoriasGeneros, ModuloWikidata.categorizar(
            		   {['categoría']     = 'Obras de teatro de $1'
            	 	   },Entidad.claims['P495']))
       	   
            	-- Obras de teatro de un idioma
            	table.insert(categoriasGeneros, ModuloWikidata.categorizar(
       	            {['categoría']     = 'Obras de teatro en $1',
                	   },Entidad.claims['P364']))
            end
            
            if generoWikidata:find('[Nn]ovela') then
            	table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = categoriasGenerosNovelas},Entidad.claims['P136']))
    	
            	-- Novelas por tema
            	table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = categoriasTemasNovelas},Entidad.claims['P921']))
       
            	-- Novelas del autor
            	table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = 'Novelas de $1'},Entidad.claims['P50']))
       
            	-- Novelas de un año
            	table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = 'Novelas de $1', ['formatoFecha']='año'},Entidad.claims['P577']))
       
            	-- Novelas de un país
            	table.insert(categoriasGeneros, ModuloWikidata.categorizar(
       	           {['categoría']     = 'Novelas de $1'
       	           },Entidad.claims['P495']))
       
            	-- Novelas de un idioma
            	table.insert(categoriasGeneros, ModuloWikidata.categorizar(
       	           {['categoría']     = 'Novelas en $1',
       	           },Entidad.claims['P364']))
            end
        end
        
        if not categoriasGeneros[1] then
        	-- Libros de un año
        	table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = 'Libros de $1', ['formatoFecha']='año'},Entidad.claims['P577']))
        	-- Libros de un país
        	table.insert(categoriasGeneros, ModuloWikidata.categorizar(
        	   {['categoría']     = 'Libros de $1'}
       	       ,Entidad.claims['P495']))
        end
        
        if categoriasGeneros[1] then
           categorias = categorias .. table.concat(categoriasGeneros)
        end
        
        -- Obras infantiles, fábulas, etc.    
        categorias=categorias .. ModuloWikidata.categorizar({['categoría'] = categoriasGeneros},Entidad.claims['P136'])
        
        -- Premios
        categorias = categorias .. ModuloWikidata.categorizar({['categoría'] = '$1'}, Entidad.claims['P166'])        
    end
    
    return ModuloFicha.infobox(FichaLibro) .. categorias
end
 
function enlazarIdioma(idioma, mayuscula)
    if not idioma then
        return idioma
    else
    	inicio, medio, fin=idioma:match('(%[[^|%]]*|)(.)(.*)')
    	if inicio and medio and fin  then
    		if mayuscula == 'sí' then
    		    return inicio .. medio:upper() .. fin
    		else
    		    return inicio .. medio:lower() .. fin
    	    end
         end
    
        if idioma:find('%[') then
             return idioma
        end

        idioma= idioma:lower()
        
  		if mayuscula == 'sí' then
  		    return '[[idioma ' .. idioma .. '|' .. idioma:gsub("%a", string.upper,1) .. ']]'
   		else
   		    return '[[idioma ' .. idioma .. '|' .. idioma .. ']]'
   	    end
    end
end

-- Función que devuelve la lista de los valores de una propiedad en Wikidata formateados
function propiedad(idPropiedad,opciones)
    if Entidad and Entidad.claims and Entidad.claims[idPropiedad] then
    	if not opciones then
    		opciones = {}
    	end
    	opciones['propiedad'] = idPropiedad

        valorPropiedad = ModuloWikidata.getPropiedad(opciones,Entidad.claims[idPropiedad])

    	return valorPropiedad
    end
end

-- Función que devuelve el género y el subgénero de Wikidata.
-- La novela, novela corta o cuento, se devolverán siempre en el género.
-- El resto de géneros se devolverán como subgénero o como género dependiendo de
-- si en Wikidata se utiliaz uno de los géneros anteriores.
-- Por ejemplo:
--  - En Wikidata Novela + ciencia ficción --> género = Novela, subgénero = Ciencia ficción
--  - En Wikidata ciencia ficción --> género = Ciencia ficción

function obtenerGeneroWikidata()
    if not Entidad or not Entidad.claims then
        return 
    end
 
    local declaracionesGeneros = Entidad.claims['P136']
    local declaracionesTemas   = Entidad.claims['P921']
 
    local identificadorGenero, identificadorTema
    local generos    = {}
    local subgeneros = {}
    local temas      = {}
    local hayGeneros = false
 
 	if declaracionesTemas then
 		for k,v in pairs(declaracionesTemas) do
 			identificadorTema = 'Q' .. v.mainsnak.datavalue.value['numeric-id']
 			if identificadorTema == 'Q182154'   then -- viaje a través del tiempo
				insertar(temas, 'Q253732')                 -- viaje en el tiempo en la ficción
			else
 				insertar(temas, identificadorTema)
 			end
 		end
 	end
 	
 	if declaracionesGeneros then
    	for k,v in pairs(declaracionesGeneros) do
    		identificadorGenero = 'Q' .. v.mainsnak.datavalue.value['numeric-id']

        	if identificadorGenero == 'Q132311' then       -- Género fantástico
    	    	insertar(subgeneros, 'Q1057172')           -- Literatura fantástica    	
    		elseif identificadorGenero == 'Q12132683' then -- Novela de ciencia ficción
    			insertar(generos, 'Q8261')
    			insertar(subgeneros, 'Q24925')
    			hayGeneros = true
    		elseif identificadorGenero == 'Q10992055' then -- Novela fantástica
    			insertar(generos, 'Q8261')                 -- Novela
    			insertar(subgeneros, 'Q1057172')           -- Literatura fantástica 
    			hayGeneros = true
    		elseif identificadorGenero == 'Q3056541' then  -- Novela autobiográfica
    			insertar(generos, 'Q8261')                 -- Novela
    			insertar(subgeneros, 'Q4184')              -- Autobiografía 
    			hayGeneros = true    		
    		elseif identificadorGenero == 'Q20443047' then -- Literatura distópica
    			insertar(temas, 'Q180774')                 -- Distopía
    		elseif identificadorGenero == 'Q16681629' then -- literatura ucrónica
    			insertar(subgeneros, 'Q224989')            -- Ucronía
    		elseif identificadorGenero == 'Q3547700' then  -- ucronía de fantasía
    			insertar(subgeneros, 'Q224989')            -- Ucronía    			
    			insertar(subgeneros, 'Q1057172')           -- Literatura fantástica 
    		elseif identificadorGenero == 'Q516626' then   -- Terror (sentimiento de miedo o fobia en su escala máxima)
    			insertar(subgeneros, 'Q193606')            -- Terror (género literario)
			elseif identificadorGenero == 'Q21616374' then -- Novela de vampiros
    			insertar(generos, 'Q8261')                 -- Novela
    			insertar(subgeneros, 'Q1425557')           -- literatura de vampiros
    			hayGeneros = true 
			elseif identificadorGenero == 'Q11825892' then -- novela juvenil
    			insertar(generos, 'Q8261')                 -- Novela
    			insertar(subgeneros, 'Q1233720')           -- literatura juvenil
    			hayGeneros = true
			elseif identificadorGenero == 'Q149537' then   -- novela corta
    			insertar(generos, 'Q8261')                 -- novela
    			hayGeneros = true     			
    		elseif identificadorGenero == 'Q10453828' then -- novela de viajes en el tiempo
    			insertar(generos, 'Q8261')                 -- novela
    			insertar(temas, 'Q253732')                 -- viaje en el tiempo en la ficción
    			hayGeneros = true 
			elseif identificadorGenero == 'Q253732'   then -- viaje en el tiempo en la ficción
				insertar(temas, 'Q253732')                 -- viaje en el tiempo en la ficción
			elseif identificadorGenero == 'Q182154'   then -- viaje a través del tiempo
				insertar(temas, 'Q253732')                 -- viaje en el tiempo en la ficción
			elseif identificadorGenero == 'Q1347298'  then -- novela por entregas
				-- No es un género en sí. No mostrarlo.
			elseif identificadorGenero == 'Q3440959' then  -- novela de suspense
    			insertar(generos, 'Q8261')                 -- novela
    			insertar(subgeneros, 'Q182015')            -- suspense
    			hayGeneros = true 				
    		elseif ModuloTablas.en(tablaGeneros, identificadorGenero) then
		    	insertar(generos, identificadorGenero)
		    	hayGeneros = true
    		else
		  		insertar(subgeneros, identificadorGenero)
			end
		end
	end

    if hayGeneros then
        return formatear(generos), formatear(subgeneros), formatear(temas)
    else
        return formatear(subgeneros), nil, formatear(temas)
    end
end
 
-- Formatear una tabla de identificadores de entidades de Wikidata
function formatear(identificadores)
	local identificadoresFormateados = {}
	local primero = true
 
    for k,v in pairs(identificadores) do
    	if primero then
    	    table.insert(identificadoresFormateados, ModuloWikidata.formatoIdEntidad(v,{['mayúscula'] = 'sí', ['enlace'] = 'sí'}))
    	    primero = false
    	else
    		table.insert(identificadoresFormateados, ModuloWikidata.formatoIdEntidad(v, {['mayúscula'] = 'no', ['enlace'] = 'sí'}))
    	end
    end

    -- No devolver nada si la lista no tiene elementos
    if not primero then
        return mw.text.listToText(identificadoresFormateados)
    end
end

function obtenerEtiquetaWikidata()
	if Entidad and Entidad.labels and Entidad.labels.es then
        return Entidad.labels.es.value
    end
end

function obtenerWikisource(idioma)
	if not idioma or not Entidad or not Entidad.sitelinks then
		return
	end
	
	if idioma:find('[Ee]spañol') then
		if not Entidad.sitelinks.eswikisource or not Entidad.sitelinks.eswikisource.title then
			return
		end

		tituloWikiSource = Entidad.sitelinks.eswikisource.title		
		--[[Archivo:Wikisource-logo.svg|15px| ]] 
		return "''[[s:" .. tituloWikiSource .. "|" .. tituloWikiSource .. "]]'' en [[Wikisource]]"
	elseif idioma:find('[Ii]nglés') then
		if not Entidad.sitelinks.enwikisource or not Entidad.sitelinks.enwikisource.title then
			return
		end		
		
		tituloWikiSource = Entidad.sitelinks.enwikisource.title		
		
		return "''[[:en:s:" .. tituloWikiSource .. "|" .. tituloWikiSource .. "]]'' en [[Wikisource]]"		
	elseif idioma:find('[Ff]rancés') then
		if not Entidad.sitelinks.frwikisource or not Entidad.sitelinks.frwikisource.title then
			return
		end		
		
		tituloWikiSource = Entidad.sitelinks.frwikisource.title			

		return "''[[:fr:s:" .. tituloWikiSource .. "|" .. tituloWikiSource .. "]]'' en [[Wikisource]]"		
	end
end

function corregirIdiomaWikidata(entidad, idPropiedad)
	if not entidad or not idPropiedad then
		return
	end
    
	local declaracion= elementoTabla(entidad, 'claims', idPropiedad)
	local idIdioma
	
	if not declaracion then
		return
	end
	
	for k,v in pairs(declaracion) do
		idIdioma=elementoTabla(v,'mainsnak','datavalue','value','id')
		
		if idIdioma == 'Q7979' or -- inglés británico
 		   idIdioma == 'Q7976'  then -- inglés estadounidense
 		   	v.mainsnak.datavalue.value.id='Q1860'
 			v.mainsnak.datavalue.value['numeric-id']=1860
 		end
	end
end
return z