Módulo:Ficha de película

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 de la película.
local Entidades={}	-- Tabla con los datos en Wikidata de las películas que forman la serie.
local algunaPropiedadEnlazaWikidata -- Para alguna propiedad no existe la etiqueta ni el enlace mostrándose algo de la forma d:...

-- Características especiales para la ficha
local esSerieCinematografica = false  -- Para distinguir series cinematográficas de películas
local esPeliculaMuda = false

-- Módulos y funciones externas
local ModuloFicha				= require('Módulo:Ficha')
local ModuloPaginas				= require('Módulo:Páginas')	
local ModuloWikidataFormatos	= require('Módulo:Wikidata/Formatos')
local ModuloWikidata			= require('Módulo:Wikidata')
local 	getPropiedadWikidata	= ModuloWikidata.getPropiedad
local   tieneValorPropiedad     = ModuloWikidata.tieneValorPropiedad
local ModuloCategorizar			= require('Módulo:Categorizar')
local 	categoriza				= ModuloCategorizar.categoriza
local elementoTabla				= require('Módulo:Tablas').elemento
local listaHtml                 = require('Módulo:Listas').listahtml

local generosCinematograficos = {
	['Q188473']			= 'acción',
	['Q15637293']       = 'acción', -- Anime y manga de acción
	['Q202866']			= 'animación',
	['Q28968258']		= 'animación',
	['Q1033891']		= 'artes marciales',
	['Q319221']			= 'aventuras',
	['Q15712918']       = 'aventuras', -- Anime y manga de aventuras
	['Q471839']			= 'ciencia ficción',
	['Q5366020']        = 'ciencia ficción', -- Anime y manga de ciencia ficción
	['Q157443']			= 'comedia',
	['Q15286013']       = 'comedia', -- Anime y manga de comedia
	['Q959790']			= 'crímenes',
	['Q93204']			= 'documental',
	['Q130232']			= 'drama',
	['Q15637299']       = 'drama', -- Anime y manga dramático
	['Q1361932']		= 'familiar',
	['Q157394']			= 'fantasía',
	['Q2973181']		= 'fantasía',
	['Q15637301']       = 'fantasía', -- Anime y manga de fantasía
	['Q1200678']		= 'misterio',
	['Q842256']			= 'musical',
	['Q1054574']		= 'romance',
	['Q15637310']       = 'romance', -- Anime y manga romántico
	['Q182015']			= 'suspenso',
	['Q2484376']		= 'suspenso',
	['Q200092']			= 'terror',
	['Q172980']			= 'wéstern',
	
	-- Géneros para no mostrar en ficha
	['Q1257444']		= '',	-- Adaptación cinematográfica
	['Q21401869']		= '',	-- Flashback en el cine
	['Q52207399']       = '',   -- Película basada en una novela
	['Q52207310']		= '',	-- Película basada en un libro
	['Q226730']         = '',   -- Cine mudo
}

-- Si el identificador está en la tabla de géneros cinematográficos cambiará
-- el nombre por el que aparece en la tabla y, en caso contrario, mantendrá
-- el nombre que aparezca en Wikidata para ese género
function formatoGenero(valor, opciones, frame, calificativos)
	local enlace, etiqueta, idEntidad = ModuloWikidataFormatos.obtenerDatos(valor)
	
	if generosCinematograficos[idEntidad] then
		etiqueta = generosCinematograficos[idEntidad]
	end
	
	if etiqueta ~= '' then
		return ModuloWikidataFormatos.enlazar(enlace, etiqueta, idEntidad, opciones)
	else
		return nil
	end
end

-- Constantes
local enMayusculas			= {['formatoTexto'] = 'mayúscula'}
local enMayusculasO			= {['formatoTexto'] = 'mayúscula', ['conjunción']=' o '}
local listaNoOrdenada		= {['lista'] = 'no ordenada', ['formatoTexto'] = 'mayúscula'}
local soloUno				= {['rangoMayor'] = 'sí', ['uno'] = 'sí' }
local estreno				= {['rangoMayor'] = 'sí', ['formatoFecha'] = 'año', ['uno'] = 'sí' }
local obraAutor				= {['valor-función'] = ModuloWikidataFormatos.formatoObraAutor }
local listaPeliculas		= {['lista'] = 'no ordenada', ['valor-función'] = ModuloWikidataFormatos.formatoObraAnyo, ['ordenar'] = 'sí' }
local generoCinematografico	= {['formatoTexto'] = 'mayúscula', ['valor-función'] = formatoGenero }
local sinLapiz              = {}
local formatoCategorizar	= {['separador'] = '<br />', ['conjunción'] = '<br />', ['enlace'] = 'no'}

