Tekst źródłowy strony Moduł:Portal

local tools = require('Moduł:Narzędzia')
local p = {}

local function makePanel(args, stack, num)
	text = args['panel' .. num]
	if text == '-' or text == '' then return end
	
	title = args['ptytuł' .. num] or ''
	table.insert(stack, '<h2>' .. title .. '</h2>\n' .. text)
end

-- Znajduje zbiór stron "należących" do portalu i dodaje odpowiednie
-- właściwości semantyczne do śledzenia tego.
local function findRelevantPages(args)
	local pages = {}
	
	-- Artykuły podane explicite
	local arts = mw.text.split( args['artykuły'] or '', '#', true )
	for _, art in ipairs(arts) do
		table.insert(pages, mw.text.trim(art))
	end
	
	-- Wyszukiwanie wg kategorii
	if args['kategorie'] then
		local res = mw.smw.getQueryResult{
			args['kategorie'] .. ' [[Modification date::+]]', 
			limit=500 -- większych portali raczej nie powinno być
		}
		for _, r in ipairs(res.results or {}) do
			if r.exists == '1' then
				table.insert(pages, r.fulltext)
			end
		end
	end
	
	-- Ustawiamy właściwości semantyczne
	if #arts > 0 then
		mw.smw.set( { 
			['Zawiera artykuł'] = arts
		} )
	end
end

function p.desktop(frame)
	local args = tools.getArgs(frame)
	findRelevantPages(args)
	
	local lstack, rstack = {}, {}
	
	local function subpanel(num)
		if num % 2 == 1 then
			makePanel(args, lstack, num)
		else
			makePanel(args, rstack, num)
		end
	end
	
	for i = 1, 50 do
		if args['panel' .. i] ~= nil then subpanel(i)
		else break end
	end
	
	lstack = table.concat(lstack, '\n')
	rstack = table.concat(rstack, '\n')
	local td = '<td width="50%" style="vertical-align: top; padding-'
	return '<tr>' .. td .. 'right: 25px">' .. lstack .. '</td>' .. 
		td .. 'left: 25px">' .. rstack .. '</td></tr>'
end

function p.mobile(frame)
	local args = tools.getArgs(frame)
	findRelevantPages(args)
	
	local stack = {}
	
	for i = 1, 50 do
		if args['panel' .. i] ~= nil then makePanel(args, stack, i)
		else break end
	end
	
	return table.concat(stack, '\n')
end

return p