Modul:Klasse

Seiten-Übersicht

Zur Klasse Klasse gehörende Seiten:

		Hauptseite	Unterseiten
Allgemein		Klassen Klasse:Klasse Kategorie:Klassen Attribut:Klasse Konzept:Alle Klassen FürthWiki:Semantik FürthWiki:Wartung/Klasse
Faktenbox	Vorlagen	Klasse
	Formulare	Klasse PositionKarte (sofern genutzt) Kategorie:Klassen-übergreifende Formulare
	Module	Klasse	Klasse/Doku Klasse/Work
Abfrage	Vorlagen	Abfrage Klassen
	Formulare	Abfrage Klassen
	Sonstige	Abfrage ausführen

Faktenbox()

Die Faktenbox der Klassen.

Formular()

Baut das Formular einer Artikelseite (Lemma) einer Klasse zusammen. Als Basis wird dafür die in der jeweiligen Klasse eingetragene Attribut:AttributListe genommen, daraus die Attribut-Datentabelle attr_data generiert und diese weiter an attrForm() im Modul:Formular übergeben.

faktenboxDatenTab()

Baut den Daten-Tab der Faktenbox einer Artikelseite (Lemma) einer Klasse zusammen. Als Basis wird dafür die in der jeweiligen Klasse eingetragene Attribut:AttributListe genommen, daraus die Attribut-Datentabelle attr_data generiert und dann zeilenweise in Reihenfolge der AttributListe abgearbeitet.

Dabei werden die verschiedenen Sonderfälle der Faktenbox-Zeilen beachtet (z. B. Denkmalschutz-Aktennummer, Datum, Ehemals, ...). Siehe Modul:Faktenbox/Zeilen.

getAttrData()

Gibt Attribut-Datentabelle attr_data zurück.

attrListParser()

Analysiert übergebene Attribut:AttributListe und gibt von Attribut-Datentabelle attr_data die Werte attr_data.form_layout, attr_data.width und attr_data.list zurück.

Attribut-Datentabelle attr_data

• attr_data
  • attr_data.form_layout = 2D-Layout des Formulars und entspricht der Attribut:AttributListe der jeweiligen Klasse (Lua-Format). Aktuell aber noch nicht umgesetzt!
  • attr_data.width = Layout-Breite (Spaltenanzahl). Wenn 0, dann Attribut:AttributListe leer
  • attr_data.list = Ein-dimensionale Liste der Attribute entsprichend der Attribut:AttributListe der jeweiligen Klasse (Lua-Format). Reihenfolge bestimmt Zeilen-Reihefolge in der Faktenbox und im Formular.
  • attr_data.attr = Tabelle mit allen Attributen der in der Attribut:AttributListe angegebenen Attribute.
    • attr_data.attr[<attr>] = Tabelle mit den Attributen des Attributs attr (z. B. Attribut:Baujahr besitzt Attribut:Datentyp = Seite). Siehe Modul:Attribut#getAttrAttributes()

---

local p = {}

local com = require("Module:Common")
local str = require("Module:String")
local htm = require("Modul:HTML")
local atr = require("Module:Attribut")
local frm = require("Modul:Formular")
local fab = require("Modul:Faktenbox")

