Módulo:Documento ONU

De Wikisource, la biblioteca libre.
Ir a la navegación Ir a la búsqueda
Template-info.svg Documentación del módulo


Uso

Destinado a los documentos oficiales de la ONU, utilizado por la {{Documento ONU}}
Esta documentación está transcluida desde Módulo:Documento ONU/doc.
Los editores pueden experimentar en la zona de pruebas de este módulo.
Por favor, añade las categorías e interwikis a la subpágina de documentación. Subpáginas de este módulo.

-- Módulo en desarrollo
-- TODO Detectar automáticamente tipo de resolución, período y número desde el título de la página
local p = {}


function toRoman(number)
	local romanNumbers1 = {'', 'I', 'II', 'III', 'IV', 'V', 'VI', 'VII', 'VIII', 'IX', 'X'}
	local romanNumbers2 = {'', 'X', 'XX', 'XXX', 'XL', 'L', 'LX', 'LXX', 'LXXX', 'XC'}
	return romanNumbers2[math.floor(math.abs(number) / 10) + 1] .. romanNumbers1[math.floor(math.abs(number) % 10) + 1]
end

function p.documento(frame)
	local argus = {}
	local ordenar = ''
        local fuente= 'https://www.un.org/es/comun/docs/?symbol='
	for k,v in pairs(frame:getParent().args) do -- crea una tabla con los parámetros incluídos en la plantilla, y elimina parámetros vacíos
		if v ~= '' and type(k) ~= 'number' then
			argus[mw.ustring.lower(k)] = v -- todos los parámetros en minúsculas por defecto: 
		end
	end

    local enlacePagina = mw.title.getCurrentTitle().text
    local texto=""
    texto=mw.uri.encode(enlacePagina,QUERY)
    local html = mw.html.create() -- cuerpo principal de la plantilla
    local divgrande = html:tag('div'):addClass('noprint')  -- div principal que contiene al resto 
    local tabla = divgrande:tag('table'):css('font-size','87%'):css('width', '100%')
    local fila1 = tabla:tag('tr')
    local celda1=fila1:tag('td'):attr('width','15%'):css('text-align','left')
    local celda2=fila1:tag('td'):css('text-align','center')
    local celda3=fila1:tag('td'):attr('width','15%'):css('text-align','right')
    local fila2=tabla:tag('tr')
    local celda4=fila2:tag('td'):attr('colspan','3'):css('font-size','120%'):css('text-align','center'):css('background','#B7C4E4'):css('border','1px solid #4488cc'):css('padding','12px')
    local anterior= tostring(tonumber(argus['número'])-1) --Para número de resolución anterior
    local siguiente=tostring(tonumber(argus['número'])+1) --Para número de resolución siguiente
    if argus['anterior']~='' and argus['anterior']~=nil then --Para el caso de que la resolución anterior no siga la regularidad numérica
		anterior=argus['anterior'] --se pasa el número por parámetro de la plantilla
	end
	if argus['siguiente']~='' and argus['siguiente']~=nil then --Para el caso de que la resolución siguiente no siga la regularidad numérica
		siguiente=argus['siguiente'] --se pasa el número por parámetro de la plantilla
    end

