Modul:Tema-godine

local p = {}

function p.main(frame)
	local args = mw.getCurrentFrame():getParent().args
	local naslovStranice = mw.title.getCurrentTitle()
	local godina = ""
	local listaWp = ""
	
	local wpTemaGodina = require('Module:WpNaKalendarskiČlanak').wpTemaGodina
	local wpTemaGodinaPrKr = require('Module:WpNaKalendarskiČlanak').wpTemaGodinaPrKr
	
	tema = mw.getCurrentFrame():getParent().args[1]
	godina = mw.getCurrentFrame():getParent().args[2]

	if godina == nil or godina == "" then
		return "<span class=\"error\">Greška, nije pronađena godina!</span>[[Kategorija:Pogreške u modulu Tema-godine]]"
	else
		-- Godine
		
		godina = godina + 0 -- godina je string, a nakon ovoga se automatski cast-a u integer
		godinaPrKr = -1 * godina
		
		if godina < 0 then
			listaWp = listaWp .. wpTemaGodinaPrKr(frame, tema, godinaPrKr + 10, '◄◄')
			listaWp = listaWp .. "&nbsp;| "
			listaWp = listaWp .. wpTemaGodinaPrKr(frame, tema, godinaPrKr + 4, '◄')
			listaWp = listaWp .. "&nbsp;| "
			listaWp = listaWp .. wpTemaGodinaPrKr(frame, tema, godinaPrKr + 3, godinaPrKr + 3 .. ". pr. Kr.")
			listaWp = listaWp .. "&nbsp;| "
			listaWp = listaWp .. wpTemaGodinaPrKr(frame, tema, godinaPrKr + 2, godinaPrKr + 2 .. ". pr. Kr.")
			listaWp = listaWp .. "&nbsp;| "
			listaWp = listaWp .. wpTemaGodinaPrKr(frame, tema, godinaPrKr + 1, godinaPrKr + 1 .. ". pr. Kr.")
			
			listaWp = listaWp .. "&nbsp;| '''" .. godinaPrKr .. ". pr. Kr.''' &nbsp;| "
			
			if godinaPrKr == 1 then
				listaWp = listaWp .. wpTemaGodina(frame, tema, 1, '')
			else
				listaWp = listaWp .. wpTemaGodinaPrKr(frame, tema, godinaPrKr - 1,  godinaPrKr - 1 .. ". pr. Kr.")
			end
			
			listaWp = listaWp .. "&nbsp;| "
			
			if godinaPrKr < 3 then
				listaWp = listaWp .. wpTemaGodina(frame, tema, 3 - godinaPrKr, '')
			else
				listaWp = listaWp .. wpTemaGodinaPrKr(frame, tema, godinaPrKr - 2, godinaPrKr - 2 .. ". pr. Kr.")
			end
			
			listaWp = listaWp .. "&nbsp;| "
			
			if godinaPrKr < 4 then
				listaWp = listaWp .. wpTemaGodina(frame, tema, 4 - godinaPrKr, '')
			else
				listaWp = listaWp .. wpTemaGodinaPrKr(frame, tema, godinaPrKr - 3, godinaPrKr - 3 .. ". pr. Kr.")
			end
			
			listaWp = listaWp .. "&nbsp;| "
			
			if godinaPrKr < 5 then
				listaWp = listaWp .. wpTemaGodina(frame, tema, 5 - godinaPrKr, '►')
			else
				listaWp = listaWp .. wpTemaGodinaPrKr(frame, tema, godinaPrKr - 4, '►')
			end	
			
			listaWp = listaWp .. "&nbsp;| "
			
			if godinaPrKr < 11 then
				listaWp = listaWp .. wpTemaGodina(frame, tema, 11 - godinaPrKr, '►►')
			else
				listaWp = listaWp .. wpTemaGodinaPrKr(frame, tema, godinaPrKr - 10, '►►')
			end
			
		else
				
			if godina  < 11 then
				listaWp = listaWp .. wpTemaGodinaPrKr(frame, tema, godinaPrKr + 11, '◄◄')
			else
				listaWp = listaWp .. wpTemaGodina(frame, tema, godina - 10, '◄◄')
			end
			
			listaWp = listaWp .. "&nbsp;| "
			
			if godina < 5 then
				listaWp = listaWp .. wpTemaGodinaPrKr(frame, tema, godinaPrKr + 5, '◄')
			else
				listaWp = listaWp .. wpTemaGodina(frame, tema, godina - 4, '◄')
			end
			
			listaWp = listaWp .. "&nbsp;| "
			
			if godina < 4 then
				listaWp = listaWp .. wpTemaGodinaPrKr(frame, tema, godinaPrKr + 4, godinaPrKr + 4 .. ". pr. Kr.")
			else
				listaWp = listaWp .. wpTemaGodina(frame, tema, godina - 3, godina - 3 .. ".")
			end
			
			listaWp = listaWp .. "&nbsp;| "
			
			if godina < 3 then
				listaWp = listaWp .. wpTemaGodinaPrKr(frame, tema, godinaPrKr + 3, godinaPrKr + 3 .. ". pr. Kr.")
			else
				listaWp = listaWp .. wpTemaGodina(frame, tema, godina - 2, godina - 2 .. ".")
			end
			
			listaWp = listaWp .. "&nbsp;| "
			
			if godina == 1 then
				listaWp = listaWp .. wpTemaGodinaPrKr(frame, tema, 1, "1. pr. Kr.")
			else
				listaWp = listaWp .. wpTemaGodina(frame, tema, godina - 1, godina - 1 .. ".")
			end
			
			listaWp = listaWp .. "&nbsp;| '''" .. godina .. ".''' &nbsp;| "
			
			listaWp = listaWp .. wpTemaGodina(frame, tema, godina + 1, godina + 1 .. ".")
			listaWp = listaWp .. "&nbsp;| "
			listaWp = listaWp .. wpTemaGodina(frame, tema, godina + 2, godina + 2 .. ".")
			listaWp = listaWp .. "&nbsp;| "
			listaWp = listaWp .. wpTemaGodina(frame, tema, godina + 3, godina + 3 .. ".")
			listaWp = listaWp .. "&nbsp;| "
			listaWp = listaWp .. wpTemaGodina(frame, tema, godina + 4, '►')
			listaWp = listaWp .. "&nbsp;| "
			listaWp = listaWp .. wpTemaGodina(frame, tema, godina + 10, '►►')
		end
		
	end
	return listaWp
end
return p