function p.Faktenbox(frame)														-- Das ist die Faktenbox der Klasse
	local args = frame:getParent().args
	local title = mw.title.getCurrentTitle().text
	local t = '<table class="wikitable">'..
	    '<th>[[FürthWiki:Semantik]]</th>'..
		'<th colspan="3">'..'[[KlassenName::'..title..']]</th>'

	t=t..'<tr>'..
	    '<td>[[Attribut:Bild|Bild dieser Klasse]]</td>'
	if not com.isEmpty(args.Bild) then
	    t=t..'<td colspan="3"><div class="ImageLink">[[Datei:'..
	    	args.Bild..'|48px]]</div></td>'
	    mw.smw.set{["Bild"] = "Datei:" .. args.Bild}
	end

	t=t..'</tr><tr>'..
	    '<td>[[Attribut:KlassenVorlage|Vorlage]]</td>'
	t=t..'<td colspan="3">[[KlassenVorlage::Vorlage:'..title..']]</td>'
	
	t=t..'</tr><tr>'..
	    '<td>[[Attribut:KlassenModul|Modul]]</td>'
	t=t..'<td colspan="3">[[KlassenModul::Modul:'..title..']]</td>'
	
	t=t..'</tr><tr>'..
	    '<td>[[Attribut:KlassenKategorie|Kategorie]]</td>'
	if not com.isEmpty(args.KlassenKategorie) then
	    t=t..'<td colspan="3">[[KlassenKategorie::Kategorie:'..args.KlassenKategorie..']]</td>'
	end
	
	t=t..'</tr><tr>'..
	    '<td>[[Attribut:KlassenFormular|Formular]]</td>'
	t=t..'<td colspan="3">[[KlassenFormular::Formular:'..title..']]</td>'
	
	t=t..'</tr><tr>'..
	    '<td>Attribut</td>'
	t=t..'<td colspan="3">[[Attribut:'..title..']]</td>'
	
	t=t..'</tr><tr>'..
	    '<td>[[Attribut:Suchformular|Suchformular]]</td>'
	if not com.isEmpty(args.KlassenKategorie) then
	    t=t..'<td colspan="2">[[Suchformular::Abfrage_'..args.KlassenKategorie..']]</td>'..
	    	'<td>[[Formular:Abfrage_'..args.KlassenKategorie..']]</td>'
	end
	
	t=t..'</tr><tr>'..
	    '<td>[[Attribut:Suchvorlage|Suchvorlage]]</td>'
	if not com.isEmpty(args.KlassenKategorie) then
	    t=t..'<td colspan="2">[[Suchvorlage::Abfrage_'..args.KlassenKategorie..']]</td>'..
	    	'<td>[[Spezial:Abfrage_ausführen/Abfrage_'..args.KlassenKategorie..']]</td>'
	end
	
	t=t..'</tr><tr>'..
	    '<td>[[Attribut:AttributListe|AttributListe]]</td>'
	if not com.isEmpty(args.AttributListe) then
	    t=t..'<td colspan="3">[[AttributListe::'..args.AttributListe..']]</td>'
	end
	
	t=t..'<tr>'..
		'<td>[[Bild:IconSearch.svg|16px|semantisches Browsen|link=Spezial:Durchsuchen/{{NAMESPACE}}:{{PAGENAME}}]]</td>'..
		'<td colspan="3">[[Spezial:Durchsuchen/{{NAMESPACE}}:{{PAGENAME}}|semantisches Browsen]]</td>'..
	'</tr>'
	t=t..'</table>'
	
	-- Attribut-Tabelle
	local attr_data = p.attrListParser(args.AttributListe)
	t = t .. "<table class=\"wikitable\">"
	t = t .. "<th colspan=" .. attr_data.width .. ">Attribut-Anordnung im Formular</th>"
	for _, outer in ipairs(attr_data.form_layout) do
		t = t .. "<tr>"
		if type(outer) ~= "table" then
			t = t .. "<td>[[Attribut:" .. outer .. "|" .. outer .. "]]</td>"
		else
			for _, inner in ipairs(outer) do
				t = t .. "<td>[[Attribut:" .. inner .. "|" .. inner .. "]]</td>"
			end
		end
		t = t .. "</tr>"
	end
	t = t .. "</table>"
	t = t .. "<b>Wird noch nicht unterstützt!</b>"

	if attr_data.width > 0 then
		table.sort(attr_data.list)												-- Liste wird umsortiert, macht aber nix
		attr = {"Attribut", "Datentyp", "EhemalsAttribut",
			"Anzeigegenauigkeit", "Einzahl", "Mehrzahl", "Delimiter",
			"FieldArgs", "Infotext", "Anzeigeformat"}
		-- Tabellen-Kopf
		t = t .. htm.tableHeader(attr)
		-- Tabellen-Zeilen
		for i, a in ipairs(attr_data.list) do
			local line = {}
			-- Attribut-Attribute
			local attr_val = atr.getAttrAttributes(a, title)
			attr_val = attr_val or {}
			-- Zeile befüllen
			for i, l in ipairs(attr) do
				if l == "Attribut" then
					line[i] = "[[Attribut:" .. a .. "|" .. a .. "]]"
				else
					line[i] = attr_val[l] or ""
				end
			end
			t = t .. htm.tableLine(line)
		end
		-- Tabellen-Fuß
		t = t .. htm.tableFooter()
	end

	-- Attribute-Liste in Attribut:Attribut ablegen
	for i = 1, #attr_data.list do
		attr_data.list[i] = "Attribut:" .. attr_data.list[i]					-- Liste wird umgebaut, macht aber nix
	end
	mw.smw.set{["Attribut"] = attr_data.list}
	
	return frame:preprocess(t)
