Modulo:Elezioni/sandbox

require('strict')
local p = {}
local getArgs = require('Module:Arguments').getArgs
local colore = require('Module:Partiti').colore
local sfondo = require('Module:Partiti').sfondo
local tcella = '<th>Voti</th><th>%</th>'
local ff = function (key, value)
		if type(key) == "number" then
			if value == nil then return nil else value = mw.text.trim(value) end
		else
			if value == '' then return nil end
		end
		return value
	end
local edate = '<br/><span style="font-size:85%%">%s</span>'

-- html per affiancamento di tabelle tramite parametro "allinea"
local flex = {}
flex['primo'] = {'<div style="display:flex;flex-direction:row;flex-wrap:wrap"><div style="flex-grow:0;flex-shrink:0;flex-basis:auto;padding: 0 2em 0 0">','</div>','0'}
flex['medio'] = {'<div style="flex-grow:0;flex-shrink:0;flex-basis:auto;padding: 0 2em 0 0">','</div>','0'}
flex['ultimo'] = {'<div style="flex-grow:0;flex-shrink:0;flex-basis:auto;padding: 0 2em 0 0">','</div></div>','0'}
flex['centro'] = { [3] = 'auto' }

-- crea unico array per stringa
local function agg(a,...)
    local args = {...}
    for _, s in ipairs(args) do
        table.insert(a, s)
    end
end

-- estrae voce del partito da eventuale wikilink
local function estrai(partito)
	local a = partito
	local x1 = mw.ustring.find(a,'%[%[')
	if (x1) then
		local b = mw.ustring.sub(a,x1+2)
		local x2 = mw.ustring.find(b,'%|')
		local x3 = mw.ustring.find(b,'%]%]')
		if (x3) then
			if (x2) then
				a = mw.ustring.sub(a,x1+2,x2+x1)
			else
				a = mw.ustring.sub(a,x1+2,x3+x1)
			end
		end
	end
	return a
end

-- formato numero
local function formato(a)
	local s = ''..a
	local k
	while true do
		s, k = s:gsub("^(-?%d+)(%d%d%d)", '%1&nbsp;%2')
		if (k==0) then break end
	end
	return s
end

-- calcola percentuale
local function percento(a,b)
	local s1 = string.format('<small>%4.2f</small>',100*tonumber(a)/b)
	return s1:gsub('%.',',')
end

-- recupera colore del partito da Modulo:Partiti
-- a = partito; b = colore opzionale
local function colora(a,b)
	return colore({a,(b or '#EEE')})
end

-- controlla possibili errori nei dati numerici inseriti per primo e secondo turno
-- el,el2 = elettori; vt,vt2 = votanti; tt,tt2 = totale; bi,bi2 = schede bianche
local function verifica(e,el,vt,tt,bi,na,b,el2,vt2,tt2,bi2,na2)
	local err = e
	if (vt == -1) then
		agg(err,' Non indicati votanti della votazione.')
	elseif (el == -1) then
		agg(err,'Non indicati elettori della votazione.')
	elseif (vt < tt) then
		agg(err,' Il totale è superiore al numero di votanti.')
	elseif ((bi>-1) and (vt < tt+bi)) then
		agg(err,' Il numero di schede bianche è superiore al numero di voti non validi.')
	elseif ((na>-1) and (vt < tt+na)) then
		agg(err,' Il numero di schede non assegnate è superiore al numero di voti non validi.')
	elseif ((bi>-1) and (na>-1) and (vt < tt+bi+na)) then
		agg(err,' Il numero di schede bianche e non assegnate è superiore al numero di voti non validi.')
	end
	if (b>0) then
		if (vt2 == -1) then
			agg(err,' Non indicati votanti del ballottaggio.')
		elseif (el2 == 0) then
			agg(err,' Non indicati elettori del ballottaggio.')
		elseif (vt2 < tt2) then
			agg(err,' Il totale è superiore al numero di votanti nel ballottaggio.')
		elseif ((bi2>0) and (vt2 < tt2+bi2)) then
			agg(err,' Il numero di schede bianche è superiore al numero di voti non validi.')
		elseif ((na2>0) and (vt2 < tt2+na2)) then
			agg(err,' Il numero di schede non assegnate è superiore al numero di voti non validi.')
		elseif ((bi2>0) and (na2>0) and (vt2 < tt2+bi2+na2)) then
			agg(err,' Il numero di schede bianche e non assegnate è superiore al numero di voti non validi.')
		end
	end
	return err
