Modul:Attribut: Unterschied zwischen den Versionen

Aus FürthWiki

(+ TableHeader(), TableFooter(), Sonderbehandlungen)
(- AttrInfo() und attrInfotextDelimiter() obsolete)
 
(19 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 2: Zeile 2:


local dev = require("Modul:Development")
local dev = require("Modul:Development")
local str = require("Modul:String")
local htm = require("Modul:HTML")
local wor = require("Modul:Wörterbuch")
local lfd = require("Modul:LinkFormDatum")
local ber = require("Modul:Beruf")


function p.TableHeader(frame)
function p.getAttrAttributes(attr, klasse)
-- Kommandozeile zum Debuggen:
-- Kommandozeile zum Debuggen:
-- =p.TableHeader{args={"Beruf", "AbweichendeNamensform"}}
-- mw.logObject(p.getAttrAttributes("Ehemals"))
local args = {}
-- mw.logObject(p.getAttrAttributes("BietetKartenzahlung"))
local klasse = frame.args["Klasse"]
local query = {"[[Attribut:" .. attr .. "]]",
for i, a in ipairs(frame.args) do
"?Datentyp#-", "?EhemalsAttribut", "?Anzeigegenauigkeit",
args[i] = wor.attrText(a, klasse)
mainlabel = "-", limit = 1}
query = mw.smw.ask(query)
if query ~= nil then
query = query[1]
-- subobjects abfragen
local sub_query = {}
for _, k in ipairs{"Default", klasse} do
sub_query[k] = {"[[-has subobject::Attribut:" .. attr .. "]]" ..
"[[SubObjektTyp::AttributKlasse]]" ..
"[[KlassenName::" .. k .."]]",
"?Einzahl", "?Mehrzahl",
"?Delimiter", "?FieldArgs",
"?Infotext", "?Anzeigeformat",
mainlabel = "-", limit = 1}
sub_query[k] = mw.smw.ask(sub_query[k]) or {}
sub_query[k] = sub_query[k][1] or {}
end
-- defaults in klasse integrieren
if klasse ~= nil then
for a, _ in pairs(sub_query["Default"]) do
if a ~= "Einzahl" and a ~= "Mehrzahl" then -- Sonderbehandlung Einzahl/Mehrzahl ausschließen
sub_query[klasse][a] =
sub_query[klasse][a] or sub_query["Default"][a]
end
end
-- Sonderbehandlung Einzahl/Mehrzahl
if sub_query[klasse]["Einzahl"] == nil and
sub_query[klasse]["Mehrzahl"] == nil then
sub_query[klasse]["Einzahl"] = sub_query["Default"]["Einzahl"]
sub_query[klasse]["Mehrzahl"] = sub_query["Default"]["Mehrzahl"]
end
end
-- subobject in query integrieren
for a, v in pairs(sub_query[klasse or "Default"]) do
query[a] = v
end
-- Mehrzahl von Einzahl von Attribut-Name übernehmen
query["Mehrzahl"] = query["Mehrzahl"] or query["Einzahl"] or attr
query["Einzahl"] = query["Einzahl"] or query["Mehrzahl"] or attr
-- Sonderbehandlung Delimiter
if query["Delimiter"] == "Semikolon" then
query["Delimiter"] = ";"
elseif query["Delimiter"] == "keine Liste" or
(query["Delimiter"] == "Default/leer" and klasse == nil) then
query["Delimiter"] = nil
end
end
end
return htm.tableHeader(args)
return query
end
end


function p.TableLine(frame)
function p.AttrText(frame) -- Attribut-Anzeige-Texte
-- mw.log("TableLine(frame)")
local frame, _, args = dev.GetFrameAndParentArgs(frame)
-- Kommandozeile zum Debuggen:
local attr, klasse = args[1], args[2]
-- =p.TableLine{pargs={"Test","Test3","Politiker","1. Januar 2024","2025-03-04","2025","Max","Mustermann","Hans Wurst"},args={nil, nil,"Beruf","Geburtsdatum","TodesdatumISO","Todesdatum","Vorname","Nachname","Person"}}
return p.attrText(attr, klasse)
-- =p.TableLine{pargs={"p1","p2","p3","p4","p5","p6"},args={,"A2",,"A4"}}
local _, pargs, args = dev.GetFrameAndParentArgs(frame)
-- mw.logObject(pargs, "pargs")
-- mw.logObject(args, "args")
-- Zeile zusammenbauen
local line = {}
local td_args, vorname, nachname
for i, a in ipairs(pargs) do
local attr = args[i]
local val = a
-- Sonderbehandlung Beruf
if attr == "Beruf" then
val = ber.berufePageLinkListe(val, ",")
-- Sonderbehandlung Datum
-- Reihenfolge: GeburtsdatumISO|Geburtsdatum
-- bzw. TodesdatumISO|Todesdatum
elseif attr == "GeburtsdatumISO" or attr == "TodesdatumISO" then
td_args = "data-sort-value=\"" .. val .. "\""
val = nil
elseif attr == "Geburtsdatum" or attr == "Todesdatum" then
val = lfd.formatDate(val)
if td_args ~= nil then
val = {val, td_args = td_args}
td_args = nil
end
-- Sonderbehandlung Person
-- Reihenfolge: Vorname|Nachname|Person
elseif attr == "Vorname" and args[i + 2] == "Person" then
vorname = val
val = nil
elseif attr == "Nachname" and args[i + 1] == "Person" then
nachname = val
val = nil
elseif attr == "Person" then
val = "[[" .. val .."|" .. vorname .. " " .. nachname .. "]]"
end
-- mw.logObject(val, "val")
table.insert(line, val)
end
local t = htm.tableLine(line)
-- mw.logObject(t, "t")
return t
end
end


function p.TableFooter(frame)
function p.attrText(attr, klasse, mehrzahl)
return htm.TableFooter(frame)
local text
local query = p.getAttrAttributes(attr, klasse)
if query == nil then
text = attr
elseif mehrzahl then
text = query["Mehrzahl"]
else
text = query["Einzahl"]
end
return text
end
end


return p
return p

Aktuelle Version vom 6. März 2026, 20:03 Uhr

Seiten-Übersicht

Zur Klasse Attribut gehörende Seiten:
Hauptseite Unterseiten
Allgemein
Faktenbox Vorlagen
Formulare
Module
Abfrage Vorlagen


Formulare


Sonstige


getAttrAttributes()

Gibt die Attribute eines Attributs zurück, z. B. Einzahl-/Mehrzahl-Anzeigetexte. Es liefert (alles, was im Formular des Attributs eintragbar ist):

  • ["Datentyp"] des Attributs
  • ["EhemalsAttribut"] = Wenn das Attribut mit einem anderen „Ehemals“-Attribut eine Kombi bildet. Z. B. Attribut:Abrissjahr ist kombiniert mit Attribut:Ehemals, somit ist „Ehemals“ als EhemalsAttribut bei Attribut:Abrissjahr eingetragen
  • ["Anzeigegenauigkeit"] = bei Datentyp Zahl
  • ["Einzahl"] bzw. ["Mehrzahl"] = Anzeigetext Einzahl/Mehrzahl (z B. in Faktenboxen und Tabellen-Spaltenköpfen)
  • ["Delimiter"] = Trennzeichen, falls Formular-Wert des Attribut als Liste ausgewertet werden soll
  • ["FieldArgs"] = Argumente für {{{field|...}}} der Attribute des Formulars
  • ["Infotext"] = Text für Hilfe-Popup {{#info:...|note}} der Attribute des Formulars
  • ["Anzeigeformat"] = Anzeigeformat eines Attributs bei einer #ask-Abfrage. Entspricht dem Ausdruck hinter der Raute. Z. B. ja,nein bei {{#ask:...|?Ehemals#ja,nein|...}}.

attrText() / AttrText()

Gibt Anzeigetext eines Attributs zurück.


local p = {}

local dev = require("Modul:Development")

function p.getAttrAttributes(attr, klasse)
	-- Kommandozeile zum Debuggen:
	-- mw.logObject(p.getAttrAttributes("Ehemals"))
	-- mw.logObject(p.getAttrAttributes("BietetKartenzahlung"))
	local query = {"[[Attribut:" .. attr .. "]]",
		"?Datentyp#-", "?EhemalsAttribut", "?Anzeigegenauigkeit",
		mainlabel = "-", limit = 1}
	query = mw.smw.ask(query)
	if query ~= nil then
		query = query[1]
		-- subobjects abfragen
		local sub_query = {}
		for _, k in ipairs{"Default", klasse} do
			sub_query[k] = {"[[-has subobject::Attribut:" .. attr .. "]]" ..
				"[[SubObjektTyp::AttributKlasse]]" ..
				"[[KlassenName::" .. k .."]]",
				"?Einzahl", "?Mehrzahl",
				"?Delimiter", "?FieldArgs",
				"?Infotext", "?Anzeigeformat",
				mainlabel = "-", limit = 1}
			sub_query[k] = mw.smw.ask(sub_query[k]) or {}
			sub_query[k] = sub_query[k][1] or {}
		end
		-- defaults in klasse integrieren
		if klasse ~= nil then
			for a, _ in pairs(sub_query["Default"]) do
				if a ~= "Einzahl" and a ~= "Mehrzahl" then						-- Sonderbehandlung Einzahl/Mehrzahl ausschließen
					sub_query[klasse][a] =
						sub_query[klasse][a] or sub_query["Default"][a]
				end
			end
			-- Sonderbehandlung Einzahl/Mehrzahl
			if sub_query[klasse]["Einzahl"] == nil and
				sub_query[klasse]["Mehrzahl"] == nil then
				sub_query[klasse]["Einzahl"] = sub_query["Default"]["Einzahl"]
				sub_query[klasse]["Mehrzahl"] = sub_query["Default"]["Mehrzahl"]
			end
		end
		-- subobject in query integrieren
		for a, v in pairs(sub_query[klasse or "Default"]) do
			query[a] = v
		end
		-- Mehrzahl von Einzahl von Attribut-Name übernehmen
		query["Mehrzahl"] = query["Mehrzahl"] or query["Einzahl"] or attr
		query["Einzahl"] = query["Einzahl"] or query["Mehrzahl"] or attr
		-- Sonderbehandlung Delimiter
		if query["Delimiter"] == "Semikolon" then
			query["Delimiter"] = ";"
		elseif query["Delimiter"] == "keine Liste" or
			(query["Delimiter"] == "Default/leer" and klasse == nil) then
			query["Delimiter"] = nil
		end
	end
	return query
end

function p.AttrText(frame)														-- Attribut-Anzeige-Texte
	local frame, _, args = dev.GetFrameAndParentArgs(frame)
	local attr, klasse = args[1], args[2]
	return p.attrText(attr, klasse)
end

function p.attrText(attr, klasse, mehrzahl)
	local text
	local query = p.getAttrAttributes(attr, klasse)
	if query == nil then
		text = attr
	elseif mehrzahl then
		text = query["Mehrzahl"]
	else
		text = query["Einzahl"]
	end
	return text
end

return p