Modul:WpNaKalendarskiČlanak

---

local p = {}
local tcModul = require('Module:TipskiČlanciPoTemama')

function p.provjeriPostojanjeGodinePrKr(frame, godina, text)
	local naslov = mw.title.new(godina .. '._pr._Kr.' , 0 ) -- naslov i NS
	
	if text == "" then
		text = godina .. '. pr. Kr.'
	end
	
	if naslov.exists then 
		return "[[" .. godina .. ". pr. Kr.|" .. text .."]]"
	else 
		return frame:preprocess('<span class="plainlinks godine-podteme">['
		.. '{{fullurl:'.. naslov.text
		.. '|action=edit'
		.. '&preload=Wikipedija:Tipski_članci/Godine_pr._Kr.'
		.. '&preloadparams%5b%5d='.. godina
		.. '&summary=Stvoren%20novi%20članak}}<span style="color:#ba0000;">'.. text .. '</span>]</span>')
	end
end

function p.provjeriPostojanjeGodine(frame, godina, text)
	local naslov = mw.title.new(godina .. '.' , 0 ) -- naslov i NS
	
	if text == "" then
		text = godina .. '.'
	end
	
	if naslov.exists then 
		return "[[" .. godina .. ".|" .. text .."]]"
	else 
		return frame:preprocess('<span class="plainlinks godine-podteme">['
		.. '{{fullurl:'.. naslov.text
		.. '|action=edit'
		.. '&preload=Wikipedija:Tipski_članci/Godine'
		.. '&preloadparams%5b%5d='.. godina
		.. '&summary=Stvoren%20novi%20članak}}<span style="color:#ba0000;">'.. text .. '</span>]</span>')
	end
end

function p.provjeriPostojanjeDesetljecaPrKr(frame, dekada, text)
	local naslov = mw.title.new(dekada .. '-ih_pr._Kr.' , 0 ) -- naslov i NS
	
	if text == "" then
		text = dekada .. '-ih pr. Kr.'
	end
	
	if naslov.exists then 
		return "[[" .. dekada .. "-ih pr. Kr.|" .. text .."]]"
	else 
		return frame:preprocess('<span class="plainlinks godine-podteme">['
		.. '{{fullurl:'.. naslov.text
		.. '|action=edit'
		.. '&preload=Wikipedija:Tipski_članci/Desetljeća_pr._Kr.'
		.. '&preloadparams%5b%5d='.. dekada/10 + 1 .. '&preloadparams%5b%5d=' .. dekada/10
		.. '&summary=Stvoren%20novi%20članak}}<span style="color:#ba0000;">'.. text .. '</span>]</span>')
	end
end

function p.provjeriPostojanjeDesetljeca(frame, dekada, text)
	local naslov = mw.title.new(dekada .. '-ih' , 0 ) -- naslov i NS
	
	if text == "" then
		text = dekada .. '-ih'
	end
	
	if naslov.exists then 
		return "[[" .. dekada .. "-ih|" .. text .."]]"
	else 
		return frame:preprocess('<span class="plainlinks godine-podteme">['
		.. '{{fullurl:'.. naslov.text
		.. '|action=edit'
		.. '&preload=Wikipedija:Tipski_članci/Desetljeća'
		.. '&preloadparams%5b%5d='.. dekada/10 + 1 .. '&preloadparams%5b%5d=' .. dekada/10
		.. '&summary=Stvoren%20novi%20članak}}<span style="color:#ba0000;">'.. text .. '</span>]</span>')
	end
end

function p.provjeriPostojanjeStoljecaPrKr(frame, stoljece, text)
	local naslov = mw.title.new(stoljece .. '._stoljeće_pr._Kr.' , 0 ) -- naslov i NS
	
	if text == "" then
		text = stoljece .. '. stoljeće pr. Kr.'
	end
	
	if naslov.exists then 
		return "[[" .. stoljece .. ". stoljeće pr. Kr.|" .. text .."]]"
	else 
		return frame:preprocess('<span class="plainlinks godine-podteme">['
		.. '{{fullurl:'.. naslov.text
		.. '|action=edit'
		.. '&preload=Wikipedija:Tipski_članci/Stoljeća_pr._Kr.'
		.. '&preloadparams%5b%5d='.. stoljece
		.. '&summary=Stvoren%20novi%20članak}}<span style="color:#ba0000;">'.. text .. '</span>]</span>')
	end
end