end

function p.Formular(frame, klasse)												-- Das setzt das Formular einer Seite einer Klasse zusammen
	-- Kommandozeile zum Debuggen:
	-- frame=mw.getCurrentFrame(); print(p.Formular(frame, "Bauwerk"))
	local t = ""
	local attr_data = p.getAttrData(klasse)
	t = frm.attrForm(frame, attr_data)
	return t
end

function p.faktenboxDatenTab(fbdata, kindex)									-- Das setzt den DatenTab der Faktenbox einer Seite einer Klasse zusammen
--	mw.log("datenTab(fbdata)")
--	mw.logObject(frame, "frame")
	--[[ Konsolenzeile zum Debuggen:
	fab=require("Modul:Faktenbox"); fbdata=fab.getFbdata{pargs={Baujahr="1987",AktenNr="D-5-63-000-1464"}};
	fbdata.klasse={"Bauwerk"}; fbdata.kategorie={"Bauwerke"}; fbdata.fullpagename="Pegnitz"; fbdata.subpagename="Pegnitz";
	print(p.faktenboxDatenTab(fbdata)); mw.logObject(fbdata)
	]]
	local t = ""
	local klasse = fbdata.klasse[kindex or 1]
	local attr_data = p.getAttrData(klasse)
	-- Vorbereitung Test auf nicht-unterstützte Argumente
	local pargs_test = {}
	for a, _ in pairs(fbdata.pargs) do
		pargs_test[a] = true													-- nach Abarbeitung müssen alle nil sein
	end
	-- Zusammenbau
	t = t .. fab.zeileKategorieSeite(fbdata)
	-- EhemalsAttribut ermitteln (gibt es nur 1x)
	local ehemals_attribut
	for _, attr in ipairs(attr_data.list) do
		local attr_attr = attr_data.attr[attr]									-- Attribute des Attributs attr
		if attr_attr["EhemalsAttribut"] ~= nil then
			ehemals_attribut = attr_attr["EhemalsAttribut"]
			break
		end
	end
	-- Attribut-Zeilen
	for _, attr in ipairs(attr_data.list) do
		local attr_attr = attr_data.attr[attr]									-- Attribute des Attributs attr
		local delimiter = attr_attr["Delimiter"]
		local datentyp = attr_attr["Datentyp"]
		-- Sonderfälle unterscheiden und ggf. passende Faktenbox-Zeile einfügen
		if attr == "AktenNr" then												-- Sonderfall Denkmalschutz Akten-Nummer
			t = t .. fab.zeileAktenNr(fbdata)
		elseif attr == "TeilDesEnsembles" then									-- Sonderfall TeilDesEnsembles ("Ensemble " vorangestellt)
			t = t .. fab.zeileTeilDesEnsembles(fbdata)
		elseif attr_attr["EhemalsAttribut"] ~= nil then							-- Sonderfall Kombi von Ehemals-Attribut und Ende-Datum/Jahr
			if datentyp == "Seite" and											-- Seite und "jahr" am Ende bei Jahr
				string.find(attr, "jahr") == (#attr - 3) then
				t = t .. fab.zeileEndeJahr{fbdata = fbdata,						-- Z. B. Ehemals bei Abrissjahr
					attr_year = attr, attr_ended = attr_attr["EhemalsAttribut"],
					delimiter = delimiter}
			elseif datentyp == "Datum" then										-- Datum bei Datum
				-- to do: fab.zeileEndeDatum									-- Z. B. Verstorben bei Todesdatum
			end
		elseif datentyp == "Straße" then										-- Sonderfall Straße/Hausnummer
		elseif datentyp == "Straße2" then
		elseif datentyp == "Straße3" then
			-- to do
		elseif datentyp == "Datum" then											-- Sonderfall Datum
			-- to do
		elseif attr ~= ehemals_attribut and attr ~= "Bild" then					-- ansonsten normale Zeile
			t = t .. fab.zeile{fbdata = fbdata, attr_name = attr,
				delimiter = delimiter}
		end
		pargs_test[attr] = nil													-- Argumente ausklammern
	end
	-- Rest der Tabelle
	t = fab.table_header_footer(t)
	t = t .. fab.zeileSemantikBrowsenAbfrage(fbdata)
	-- Tab draus machen
	t = fab.tab(t, "Daten")
	-- Nicht-unterstützte Argumente testen
	for _, a in ipairs(fab.karten_args) do										-- Karten-Argumente ausklammern
		pargs_test[a] = nil
	end
	local pargs_test_fail = false
	for _, _ in pairs(pargs_test) do											-- Argumente übrig?
		pargs_test_fail = true
		break
	end
	if pargs_test_fail then
		fab.addWartungsmeldung(fbdata, "Faktenbox-Daten nicht unterstützt (Einzelwerte)")
	end
--	mw.logObject(t, "t")
    return t
end

function p.getAttrData(klasse)
	-- Kommandozeile zum Debuggen:
	-- mw.logObject(p.getAttrData("Bauwerk"))
	local attr_data = initAttrData()
	-- AttributListe der Klasse abfragen
	local query = {"[[Klasse:" .. klasse .. "]]", "?AttributListe"}
	query = mw.smw.ask(query)
	if query ~= nil then
		local attr_list = query[1]["AttributListe"]
		-- AttributListe parsen, also Liste und Layout ermitteln
		attr_data = p.attrListParser(attr_list)
		-- Attribute der einzelnen Attribute hinzufügen
		for _, a in ipairs(attr_data.list) do
			attr_data.attr[a] = atr.getAttrAttributes(a, klasse)
		end
	end
	return attr_data
end

function p.attrListParser(attr_list, recursion)
	-- Kommandozeile zum Debuggen:
	-- mw.logObject(p.attrListParser(";A;{;B;C;};D;"))
	-- ergibt .form_layout = {A,{B,C},D} und .list = {A,B,C,D} und .width = 2
	local attr_data = initAttrData()
	local loop_count = 0
	attr_list = str.strip(attr_list or "")
	while loop_count < 100 and attr_list ~= "" do								-- Schleifenbegrenzung
		loop_count = loop_count + 1
		local semicolon = string.find(attr_list, ";")
		local brace_open = string.find(attr_list, "\{")
		local brace_close = string.find(attr_list, "\}")
		if (brace_open ~= nil and brace_close == nil) or						-- Klammer nicht paarweise
			(brace_open == nil and brace_close ~= nil) or						-- oder
			(brace_open or 0) >= (brace_close or 1) then						-- in falscher Reihenfolge
			attr_list = ""														-- => Abbruch
		elseif semicolon == nil and												-- letzer Eintrag
			brace_open == nil and brace_close == nil then
			table.insert(attr_data.form_layout, attr_list)
			table.insert(attr_data.list, attr_list)
			attr_list = ""
		elseif semicolon ~= nil and												-- Semikolon
			(brace_open == nil or semicolon < brace_open) then					-- ggf. vor öffnender Klammer
			local attr = str.strip(string.sub(attr_list, 1, semicolon - 1))
			if attr ~= "" then
				table.insert(attr_data.form_layout, attr)
				table.insert(attr_data.list, attr)
			end
			attr_list = string.sub(attr_list, semicolon + 1)
		elseif brace_open ~= nil and brace_close ~= nil and						-- eingebettete Klammerung (Zeile mit mehreren Attr.)
			brace_open < brace_close then
			if not recursion then												-- Rekursionsschutz, nur 2 Ebenen/Dimensionen bzw. 1 Selbstaufruf
				local attr_sublist =											-- Klammerinhalt
					string.sub(attr_list, brace_open + 1, brace_close - 1)
				attr_subdata = p.attrListParser(attr_sublist, true)				-- sich selbst aufrufen mit recursion = true
				if attr_subdata.width == 1 then
					table.insert(attr_data.form_layout, attr_subdata.list)
					for _, a in pairs(attr_subdata.list) do
						table.insert(attr_data.list, a)
					end
					attr_data.width = math.max(attr_data.width, #attr_subdata.list)
				end
			end
			attr_list = string.sub(attr_list, brace_close + 1)
		else																	-- da stimmt was nicht => Abbruch
			attr_list = ""
		end
		attr_list = str.strip(attr_list)
	end
	if #attr_data.list > 0 then													-- bei rein 1-dimensionaler Liste mind. 1 setzen
		attr_data.width = math.max(attr_data.width, 1)
	end
	return attr_data
end

function initAttrData()
	local attr_data = {
		form_layout = {},														-- 2D-Layout des Formulars
		list = {},																-- flache Liste der Attribute
		attr = {},																-- Attribute der Attribute
		width = 0}																-- Breite bei 2D-Layout, 1 bei 1-dimens.
	return attr_data
end

return p