function z.Ficha(frame)
	ModuloWikidata:setFrame(frame)  -- No funciona si se pone ModuloWikidata.setFrame(marco)	
	-- Obtener una copia de los argumentos eliminando los argumentos sin valor
	-- y dejando en blanco (aunque no nil) aquellos que valen "no"
	local argumento = obtenerArgumentosConValor(frame)
	
	local color		= '#ABD2D0'
	local estilotitulo = 'background-color:'..color.. '; font-style:italic'
	local estiloseccion = 'background-color:'..color
	
	Entidad = mw.wikibase.getEntityObject(argumento['entidad']) or {}
	
	local esSerieCinematografica = tieneValorPropiedad(Entidad, 'P31', 'Q24856') or 
		tieneValorPropiedad(Entidad, 'P31', 'Q13593818') or
		tieneValorPropiedad(Entidad, 'P31', 'Q56884562')
	local esPeliculaMuda = tieneValorPropiedad(Entidad, 'P364', 'Q21686005') or 
		tieneValorPropiedad(Entidad, 'P31', 'Q226730') or
		tieneValorPropiedad(Entidad, 'P136', 'Q226730')
	local esPeliculaEnBlancoYNegro = tieneValorPropiedad(Entidad, 'P462', 'Q838368')
	local esCortometraje = tieneValorPropiedad(Entidad, 'P31', 'Q24862') or
		tieneValorPropiedad(Entidad, 'P31', 'Q17517379')
	
	-- Cargar entidades enlazadas en la propiedad P527 (compuesto de)
	if esSerieCinematografica and Entidad and Entidad.claims and Entidad.claims['P527'] then
		for key,value in ipairs(Entidad.claims['P527']) do
			local ms = value.mainsnak
			if ms.snaktype == 'value' and ms.datavalue and ms.datavalue.value then
				local id = ms.datavalue.value.id
				Entidades[id] = mw.wikibase.getEntityObject(id) or {}
			end
		end
	end
	
	-- Imagen y pie de la imagen
	local imagen = argumento['imagen']  or argumento['Imagen'] or argumento['foto']
	local pieDeImagen
	
	if imagen then
		pieDeImagen = argumento['pie de imagen'] or argumento['pieimagen'] or
					  argumento['descripción'] or argumento['descripcion'] or
					  argumento['pie de foto'] or argumento['piedefoto'] or
					  argumento['textoimagen'] or argumento['TextoImagen'] or argumento['texto_imagen'] or
					  argumento['pie de foto']
	else
		imagen, pieDeImagen = obtenerImagenWikidata()
	end
	
	local tituloOriginal = argumento['título original'] or 
							propiedad('P1476', sinLapiz) or 
							argumento['título'] or
							obtenerEtiquetaWikidata() or 
							ModuloPaginas.nombrePagina({desambiguar='sí'})
	local tituloTraducido = nil
	
	if argumento['título'] ~= tituloOriginal then
		tituloTraducido = argumento['título']
	end
	
	local tituloES, tituloHA, tituloAR
	if not tituloTraducido then
		local valorES = obtenerValorCalificativo('P1552', 'P1476', 'Q27847754')
		local valorHA = obtenerValorCalificativo('P1552', 'P1476', 'Q27834579')
		local valorAR = obtenerValorCalificativo('P1552', 'P1476', 'Q106341285')
		tituloES = (valorES and valorES.text) or ''
		tituloHA = (valorHA and valorHA.text) or ''
		tituloAR = (valorAR and valorAR.text) or ''
		
		if tituloOriginal ~= tituloES and tituloES ~= '' then
			tituloTraducido = tituloES
		end
		
		if tituloOriginal ~= tituloHA and tituloHA ~= '' then
			if tituloTraducido ~= nil and tituloTraducido ~= tituloHA then
				tituloTraducido = ''
			elseif tituloTraducido == nil then
				tituloTraducido = tituloHA
			end
		end
		
		if tituloOriginal ~= tituloHA and tituloHA ~= '' then
			if tituloTraducido ~= nil and tituloTraducido ~= tituloHA then
				tituloTraducido = ''
			elseif tituloTraducido == nil then
				tituloTraducido = tituloHA
			end
		end
		
		if tituloOriginal ~= tituloAR and tituloAR ~= '' then
			if tituloTraducido ~= nil and tituloTraducido ~= tituloAR then
				tituloTraducido = ''
			elseif tituloTraducido == nil then
				tituloTraducido = tituloAR
			end
		end
		
		if tituloTraducido and tituloTraducido ~= '' then
			tituloTraducido = "''"..tituloTraducido.."''"
			tituloES = ''
			tituloHA = ''
			tituloAR = ''
		end
	end
	
	local directores
	
	if argumento['dirección'] or argumento['dirección2'] or argumento['dirección3'] or
		argumento['dirección4'] or argumento['dirección5'] or argumento['dirección6'] or
		argumento['dirección7'] or argumento['dirección8'] or argumento['dirección9'] then
			local enlazarDirector = 'sí'
			if (argumento['dir_enlace'] == 'no') then
				enlazarDirector = 'no'
			end
			
			directores = frame:preprocess('{{#Invoke:listas|listahtml'..
				'|enlazar='..enlazarDirector..
				'|'..(argumento['dirección'] or '').. 
				'|'..(argumento['dirección2'] or '').. 
				'|'..(argumento['dirección3'] or '').. 
				'|'..(argumento['dirección4'] or '').. 
				'|'..(argumento['dirección5'] or '').. 
				'|'..(argumento['dirección6'] or '').. 
				'|'..(argumento['dirección7'] or '')..
				'|'..(argumento['dirección8'] or '')..
				'|'..(argumento['dirección9'] or '')..'}}')
	else
		directores = propiedad('P57', listaNoOrdenada)
	end
	
	local serieCinematografica
	if esSerieCinematografica then
		serieCinematografica = propiedad('P527', listaPeliculas)	
	end

	local imdbId, filmaffinityId, seccionEnlacesExternos
	if argumento['test'] == 'sí' then
		seccionEnlacesExternos = frame:preprocess('<small>{{#Invoke:listas|listahtml|clase=hlist'..
			'|'..((propiedad('P3593', soloUno) and '[http://www.afi.com/members/catalog/DetailView.aspx?s=&Movie='..propiedad('P3593', soloUno)..' AFI]') or '')..
			'|'..((propiedad('P1562', soloUno) and '[http://www.allmovie.com/movie/'..propiedad('P1562', soloUno)..' AllMovie]') or '')..
			'|'..((propiedad('P1237', soloUno) and '[http://www.boxofficemojo.com/movies/?id='..propiedad('P1237', soloUno)..' Box Office Mojo]') or '')..
			'|'..((propiedad('P480', soloUno) and '[https://www.filmaffinity.com/es/film'..propiedad('P480', soloUno)..'.html FilmAffinity]') or '')..
			'|'..((propiedad('P345', soloUno) and '[https://www.imdb.com/title/'..propiedad('P345', soloUno)..'/ IMDb]') or '')..
			'|'..((propiedad('P1712', soloUno) and '[http://www.metacritic.com/'..propiedad('P1712', soloUno)..' Metacritic]') or '')..
			'|'..((propiedad('P3302', soloUno) and '[https://www.omdb.org/movie/'..propiedad('P3302', soloUno)..' omdb]') or '')..
			'|'..((propiedad('P1258', soloUno) and '[https://www.rottentomatoes.com/'..propiedad('P1258', soloUno)..' Rotten Tomatoes]') or '')..
			'|'..((propiedad('P1265', soloUno) and '[http://www.sensacine.com/film/fichefilm_gen_cfilm='..propiedad('P1265', soloUno)..'.html SensaCine]') or '')..
			'|'..((propiedad('P2631', soloUno) and '[http://tcmdb.com/title/title.jsp?stid='..propiedad('P2631', soloUno)..' TCM]') or '')..
			'|'..((propiedad('P2638', soloUno) and '[http://www.tv.com/'..propiedad('P2638', soloUno)..' TV.com]') or '')..'}}</small>')
	else
		imdbId = propiedad('P345', soloUno)
		filmaffinityId = propiedad('P480', soloUno)
	end
	
	local enlaceImdb = imdbId and '[https://www.imdb.com/title/'..imdbId..'/ Ficha] en [[Internet Movie Database|IMDb]]'
	local enlaceFilmaffinity = filmaffinityId and '[https://www.filmaffinity.com/es/film'..filmaffinityId..'.html Ficha] en [[FilmAffinity]]'
	local identificadoresExternos
	
	if imdbId and filmaffinityId then
		identificadoresExternos = enlaceImdb..'<br />'..enlaceFilmaffinity
	elseif imdbId or filmaffinityId then 
		identificadoresExternos = enlaceImdb or enlaceFilmaffinity
	end
	
	local sucesion1, 
			sucesion2, 
			sucesionWikidata, 
			sucesionOscarMejorPelicula, 
			sucesionOscarMejorPeliculaAnimacion
	
	if argumento['criterio_sucesión'] or argumento['precedida_por'] or 
		argumento['sucedida_por'] then
		
		sucesion1 = {
			['tipo']			= 'sección',
			['título']			= argumento['criterio_sucesión'] or 'Sucesión de películas',
			['estilotitulo']	= estiloseccion,
			{
				['tipo']			= 'sucesión',
				['estilo fuente']	= 'italic',
				['anterior']		= argumento['precedida_por'],
				['actual']			= tituloOriginal,
				['siguiente']		= argumento['sucedida_por']
			}
		}
	end

	if argumento['criterio_sucesión2'] or argumento['precedida_por2'] or 
		argumento['sucedida_por2'] then
		
		sucesion2 = {
			['tipo']			= 'sección',
			['título']			= argumento['criterio_sucesión2'] or 'Sucesión de películas',
			['estilotitulo']	= estiloseccion,
			{
				['tipo']			= 'sucesión',
				['estilo fuente']	= 'italic',
				['anterior']		= argumento['precedida_por2'],
				['actual']			= tituloOriginal,
				['siguiente']		= argumento['sucedida_por2']
			}
		}
	end

	if argumento['oscar_anterior'] or argumento['oscar_siguiente'] then
		
		sucesionOscarMejorPelicula = {
			['tipo']			= 'sección',
			['título']			= '[[Anexo:Óscar a la mejor película|Óscar a la mejor película]]',
			['estilotitulo']	= estiloseccion,
			{
				['tipo']			= 'sucesión',
				['estilo fuente']	= 'italic',
				['anterior']		= argumento['oscar_anterior'],
				['actual']			= tituloOriginal,
				['siguiente']		= argumento['oscar_siguiente']
			}
		}
	end
	
	if argumento['oscar_animación_anterior'] or argumento['oscar_animación_siguiente'] then
		
		sucesionOscarMejorPeliculaAnimacion = {
			['tipo']			= 'sección',
			['título']			= '[[Anexo:Óscar a la mejor película de animación|Óscar a la mejor película de animación]]',
			['estilotitulo']	= estiloseccion,
			{
				['tipo']			= 'sucesión',
				['estilo fuente']	= 'italic',
				['anterior']		= argumento['oscar_animación_anterior'],
				['actual']			= tituloOriginal,
				['siguiente']		= argumento['oscar_animación_siguiente']
			}
		}
	end
	
	local Ficha = {
		entidad		= argumento['entidad'],
		clase		= 'plainlist plainlinks',

		-- Título
		tipocabecera		= 'cine',
		estilotitulo		= estilotitulo,
		titulo				= tituloOriginal,
		subtitulo1			= (esSerieCinematografica and 'Serie cinematográfica') or 
								(esCortometraje and 'Cortometraje') or '',
		
		--Imagen
		--De momento no se pone una raya como en la ficha de escritor tras la imagen
		imagen			= imagen,
		['tamañoimagen']= argumento['tamaño de imagen'] or argumento['tamaño'] or 
							argumento['tamaño imagen'] or argumento['tamañoimagen'] or argumento['tamañodelaimagen'] or
							argumento['tamaño de foto'] or 
							'220px', -- or '200px' en la ficha de escritor, 192 en la ficha de artista. Tomo por defecto 220, el tamaño de thumb
		pie				= pieDeImagen,
		
		{ tipo = 'sección',
			{ 'Título', tituloTraducido }
		},
	
		{ tipo = 'sección',
			['título'] = 'Títulos en español',
			estilotitulo = estiloseccion,
			{ 'Argentina', tituloAR, estilodatos='font-style:italic' },
			{ 'España', tituloES, estilodatos='font-style:italic' },
			{ 'Hispanoamérica', tituloHA, estilodatos='font-style:italic' }
		},
		
		{ tipo = 'sección',
			['título'] = 'Ficha técnica',
			estilotitulo = estiloseccion,
			{ '[[Director de cine|Dirección]]', directores },
			{ '[[Director de cine|Ayudante de dirección]]', argumento['ayudantedirección'] },
			{ 'Dirección artística', argumento['dirección artística'] },
			{ '[[Productor de cine|Producción]]', argumento['producción'] or propiedad('P162', listaNoOrdenada) },
			{ 'Diseño de producción', argumento['diseño producción'] },
			{ '[[Guionista|Guion]]', argumento['guión'] or argumento['guion'] or propiedad('P58', listaNoOrdenada) },
			{ 'Historia', argumento['historia'] },
			{ 'Basada en', argumento['basada en'] or propiedad('P144', obraAutor) },
			{ '[[Banda sonora|Música]]', argumento['música'] or propiedad('P86', listaNoOrdenada) },
			{ '[[Sonido]]', argumento['sonido'] },
			{ '[[Maquillaje]]', argumento['maquillaje'] },
			{ '[[Director de fotografía|Fotografía]]', argumento['fotografía'] or argumento['fotografia'] or propiedad('P344', listaNoOrdenada) },
			{ '[[Montaje]]', argumento['montaje'] or argumento['edición'] or argumento['edicion'] or propiedad('P1040', listaNoOrdenada) },
			{ '[[Escenografía]]', argumento['escenografía'] },
			{ '[[Vestuario]]', argumento['vestuario'] or propiedad('P2515', listaNoOrdenada) },
			{ '[[Efectos especiales]]', argumento['efectos'] },
			{ '[[Narrador]]', argumento['narrador'] or propiedad('P2438', listaNoOrdenada) },
			{ '[[Animador]]', argumento['animador'] },
			{ '[[Guion gráfico]]', argumento['storyboard'] or propiedad('P3275', listaNoOrdenada) },
			{ '[[Color]]', argumento['color'] },
			{ '[[Pintura]]', argumento['pintura'] },
			{ '[[Actuación|Protagonistas]]', argumento['elenco'] or argumento['protagonistas'] or argumento['reparto'] or propiedad('P161', listaNoOrdenada)},
			{ '[[Actor de voz|Actores de voz]]', argumento['voces'] or (not argumento['elenco'] and not argumento['protagonistas'] and not argumento['reparto'] and propiedad('P725', listaNoOrdenada))},
			{ '', imdbId and '[https://www.imdb.com/title/'..imdbId..'/fullcredits Ver todos los créditos] <span style="font-size:85%">([[Internet Movie Database|IMDb]])</span>' },
		},
		
		{tipo='sección',
			['título'] = 'Datos y cifras',
			estilotitulo = estiloseccion,
			{ '[[País]]', concatenarLista(argumento, {'país', 'país2', 'país3', 'país4', 'país5', 'país6'}, '<br />') or propiedad('P495', listaNoOrdenada)},
			{ '[[Año]]', argumento['año'] or argumento['estreno'] or propiedad('P577', estreno)},
			{ 'Estreno', argumento['estreno1'] },
			{ '[[Género cinematográfico|Género]]', argumento['género'] or propiedad('P136', generoCinematografico) },
			{ 'Duración', argumento['duración'] or propiedad('P2047', sinLapiz) },
			{ '[[Clasificación por edades (cine)|Clasificación]]', argumento['clasificación'] },
			{ '[[Idioma]](s)', concatenarLista(argumento, {'idioma', 'idioma2', 'idioma3', 'idioma4'}, '<br />') or propiedad('P364', listaNoOrdenada) },
			{ '[[Formato (arte)|Formato]]', argumento['formato'] or propiedad('P3803', sinLapiz) }
		},
		
		{tipo='sección',
			['título'] = 'Compañías',
			estilotitulo = estiloseccion,
			{ 'Productora', argumento['productora'] or propiedad('P272', listaNoOrdenada) },
			{ 'Distribución', argumento['distribución'] or argumento['distribucion'] or propiedad('P750', listaNoOrdenada) },
			{ 'Estudio', argumento['estudio'] },
			{ 'Presupuesto', argumento['presupuesto'] or propiedad('P2769', sinLapiz) },
			{ 'Recaudación', argumento['recaudación'] or argumento['recaudacion'] or propiedad('P2142', sinLapiz) }
		},
	
		{tipo='sección',
			['título'] = 'Películas que forman la serie',
			estilotitulo = estiloseccion,
			{'', serieCinematografica }
		},
	
		{tipo='sección',
			['título'] = 'Enlaces externos',
			estilotitulo = estiloseccion,
			{'', seccionEnlacesExternos }
		},
		
		sucesion1,
		sucesion2,
		sucesionWikidata,
		sucesionOscarMejorPelicula,
		sucesionOscarMejorPeliculaAnimacion,
		
		
		['estilopiedetabla'] = estiloseccion,
		['piedetabla'] = identificadoresExternos
	}
	-- Si no hay que categorizar automáticamente terminar aquí e ignorar la
	-- generación de categorías
	namespace = mw.title.getCurrentTitle().namespace
	if argumento['categorías'] == 'no' or not (namespace == 0 or namespace == 104) then
		return ModuloFicha.infobox(Ficha)
	end
	
	-- A partir de aquí se generan y definen las distintas categorías
	-- automáticas
	ModuloCategorizar.setFrame(frame)
	categorias = ''
	
	-- Convertir géneros e idiomas locales a minúsculas para la categorización
	if argumento['género'] then argumento['género'] = mw.ustring.lower(argumento['género']) end
	if argumento['idioma'] then argumento['idioma'] = mw.ustring.lower(argumento['idioma']) end
	if argumento['idioma2'] then argumento['idioma2'] = mw.ustring.lower(argumento['idioma2']) end
	if argumento['idioma3'] then argumento['idioma3'] = mw.ustring.lower(argumento['idioma3']) end
	if argumento['idioma4'] then argumento['idioma4'] = mw.ustring.lower(argumento['idioma4']) end
	
	-- Arreglar parámetros que la gente acostumbra a introducir mal en la plantilla para que no rompan la categorización
	if argumento['idioma'] then argumento['idioma'] = string.gsub(argumento['idioma'], '<br>', '<br />') end
	if argumento['idioma'] then argumento['idioma'] = string.gsub(argumento['idioma'], '<br/>', '<br />') end
	if argumento['idioma'] then argumento['idioma'] = string.gsub(argumento['idioma'], ',%s', '<br />') end
	if argumento['idioma'] then argumento['idioma'] = string.gsub(argumento['idioma'], '%s/%s', '<br />') end
	if argumento['idioma'] then argumento['idioma'] = string.gsub(argumento['idioma'], '%se%s', '<br />') end
	if argumento['idioma'] then argumento['idioma'] = string.gsub(argumento['idioma'], '%sy%s', '<br />') end
	if argumento['género'] then argumento['género'] = string.gsub(argumento['género'], 'drama %(cine y televisión%)', 'drama') end
	if argumento['género'] then argumento['género'] = string.gsub(argumento['género'], '<br>', '<br />') end
	if argumento['género'] then argumento['género'] = string.gsub(argumento['género'], '<br/>', '<br />') end
	if argumento['género'] then argumento['género'] = string.gsub(argumento['género'], ',%s', '<br />') end
	if argumento['género'] then argumento['género'] = string.gsub(argumento['género'], '%s/%s', '<br />') end
	if argumento['género'] then argumento['género'] = string.gsub(argumento['género'], '%sy%s', '<br />') end
	if argumento['género'] then argumento['género'] = string.gsub(argumento['género'], '%se%s', '<br />') end
	
	if argumento['género'] then argumento['género'] = string.gsub(argumento['género'], '%[%[[^%|%]]*|drama histórico%]%]', 'drama<br />histórico') end
	if argumento['género'] then argumento['género'] = string.gsub(argumento['género'], 'drama histórico', 'drama<br />histórico') end
	if argumento['género'] then argumento['género'] = string.gsub(argumento['género'], '%[%[[^%|%]]*|drama romántico%]%]', 'drama<br />romance') end
	if argumento['género'] then argumento['género'] = string.gsub(argumento['género'], '%[%[[^%|%]]*|drama%]%] %[%[[^%|%]]*|romántico%]%]', 'drama<br />romance') end
	if argumento['género'] then argumento['género'] = string.gsub(argumento['género'], 'drama romántico', 'drama<br />romance') end
	if argumento['género'] then argumento['género'] = string.gsub(argumento['género'], '%[%[comedia%]%] %[%[musical%]%]', 'comedia<br />musical') end
	if argumento['género'] then argumento['género'] = string.gsub(argumento['género'], 'comedia musical', 'comedia<br />musical') end
	
	-- Categorización por idioma
	if not esPeliculaMuda then
		categorias = categorias .. categoriza('Películas en $1', '<br />', {[1] = concatenarLista(argumento, {'idioma', 'idioma2', 'idioma3', 'idioma4'}, '<br />') or propiedad('P364', formatoCategorizar)}, {['arreglar'] = 'nombre idioma', ['filtrar'] = false })
	end
	
	-- Categorización por país
	if esCortometraje then
		categorias = categorias .. categoriza('Cortometrajes de $1', '<br />', {[1] = concatenarLista(argumento, {'país', 'país2', 'país3', 'país4', 'país5', 'país6'}, '<br />') or propiedad('P495', formatoCategorizar)}, {['arreglar'] = 'nombre país', ['filtrar'] = false })
	elseif esPeliculaMuda and esPeliculaEnBlancoYNegro then
		categorias = categorias .. categoriza('Películas mudas de $1', '<br />', {[1] = concatenarLista(argumento, {'país', 'país2', 'país3', 'país4', 'país5', 'país6'}, '<br />') or propiedad('P495', formatoCategorizar)}, {['arreglar'] = 'nombre país', ['filtrar'] = false })
		categorias = categorias .. categoriza('Películas en blanco y negro de $1', '<br />', {[1] = concatenarLista(argumento, {'país', 'país2', 'país3', 'país4', 'país5', 'país6'}, '<br />') or propiedad('P495', formatoCategorizar)}, {['arreglar'] = 'nombre país', ['filtrar'] = false })
	elseif esPeliculaMuda then
		categorias = categorias .. categoriza('Películas mudas de $1', '<br />', {[1] = concatenarLista(argumento, {'país', 'país2', 'país3', 'país4', 'país5', 'país6'}, '<br />') or propiedad('P495', formatoCategorizar)}, {['arreglar'] = 'nombre país', ['filtrar'] = false })
	elseif esPeliculaEnBlancoYNegro then
		categorias = categorias .. categoriza('Películas en blanco y negro de $1', '<br />', {[1] = concatenarLista(argumento, {'país', 'país2', 'país3', 'país4', 'país5', 'país6'}, '<br />') or propiedad('P495', formatoCategorizar)}, {['arreglar'] = 'nombre país', ['filtrar'] = false })
	else
		categorias = categorias .. categoriza('Películas de $1', '<br />', {[1] = concatenarLista(argumento, {'país', 'país2', 'país3', 'país4', 'país5', 'país6'}, '<br />') or propiedad('P495', formatoCategorizar)}, {['arreglar'] = 'nombre país', ['filtrar'] = false })
	end
	
	-- Categorización por año
	if esCortometraje then
		categorias = categorias .. categoriza('Cortometrajes de $1', '<br />', {[1] = argumento['año'] or argumento['estreno'] or propiedad('P577', {['rangoMayor'] = 'sí', ['formatoFecha'] = 'año', ['enlace'] = 'no', ['uno'] = 'sí'})}, {['filtrar'] = true})
	else
		categorias = categorias .. categoriza('Películas de $1', '<br />', {[1] = argumento['año'] or argumento['estreno'] or propiedad('P577', {['rangoMayor'] = 'sí', ['formatoFecha'] = 'año', ['enlace'] = 'no', ['uno'] = 'sí'})}, {['filtrar'] = true})
	end
	
	categorias = categorias .. categoriza('Películas de $1', '<br />', {[1] = argumento['productora'] or propiedad('P272', formatoCategorizar)}, {['filtrar'] = true, ['arreglar'] = 'nombre productora'})
	categorias = categorias .. categoriza('Películas de $1', '<br />', {[1] = argumento['género'] or propiedad('P136', formatoCategorizar)}, {['arreglar'] = 'géneros película', ['filtrar'] = true})
	categorias = categorias .. categoriza('Películas dirigidas por $1', '<br />', {[1] = concatenarLista(argumento, {'dirección', 'dirección2', 'dirección3', 'dirección4', 'dirección5', 'dirección6', 'dirección7', 'dirección8', 'dirección9'}, '<br />') or propiedad('P57', formatoCategorizar)}, {['filtrar'] = true})
	
	if argumento['oscar_anterior'] or argumento['oscar_siguiente'] then
		categorias = categorias .. '[[Categoría:Películas ganadoras del premio Óscar a la mejor película]]'
	end
	
	if argumento['oscar_animación_anterior'] or argumento['oscar_animación_siguiente'] then
		categorias = categorias .. '[[Categoría:Películas ganadoras del premio Óscar a la mejor película de animación]]'
	end
	
	-- Añadir '0' delante del parámetro imdb en caso de que exista hasta que 
	-- tenga al menos 7 caracteres para asegurarse que cumpla con el formato
	-- establecido en Wikidata
	if argumento['imdb'] then
		while #argumento['imdb'] < 7 do
			argumento['imdb'] = '0'..argumento['imdb']
		end
	end

	if (argumento['imdb'] and 'tt'..argumento['imdb'] ~= imdbId) or (argumento['filmaffinity'] and argumento['filmaffinity'] ~= filmaffinityId) then
		categorias = categorias .. '[[Categoría:Wikipedia:Artículos con identificadores diferentes en Wikidata]]'
	end

	if (not argumento['dirección'] and not propiedad('P57')) or
		(not argumento['país'] and not propiedad('P495')) or
		(not esSerieCinematografica and not argumento['año'] and not argumento['estreno'] and not propiedad('P577')) or
		(not argumento['género'] and not propiedad('P136')) or
		(not esPeliculaMuda and not argumento['idioma'] and not propiedad('P364')) then
			categorias = categorias .. '[[Categoría:Wikipedia:Películas con ficha incompleta]]'
	end
	
	if esSerieCinematografica then
		categorias = categorias .. '[[Categoría:Series de películas]]'
	end
	
	if tieneValorPropiedad(Entidad, 'P136', 'Q17479192') or 
			tieneValorPropiedad(Entidad, 'P136', 'Q52207310') then
		categorias = categorias .. '[[Categoría:Películas basadas en novelas]]'
	end
	
	return ModuloFicha.infobox(Ficha) .. categorias