-- Según tipos de resoluciones    
    if argus['tipo'] == 'S/RES'   then --Resoluciones del Consejo de Seguridad
        if argus['número']>'1' then 
            celda1:wikitext("[[Resolución "..anterior.." del Consejo de Seguridad de las Naciones Unidas|<span style=\"color: darkgrey;\">«&nbsp;Resolución "..anterior.."&nbsp;</span>]]")
        end
    	celda2:wikitext("[[Resoluciones del Consejo de Seguridad (ONU)|<span style=\"color: darkgrey;\">Lista de resoluciones</span>]]")
    	celda3:wikitext("[[Resolución "..siguiente.." del Consejo de Seguridad de las Naciones Unidas|<span style=\"color: darkgrey;\">&nbsp;Resolución "..siguiente.."&nbsp;»</span>]]")
		celda4:wikitext("<span style=\"font-size: 120%; font-weight: bold; font-style: oblique;\"><span style=\"font-size: 115%;\">Resolución "..argus['número'].."</span> del Consejo de Seguridad de las Naciones Unidas,</span><br/>")
        celda4:wikitext("aprobada por el Consejo de Seguridad")
        if argus['sesión']~='' and argus['sesión']~=nil then
        	celda4:wikitext(" en su ".. argus['sesión']..".ª sesión")
        	if argus['fecha']~='' and argus['fecha']~=nil then
        		celda4:wikitext(", celebrada el "..argus['fecha'].." de " ..argus['año']..".")
        	end
        	if argus['nota']~='' and argus['nota']~=nil then
        		celda4:wikitext(argus['nota'])
        	end
    	end
        fuente=fuente .. "S/RES/" .. argus['número'] .. "%20(" .. argus['año'] ..")"
    	-- Categoría específica
    	ordenar=string.format('Resolución %04d del Consejo de Seguridad de las Naciones Unidas',argus['número'])
    	if mw.title.getCurrentTitle().namespace==0 then
            html:wikitext("[[Categoría:Resoluciones del Consejo de Seguridad de las Naciones Unidas|"..ordenar.."]]")
	end
        elseif argus['tipo'] == 'A/RES'   then --Resoluciones de la Asamblea General
		--TODO Falta enlazar ultima resolución de un periodo en siguiente, con la primera del siguiente período
    	celda2:wikitext("[[Resoluciones aprobadas por la Asamblea General de las Naciones Unidas durante el "..argus['período'].."º período de sesiones|<span style=\"color: darkgrey;\">Resoluciones aprobadas en el "..argus['período'].."º período de sesiones</span>]]")
		celda4:wikitext("<span style=\"font-size: 120%; font-weight: bold; font-style: oblique;\"><span style=\"font-size: 115%;\">")
		-- Si el periodo es mayor a 30
		if tonumber(argus['período'])>30 then --cambia la forma de denominación de resolucion, utilizando números para el período
			celda4:wikitext("Resolución "..argus['período'].."/"..argus['número'].."</span> de la Asamblea General de las Naciones Unidas,</span><br/>")
            celda1:wikitext("[[Resolución "..argus['período'].."/"..anterior.." de la Asamblea General de la Organización de las Naciones Unidas|<span style=\"color: darkgrey;\">«&nbsp;Resolución "..argus['período'].."/"..anterior.."&nbsp;</span>]]")
	    	celda3:wikitext("[[Resolución "..argus['período'].."/"..siguiente.." de la Asamblea General de la Organización de las Naciones Unidas|<span style=\"color: darkgrey;\">&nbsp;Resolución "..argus['período'].."/"..siguiente.."&nbsp;»</span>]]")
                fuente=fuente .. "A/RES/" .. argus['período'] .. "/" .. argus['número'] 
		else -- hasta el período 30, se utilizaban números romanos del I al XXX
                        fuente=fuente .. "A/RES/" .. argus['número'] .. "("..toRoman(argus['período'])..")"
			celda4:wikitext("Resolución "..argus['número'].." ("..toRoman(argus['período'])..") </span> de la Asamblea General de las Naciones Unidas,</span><br/>")
            if argus['período']~='1' or argus['número']~='1' then
            	celda1:wikitext("[[Resolución "..anterior.." ("..toRoman(argus['período'])..") de la Asamblea General de la Organización de las Naciones Unidas|<span style=\"color: darkgrey;\">«&nbsp;Resolución "..anterior.." ("..toRoman(argus['período'])..")&nbsp;</span>]]")
            end
	    	celda3:wikitext("[[Resolución "..siguiente.." ("..toRoman(argus['período'])..") de la Asamblea General de la Organización de las Naciones Unidas|<span style=\"color: darkgrey;\">&nbsp;Resolución "..siguiente.." ("..toRoman(argus['período'])..")&nbsp;»</span>]]")
		end
        if argus['sesión']~='' and argus['sesión']~=nil then
        	celda4:wikitext("aprobada por la ".. argus['sesión']..".ª sesión plenaria")
        	if argus['fecha']~='' and argus['fecha']~=nil then
        		celda4:wikitext(" del "..argus['fecha'].." de " ..argus['año']..".")
        	end
    	end
        
    	--Categoría específica
    	ordenar=string.format('Resolución %04d de la Asamblea General de las Naciones Unidas',argus['número'])
	if mw.title.getCurrentTitle().namespace==0 then    
            html:wikitext("[[Categoría:Resoluciones aprobadas por la Asamblea General de las Naciones Unidas durante el "..argus['período'].."º período de sesiones|"..ordenar.."]]")	
        end
	end
        celda4:wikitext("<div style=\"font-size:80%\">Descargar como &nbsp;[[Archivo:EPUB silk icon.svg|12px|link=//tools.wmflabs.org/wsexport/tool/book.php?lang=es&format=epub&page=" .. texto .."|Descargar en formato ePub]]&nbsp;[[Archivo:Document-pdf.svg|15px|link=//tools.wmflabs.org/wsexport/tool/book.php?lang=es&page=" .. texto .. "&format=pdf-a5|Descargar en formato PDF]]&nbsp;[[Archivo:Mobi_icon.svg|22px|link=//tools.wmflabs.org/wsexport/tool/book.php?lang=es&page=" .. texto .. "&format=mobi|Descargar en formato mobi]]&nbsp;&#8212;&nbsp;Fuente&nbsp;[[Archivo:Logo of the United Nations (B&W).svg|18px|link=" .. fuente .. "|Fuente ONU]]</div>")
    --Categoría común
    if mw.title.getCurrentTitle().namespace==0 then
	html:wikitext("[[Categoría:D"..argus['año'].."|"..ordenar.."]]")
    end
    return tostring(html)
end

 
return p