Zobrazení zdroje stránky Modul:SePW

require 'strict'

local p = {}

local function addHeader(lines)
	table.insert(lines, '{| class="courses-overview wikitable sortable" style="text-align: center;"')
	table.insert(lines, '! Místo !! Typ akce !! Termín !! Přihlášení !! Lektor')
end

local function addRow(lines, event)
	table.insert(lines, '|-')
	local row = {}
	for _, aspect in ipairs{ 'place', 'type', 'date', 'registration', 'teacher' } do
		local cell = event[aspect] or ''
		if aspect == 'registration' and event['featured'] == 'ano' then
			cell = 'class="featured-signup" | ' .. cell
		end
		table.insert(row, cell)
	end
	table.insert(lines, '| ' .. table.concat(row, ' || '))
end

local function addTable(lines, events)
	addHeader(lines)
	for _, event in ipairs(events) do
		addRow(lines, event)
	end
	table.insert(lines, '|}')
end

local function isPastEvent(event)
	if not event['end'] or event['end'] == '' then
		return false
	end
	local time = (require 'Modul:Time').newFromIso8601(event['end'])
	local now = os.date('!*t')
	return (time.year < now.year or (time.year == now.year and time.month < now.month) or
		(time.year == now.year and time.month == now.month and time.day < now.day))
end

local function divide(data)
	local past = {}
	local cont = {}
	for _, event in ipairs(data) do
		if isPastEvent(event) then
			table.insert(past, event)
		else
			table.insert(cont, event)
		end
	end
	return past, cont
end

function p._tabulka(data)
	local past, cont = divide(data)
	local lines = {}
	if #cont > 0 then
		addTable(lines, cont)
	end
	if #past > 0 then
		table.insert(lines, '{{Collapse top|Archiv kurzů}}')
		addTable(lines, past)
		table.insert(lines, '{{Collapse bottom}}')
	end
	return lines
end

function p.kurzy(frame)
	local data = mw.loadData('Modul:SePW/kurzy')
	local lines = p._tabulka(data)
	return frame:preprocess(table.concat(lines, '\n'))
end

return p