end

-- Función que devuelve una lista de parámetros concatenados por un separador
function concatenarLista(arg, params, separador)
	local ret
	for key,param in pairs(params) do
		if ret and arg[param] then 
			ret = ret .. separador .. arg[param]
		elseif arg[param] then
			ret = arg[param]
		end
	end

	return ret
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 = {['linkback']='sí'}
		end
		
		opciones.entityId = Entidad.id
		--if idPropiedad =='P1477' then return require('Módulo:Tablas').tostring(Entidad) end -- FALTA
		opciones.propiedad = idPropiedad

		valorPropiedad = getPropiedadWikidata(opciones,Entidad.claims[idPropiedad])
		
		if not valorPropiedad then
			return
		end

		if valorPropiedad:match('%[%[:d:') then
		  algunaPropiedadEnlazaWikidata = true
		end
		
	   	return valorPropiedad
	end
	
	-- Si la entidad correspondiente no tiene esa propiedad y se trata de una serie
	-- cinematográfica buscar en los elementos que forman parte de la serie
	-- TODO: Hacer que combine los valores iguales especificando a qué películas pertenece
	if esSerieCinematografica and false then

		local propiedadesCombinadas = {}
		for k,v in pairs(Entidades) do
			if v and v.claims and v.claims[idPropiedad] then
				for kp,vp in pairs(v.claims[idPropiedad]) do
					table.insert(propiedadesCombinadas, vp)
				end
			end
		end
	
		if not opciones then
			opciones = {['linkback']='sí'}
		end
		
		--opciones.entityId = Entidad.id
		--if idPropiedad =='P1477' then return require('Módulo:Tablas').tostring(Entidad) end -- FALTA
		opciones.propiedad = idPropiedad
	
		valorPropiedad = getPropiedadWikidata(opciones,propiedadesCombinadas)
		
		if not valorPropiedad then
			return
		end

		if valorPropiedad:match('%[%[:d:') then
		  algunaPropiedadEnlazaWikidata = true
		end
		
	   	return valorPropiedad
	end