function p.provjeriPostojanjeStoljeca(frame, stoljece, text)
	local naslov = mw.title.new(stoljece .. '._stoljeće' , 0 ) -- naslov i NS
	
	if text == "" then
		text = stoljece .. '. stoljeće'
	end
	
	if naslov.exists then 
		return "[[" .. stoljece .. ". stoljeće|" .. text .."]]"
	else 
		return frame:preprocess('<span class="plainlinks godine-podteme">['
		.. '{{fullurl:'.. naslov.text
		.. '|action=edit'
		.. '&preload=Wikipedija:Tipski_članci/Stoljeća'
		.. '&preloadparams%5b%5d='.. stoljece
		.. '&summary=Stvoren%20novi%20članak}}<span style="color:#ba0000;">'.. text .. '</span>]</span>')
	end
end

function p.provjeriPostojanjeTisucljecaPrKr(frame, tisucljece, text)
	local naslov = mw.title.new(tisucljece .. '._tisućljeće_pr._Kr.' , 0 ) -- naslov i NS
	
	if text == "" then
		text = tisucljece .. '. tisućljeće pr. Kr.'
	end
	
	if naslov.exists then 
		return "[[" .. tisucljece .. ". tisućljeće pr. Kr.|" .. text .."]]"
	else 
		return frame:preprocess('<span class="plainlinks godine-podteme">['
		.. '{{fullurl:'.. naslov.text
		.. '|action=edit'
		.. '&preload=Wikipedija:Tipski_članci/Tisućljeća_pr._Kr.'
		.. '&preloadparams%5b%5d='.. tisucljece
		.. '&summary=Stvoren%20novi%20članak}}<span style="color:#ba0000;">'.. text .. '</span>]</span>')
	end
end

function p.provjeriPostojanjeTisucljeca(frame, tisucljece, text)
	local naslov = mw.title.new(tisucljece .. '._tisućljeće' , 0 ) -- naslov i NS
	
	if text == "" then
		text = tisucljece .. '. tisućljeće'
	end
	
	if naslov.exists then 
		return "[[" .. tisucljece .. ". tisućljeće|" .. text .."]]"
	else 
		return frame:preprocess('<span class="plainlinks godine-podteme">['
		.. '{{fullurl:'.. naslov.text
		.. '|action=edit'
		.. '&preload=Wikipedija:Tipski_članci/Tisućljeća'
		.. '&preloadparams%5b%5d='.. tisucljece
		.. '&summary=Stvoren%20novi%20članak}}<span style="color:#ba0000;">'.. text .. '</span>]</span>')
	end
end

function p.wpTemaGodinaPrKr(frame, tema, godina, text)
	return p.wpTemaGodina(frame, tema, -1*godina, text)
end

function p.wpTemaGodina(frame, tema, godina, text)
	local naslovPrKr =''
	local preloadParamsPrKr1=''
	local preloadParamsPrKr2=''
	local godinaModul = godina
	
	if (godina < 0) then
		naslovPrKr = ' pr. Kr.'
		preloadParamsPrKr1='%20BC'
		preloadParamsPrKr2='%20pr.%20Kr.'
		godinaModul = -1*godina
	end
	
	
	local naslov = mw.title.new(tema .. ' u ' .. godinaModul .. '.' .. naslovPrKr , 0 ) -- naslov i NS
	
	local tipskiClanak = tcModul.TipskiClanak(tema, godina)
	
	local preloadParams = '&preloadparams%5b%5d='.. godina
	
	if text == "" then
		text = godina .. '.'
	end
	if (tema == "Arhitektura") then
		dekada = math.floor(godina / 10) * 10
		preloadParams = preloadParams .. '&preloadparams%5b%5d='.. dekada .. 's' .. preloadParamsPrKr1 .. '&preloadparams%5b%5d='.. dekada .. '-ih' .. preloadParamsPrKr2
	else
		preloadParams = preloadParams .. '&preloadparams%5b%5d='.. godinaModul .. preloadParamsPrKr1 .. '&preloadparams%5b%5d='.. godinaModul .. '.' .. preloadParamsPrKr2
	end
	
	if tipskiClanak == nil then
		return text
	end

	if naslov.exists then 
		return "[[" .. tema .. " u " .. godinaModul .. "." .. naslovPrKr .. "|" .. text .. "]]"
	else 
		return frame:preprocess('<span class="plainlinks godine-podteme">['
		.. '{{fullurl:'.. naslov.text
		.. '|action=edit'
		.. '&editintro=Wikipedija:Tipski_članci/Članci_po_godinama/Upute'
		.. '&preload=Wikipedija:Tipski_članci/Članci_po_godinama/'.. string.gsub(tipskiClanak, " ", "_") .. preloadParams
		.. '&summary=Stvoren%20novi%20članak}}<span style="color:#ba0000;">'.. text .. '</span>]</span>')
	end
end
return p