Modul:Netzwerke

Ziel

Ziel ist es, die Netzwerke eines MAV auf seiner Personenseite abzubilden. Dazu müssen ermittelt werden:

während eines jeden Unibesuchs die anderen anwesenden Studenten / die anwesenden Dozenten
während einer Tätigkeit die Kollegen / bzw. auch Studenten, falls Dozententätigkeit
potentielle Zuhörer von Vorlesungen

Nötige Extensions

Scribunto
Semantic Scribunto

Zur Vorgehensweise

Das Modul verwendet drei Funktionen, die sich gegenseitig aufrufen:

Ganz oben steht die Funktion "Geschehnisliste". Sie looped durch alle Geschehnisse (Ausbildung, Abschlüsse, Tätigkeiten usw.), die abgefragt werden und verglichen werden sollen und ruft dann die Funktion "GeschehnisPersonenbezogen" auf, wobei sie als Parameter das aktuelle Geschehnis übergibt
Auf zweiter Ebene steht die Funktion "GeschehnisPersonenbezogen". Sie ermittelt für die Personenseite die personenspezifischen Daten in Bezug auf das aktuelle Ergebnis (also z.B. wo hat die Person wann studiert). Für jedes passende Ergebnis (also z.B. jeden Studienort) wird dann auf dritter Ebene die Funktion "Abgleich" aufgerufen, wobei als Parameter Geographikum, Beginn und Ende übergeben werden.
Auf dritter Ebene steht die Funktion "Abgleich". Sie vergleicht die personenbezogenen Parameter, die übergeben wurden, mit einer allgemeinen Abfrage. Auf diese Weise wird z.B. ermittelt, wer zur selben Zeit sonst noch studiert hat.

Es wäre sehr aufwändig und vielleicht unmöglich gewesen, die Ziele nur mit Parserfunktionen zu erreichen. Vermutlich wären sie auch wesentlich langsamer als das Luamodul. Kernproblem war, dass Text, der vom Luamodul zurückgegeben wird, nicht als Wikitext interpretiert wird, d.h. das Ergebnis kann keine funktionierende Parserfunktion und auch keine funktionierende Wikitable sein (zumindest, wenn man sie mit Wikimarkup schreibt). Das Ziel waren aber funktionierende und sortierbare Tabellen. Dieses Ziel wurde erreicht, indem die Tabellen mit HTML-Tags erstellt wurden. Sortierbar wurden sie durch Hinzufügung der Klasse "wikitable sortable" (sie ist eine standardmäßig vom Wiki vorgegebene (also nutzbare) Klasse).

Aufruf der Funktion

Bitte exakt nach folgendem Schema in der "Vorlage:MAV" aufrufen