end

-- restituisce il colore del partito
function p.colorato(frame)
	local args = getArgs(frame, { valueFunc = ff })
	return colore({args[1],'#EEE'})
end

-- crea linea vuota su nn colonne
local function l_vuota(nn)
	return string.format('<tr class="sortbottom"><td colspan=%d></td></tr>',nn)
end

-- Crea linea con dati voti e percentuali
-- a: scritta; b: voti; c: percentuale
-- d: ballottaggio; e:voti; f: percentuale;
local function l_semplice(a,b,c,d,e,f)
	if (d>0) then
		return string.format('<tr class="sortbottom"><td align=left colspan=3>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td></tr>',a,formato(b),percento(b,c),formato(e),percento(e,f))
	else
		return string.format('<tr class="sortbottom"><td align=left colspan=3>%s</td><td>%s</td><td>%s</td></tr>',a,formato(b),percento(b,c))
	end
end

-- crea tabella per elezione uninominale
function p.unico(frame)
	local args = getArgs(frame, { valueFunc = ff })
	local elettori = tonumber(args['elettori'] or -1)
	local elettori2 = tonumber(args['elettori2'] or elettori)
	local votanti = tonumber(args['votanti'] or -1)
	local votanti2 = tonumber(args['votanti2'] or -1)
	local bianche = tonumber(args['bianche'] or -1)
	local bianche2 = tonumber(args['bianche2'] or 0)
	local noassegnate = tonumber(args['noassegnate'] or -1)
	local noassegnate2 = tonumber(args['noassegnate2'] or 0)
	local noesito = tonumber(args['noesito'] or 0)
	local edata = ''
	if (args['data']) then edata = string.format(edate,args['data']) end
	local edata2 = ''
	if (args['data2']) then edata2 = string.format(edate,args['data2']) end
	local ball = tonumber(args['ball1'] or 0)
	local titolo = args['titolo'] or ''
	local allinea = args['allinea'] or ''
	local solovotanti = args['solovotanti'] and 0 or 1
	local err = {}
	agg(err, '<p style="color:#800"><b>Errore nel template:</b>')
	local ss = {}
	local num = 1
	local tot,tot2 = 0,0
	local dati = {}

	while (args['cand'..num]) do
		if (args['voti'..num]) then
			dati[num] = {
				n = args['cand'..num], v = tonumber(args['voti'..num]), b = tonumber(args['ball'..num] or -1),
				p = args['part'..num] or '—', c = colora(args['part'..num] or '',args['col'..num])
			}
			tot = tot+dati[num].v
			if (dati[num].b > -1) then tot2 = tot2 + dati[num].b end
		else
			agg(err, ' Non indicato il numero di voti per il candidato '..num..'.')
		end
		num = num+1
	end
	num = num-1

	err = verifica(err,elettori,votanti,tot,bianche,noassegnate,ball,elettori2,votanti2,tot2,bianche2,noassegnate2)
	if (#err == 1) then
		if (flex[allinea]) then agg(ss,flex[allinea][1]) end

		agg(ss,'<table class="wikitable sortable" style="text-align:right;margin:10px ',flex[allinea] and flex[allinea][3] or '0','"><caption>',titolo,'</caption>')

		agg(ss,'<tr><th rowspan=2 colspan=2>Partito</th><th rowspan=2>Candidato</th><th colspan=2>')
		if (ball>0) then agg(ss,'Primo turno',edata,'</th><th colspan=2>Ballottaggio',edata2) else agg(ss,'Risultati',edata) end
		agg(ss,'</th></tr><tr>',tcella,((ball>0) and tcella or ''),'</tr>')

		for i=1,num do
			if (i==1 and noesito == 0) then
				agg(ss,string.format('<tr style="font-weight:bold;background:%s">',sfondo({dati[i].p,'#ff0',0.13})))
			else
				agg(ss,'<tr>')
			end
			agg(ss,string.format('<td style="width:0;background:%s"></td><td align=left>%s</td><td align=left>%s</td>', dati[i].c, dati[i].p, dati[i].n))
			agg(ss,string.format('<td>%s</td><td>%s</td>',formato(dati[i].v),percento(dati[i].v,tot)))
			if (dati[i].b>-1) then agg(ss,string.format('<td>%s</td><td>%s</td>',formato(dati[i].b),percento(dati[i].b,tot2))) end
			agg(ss,'</tr>')
		end
		agg(ss,l_vuota((ball>0) and 7 or 5))
		agg(ss,l_semplice('Iscritti',elettori,elettori,ball,elettori2,elettori2))
		agg(ss,l_semplice('&#x21b3; Votanti <small>(% su iscritti)</small>',votanti,elettori,ball,votanti2,elettori2))
		if (solovotanti == 1) then
			agg(ss,l_semplice('&ensp;&#x21b3; Voti validi <small>(% su votanti)</small>',tot,votanti,ball,tot2,votanti2))
			agg(ss,l_semplice('&ensp;&#x21b3; Voti non validi <small>(% su votanti)</small>',votanti-tot,votanti,ball,votanti2-tot2,votanti2))
			if (bianche>-1 or bianche2>0 or noassegnate>-1 or noassegnate2>0) then
				local pz, pz2 = 0,0
				if (bianche>-1 or bianche2>0) then
					pz = pz + bianche
					pz2 = pz2 + bianche2
					agg(ss,l_semplice('&ensp;&ensp;&#x21b3; Schede bianche <small>(% su votanti)</small>',bianche,votanti,ball,bianche2,votanti2))
				end
				if (noassegnate>-1 or noassegnate2>0) then
					pz = pz + noassegnate
					pz2 = pz2 + noassegnate2
					agg(ss,l_semplice('&ensp;&ensp;&#x21b3; Schede non assegnate <small>(% su votanti)</small>',noassegnate,votanti,ball,noassegnate2,votanti2))
				end
				pz = votanti - tot - pz
				pz2 = votanti2 - tot2 - pz2
				agg(ss,l_semplice('&ensp;&ensp;&#x21b3; Schede nulle <small>(% su votanti)</small>',pz,votanti,ball,pz2,votanti2))
			end
		end
		agg(ss,l_semplice('&#x21b3; Astenuti <small>(% su iscritti)</small>',elettori-votanti,elettori,ball,elettori2-votanti2,elettori2))
		if (args['nota']) then
			agg(ss,l_vuota((ball>0) and 7 or 5))
			agg(ss,string.format('<tr class="sortbottom"><td style="width:0;background:%s"></td><td align=left colspan=%d style="font-size:90%%">%s</td></tr>', (noesito == 0) and dati[1].c or 'none',(ball>0 and 6 or 4),args['nota']))
		elseif (noesito == 1) then
			agg(ss,l_vuota((ball>0) and 7 or 5))
			agg(ss,string.format('<tr class="sortbottom"><td></td><td align=left colspan=%d style="font-size:90%%">Collegio non assegnato</td></tr>', (ball>0 and 6 or 4)))
		elseif (args['part0'] and not (dati[1].p == '—')) then
			agg(ss,l_vuota((ball>0) and 7 or 5))
			agg(ss,string.format('<tr class="sortbottom"><td style="width:0;background:%s"></td><td align=left colspan=%d style="font-size:90%%"><b>Esito:</b> ', dati[1].c,(ball>0 and 6 or 4)))
			if (estrai(dati[1].p) == estrai(args['part0'])) then
				agg(ss,string.format('collegio confermato a %s', dati[1].p))
			elseif (args['part0'] == 'n') then
				agg(ss,string.format('collegio a %s (nuovo collegio)',dati[1].p))
			else
				agg(ss,string.format('collegio passa da %s a %s',args['part0'],dati[1].p))
			end
			agg(ss,'</td></tr>')
		end
		agg(ss,'</table>')
		if (flex[allinea]) then agg(ss,flex[allinea][2]) end
		return table.concat(ss)
	else
		agg(err,'</p>')
		return table.concat(err)
	end
end

-- crea tabella per elezione plurinominale
function p.poli(frame)
	local args = getArgs(frame, { valueFunc = ff })
	local elettori = tonumber(args['elettori'] or -1)
	local elettori2 = tonumber(args['elettori2'] or elettori)
	local votanti = tonumber(args['votanti'] or -1)
	local votanti2 = tonumber(args['votanti2'] or -1)
	local nonvalidi = tonumber(args['nonvalidi'] or -1)
	local nonvalidi2 = tonumber(args['nonvalidi2'] or -1)
	local edata = ''
	if (args['data']) then edata = string.format(edate,args['data']) end
	local edata2 = ''
	if (args['data2']) then edata2 = string.format(edate,args['data2']) end
	local eletti = tonumber(args['eletti'] or 0)
	local ball = tonumber(args['ball1'] or 0)
	local titolo = args['titolo'] or ''
	local allinea = args['allinea'] or ''
	local err = {}
	agg(err, '<p style="color:#800"><b>Errore nel template:</b>')
	local ss = {}
	local num = 1
	local dati = {}

	while (args['cand'..num]) do
		if (args['voti'..num]) then
			dati[num] = {
				n = args['cand'..num], v = tonumber(args['voti'..num]), b = tonumber(args['ball'..num] or -1),
				p = args['part'..num] or '—', c = colora(args['part'..num] or '',args['col'..num])
			}
		else
			agg(err,' Non indicato il numero di voti per il candidato '..num..'.')
		end
		num = num+1
	end
	num = num-1

	err = verifica(err,elettori,votanti,votanti,-1,-1,ball,elettori2,votanti2,votanti2,0,0)
	if (eletti == 0) then agg(err,' Non indicato numero eletti.') end
	if (#err == 1) then
		if (flex[allinea]) then agg(ss,flex[allinea][1]) end
		agg(ss,'<table class="wikitable sortable" style="text-align:right;margin:10px ',flex[allinea] and flex[allinea][3] or '0','"><caption>',titolo,'</caption>')
		
		agg(ss,'<tr><th rowspan=2 colspan=2>Partito</th><th rowspan=2>Candidato</th><th colspan=2>')
		if (ball>0) then agg(ss,'Primo turno',edata,'</th><th colspan=2>Ballottaggio',edata2) else agg(ss,'Risultati',edata) end
		agg(ss,'</th></tr><tr>',tcella,((ball>0) and tcella or ''),'</tr>')

		for i=1,num do
			if (i<=eletti) then
				agg(ss,string.format('<tr style="font-weight:bold;background:%s">',sfondo({dati[i].p,'#ff0',0.13})))
			else
				agg(ss,'<tr>')
			end
			agg(ss,string.format('<td style="width:0;background:%s"></td><td align=left>%s</td><td align=left>%s</td>', dati[i].c, dati[i].p, dati[i].n))
			agg(ss,string.format('<td>%s</td><td>%s</td>',formato(dati[i].v),percento(dati[i].v,votanti)))
			if (dati[i].b>-1) then agg(ss,string.format('<td>%s</td><td>%s</td>',formato(dati[i].b),percento(dati[i].b,votanti2))) end
			agg(ss,'</tr>')
		end
		agg(ss,l_vuota((ball>0) and 7 or 5))
		agg(ss,l_semplice('Iscritti',elettori,elettori,ball,elettori2,elettori2))
		agg(ss,l_semplice('&#x21b3; Votanti <small>(% su iscritti)</small>',votanti,elettori,ball,votanti2,elettori2))
		if ((nonvalidi>-1) or (nonvalidi2>-1)) then
			agg(ss,l_semplice('&ensp;&#x21b3; Voti validi <small>(% su votanti)</small>',votanti-nonvalidi,votanti,ball,votanti2-nonvalidi2,votanti2))
			agg(ss,l_semplice('&ensp;&#x21b3; Voti non validi <small>(% su votanti)</small>',nonvalidi,votanti,ball,nonvalidi2,votanti2))
		end
		agg(ss,l_semplice('&#x21b3; Astenuti <small>(% su iscritti)</small>',elettori-votanti,elettori,ball,elettori2-votanti2,elettori2))

		if (args['nota']) then
			agg(ss,l_vuota((ball>0) and 7 or 5))
			agg(ss,string.format('<tr class="sortbottom"><td align=left colspan=%d style="font-size:90%%">%s</td></tr>',(ball>0 and 7 or 5),args['nota']))
		end
		agg(ss,'</table>')
		if (flex[allinea]) then agg(ss,flex[allinea][2]) end
		return table.concat(ss)
	else
		agg(err,'</p>')
		return table.concat(err)
	end
end

-- crea linea con variazioni percentuali
-- a: scritta; b: voti; c: percentuale; d: variazione
-- e: ballottaggio; f:voti; g: percentuale; h: variazione
local function l_variaz(a,b,c,d,e,f,g,h)
	if (e>0) then
		return string.format('<tr class="sortbottom"><td align=left colspan=2>%s</td><td>%s</td><td>%s</td><td><small>%s</small></td><td>%s</td><td>%s</td><td><small>%s</small></td></tr>',a,formato(b),percento(b,c),d,formato(f),percento(f,g),h)
	else
		return string.format('<tr class="sortbottom"><td align=left colspan=2>%s</td><td>%s</td><td>%s</td><td><small>%s</small></td></tr>',a,formato(b),percento(b,c),d)
	end
end

-- crea tabella per elezione di lista
function p.lista(frame)
	local args = getArgs(frame, { valueFunc = ff })
	local elettori = tonumber(args['elettori'] or -1)
	local elettori2 = tonumber(args['elettori2'] or elettori)
	local votanti = tonumber(args['votanti'] or -1)
	local votantiv = args['votantiv'] or 'n.d.'
	local votanti2 = tonumber(args['votanti2'] or -1)
	local votanti2v = args['votanti2v'] or 'n.d.'
	local bianche = tonumber(args['bianche'] or -1)
	local bianche2 = tonumber(args['bianche2'] or 0)
	local noassegnate = tonumber(args['noassegnate'] or -1)
	local noassegnate2 = tonumber(args['noassegnate2'] or 0)
	local edata = ''
	if (args['data']) then edata = string.format(edate,args['data']) end
	local edata2 = ''
	if (args['data2']) then edata2 = string.format(edate,args['data2']) end
	local ball = tonumber(args['ball1'] or 0)
	local titolo = args['titolo'] or ''
	local allinea = args['allinea'] or ''
	local solovotanti = args['solovotanti'] and 0 or 1
	local err = {}
	agg(err, '<p style="color:#800"><b>Errore nel template:</b>')
	local ss = {}
	local num = 1
	local tot,tot2 = 0,0
	local dati = {}

	while (args['part'..num]) do
		if (args['voti'..num]) then
			dati[num] = {
				p = args['part'..num], v = tonumber(args['voti'..num]), b = tonumber(args['ball'..num] or -1),
				c = colora(args['part'..num] or '',args['col'..num]), s = args['seggi'..num] or '',
				sv = args['seggiv'..num] or 'n.d.', pv = args['percv'..num] or 'n.d.', pv2 = args['percvb'..num] or 'n.d.'
			}
			tot = tot+dati[num].v
			if (dati[num].b > -1) then tot2 = tot2 + dati[num].b end
		else
			agg(err,' Non indicato il numero di voti per il partito '..num..'.')
		end
		num = num+1
	end
	num = num-1

	err = verifica(err,elettori,votanti,tot,bianche,noassegnate,ball,elettori2,votanti2,tot2,bianche,noassegnate)
	if (#err == 1) then
		if (flex[allinea]) then agg(ss,flex[allinea][1]) end
		agg(ss,'<table cellpadding=0 cellspacing=0 style="margin:10px ',flex[allinea] and flex[allinea][3] or '0','"><caption><b>',titolo,'</b></caption><tr style="vertical-align:top"><td>')
		agg(ss,'<table class="wikitable sortable" style="text-align:right"><tr><th rowspan=2 colspan=2>Partito</th><th colspan=3>')
		if (ball>0) then agg(ss,'Primo turno',edata,'</th><th colspan=3>Ballottaggio',edata2) else agg(ss,'Risultati',edata) end
		agg(ss,'</th><th colspan=2>Seggi</th></tr><tr>',tcella,'<th>±</th>',((ball>0) and tcella..'<th>±</th>' or ''),'<th>Num</th><th>±</th></tr>')

		for i=1,num do
			agg(ss,string.format('<tr><td style="width:0;background:%s"></td><td align=left>%s</td>', dati[i].c, dati[i].p))
			agg(ss,string.format('<td>%s</td><td>%s</td><td><small>%s</small></td>',formato(dati[i].v),percento(dati[i].v,tot),dati[i].pv))
			if (ball>0) then
				if (dati[i].b>-1) then
					agg(ss,string.format('<td>%s</td><td>%s</td><td><small>%s</small></td>',formato(dati[i].b),percento(dati[i].b,tot2),dati[i].pv2))
				else
					agg(ss,'<td></td><td></td><td></td>')
				end
			end
			agg(ss,string.format('<td>%s</td><td><small>%s</small></td></tr>',dati[i].s,dati[i].sv))
		end

		agg(ss,l_vuota((ball>0) and 10 or 7))
		agg(ss,l_variaz('Iscritti',elettori,elettori,'',ball,elettori2,elettori2,''))
		agg(ss,l_variaz('&#x21b3; Votanti <small>(% su iscritti)</small>',votanti,elettori,votantiv,ball,votanti2,elettori2,votanti2v))
		if (solovotanti == 1) then
			agg(ss,l_variaz('&ensp;&#x21b3; Voti validi <small>(% su votanti)</small>',tot,votanti,'',ball,tot2,votanti2,''))
			agg(ss,l_variaz('&ensp;&#x21b3; Voti non validi <small>(% su votanti)</small>',votanti-tot,votanti,'',ball,votanti2-tot2,votanti2,''))
			if (bianche>-1 or bianche2>0 or noassegnate>-1 or noassegnate2>0) then
				local pz, pz2 = 0,0
				if (bianche>-1 or bianche2>0) then
					pz = pz + bianche
					pz2 = pz2 + bianche2
					agg(ss,l_variaz('&ensp;&ensp;&#x21b3; Schede bianche <small>(% su votanti)</small>',bianche,votanti,'',ball,bianche2,votanti2,''))
				end
				if (noassegnate>-1 or noassegnate2>0) then
					pz = pz + noassegnate
					pz2 = pz2 + noassegnate2
					agg(ss,l_variaz('&ensp;&ensp;&#x21b3; Schede non assegnate <small>(% su votanti)</small>',noassegnate,votanti,'',ball,noassegnate2,votanti2,''))
				end
				pz = votanti - tot - pz
				pz2 = votanti2 - tot2 - pz2
				agg(ss,l_variaz('&ensp;&ensp;&#x21b3; Schede nulle <small>(% su votanti)</small>',pz,votanti,'',ball,pz2,votanti2,''))
			end
		end
		agg(ss,l_variaz('&#x21b3; Astenuti <small>(% su iscritti)</small>',elettori-votanti,elettori,'',ball,elettori2-votanti2,elettori2,''))

		if (args['nota']) then
			agg(ss,l_vuota((ball>0) and 10 or 7))
			agg(ss,string.format('<tr class="sortbottom"><td align=left colspan=%d style="font-size:90%%">%s</td></tr>', (ball>0 and 10 or 7),args['nota']))
		end
		agg(ss,'</table></td>')
		if (args['el1']) then
			num = 1
			while (args['el'..num]) do num = num +1 end
			num = num-1
			if (num>40) then
				local c2 = math.floor(0.7 + num/3)
				agg(ss,'<td width="12px"></td><td><table class="wikitable"><tr><th colspan=2>Eletti</th><th rowspan=',c2+1,'></th><th colspan=2>Eletti</th><th rowspan=',c2+1,'></th><th colspan=2>Eletti</th></tr>')
				for j=1,c2 do
					agg(ss,string.format('<tr><td style="background:%s"> </td><td>%s</td>',dati[tonumber(args['part el'..j])].c, args['el'..j]))
					agg(ss,string.format('<td style="background:%s"> </td><td>%s</td>',dati[tonumber(args['part el'..(j+c2)])].c, args['el'..(j+c2)]))
					if (2*c2+j<=num) then agg(ss,string.format('<td style="background:%s"> </td><td>%s</td>',dati[tonumber(args['part el'..(j+2*c2)])].c, args['el'..(j+2*c2)])) end
					agg(ss,'</tr>')
				end
			elseif (num>20) then
				local c2 = math.floor(0.5 + num/2)
				agg(ss,'<td width="12px"></td><td><table class="wikitable"><tr><th colspan=2>Eletti</th><th rowspan=',c2+1,'></th><th colspan=2>Eletti</th></tr>')
				for j=1,c2 do
					agg(ss,string.format('<tr><td style="background:%s"> </td><td>%s</td>',dati[tonumber(args['part el'..j])].c, args['el'..j]))
					if (c2+j<=num) then agg(ss,string.format('<td style="background:%s"> </td><td>%s</td>',dati[tonumber(args['part el'..(j+c2)])].c, args['el'..(j+c2)])) end
					agg(ss,'</tr>')
				end
			else
				agg(ss,'<td width="12px"></td><td><table class="wikitable"><tr><th colspan=2>Eletti</th></tr>')
				for j=1,num do
					agg(ss,string.format('<tr><td style="background:%s"> </td><td>%s</td></tr>',dati[tonumber(args['part el'..j])].c, args['el'..j]))
				end
			end
			agg(ss,'</table></td>')
		end
		agg(ss,'</tr></table>')
		if (flex[allinea]) then agg(ss,flex[allinea][2]) end
		return table.concat(ss)
	else
		agg(err,'</p>')
		return table.concat(err)
	end
end

-- crea tabella per elezione di lista con sistema misto
function p.misto(frame)
	local args = getArgs(frame, { valueFunc = ff })
	local tipologia = args['tipologia'] or 'Partito'
	local elettori = tonumber(args['elettori'] or -1)
	local votanti = tonumber(args['votanti'] or -1)
	local votantiv = args['votantiv'] or 'n.d.'
	local seggiv = args['seggiv'] or 'n.d.'
	local titolo = args['titolo'] or ''
	local allinea = args['allinea'] or ''
	local err = {}
	agg(err, '<p style="color:#800"><b>Errore nel template:</b>')
	local ss = {}
	local num = 1
	local totm,totp = 0,0
	local totsm,totsp = 0,0
	local dati = {}

	while (args['part'..num]) do
		if (args['votim'..num]) then
			dati[num] = {
				p = args['part'..num], vm = tonumber(args['votim'..num]), vp = tonumber(args['votip'..num] or 0),
				c = colora(args['part'..num] or '',args['col'..num]),
				sm = tonumber(args['seggim'..num] or 0), sp = tonumber(args['seggip'..num] or 0), sv = args['seggiv'..num] or 'n.d.',
				pmv = args['percvm'..num] or 'n.d.', ppv = args['percvp'..num] or 'n.d.'
			}
			totm = totm+dati[num].vm
			totp = totp+dati[num].vp
			totsm = totsm+dati[num].sm
			totsp = totsp+dati[num].sp
		else
			agg(err,' Non indicato il numero di voti per il partito '..num..'.')
		end
		num = num+1
	end
	num = num-1

	if (elettori>0) then
		if (totm>elettori or totp > elettori) then
			agg(err,' Numero di elettori inferiore alla somma dei voti')
		end
		if (votanti>0 and votanti>elettori) then
			agg(err,' Numero di elettori inferiore al numero di votanti')
		end
	end
	if (votanti>0 and (totm>votanti or totp>votanti)) then
		agg(err,' Numero di votanti inferiore alla somma dei voti')
	end

	if (#err == 1) then
		if (flex[allinea]) then agg(ss,flex[allinea][1]) end
		agg(ss,'<table class="wikitable sortable" style="text-align:right">')
		agg(ss,'<tr><th rowspan=2 colspan=2>',tipologia,'</th><th colspan=3>')
		if (totp>0) then
			agg(ss,'Parte maggioritaria</th><th colspan=3>Parte proporzionale')
		else
			agg(ss,'Voti')
		end
		agg(ss,'</th><th colspan=5>Seggi</th></tr><tr><th>Voti</th><th>%</th><th>±</th>')
		if (totp>0) then
			agg(ss,'<th>Voti</th><th>%</th><th>±</th>')
		end
		agg(ss,'<th>Magg</th><th>Prop</th><th>Tot</th><th>±</th><th>%</th></tr>')

		for i=1,num do
			agg(ss,string.format('<tr><td style="width:0;background:%s"></td><td align=left>%s</td>', dati[i].c, dati[i].p))
			agg(ss,string.format('<td>%s</td><td>%s</td><td><small>%s</small></td>',formato(dati[i].vm),percento(dati[i].vm,totm),dati[i].pmv))
			if (totp>0) then
				agg(ss,string.format('<td>%s</td><td>%s</td><td><small>%s</small></td>',formato(dati[i].vp),percento(dati[i].vp,totp),dati[i].ppv))
			end
			agg(ss,string.format('<td>%s</td><td>%s</td><td>%s</td><td><small>%s</small><td>%s</td></tr>',dati[i].sm,dati[i].sp,(dati[i].sm+dati[i].sp),dati[i].sv,percento(dati[i].sm+dati[i].sp,totsm+totsp)))
		end

		agg(ss,l_vuota((totp>0) and 13 or 10))
		agg(ss,string.format('<tr class="sortbottom"><td align=left colspan=2>Totale</td><td>%s</td><td>%s</td><td></td>',formato(totm),percento(1,1)))
		if (totp>0) then
			agg(ss,string.format('<td>%s</td><td>%s</td><td></td>',formato(totp),percento(1,1)))
		end
		agg(ss,string.format('<td>%d</td><td>%d</td><td>%d</td><td><small>%s</small></td></tr>',totsm,totsp,totsm+totsp,seggiv))
		if ((votanti > 0) and (elettori > 0)) then
			agg(ss,l_vuota((totp>0) and 13 or 10))
			agg(ss,string.format('<tr class="sortbottom"><td align=left colspan=2>Iscritti</td><td>%s</td><td>%s</td></tr>',formato(elettori),percento(1,1)))
			agg(ss,string.format('<tr class="sortbottom"><td align=left colspan=2>Votanti (%% su iscritti)</td><td>%s</td><td>%s</td></tr>',formato(votanti),percento(votanti,elettori)))
		end

		if (args['nota']) then
			agg(ss,l_vuota((totp>0) and 13 or 10))
			agg(ss,string.format('<tr class="sortbottom"><td align=left colspan=%d style="font-size:90%%">%s</td></tr>', (totp>0 and 13 or 10),args['nota']))
		end
		agg(ss,'</table>')
		if (flex[allinea]) then agg(ss,flex[allinea][2]) end
		return table.concat(ss)
	else
		agg(err,'</p>')
		return table.concat(err)
	end
end

-- crea tabella per liste collegate a candidato uninominale 2017
function p.elenco_liste(frame)
	local args = getArgs(frame, { valueFunc = ff })
	local allinea = args['allinea'] or ''
	local err = {}
	agg(err, '<p style="color:#800"><b>Errore nel template:</b>')
	local ss = {}
	local num = 1
	local l = 0
	local ss2 = ''

	if (flex[allinea]) then agg(ss,flex[allinea][1]) end
	agg(ss,'<table class="wikitable" style="text-align:right">')
	agg(ss,'<tr><th colspan=2>Candidati</th><th colspan=2>Liste</th><th>Voti</th>')

	while (args['cand'..num]) do
		if (args['liste'..num] and tonumber(args['liste'..num])) then
			l = args['liste'..num] and tonumber(args['liste'..num])
			agg(ss,string.format('<tr><td rowspan=%d style="width:0;background:%s></td>',l,colora(args['part'..num] or '',args['col'..num])))
			agg(ss,string.format('<td rowspan=%d align=left>%s</td>',l,args['cand'..num]))
			for i=1,l do
				ss2 = num..'_'..i
				if (i>i) then agg(ss,'<tr>') end
				agg(ss,string.format('<td style="width:0;background:%s"></td><td align=left>%s</td><td>%s</td></tr>',
					colora(args['lista'..ss2] or '',args['col'..ss2]), args['lista'..ss2], args['voti'..ss2]
				))
			end
		else
			agg(err,' Errore nel numero di liste per il candidato '..num..'.')
		end
		num = num+1
	end
	agg(ss,'</table>')
	if (flex[allinea]) then agg(ss,flex[allinea][2]) end

	if (#err == 1) then
		return table.concat(ss)
	else
		agg(err,'</p>')
		return table.concat(err)
	end
end

return p