Edición de «Módulo:Infobox/fechas»

local getArgs = require('Module:Arguments').getArgs

local categoria_error_predeterminada = "[[Categoría:Paginas que usan una temporada de televisión con fechas no estándar]]"

local p = {}

function p.validacion_de_plantilla_de_fechas_de_inicio_fin(frame)
	local args = getArgs(frame)
	local categoria_error = args.categoria_error or categoria_error_predeterminada

	local fecha_inicio = args.primera_emision or args.lanzamiento or args.fecha_emision or args.fecha_estreno or args.fecha_emision_global
	if fecha_inicio then
		if not fecha_inicio:find("dtstart") then
			return categoria_error
		end
	end

	local fecha_fin = args.ultima_emision
	if fecha_fin then
		if not fecha_fin:find("dtend") and fecha_fin ~= "actualidad" then
			return categoria_error
		end
	end
end

function p.fechas(frame)
	local returnval
	local args = getArgs(frame)
	
	if table.getn(args) < 2 then
		if args['1'] == nil and args['2'] == nil then
			return ''
		elseif args['1'] == nil then 
			return args['2']
		elseif args['2'] == nil then 
			return args['1']
		end
	end
	
	args['1'] = args['1']:gsub("&nbsp;"," ")
	args['2'] = args['2']:gsub("&nbsp;"," ")
	
	local dmy = false
	local pr1, m1, d1, y1, su1 = string.match(args['1'], '(.-)(%u%a+)%s(%d+),%s(%d+)(.*)')
	local pr2, m2, d2, y2, su2 = string.match(args['2'], '(.-)(%u%a+)%s(%d+),%s(%d+)(.*)')
	if y1 == nil then
		dmy = true
		pr1, d1, m1, y1, su1 = string.match(args['1'], '(.-)(%d%d?)%s(%a+)%s(%d+)(.*)')
		pr2, d2, m2, y2, su2 = string.match(args['2'], '(.-)(%d%d?)%s(%a+)%s(%d+)(.*)')
	end
	
	local dash = '&nbsp;–<br />'
	if y1 ~= nil and y2 ~= nil then
		su1 = su1 or ''
		su2 = su2 or ''
		
		local MESES = {enero=1, febrero=2, marzo=3, abril=4, mayo=5, junio=6, julio=7, agosto=8, septiembre=9, octubre=10, noviembre=11, diciembre=12}
		local diff = os.time({year=y2, month=MESES[m2], day=d2, hour=0, min=0, sec=0}) - os.time({year=y1, month=MESES[m1], day=d1, hour=0, min=0, sec=0})
		
		if diff < 0 then
			returnval = 'Rango de fechas no válido'
		else
			if y1 == y2 then
				if dmy == false then
					returnval = pr1 .. m1 .. ' ' .. d1 .. su1 .. dash .. pr2 .. m2 ..' '.. d2 ..', '.. y2 .. su2
				else
					returnval = pr1 .. d1 .. ' ' .. m1 .. su1 .. dash .. pr2 .. d2 .. ' ' .. m2 .. ' ' .. y2 .. su2
				end
			else
				if dmy == false then
					returnval = pr1 .. m1 .. ' ' .. d1 ..', '.. y1 .. su1 .. dash .. pr2 .. m2 .. ' '.. d2 .. ', ' .. y2 .. su2
				else
					returnval = pr1 .. d1 .. ' ' .. m1 ..' '.. y1 .. su1 .. dash .. pr2 .. d2 .. ' '.. m2 .. ' ' .. y2 .. su2
				end
			end
		end
	else
		returnval = args['1']..dash..args['2'];
	end
	
	return returnval;
end

return p