{{#invoke:Netzwerke|Geschehnisliste|{{SUBPAGENAME}}}}

local p = {}

function p.Abgleich(Geographikum, Beginn, Ende, pagename)
  	local queryResult = mw.smw.ask( '[[Geographikum::' .. Geographikum .. ']][[Beginn::<' .. Ende .. ']][[Ende::>' .. Beginn .. ']] OR [[Geographikum::' .. Geographikum .. ']][[Beginn::<' .. Beginn .. ']][[Ende::>' .. Ende .. ']]|?Beschreibungstext|?Person|?Beginn|?BeginnSicher|?Ende|?EndeSicher|mainlabel=-|sort=Beschreibungstext|order=asc' )

    if queryResult == nil then
        return 'Keine Personen gefunden. <br>'
    end
    
    if type( queryResult ) == "table" then
        local myResult = '<table class="wikitable sortable"><tr><th>Geschehnis</th><th>Person</th><th>Anfangsdatum</th><th>Anfangsdatum gesichert?</th><th>Enddatum</th><th>Enddatum gesichert?</th></tr>'
        local Personakt = ''
        local Endeakt = ''
        local EndeaktSicher = ''
        local Beginnakt = ''
        local BeginnaktSicher = ''
        local pagenameoccurence = 0
        local rowcount = 0
        local Beschreibungstext = ''
        for num, row in pairs( queryResult ) do
            for property, data in pairs( row ) do
                if property == 'Person' then
                    Personakt = data
                elseif property == 'Beginn' then
                	Beginnakt = data
                elseif property == 'Ende' then
                	Endeakt = data
                elseif property == 'BeginnSicher' then
                	EndeaktSicher = data
                elseif property == 'EndeSicher' then
                	BeginnaktSicher = data
                elseif property == 'Beschreibungstext' then
                	Beschreibungstext = data
                end
            end
            rowcount = rowcount + 1
            if string.find(Personakt, pagename, 1, plain) == nil then
            	myResult = myResult .. '<tr><td>' .. Beschreibungstext .. '</td><td>' .. Personakt .. '</td><td>' .. Beginnakt .. '</td><td>' .. BeginnaktSicher .. '</td><td>' .. Endeakt .. '</td><td>' .. EndeaktSicher .. '</td></tr>'
            else
            	pagenameoccurence = pagenameoccurence + 1
            end
        end
        if pagenameoccurence >= rowcount then
        	return 'Keine Personen gefunden. <br>'
        else
        	myResult = myResult .. '</table>'
        end
        return myResult
    end
    return myResult
end

function p.GeschehnisPersonenbezogen(geschehnis, pagename)

	local queryResult = ''

	if geschehnis == 'Tätigkeit' then
    	queryResult = mw.smw.ask( '[[Kategorie:' .. geschehnis .. ']][[Person::' .. pagename .. ']]|mainlabel=-|?Tätigkeitsart#-|?Geographikum#-|?Beginn|?Ende|sort=DatumSortiert|format=plainlist' )
	elseif geschehnis == 'Ausbildung' then
    	queryResult = mw.smw.ask( '[[Kategorie:' .. geschehnis .. ']][[Person::' .. pagename .. ']]|mainlabel=-|?Geographikum#-|?Beginn|?Ende|sort=DatumSortiert|format=plainlist' )
	end

    if queryResult == nil then
        return ''
    end

    if type( queryResult ) == "table" then
        local myResult = ''
        local Geographikum = ''
        local Ende = ''
        local Beginn = ''
        local Taetigkeitsart = ''
        local Thema = ''
        local Grad = ''
        local Ereignisart = ''
        for num, row in pairs( queryResult ) do
            for property, data in pairs( row ) do
                if property == 'Geographikum' then
                    Geographikum = data
                elseif property == 'Beginn' then
                	Beginn = data
                elseif property == 'Ende' then
                	Ende = data 
                elseif property == 'Tätigkeitsart' then
                	Taetigkeitsart = data
                elseif property == 'Thema' then
                	Thema = data
                elseif property == 'Grad' then
                	Grad = data
                elseif property == 'Ereignisart' then
                	Grad = data
                end
            end
 			if geschehnis == 'Ausbildung' then
	            myResult = myResult .. '<strong>Studium / Schulzeit an der ' .. Geographikum .. ' (' .. Beginn .. ' bis ' .. Ende .. '). Abgleich mit anderen Personen:</strong>' .. '<br>'
				myResult= myResult .. p.Abgleich(Geographikum, Beginn, Ende, pagename)
 			elseif geschehnis == 'Abschluss' then
	            myResult = myResult .. '<strong>Promotion (' .. Grad .. ') in ' .. Geographikum .. ' (zwischen ' .. Beginn .. ' und ' .. Ende .. '). Abgleich mit anderen Personen: </strong>' .. '<br>'
				myResult= myResult .. p.Abgleich(Geographikum, Beginn, Ende, pagename)
            elseif geschehnis == 'Tätigkeit' then
				myResult = myResult .. '<strong>' .. Taetigkeitsart .. ' an der ' .. Geographikum .. ' (' .. Beginn .. ' bis ' .. Ende .. '). Abgleich mit anderen Personen:</strong>' .. '<br>'
				myResult= myResult .. p.Abgleich(Geographikum, Beginn, Ende, pagename)
			elseif geschehnis == 'Vorlesung' then 
            	myResult = myResult .. '<strong>In ' .. Geographikum .. ' gehaltene Vorlesung zum Thema "' .. Thema .. '" (' .. Beginn .. ' bis ' .. Ende .. '). Abgleich mit anderen Personen:</strong>' .. '<br>'
 				myResult= myResult .. p.Abgleich(Geographikum, Beginn, Ende, pagename)	
			elseif geschehnis == 'Ereignis' then
             	myResult = myResult .. '<strong>' .. Ereignisart .. 'in ' .. Geographikum .. ' (' .. Beginn .. ' bis ' .. Ende .. '). Abgleich mit anderen Personen:</strong>' .. '<br>'
 				myResult= myResult .. p.Abgleich(Geographikum, Beginn, Ende, pagename)				
			end
        end
        return myResult
    end

    return queryResult
end

function p.Geschehnisliste(frame)
	

	local returnvalue = ''
	
	local looplist = {'Ausbildung', 'Tätigkeit'}

	for index, geschehnis in ipairs(looplist) do
		
		returnvalue = returnvalue .. p.GeschehnisPersonenbezogen(geschehnis, frame.args[1])
		
	end
	
	return returnvalue
	
end

return p