Módulo:Proofreadpage index template/pruebas

Documentación del módulo

Uso

Ver y añadir ejemplos en la página Módulo:Proofreadpage index template/ejemplos.

Esta página pretende facilitar las pruebas de Módulo:Proofreadpage index template mediante Módulo:Proofreadpage index template/pruebas y los siguientes ejemplos:

Índice no conectado a Wikidata:

	Autor	Francisco Pi y Margall
	Fuente	Archivo
	Progreso	Progreso desconocido
	Ayuda

Páginas (Nivel)

Páginas

Archivo local en Wikisource:
Error de Lua en la línea 84: bad argument #1 to 'pairs' (table expected, got nil).

Índice con título, lugar, autor y traductor, desde Wikisource:

	Autor *	Johann David Wyss
	Traductor *	M. Leal y Madrigal
	Título *	El Robinson suizo
	Lugar *	Barcelona
	País	España
	Imprenta	Sociedad Editorial La Maravilla y Librería Española
	Fuente	Archivo
	Metadatos	Q107297266
	Progreso	Corregido — Todas las páginas corregidas pero no todas validadas
	Ayuda

Páginas (Nivel)

Páginas

Índice con 2 ilustradores. Campos derechos, Modernizacion, Progreso, Fuente, informados a mano. Ilustrador renombrado local. Prologuista solo en WS.

	Autor	Julio Verne
	Prologuista *	El remago pepe
	Título	Cristóbal Colón
	Subtítulo	1436-1506
	Lugar	París y Ciudad de México
	País	Jamaica
	Ilustrador *	El mago pepe
	Fuente	Pirateado
	Modernización de la ortografía	Ortografía antigua — El lector puede elegir modernizar la ortografía
	Metadatos	Q111109568
	Progreso	Progreso desconocido
	Ayuda

Páginas (Nivel)

tabla_de_páginas

Índice con 3 autores:

	Autor	Teócrito, Bión de Esmirna y Mosco de Siracusa
	Traductor	Ignacio Montes de Oca y Obregón
	Prologuista	Marcelino Menéndez y Pelayo, Miguel Antonio Caro Tobar y Ignacio Montes de Oca y Obregón
	Título	Poetas bucólicos griegos
	Lugar	Madrid
	País	España
	Imprenta	Imprenta Central a cargo de Víctor Saiz
	Fuente	Archivo
	Metadatos	Q109782702
	Progreso	Progreso desconocido
	Ayuda

Páginas (Nivel)

tabla_de_páginas

Índice sin autores:

	Título	Anales de la Sociedad Científica Argentina
	Volumen	30
	Lugar	Buenos Aires
	País	Argentina
	Imprenta	Sociedad Científica Argentina
	Fuente	Archivo
	Metadatos	Q124994898
	Progreso	Progreso desconocido
	Ayuda

Páginas (Nivel)

tabla_de_páginas

Índice con autor anónimo:

	Autor	Anónimo
	Traductor	Antonio Zinny
	Título	Invasiones Inglesas
	Subtítulo	Proceso instruido al Teniente General Don Juan Whitelocke
	Lugar	Buenos Aires
	País	Argentina
	Fuente	Archivo
	Metadatos	Q66227023
	Progreso	Progreso desconocido
	Ayuda

Páginas (Nivel)

tabla_de_páginas

Índice con P2093 (nombre del autor):

	Autor	Congreso General Constituyente
	Título	Constitución de las Provincias Unidas en Sudamérica
	Lugar	Buenos Aires
	País	Argentina
	Fuente	Archivo
	Metadatos	Q120785961
	Progreso	Progreso desconocido
	Ayuda

Páginas (Nivel)

tabla_de_páginas

Índice con ambos P2093 (nombre del autor) y P50 (autor) :

	Autor	Marcela Peredo, Pedro Harris Moya y Juan Pablo Díaz Fuenzalida
	Título	100 preguntas sobre la Constitución
	Subtítulo	Pasado, presente y futuro
	Imprenta	Ediciones Universidad Autónoma de Chile
	Fuente	Archivo
	Metadatos	Q99204030
	Progreso	Corregido — Todas las páginas corregidas pero no todas validadas
	Ayuda

