Modul:Wp/desetljeća

local p = {}
function p.main(frame)
	local args = mw.getCurrentFrame():getParent().args
	local naslovStranice = mw.title.getCurrentTitle()
	local godina = ""
	local listaWp = ""
	
	local wpTisucljece = require('Module:WpNaKalendarskiČlanak').provjeriPostojanjeTisucljeca
	local wpStoljecePrKr = require('Module:WpNaKalendarskiČlanak').provjeriPostojanjeStoljecaPrKr
	local wpStoljece = require('Module:WpNaKalendarskiČlanak').provjeriPostojanjeStoljeca
	local wpDesetljecePrKr = require('Module:WpNaKalendarskiČlanak').provjeriPostojanjeDesetljecaPrKr
	local wpDesetljece = require('Module:WpNaKalendarskiČlanak').provjeriPostojanjeDesetljeca
	local wpGodinaPrKr = require('Module:WpNaKalendarskiČlanak').provjeriPostojanjeGodinePrKr
	local wpGodina = require('Module:WpNaKalendarskiČlanak').provjeriPostojanjeGodine
	
	dekadaArg = mw.getCurrentFrame():getParent().args[1]

	if dekadaArg == nil or dekadaArg == "" then
		return "<span class=\"error\">Greška, nije pronađena dekada!</span>[[Kategorija:Pogreške u modulu Wp/desetljeća]]"
	else
		dekada = dekadaArg - 1 -- za 550-ih je argument 56, treba nam "55"
		
		-- Tisućljeće
		tisucljece = math.ceil((dekada + 1) / 100)
			
		listaWp = listaWp .. "'''"
		listaWp = listaWp .. wpTisucljece(frame, tisucljece, '')
		listaWp = listaWp .."'''<br>"
		
		-- Stoljeća
		stoljece = math.ceil((dekada + 1) / 10)
		
		if stoljece < 3 then
			listaWp = listaWp .. wpStoljecePrKr(frame, -1 * stoljece + 3, '◄') 
		else
			listaWp = listaWp .. wpStoljece(frame, stoljece - 2, '◄')
		end
		
		listaWp = listaWp .. "&nbsp;| "
		
		if stoljece == 1 then
			listaWp = listaWp .. wpStoljecePrKr(frame, 1, '')
		else
			listaWp = listaWp .. wpStoljece(frame, stoljece - 1, '')
		end
		
		listaWp = listaWp .. "&nbsp;| '''"
		listaWp = listaWp .. wpStoljece(frame, stoljece, '')
		listaWp = listaWp .. "'''&nbsp;| "		
		listaWp = listaWp .. wpStoljece(frame, stoljece + 1, '')		
		listaWp = listaWp .. "&nbsp;| "			
		listaWp = listaWp .. wpStoljece(frame, stoljece + 2, '►')
		
		listaWp = listaWp .."<br>"
		
		-- Desetljeća
		
		if dekada < 4 then
			listaWp = listaWp .. wpDesetljecePrKr(frame, -10 * dekada + 30, '◄')
		else
			listaWp = listaWp .. wpDesetljece(frame, 10 * dekada - 40, '◄')
		end
		
		listaWp = listaWp .. "&nbsp;| "
		
		if dekada < 3 then
			listaWp = listaWp .. wpDesetljecePrKr(frame, -10 * dekada + 20, '')
		else
			listaWp = listaWp .. wpDesetljece(frame, 10 * dekada - 30, '')
		end
		
		listaWp = listaWp .. "&nbsp;| "
		
		if dekada < 2 then
			listaWp = listaWp .. wpDesetljecePrKr(frame, -10 * dekada + 10, '')
		else
			listaWp = listaWp .. wpDesetljece(frame, 10 * dekada - 20, '')
		end
		
		listaWp = listaWp .. "&nbsp;| "
		
		if dekada == 0 then
			listaWp = listaWp .. wpDesetljecePrKr(frame, 0, '')
		else
			listaWp = listaWp .. wpDesetljece(frame, 10 * dekada - 10, '')
		end
		
		listaWp = listaWp .. "&nbsp;| '''" .. 10 * dekada .. "-ih'''&nbsp;| "		
		listaWp = listaWp .. wpDesetljece(frame, 10 * dekada + 10, '')		
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpDesetljece(frame, 10 * dekada + 20, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpDesetljece(frame, 10 * dekada + 30, '')
		listaWp = listaWp .. "&nbsp;| "		
		listaWp = listaWp .. wpDesetljece(frame, 10 * dekada + 40, '►')
		
		listaWp = listaWp .."<br>"
		
		-- Godine
		if dekada > 0 then
			listaWp = listaWp .. wpGodina(frame, dekada*10, '')
		end
		
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpGodina(frame, dekada*10+1, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpGodina(frame, dekada*10+2, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpGodina(frame, dekada*10+3, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpGodina(frame, dekada*10+4, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpGodina(frame, dekada*10+5, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpGodina(frame, dekada*10+6, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpGodina(frame, dekada*10+7, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpGodina(frame, dekada*10+8, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpGodina(frame, dekada*10+9, '')
	end
	return listaWp
end
return p