Modul:Wp/stoljeća pr. Kr.

Izvor: Wikipedija


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
	local wpStoljece = require('Module:WpNaKalendarskiČlanak').provjeriPostojanjeStoljeca
	local wpDesetljecePrKr = require('Module:WpNaKalendarskiČlanak').provjeriPostojanjeDesetljecaPrKr
	local wpgodinaPrKr = require('Module:WpNaKalendarskiČlanak').provjeriPostojanjeGodinePrKr
	
	stoljece = mw.getCurrentFrame():getParent().args[1]

	if stoljece == nil or stoljece == "" then
		return "<span class=\"error\">Greška, nije pronađeno stoljeće!</span>[[Kategorija:Pogreške u modulu Wp/stoljece pr. Kr.]]"
	else
		stoljece = stoljece + 0 -- stoljece je string, a nakon ovoga se automatski cast-a u integer
			
		-- Tisućljeća
		tisucljece = math.ceil(stoljece / 10)
		listaWp = listaWp .. wpTisucljecePrKr(frame, tisucljece + 2, '◄')		
		listaWp = listaWp .. "&nbsp;| "		
		listaWp = listaWp .. wpTisucljecePrKr(frame, tisucljece + 1, '')		
		listaWp = listaWp .. "&nbsp;| '''" .. wpTisucljecePrKr(frame, tisucljece, '') .. "'''&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
			
		listaWp = listaWp .. wpStoljecePrKr(frame, stoljece + 3, '◄')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpStoljecePrKr(frame, stoljece + 2, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpStoljecePrKr(frame, stoljece + 1, '')
		
		listaWp = listaWp .. "&nbsp;| '''" .. stoljece .. ". stoljeće pr. Kr.'''&nbsp;|"
		
		if stoljece == 1 then
			listaWp = listaWp .. wpStoljece(frame, 1, '')
		else
			listaWp = listaWp .. wpStoljecePrKr(frame, stoljece - 1, '')
		end
		
		listaWp = listaWp .. "&nbsp;| "
		
		if stoljece < 3 then
			listaWp = listaWp .. wpStoljece(frame, -1 * stoljece + 3, '') 
		else
			listaWp = listaWp .. wpStoljecePrKr(frame, stoljece - 2, '')
		end
		
		listaWp = listaWp .. "&nbsp;| "
		
		if stoljece < 4 then
			listaWp = listaWp .. wpStoljece(frame, -1 * stoljece + 4, '►') 
		else
			listaWp = listaWp .. wpStoljecePrKr(frame, stoljece - 3, '►')
		end
		
		listaWp = listaWp .."<br>"
		
		-- Desetljeća
		
		prvaDekada = (stoljece - 1) * 100
		
		listaWp = listaWp .. wpDesetljecePrKr(frame, prvaDekada+90, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpDesetljecePrKr(frame, prvaDekada+80, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpDesetljecePrKr(frame, prvaDekada+70, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpDesetljecePrKr(frame, prvaDekada+60, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpDesetljecePrKr(frame, prvaDekada+50, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpDesetljecePrKr(frame, prvaDekada+40, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpDesetljecePrKr(frame, prvaDekada+30, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpDesetljecePrKr(frame, prvaDekada+20, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpDesetljecePrKr(frame, prvaDekada+10, '')
		listaWp = listaWp .. "&nbsp;| "
		listaWp = listaWp .. wpDesetljecePrKr(frame, prvaDekada, '')
	end
	return listaWp
end
return p