Páginas (Nivel)

tabla_de_páginas

Índice con autor «valor desconocido» => P5997 «Maristany, Fernando»:

	Autor	Victor Hugo
	Traductor	Guillermo Valencia Castillo, Carmela Eulate Sanjurjo, Teodoro Llorente Olivares y Enrique Díez-Canedo
	Título	Poesías
	Lugar	Buenos Aires
	País	Argentina
	Imprenta	Editorial Claridad
	Fuente	Archivo
	Metadatos	Q132508417
	Progreso	Progreso desconocido
	Ayuda

Páginas (Nivel)

tabla_de_páginas

Índice con autor «valor desconocido» => P1932 «D. A . A. P. y G.»:

	Autor	José María Sbarbi y Osuna, D. A . A. P. y G., Ferdinand Denis, Crispin Caramillo y Ramon Alexo de Zidra
	Editor	José María Sbarbi y Osuna
	Prologuista	José María Sbarbi y Osuna
	Título	El Refranero general Español
	Subtítulo	parte recopilado, y parte compuesto
	Volumen	5
	Lugar	Madrid
	País	España
	Imprenta	Fuentenebro
	Fuente	Archivo
	Metadatos	Q133506696
	Progreso	Progreso desconocido
	Ayuda

Páginas (Nivel)

tabla_de_páginas

Índice parte de una colección:

	Autor	Anónimo
	Editor	Tomás Antonio Sánchez
	Título	Poema del Cid
	Volumen	1
	Lugar	Madrid
	País	España
	Fuente	Archivo
	Metadatos	Q78248414
	Progreso	Progreso desconocido
	Ayuda

Páginas (Nivel)

tabla_de_páginas

Índice que declara su obra (P629):

	Autor	José Rizal
	Título	El Filibusterismo
	Subtítulo	Continuación del Noli me tangere
	Lugar	Manila
	País	Filipinas
	Imprenta	Tipo-Litografía de Chofré y Compañía
	Fuente	Archivo
	Metadatos	Q107576277
	Progreso	Progreso desconocido
	Ayuda

Páginas (Nivel)

tabla_de_páginas

Índice parte de edición multiarchivo:

	Autor	León Tolstói
	Traductor	J.-Wladimir Bienstock
	Título	Anna Karénine
	Fuente	Archivo
	Metadatos	Q40909223
	Progreso	Progreso desconocido
	Ayuda

Páginas (Nivel)

tabla_de_páginas

Esta documentación está transcluida desde Módulo:Proofreadpage index template/pruebas/doc.
Por favor, añade las categorías a la subpágina de documentación.
(subpáginas - enlaces)