end

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

function obtenerValorCalificativo(Propiedad, Calificativo, ValorPropiedad)
	-- Obtener el valor del primer calificativo de la propiedad con el valor recibido 
	if not Entidad or not Entidad.claims or not Entidad.claims[Propiedad] then
		return
	end
	
	for k,v in pairs(Entidad.claims[Propiedad]) do
		if	 v.mainsnak
		   and v.mainsnak.datavalue
		   and v.mainsnak.datavalue.value
		   and v.mainsnak.datavalue.value['id'] == ValorPropiedad
		   and v.qualifiers
		   and v.qualifiers[Calificativo]
		   and v.qualifiers[Calificativo][1]
		   and v.qualifiers[Calificativo][1].datavalue then 
			return v.qualifiers[Calificativo][1].datavalue.value
		end
	end		
end

function obtenerArgumentosConValor(frame)
	local original
	
	if frame == mw.getCurrentFrame() then
		original = frame:getParent().args
	else
		original = frame.args or frame
	end
	
	local copia= {}
	
	for k,v in pairs(original) do
		if v == 'no' then
			--Si vale "no" dejar en blanco el argumento para no obtener el valor
			--de Wikidata
			copia[k] = ''
		elseif v~='' then
			--Si está en blanco dejarlo a nil para obtener en su caso el valor de 
			-- Wikidata si no hay otro argumento con un nombre similar
			copia[k] = original[k]
		end
	end	
	
	return copia
end


function obtenerImagenWikidata()
	local imagen, valorImagen, piesDeImagen, k, pieDeImagen
	if not Entidad then
		return
	end
	
	--  Obtener la primera imagen en Wikidata de la persona
	local imagen = elementoTabla(Entidad, 'claims','P18',1)
	
	if not imagen then
		return
	end
	
	-- Obtener el nombre de la imagen
	valorImagen =  elementoTabla(imagen, 'mainsnak','datavalue','value') -- Por ejemplo, imagen.jpg
	
	-- Obtener los pies de la imagen, uno por idioma
	piesDeImagen =  elementoTabla(imagen, 'qualifiers','P2096')
	
	-- Encontrar el pie en español (aquel con datavalue.value.language = "es")
	if piesDeImagen then
		for k,pieDeImagen in pairs(piesDeImagen) do
			if pieDeImagen.datavalue.value.language=='es' then
				-- devolver la imagen y el texto del pie de la imagen en español
				return valorImagen, pieDeImagen.datavalue.value.text
			end
		end
	end
	
	-- Sin pie de imagen en español
	return valorImagen
end

return z