Modul:Wp/tisućljeća pr. Kr.

local p = {}

function p.main(frame)
	local args = mw.getCurrentFrame():getParent().args
	local naslovStranice = mw.title.getCurrentTitle()
	local godina = ""
	local listaWp = ""
	
	local wpTisucljecePrKr = require('Module:WpNaKalendarskiČlanak').provjeriPostojanjeTisucljecaPrKr
	local wpTisucljece = require('Module:WpNaKalendarskiČlanak').provjeriPostojanjeTisucljeca
	local wpStoljecePrKr = require('Module:WpNaKalendarskiČlanak').provjeriPostojanjeStoljecaPrKr
	
	tisucljece = mw.getCurrentFrame():getParent().args[1]

	if tisucljece == nil or tisucljece == "" then
		return "<span class=\"error\">Greška, nije pronađeno stoljeće!</span>[[Kategorija:Pogreške u modulu Wp/tisucljece pr. Kr.]]"
	else
		tisucljece = tisucljece + 0 -- stoljece je string, a nakon ovoga se automatski cast-a u integer
			
		-- Tisućljeća
			
		listaWp = listaWp .. wpTisucljecePrKr(frame, tisucljece + 2, '◄')
		listaWp = listaWp .. "&nbsp;| "		
		listaWp = listaWp .. wpTisucljecePrKr(frame, tisucljece + 1, '')
		listaWp = listaWp .. "&nbsp;| '''" .. tisucljece .. ". tisucljeće pr. Kr.'''&nbsp;| "
		
		if tisucljece == 1 then
			listaWp = listaWp .. wpTisucljece(frame, 1, '')
		else
			listaWp = listaWp .. wpTisucljecePrKr(frame, tisucljece - 1, '')
		end
		
		listaWp = listaWp .. "&nbsp;| "
		
		if tisucljece < 3 then
			listaWp = listaWp .. wpTisucljece(frame, -1 * tisucljece + 3, '►')
		else
			listaWp = listaWp .. wpTisucljecePrKr(frame, tisucljece - 2, '►')
		end
		
		listaWp = listaWp .."<br>"
		
		-- Stoljeća
		
		prvoStoljece = (tisucljece - 1) * 10 + 1
		listaWp = listaWp .. wpStoljecePrKr(frame, prvoStoljece+9, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpStoljecePrKr(frame, prvoStoljece+8, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpStoljecePrKr(frame, prvoStoljece+7, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpStoljecePrKr(frame, prvoStoljece+6, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpStoljecePrKr(frame, prvoStoljece+5, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpStoljecePrKr(frame, prvoStoljece+4, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpStoljecePrKr(frame, prvoStoljece+3, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpStoljecePrKr(frame, prvoStoljece+2, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpStoljecePrKr(frame, prvoStoljece+1, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpStoljecePrKr(frame, prvoStoljece, '')
	end
	return listaWp
end
return p