Quelltext der Seite Modul:Participation

local config = {
	playPlayerDelimiter = ',',
	signalAbsent = '[[File:X mark.png|13px|alt=Abwesend|Abwesend]]',
	signalPresent = '[[File:Yes check.png|13px|alt=Anwesend|Anwesend]]',
	validNamespace = 'Spielteilnahme',
	validTargetPageCategory = 'Figuren'
}

local p = {}
local smw = mw.smw
local tt = require( 'Module:TableTools' )

function assertCorrectNamespace( title, namespace )
	return title.nsText == namespace
end

function assessPrerequisites( currentTitle )
	if not assertCorrectNamespace( currentTitle, config.validNamespace ) then
		return false, 'Diese Vorlage darf nur im Namensraum \'\''
			.. config.validNamespace
			.. '\'\' verwendet werden, nicht in ' .. currentTitle.nsText .. '!'
	end
	if not assertTargetIsValid( currentTitle.text, config.validTargetPageCategory ) then
		return false, 'Die Seite mit dem Namen \'\''
			.. currentTitle.text
			.. '\'\' existiert nicht oder ist keine Figur! '
			.. 'Solltest Du die \'\'\'Figur gerade angelegt haben\'\'\', ist es nötig, '
			.. 'diese Seite einmal \'\'\'' .. buildPurgeLink( currentTitle, 'Neu zu laden' )
			.. '\'\'\'!'
	end
	return true
end

function assertTargetIsValid( targetPageName, validCategory )
	--[=[
	-- ssc's '?Category:' .. validCategory handling seems broken atm
	local query = {
		'[[' .. targetPageName .. ']]',
		'?Category:' .. validCategory
	}
	--]=]
	local query = {
		'[[' .. targetPageName .. ']]',
		'?Category#=pageCategories'
	}
	local res = smw.ask ( query )
	if not res or not res[1] or not res[1].pageCategories then
		return false
	end
	if type( res[1].pageCategories ) == 'table' then
		return tt.inTable( res[1].pageCategories, 'Kategorie:' .. validCategory )
	else
		return res[1].pageCategories == 'Kategorie:' .. validCategory
	end
end

function alertBox( text )
	return '<div class="alert alert-danger" role="alert">'
		.. '<strong>Achtung:</strong> ' .. text
		.. '</div>'
end

function buildControlStatusAndButton( characters, character, targetPage )
	local frame = mw.getCurrentFrame()
	local participating = tt.inTable( characters, character )
	local status = participating and config.signalPresent or config.signalAbsent
	local newCast = {}
	if participating then
		for k, v in pairs( characters ) do
			if v ~= character then
				table.insert( newCast, v )
			end
		end
	else
		newCast = characters
		table.insert( newCast, character )
	end
	local button = frame:callParserFunction{ name = '#autoedit', args={
		form='Spiel',
		target=targetPage,
		'link text=' .. ( participating and 'Abmelden!' or 'Anmelden!'),
		summary='Figur ' .. character .. ' wurde ' .. ( participating and 'ausgetragen' or 'eingetragen' ),
		tooltip='Durch Klicken, die Figur ' .. character .. ( participating and ' ausgetragen' or ' eingetragen' ),
		'query string=play[cast]=' .. table.concat( newCast, config.playPlayerDelimiter ),
		'reload'
		}
	}
	button = '<div class="btn btn-' .. ( participating and 'danger' or 'success' ) .. '">' .. button .. '</div>'
	return status, button
end

function buildControlTableHeader()
	local header = mw.html.create( 'tr' )
	header:tag('th')
		:wikitext('Spiel')
		:done()
		:tag('th')
		:wikitext('Titel')
		:done()
		:tag('th')
		:wikitext('Ort')
		:done()
		:tag('th')
		:wikitext('Jahr')
		:done()
		:tag('th')
		:wikitext('Status')
		:done()
		:tag('th')
		:wikitext('Aktion')
		:done()
	return header
end

function buildControlTableBody( playData, character )
	local body = mw.html.create( '' )
	for num, play in pairs( playData ) do
		local status, button = buildControlStatusAndButton( play.characters, character, play.play )
		local tr = mw.html.create('tr')
		tr:tag( 'td' )
			:wikitext( play.number )
			:done()
		tr:tag( 'td' )
			:wikitext( '[[' .. play.play .. '|' .. play.title .. ']]' )
			:done()
		tr:tag( 'td' )
			:wikitext( play.place and play.place or 'unbekannt' )
			:done()
		tr:tag( 'td' )
			:wikitext( play.time and play.time or 'unbekannt' )
			:done()
		tr:tag( 'td' )
			:wikitext( status )
			:done()
		tr:tag( 'td' )
			:wikitext( button )
			:done()
		body:node(tr)
	end
	return body
end

function buildPurgeLink( currentTitle, linkText )
	return '<span class="plainlinks">['
		.. tostring( mw.uri.fullUrl( currentTitle.fullText, {action = 'purge'} ) )
		.. ' ' .. linkText .. ']</span>'
end


function getPlayData()
	local query = {
		'[[Category:Spiele]]',
		'?#=play',
		'?Has number#=number',
		'?Has character participating#=characters',
		'?Has display name#=displayName',
		'?Has title#=title',
		'?Is held in#=place',
		'?Is held at#-F[Y]=time',
		'mainlabel=-'
	}
	res = smw.ask( query )
	if not res then
		return {}
	end
	local playData = {}
	for k, row in pairs(res) do
		if row and row.number and row.title then
			if not row.characters then
				row.characters = {}
			end
			if type( row.characters ) ~= 'table' then
				row.characters = { row.characters }
			end
			playData[row.number] = row
		end
	end
	return playData
end

function printParticipationControl( currentTitle, playData )
	local character = currentTitle.text
	local text = '== Spielteilnahmen für ' .. character .. ' ==\n'
	text = text .. 'Diese Seite zeigt Dir eine Übersicht der Spielteilnahmen für die Figur \'\''
		.. character .. '\'\' und erlaubt es Dir, sie für Spiele einzutragen oder aus Spielen '
		.. 'wieder auszutragen.\n'
		.. '<div class="alert alert-warning"><strong>Wichtig!</strong> Nach einer Aktion sind die '
		.. 'angezeigten Daten sehr wahrscheinlich nicht korrekt. Zum Aktualisieren bitte einmal '
		.. 'diese Seite \'\'\'' .. buildPurgeLink( currentTitle, 'Neu laden' ) .. '\'\'\'!</div>\n'
		.. 'Und ein letzter Hinweis: Da es sich hier um ein Wiki handelt, kann jede/r diese Seite '
		.. 'benutzen. Daher die Bitte: Handele nach bestem Wissen und Gewissen oder überlasse '
		.. 'der Spielerin/dem Spieler der Figur das Ein- und Austragen.\n'

	local t = mw.html.create('table')
	t:addClass( 'table table-striped table-bordered sortable' )
		:node( buildControlTableHeader() )
		:node( buildControlTableBody( playData, character ) )
	return text .. tostring(t)
end

function p.main( frame )
	local currentTitle = mw.title.getCurrentTitle()
	local assessmentResult, assesmentMessage = assessPrerequisites( currentTitle )
	if not assessmentResult then
		return alertBox( assesmentMessage )
	end
	-- all is well, show the control table
	local playData = getPlayData()
	return printParticipationControl( currentTitle, playData )
end

return p
Beschreibung	Was du eingibst	Wie es aussieht
Kursiv	''Kursiver Text''	Kursiver Text
Fett	'''Fetter Text'''	Fetter Text
Fett und kursiv	'''''Fetter und kursiver Text'''''	*Fetter und kursiver Text*