--------------------------------------------------------------------------------
-- Adaptado de https://en.wikisource.org/wiki/Module:Proofreadpage_index_template
--           y https://ca.wikisource.org/wiki/Module:Proofreadpage_index_template
-- This is a module to implement logic for [[MediaWiki:Proofreadpage index template]]
--------------------------------------------------------------------------------
-- Ejemplo (función p.fields):
-- {{#invoke:Proofreadpage index template|fields|NomPag=El Robinson suizo (1864).pdf|Paginas=tabla|Wikidata=Q107297266}}
--------------------------------------------------------------------------------

local Wikidata = require('Module:Wikidata')
local Obra = require('Módulo:Obra')
local getArgs = require('Module:Arguments').getArgs
local cats = require('Módulo:Categorías')
local wTitulo = mw.title.getCurrentTitle()	--Nombre sin "Índice:"
local p = {}

-- mapping of field ID to field properties
local headings = {
	
	title		=	{	txt = 'Título', index='Titulo', p='P1476'},
	subtitle	=	{	txt = 'Subtítulo', index='Subtitulo', p='P1680'},
	serie		=	{	txt = 'Serie o colección', index='Serie', p='P361'}, --P361:"forma parte de"
	volume		=	{ 	txt = 'Volumen', index='Volumen', p='P478'},
	
	author		=	{	txt = 'Autor', emblem = '[[Archivo:Commons-emblem-notice.svg|20px|alt=|frameless|link=Ayuda:Autores]]',	
						index = 'Autor', p='P50' },
	editor		=	{	txt = 'Editor',	index='Editor', p='P98'},
	illustrator =	{	txt = 'Ilustrador', index='Ilustrador', p='P110'},
	translator	=	{	txt = 'Traductor',	index='Traductor', p='P655'},
	introducer  =   {   txt = 'Prologuista', index='Prologuista', p='P2679'},
	
	year		=	{	txt = 'Año', index='Ano', p='P577'},
	editorial	=	{	txt = 'Editorial', emblem='[[Archivo:Commons-emblem-notice.svg|20px|alt=|frameless|link=Portal:Imprentas_y_editoriales]]',
						index='Editorial', p='P123'},
	printer 	=	{	txt = 'Imprenta', emblem='[[Archivo:Commons-emblem-notice.svg|20px|alt=|frameless|link=Portal:Imprentas_y_editoriales]]', 
						index='Imprenta', p='P872'},
	place		=	{	txt = 'Lugar', index='Lugar', p='P291'},
	country		=	{	txt = 'País', emblem='[[Archivo:PD-icon.svg|20px|alt=|frameless|link=Wikisource:Derechos_de_autor]]', 
						index = 'derechos'},	--derechos (P495) pasar a Wikidata realmente?
	editionof   =   {   txt = 'Obra', index='Obra', p='P629'},
	
	source		=	{	txt = 'Fuente', emblem='[[Archivo:Commons-emblem-notice.svg|20px|alt=|frameless|link=Wikisource:Recursos_libres]]',
						index= 'Fuente'},
	modernizar	=	{	txt = 'Modernización de la ortografía', emblem='[[Archivo:Commons-emblem-notice.svg|20px|alt=|frameless|link=Wikisource:Modernización_de_textos]]',	
						index='Modernizacion'},
	quality 	=	{	txt = 'Progreso', index='Progreso'},
	wikidata	=	{	txt = 'Metadatos', index='Wikidata'},
	
}
local function asterisco(color, titulo)
	return " <span style='color:"..color.."; font-size:75%;' title='"..titulo.."'>*</span>"
end
local function aCadena(id, obj)
	if type(obj) == 'string' then
		if obj == 'valor desconocido' then
			if id == 'translator' or id =='illustrator' or id == 'editor' or id == 'introducer' 
			or id == 'editorial' or id == 'printer' or id == 'serie' or id == 'editionof' then
				obj = 'Anónimo'
			elseif id == 'author' then
				obj = '[[:Categoría:Obras de autores anónimos|Anónimo]]'
			end
		end
		return obj
	
	elseif type(obj) == 'table' then
		if obj.text then return aCadena(id, obj.text) end
		
		local result = {}
		for k, v in pairs(obj) do
			table.insert(result, aCadena(id, v))
		end
		return mw.text.listToText(result)
	end
	
end

local function construct_image(content, c)
	if c.nompage == nil or c.nompage == '' then error('nompage no puede ser nulo') end
	local s = ''

	--Miramos si en WD hay 1 o más P996, capturamos el que coincida, y le miramos el P4714 (nº pág. con título).
	local P4714 = ''
	if c.qid then
		for _, file in pairs( c.commonsFile.WD ) do
			if mw.text.decode(c.commonsFile.WS) == mw.text.decode(file) then	--decode por si apóstrofe llega como "&#39;"
				P4714 = Wikidata.claim{item=c.qid, property="P996", qualifier="P4714", lang="es", list=false}
			end
		end
	end	

	s = s .. '<tr><td valign="top">'
	if content then
	else
		if P4714 == '' then
			content = '1'	--si no hay nada de nada
		else
			content = P4714
		end
		if content == nil then content = '1' end
	end
	if tonumber(content) == nil then
		s = s .. content
	else
		s = s .. '<span id="ws-cover" style="display:none; speak:none;">'
		s = s .. c.nompage .. "/" .. content .. "</span>"
		s = s .. '[[File:' .. c.nompage .. '|page=' .. content .. '|frameless]]'
	end
	s = s .. '</td>'
	s = s .. '<td valign="top"><table style="margin-left:0">'	--se cierran en construct_field_paginas
	return s
end

local function construct_field_paginas(content, c)

	if c.nompage == nil or c.nompage == '' then return "Error en construct_field_pagines (nompage)" end
	if content == nil or content == '' then return "Error en construct_field_pagines (content)" end
	local s = ''
	s = s .. '</table></td></tr>'
	s = s .. '<tr><td valign="top" colspan="2"><span class="plainlinks">'
	s = s .. '<b>[//es.wikisource.org/wiki/File:' .. c.nompage .. '?action=purge Páginas]</b></span>'
	s = s .. ' ([[Ayuda:Nivel_de_las_páginas|Nivel]])\n'
	s = s .. '<div style="padding-left:0.5em; background-color:#F0F0F0; color:black;">\n' .. content .. '</div></td></tr>'
	s = s .. '</table></td>'
	return s
end

local function construct_field_sumario(content)
	local s = ''
	if content then
		s = '<td width="33%" valign="top">' .. content .. '</td>'
	end
	return s
end
local function getBadge( qid )
	local badges = Wikidata.badge{args={qid=qid, raw=true}}
	if #badges > 0 then
		for k, v in pairs(badges) do
			if v then return v end
		end
	end
end
local function consolidado(args, obra)
	local c = {}
	
	c.qid = obra.qid
	
	for id in pairs(headings) do
		local idx = headings[id]
		c[id] = {}
		if idx.index then  --toma datos del índice
			c[id].WS = args[idx.index]
		end
		if c.qid then --tiene propiedad en Wikidata
			c[id].WD = aCadena(id, obra[id])
		end
		-- content: prioridad WS
		c[id].content = c[id].WS or c[id].WD
	end
	c.commonsFile = {WD = obra.commonsFile, WS = args.NomPag}
	c.nompage =  mw.uri.encode( args.NomPag, 'WIKI' )

	return c
end

-- construct a basic "field" row
local function construct_field(id, c)
	if id == nil then error( "Error en construct_field" ) end
	local qid = c.qid
	local P = headings[id].p
	local emblem = headings[id].emblem
	local title = headings[id].txt
	local idx = c[id]
	local content = idx.content
	local CatError = "[[Categoría:Índices con discrepancias respecto a Wikidata"	
	local siWDsiWS = idx.WD and idx.WS --hay contenido en WD y en WS (se puede borrar)
	local noWDsiWS = not idx.WD and idx.WS	--no hay contenido en WD pero sí en WS (no borrar hasta migrarlo a WD)
	local siWDnoWS = idx.WD and not idx.WS
	local eqWDWS = siWDsiWS and idx.WD == idx.WS
	local caterror = false  --campo generó error
	
	if id == 'title' then
		if not idx.WS then
			local wSiteLink = mw.wikibase.getSitelink(qid or '')
			if wSiteLink then
				if idx.WD then
					content = "''[[" .. wSiteLink .. "|" .. idx.WD .. "]]''"
				else
					content = "''[[" .. wSiteLink .. "]]''"
				end
			elseif idx.WD then
				content = "''[["..idx.WD.."]]''"	
			end
		end
	end

	if id == 'modernizar' then
		if content then
			if content == 'S' then
				content = '[[Wikisource:Modernización de textos|Ortografía antigua — El lector puede elegir modernizar la ortografía]]'
			else
				content = '[[Wikisource:Modernización de textos|No modernizar]]'
			end
		end
	end

	if id == 'source' then
		if content == nil then
			if c.commonsFile.WS == nil then
				content = CatError .. "|Nompag]]"
				caterror = 'ERROR: Nompag'
			else	--todo: se podría buscar los identificadores de Wikidata P675 (GB), P724 (IA), etc.
				content = "[[:File:" .. c.commonsFile.WS .. "|Archivo]]"
				cats:addCat('Índices sin fuente')
			end
		else
			-- revisar: en general la fuente la explicitamos localmente con una plantilla
			-- tenemos que trackear si está en Wikidata? cual propiedad?
			-- noWDsiWS = true
		end
	end

	if id == 'wikidata' then
		if content == nil then
			cats:addCat('Índices no conectados a Wikidata')
			return ""
		end
		content = "[[File:Wikidata-logo.svg|20px|link=d:" .. content .. "]] [[d:" .. content .. "|" .. content .. "]]"
		if mw.wikibase.entityExists(qid) == false then
			content = content .. CatError .. "|Qid]]"
			caterror = 'ERROR: QID NO EXISTE'
		end
		if not c.commonsFile.WD then
			if wTitulo.text then
				local wArchivo = mw.title.new( wTitulo.text, 'File' )
				if wArchivo.exists then
					--Archivo no está en Commons pero sí localmente en Wikisource (casos excepcionales)
				else
					--No hay archivo local ni P996: hay que añadirlo (archivo en Commons) al ítem en Wikidata.
					content = content .. CatError .. "|Commons]]"
					caterror = 'ERROR: SIN P996 (archivo en Commons)'
				end
    		else
				content = content .. CatError .. "|Error]]"
				caterror = 'ERROR: SIN TEXTO EN ÍNDICE'
			end
		elseif c.commonsFile.WS then
			local FileMatch
			for _, file in pairs( c.commonsFile.WD ) do
				if mw.text.decode(c.commonsFile.WS) == mw.text.decode(file) then	--decode por si apóstrofe llega como "&#39;"
					FileMatch = file
				end
			end
			if not FileMatch then
				content = content .. CatError .. "|Fichero]]"
				caterror = 'ERROR: P996 REFIERE OTRO FICHERO'
			end
		end
	end	
	
	if id == 'quality' then
		local badges = {
			C = "Q20748091", P = "Q20748091",
			V = "Q20748092", T = "Q20748093",
			L = "Q20748094", E = "Q20748094"}
		local badge_WS = badges[content]
		
		if qid then	
			local badge_WD = getBadge(qid)
			if badge_WD then	
				if badge_WD == "Q20748091" then content = "C" end
				if badge_WD == "Q20748092" then content = "V" end
				if badge_WD == "Q20748093" then content = "T" end
				if badge_WD == "Q20748094" then content = "L" end
				
				if badge_WS ~= badge_WD then
					-- Todo: manejar discrepancia 
				end	
			else
				-- if content then noWDsiWS = true end
			end
		end
		-- prioridad local
		if idx.WS and idx.WS ~= '' then
			content = idx.WS
		end
		if content == nil then
			content = "[[:Categoría:Índices con progreso desconocido|Progreso desconocido]]"
			cats:addCat('Índices con progreso desconocido')
		elseif content == 'C' then
			content = "[[:Categoría:Índices no corregidos|Por corregir]]"
			cats:addCat('Índices no corregidos')
		elseif content == 'P' then
			content = "[[:Categoría:Índices sin pagelist|Por corregir - pendiente crear <nowiki><pagelist/></nowiki>]]"
			cats:addCat('Índices no corregidos')
			cats:addCat('Índices sin pagelist')
		elseif content == 'V' then
			content = "[[:Categoría:Índices corregidos|Corregido — Todas las páginas corregidas pero no todas validadas]]"
			cats:addCat('Índices corregidos')
		elseif content == 'T' then
			content = "[[:Categoría:Índices validados|Terminado — Todas las páginas validadas]]"
			cats:addCat('Índices validados')
		elseif content == 'L' then
			content = "[[:Categoría:Índices dañados|Archivo fuente debe ser arreglado antes de corregirlo]]"
			cats:addCat('Índices dañados')
		elseif content == 'E' then
			content = "[[:Categoría:Índices en extractos|Extracto]]"
			cats:addCat('Índices en extractos')
		else
			content = "[[:Categoría:Índices con progreso desconocido|Progreso desconocido]]"
			cats:addCat('Índices con progreso desconocido')
		end
	end	
	-- categorías de seguimiento
	if id == 'editionof' then 
		if content == nil or content == '' then
			cats:addCat('Índices sin obra asociada')
			return ''
		else
			cats:addCat('Índices con obra asociada')
		end
	end
	-- parámetros que no deben pasar a Wikidata
	if not P or id == 'serie' or not qid or qid == '' then
		noWDsiWS = false
	end	
	if content == nil or content == '' then
		return ''
	end
	
	if siWDnoWS == true then
		local lapiz = ' <span class="penicon" data-bridge-edit-flow="single-best-value">'
				.. "[[File:Arbcom ru editing.svg|10px|baseline|"
				.. string.gsub(mw.message.new('Wikibase-client-data-bridge-bailout-suggestion-go-to-repo-button'):inLanguage("es"):plain(), '{{WBREPONAME}}', 'Wikidata')
		if id == 'title' then
			content = content .. lapiz	.. "|link=https://www.wikidata.org/wiki/" .. qid .. "?uselang=es#sitelinks-wikisource]]</span>"
		else
			if P and P ~= '' then
				content = content .. lapiz .. "|link=https://www.wikidata.org/wiki/" .. qid .. "?uselang=es#" .. P .. "]]</span>"
			end
		end
	end
	if eqWDWS then
		cats:addCat('índices con datos duplicados en Wikidata')
		title = title .. asterisco('blue', 'Datos duplicados en Wikidata')
	elseif siWDsiWS then
		cats:addCat('Índices con datos en Wikidata')
		title = title .. asterisco('blue', 'Datos en Wikidata')
	end
	if noWDsiWS then
		cats:addCat('índices con datos para Wikidata')
		title = title .. asterisco('green', 'Datos para Wikidata')
	end
	if caterror and caterror ~= '' then
		title = title .. asterisco('red', caterror)
	end
	
	local s = ''
	s = s .. '\n<tr>'
	s = s .. '<td valign="top">' .. (emblem or '') .. '</td>\n'
	s = s .. '<th valign="top" align="left"><b>' .. title .. '</b></th>\n'
	s = s .. '<td>' .. content .. '</td>\n'
	s = s .. '</tr>\n'
	return s
end

function p.fields(frame)	
	local args = getArgs(frame)
	local obra = Obra.newWork(args.Wikidata)
	local c = consolidado(args, obra)

	local s = ""
	
	s = s .. '<table width="100%"><tr><td valign="top"><table>'
	s = s .. construct_image(args['Imagen'], c)

	-- Tras la imagen, intentamos mostrar una fila por campo (si no hay contenido, no aparece)
	s = s .. construct_field('author', c)
	s = s .. construct_field('translator', c)
	s = s .. construct_field('editor', c)
	s = s .. construct_field('introducer', c)
	s = s .. construct_field('title', c)
	s = s .. construct_field('subtitle', c)
	s = s .. construct_field('volume', c)
	s = s .. construct_field('year', c)
	s = s .. construct_field('place', c)
	s = s .. construct_field('country', c)
	s = s .. construct_field('printer', c)
	s = s .. construct_field('editorial', c)
	s = s .. construct_field('illustrator', c)
	s = s .. construct_field('editionof', c)
	s = s .. construct_field('source', c)
	s = s .. construct_field('serie', c)
	s = s .. construct_field('modernizar', c)
	s = s .. construct_field('wikidata', c)
	s = s .. construct_field('quality', c)
	s = s .. "<tr><td>[[Archivo:Commons-emblem-notice.svg|20px|enlace=|alt=|frameless]]</td><td> '''[[Ayuda:Índices|Ayuda]]'''</td></tr>"
	s = s .. construct_field_paginas(args['Paginas'], c)
	s = s .. construct_field_sumario(args['Notas'])
	s = s .. '</tr></table>'
	
	if wTitulo:inNamespace(104) then
		s = s .. cats:getCats()
	else
		mw.log(cats:getCats())
	end
	return s
	
end

return p