Module:SMW

Documentation for this module may be created at Module:SMW/doc

local p = {}

function p.sessionTable(frame)

    local sessions = mw.smw.getQueryResult( "[[Category:Sessions]]" )

    if sessions == nil then
        return "no sessions found"
    end

    local statements = {};
    for k1,v1 in pairs( sessions.results ) do
        statements[v1.fulltext] = {}
        local queryResult = mw.smw.getQueryResult( "[[Category:Statements]][[Session::" .. v1.fulltext .. "]]" )
        local count = 0
    	for k2,v2 in pairs ( queryResult.results ) do
    		statements[v1.fulltext][v2.fulltext] = true
    		count = count + 1
		end
		statements[v1.fulltext]['count'] = count
    end
    
    local result = "\n{| class='wikitable\n|\n"
    for k1,v1 in pairs( sessions.results ) do
        result = result .. "![[" .. v1.fulltext .. "]] (" .. statements[v1.fulltext]['count'] .. ")\n"
    end
    for k1,v1 in pairs( sessions.results ) do
        result = result .. "|-\n![[" .. v1.fulltext .. "]] (" .. statements[v1.fulltext]['count'] .. ")\n"
        for k2,v2 in pairs( sessions.results ) do
        	result = result .. "| style='text-align:center;'|"
        	if v1.fulltext == v2.fulltext then
        		result = result .. "X"
    		else
    			local count = 0
    			for k3,v3 in pairs( statements[v1.fulltext] ) do
    				if ( statements[v2.fulltext][k3] == true ) then
    					count = count + 1
					end
				end
				result = result .. count
    		end
    		result = result .. "\n"
    	end
    end
    result = result .. "|}"

    return result
end

return p