Modul:Faktenbox/Zeilen: Unterschied zwischen den Versionen

Aus FürthWiki
(+ p.zeileSemantikBrowsenAbfrage_(fbdata))
(fix p.zeileSemantikBrowsenAbfrage_(fbdata))
Zeile 177: Zeile 177:
t = t .. "<dt>[[Bild:IconSearch.svg|16px|semantisches Browsen|link=[[Spezial:Durchsuchen/" .. fbdata.fullpagename .. "]]]]</dt>"
t = t .. "<dt>[[Bild:IconSearch.svg|16px|semantisches Browsen|link=[[Spezial:Durchsuchen/" .. fbdata.fullpagename .. "]]]]</dt>"
t = t .. "<dd>[[Spezial:Durchsuchen/" .. fbdata.fullpagename .. "|Semantisches Browsen]]"
t = t .. "<dd>[[Spezial:Durchsuchen/" .. fbdata.fullpagename .. "|Semantisches Browsen]]"
if wik.pageExists("Formular:Abfrage " .. fbdata.klasse[1]) then
if wik.pageExists("Formular:Abfrage " .. fbdata.kategorie[1]) then
t = t .. " / {{#queryformlink:form=Abfrage " .. fbdata.klasse[1] .. "|link text=Abfrage}}"
t = t .. " / {{#queryformlink:form=Abfrage " .. fbdata.kategorie[1] .. "|link text=Abfrage}}"
end
end
t = t .. "</dd></dl>"
t = t .. "</dd></dl>"

Version vom 1. November 2025, 15:39 Uhr

Seiten-Übersicht

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


Formulare


Sonstige


Dieses Modul enthält gemeinsame Funktionen, um eine Faktenbox zu füllen

Funktionen Modul:Faktenbox

Faktenbox()

Universelle Faktenbox ohne Formular/Klasse/Gebäude. Sie kann als zusätzliche Faktenboxen auf einer Seite eingebaut werden ähnlich Vorlage:Tabbox. Sie setzt ebenso Attribute wie die regulären Faktenboxen z.B. von Gebäuden, Straßen, Personen usw.

Funktionen Modul:Faktenbox/Tabs

universalDatenTab()

Universeller Daten-Tab zeigt alle seine übergebenen Parameter außer die für Karte und Bild an.

bildTab()

Selbsterklärend...

benennungenTab()

Tab mit Liste der Benennungen.

tab()

Vervollständigt Tab-Inhalt zu einem Tab.

Funktionen Modul:Faktenbox/Tabs/Karte

kartenTab()

Selbsterklärend...

getKartenArgs()

Karten-Argumente übernehmen und aufbereiten.

Funktionen Modul:Faktenbox/Tabs/Adressen

adressenTab()

Tab mit Liste der Adressen. Die Adressen werden bestmöglich chronologisch aufsteigend sortiert.

p.sortIndex() und p.smwDate2SortIndex()

Erstellen Sortierindizes anhand Datum und Schlüsselwörtern (z.B. Geburtshaus ganz oben) für chronologische Sortierung.

Funktionen Modul:Faktenbox/Zeilen

zeileKategorieSeite()

Diese Zeile ist die oberste Zeile eines Daten-Tabs, welche nochmal den Namen des Objekts und einen Link zur Klassen-Kategorie anzeigt und das Attribut:Seite setzt.

zeileStrasseHnr()

Wie zeile(attr, attrText, val), aber speziell ausgrichtet, um Attribut:Straße, Attribut:Hausnummer, Attribut:StraßeHnr und Attribut:AnzahlGebäude zu setzen und anzuzeigen.

zeileAktenNr()

Wie zeile(attr, attrText, val), aber speziell ausgrichtet, um Attribut:AktenNr zu setzen und anzuzeigen. Die AktenNr werden als Query-Link und mit Seitenanzahl mit dieser AktenNr angezeigt.

zeileGeoDaten()

Zeile um alle Attribut:Geokoordinaten mit OSM-Link und die Attribut:GeoJson-Karte zu anzuzeigen.

zeileDatum()

Zeile um ein Datum standardisiert per linkFormDate() anzuzeigen.

zeileSemantikBrowsenAbfrage()

Zeile mit Link zum semantischen Browsen (Datensicht) und zur Abfrage.

zeile()

Standard-Zeile um ein Attribut zu setzen und anzuzeigen. Wenn es sich beim Attribut-Wert um eine Liste mit mehreren Elementen handelt, wird vom Attribut-Anzeigetext automatisch die Mehrzahl gebildet.

Parameter Beschreibung
attr_name Attribut-Name
attr_text Optionaler Attribut-Anzeigetext. Default: attr_name. Siehe auch attr_text_anzeige
attr_val Attribut-Wert. Wenn nicht übergeben, werden die von der #invoke:-Vorlage übergegebenen Parameter (fbdata.pargs) verwendet.
fbdata fbdata-Daten-table mit von der #invoke:-Vorlage übergegebenen Parameter (fbdata.pargs).
delimiter Trennzeichen bei Werte-Listen. Bei Nicht-Übergabe wird Attribut-Wert auch nicht als Liste behandelt.
val_prefix Attribut-Wert-Prefix z.B. "ca."
val_postfix Attribut-Wert-Postfix z.B. "km"
val_show_only Attribut-Wert nur anzeigen, aber nicht setzen

setPageAttr()

Setzen eines Attributs vom Datentyp Seite in folgender Prüf- und Setzreihenfolge:

  1. Wenn val problematische Wikitext/HTML-Inhalte enthält, dann wird
    • val 1:1 angezeigt und ggf. gerendert (nicht innerhalb [[Attribut::Wert]])
    • Attribut name mit val per {{#set:Attribut=Wert}} unsichtbar im Hintergrund gesetzt, auch wenn das Verarbeitungsfehler provoziert (gewollt)
  2. Ansonsten wenn val als Seite existiert, wird diese 1:1 gesetzt und angezeigt ([[Attribut::Wert]])
  3. Ansonsten wenn val Klammerungen am Anfang oder am Ende enthält (Beispiel: "(BlaBlub) Rathaus (BlaBla)"), wird geprüft, ob eine Seite ohne die Klammerungen (also Rathaus) existiert. Wenn ja, wird "(BlaBlub) Rathaus (BlaBla)" angezeigt und das Attribut mit nur "Rathaus" gesetzt.
  4. Ansonsten wird
    • val 1:1 angezeigt und ggf. gerendert (nicht innerhalb [[Attribut::Wert]])
    • Attribut name mit val per {{#set:Attribut=Wert}} unsichtbar im Hintergrund gesetzt, auch wenn das Verarbeitungsfehler provoziert (gewollt)

setStandardAttr()

Setzen eines Standard-Attributs (nicht Datentyp Seite). Klammerwerte werden optional abgetrennt und Attribut-Wert wird optional nur angezeigt, aber nicht gesetzt.

Funktionen Modul:Faktenbox/Common

common()

Sonstige gemeinsame Dinge anfügen

  • Klasse
  • Formular
  • Kategorien
  • Wartung

fbdata()

Erstellt Faktenbox-Daten-Tabelle.

fbdata-Daten-table

Um die Parameter-Übergabe zu obigen Funktionen zu vereinfachen wird die fbdata-Daten-table verwendet, in der folgende Daten abgelegt werden:

  • fbdata.frame = frame von Faktenbox(frame)
  • fbdata.pargs = frame:getParent().args. Beispiel: fbdata.pargs["Ehemals"] oder fbdata.pargs.Ehemals
  • fbdata.klasse Klassen-table. Beispiel Kirche: fbdata.klasse = {"Kirche", "Gebäude"} ("Kirche" ist primäre und "Gebäude" sekundäre Klasse)
  • fbdata.kategorie Kategorien-table. Beispiel Kirche: fbdata.kategorie = {"Kirchen", "Gebäude"} ("Kirchen" ist primäre und "Gebäude" sekundäre Kategorie)
  • fbdata.kategorie_einzahl Einzahl-Kategorien-table als Alternative zu fbdata.klasse. Beispiel Kirche: fbdata.kategorie_einzahl = {"Kirche", "Gebäude"} ("Kirche" ist primäre und "Gebäude" sekundäre Kategorie)
  • fbdata.formular Formular
  • Pagesnames
    • frame.fullpagename
    • frame.pagename
    • frame.subpagename
  • frame.strasse_hnr Untertabelle für Straße/Hausnummer-Daten
    • frame.strasse_hnr.strasse Untertabelle für Straßen
      • frame.strasse_hnr.strasse.name Straßenname
      • frame.strasse_hnr.strasse.hausnummer Hausnummern-table dieser Straße
      • frame.strasse_hnr.strasse.suspekt Suspekte Formular-Werte dieser Straße
    • frame.strasse_hnr.suspekt Suspekte Formular-Werte aller Straßen
    • frame.strasse_hnr.anzahlGebaeude Anzahl aller gültigen Straße/Hausnummer-Kombinationen
  • Ggf. weitere Klassen-abhängige Einträge

attr_text_anzeige

Sofern kein attr_text angegeben, wird i. A. attr_name angezeigt. Jedoch wird bei manchen attr_name-Attributen stattdessen automatisch die ausgeschriebene Version angezeigt.

Beispiel: Beim Attribut:TeilDesEnsembles wird anhand der table attr_text_anzeige "Teil des Ensembles" angezeigt.

Diese Übersetzung von attr_name zur Anzeige-Version ist in attr_text_anzeige abgelegt und erfolgt global bei allen Faktenboxen.

Unterseiten

Siehe auch

local p = {}

local com = require("Modul:Common")
local str = require("Modul:String")
local wik = require("Modul:Wiki")
local mez = require("Modul:Mehrzahl")
local geo = require("Modul:Geo")
local que = require("Modul:Queries")
local lfd = require("Modul:LinkFormDatum")

local attr_text_anzeige = {
	["AbweichendeNamensform"]		= "Abw. Namen",
	["AngebotVegetarisch"]			= "Vegetarische Speisen",
	["Ausfuehrung"]					= "Ausführung",
	["BestandArchivFuerthWiki"]		= "Bestand Archiv FürthWiki",
	["BietetKartenzahlung"]			= "Kartenzahlung möglich",
	["DenkmalstatusBesteht"]		= "Denkmalstatus besteht",
	["GastroBetreiber"]				= "Betreiber",
	["GastroGenre"]					= "Genre",
	["GewässerlängeStadtgebiet"]	= "Länge im Stadtgebiet",
	["Gewässermündung"]				= "Mündung bzw. Austritt aus Stadtgebiet",
	["Gewässerquelle"]				= "Quelle bzw. Eintritt ins Stadtgebiet",
	["GewässerRegimetyp"]			= "Wasserführung",
	["Gewässerstatus"]				= "Status/Lage",
	["Gewässerstellung"]			= "Stellung",
	["Gewässerursprung"]			= "Ursprung",
	["HatAußenplätze"]				= "Außenplätze vorhanden",
	["HatFassbier"]					= "Fassbier-Ausschank",
	["HatNebenraum"]				= "Nebenraum vorhanden",
	["ISBNnr"]						= "ISBN-Nr.",
	["IstBarrierefrei"]				= "Barrierefrei",
	["Nachfolger"]					= "nachher dort",
	["PLZ"]							= "Postleitzahl",
	["StatistischerBezirk"]			= "Statistischer Bezirk",
	["StatistischerDistrikt"]		= "Statistischer Distrikt",
	["TeilDesAreals"]				= "Teil des Areals",
	["TeilDesEnsembles"]			= "Teil des Ensembles",
	["TeilDesGebäudeKomplexes"]		= "Teil des Gebäude-Komplexes",
	["Vorgänger"]					= "vorher dort"
}

function p.zeileKategorieSeite_(fbdata, kindex)
--	mw.log("zeileKategorieSeite_(fbdata, " .. (kindex or 1) .. ")")
--	mw.logObject(fbdata)
	-- Konsolenzeile zum Debuggen:
	-- =p.zeileKategorieSeite_({pagename="fpn",kategorie={"kat1","kat2"},klasse={"kla1","kla2"}}, 2)
	local t = ""
	t = t .. "<dt>[[:Kategorie:" .. fbdata.kategorie[kindex or 1] .. "|" .. fbdata.klasse[kindex or 1] .. "]]</dt>"
	if wik.pageexists("Kategorie:" .. fbdata.pagename) then
		t = t .. "<dd>[[:Kategorie:" .. fbdata.pagename .. "|" .. fbdata.pagename .. "]]{{#set:Seite=" .. fbdata.pagename .. "}}</dd>"
	else
		t = t .. "<dd>[[Seite::" .. fbdata.pagename .. "]]</dd>"
	end
--	mw.log("t = " .. t)
	return t
end

function p.zeileStrasseHnr_(fbdata)
--	mw.log("zeileStrasseHnr_(fbdata)")
--	mw.logObject(fbdata.strasse_hnr)
	-- Konsolenzeile zum Debuggen:
	-- =p.zeileStrasseHnr_{strasse_hnr={strasse={{name="Erlanger Straße",hausnummer={"11", "13"}},{name="XY Straße",hausnummer={}}},anzahlGebaeude=3}}
	local t = ""
	for is, sh in ipairs(fbdata.strasse_hnr.strasse) do -- Straßen/Hausnummer-Kombis durchiterieren
		t = t .. "<dt>"
		if is > 1 then
			t = t .. is .. ". " -- Numerierungsanzeige "2., "3." usw.
		else
			is = "" -- keine 1, aber 2, 3, ... für weitere Verwendung
		end
		t = t .. "[[Attribut:Straße" .. is .. "|Straße]]"
		if #sh.hausnummer > 0 then
			t = t .. " / " .. "[[Attribut:Hausnummer" .. is .. "|Hausnummer]]" -- nur wenn Hausnummern vorhanden
		end
		t = t .. "</dt><dd>[[Straße" .. is .. "::" .. sh.name .. "]]"
		for ih, h in ipairs(sh.hausnummer) do -- Hausnummern durchiterieren
			local strasse_hnr_ = sh.name .. " " .. h
			if ih > 1 then
				t = t .. "," -- Kommas davor ab 2. Hausnummer
			end
			if wik.pageexists(strasse_hnr_) then -- Link, wenn Seite vorhanden
				t = t .. " [[" .. strasse_hnr_ .. "|" .. h .. "]]"
			else
				t = t .. " " .. h
			end
			t = t .. "{{#set:Hausnummer" .. is .. "=" .. h .. "|StraßeHnr=" .. strasse_hnr_ .. "}}"
		end
		t = t .. "</dd>"
	end
	t = t .. "{{#set:AnzahlGebäude=" .. fbdata.strasse_hnr.anzahlGebaeude .. "}}"
--	mw.log("t = " .. t)
	return t
end

function p.zeileAktenNr_(fbdata)
--	mw.log("zeileAktenNr_(fbdata)")
--	mw.logObject(fbdata.pargs)
	-- Konsolenzeile zum Debuggen:
	-- =p.zeileAktenNr_{pargs={AktenNr="D-5-63-000-1464"}}
	local t = ""
	local aktennr = str.splitAndStrip(fbdata.pargs["AktenNr"] or "", ";")
	if #aktennr > 0 then
		t = t .. "<dt>" .. "[[Attribut:AktenNr|Akten-Nr.]]</dt><dd>"
		for i, a in ipairs(aktennr) do
			if i > 1 then
				t = t .. ",<br>"
			end
			local p = que.getPages("[[:+]][[AktenNr::" .. a .. "]]", true)
			if #p > 1 then
				t = t .. "{{#queryformlink:form=Abfrage Denkmalschutz|link text=[[AktenNr::" .. a .. "]]|query string=Abfrage Denkmalschutz[AktenNr]=" .. a .. "&_run}}"
			else
				t = t .. "[[AktenNr::" .. a .. "]]"
			end
			t = t .. " (" .. #p .. ")" -- Anzahl der Artikel mit dieser Akten-Nr. in Klammern
		end
		t = t .. "</dd>"
	end
--	mw.log("t=" .. t)
	return t
end

function p.zeileGeoDaten_(fbdata)
--	mw.log("zeileGeoDaten()")
--	mw.logObject(fbdata)
	-- Konsolenzeile zum Debuggen:
	-- fab = require("Modul:Faktenbox"); fbdata=fab.fbdata{pargs={}}; fbdata.fullpagename="Isaak-Loewi-Straße 1, 3, 5, 7, 9, Liesl-Kießling-Straße 16"; print(p.zeileGeoDaten_(fbdata))
	local t = ""
	local geokoordinate = que.getValues(fbdata.fullpagename, "Geokoordinate", true)
	local geojson = que.getValues(fbdata.fullpagename, "GeoJson", true)
	mw.logObject(geojson)
	if #geokoordinate > 0 or #geojson > 0 then
		t = t .. "<dt>[[Attribut:Geokoordinate|Geo-Daten]]</dt><dd>"
		local first = true
		for _, g in ipairs(geokoordinate) do
			if first then
				first = false
			else
				t = t .. ",<br>"
			end
			t = t .. geo.osmLink(fbdata.frame, g)
		end
		if #geojson > 0 then
			if not first then
				t = t .. ",<br>"
			end
			t = t .. "[[" .. geojson[1] .. "|GeoJson-Karte]]"
		end
		t = t .. "</dd>"
	end
--	mw.log("t = " .. t)
	return t
end

function p.zeileDatum_(args)
--	mw.log("zeileDatum_(args)")
--	mw.logObject(args)
	-- Konsolenzeile zum Debuggen:
	-- =p.zeileDatum_{attr_date="Weihedatum",date="1959/11/15",attr_day="Weihetag",attr_year="Weihejahr"}
	local t = ""
	local date = str.strip(args.date or "")
	if date ~= "" then
		t = t .. "<dt>" .. "[[Attribut:" .. args.attr_date .. "|" .. (args.attr_text or args.attr_date) .. "]]</dt><dd>"
		t = t .. lfd.linkFormDate(date, args.attr_date, args.attr_day, args.attr_year)
		t = t .. "</dd>"
	end
--	mw.log("t = " .. t)
	return t
end

function p.zeileSemantikBrowsenAbfrage_(fbdata)
--	mw.log("zeileSemantikBrowsenAbfrage_(fbdata)")
--	mw.logObject(fbdata)
	-- Konsolenzeile zum Debuggen:
	-- =p.zeileSemantikBrowsenAbfrage_{fullpagename="Rathaus"}
	local t = ""
	t = t .. "<dl class = 'dataTable'>"
	t = t .. "<dt>[[Bild:IconSearch.svg|16px|semantisches Browsen|link=[[Spezial:Durchsuchen/" .. fbdata.fullpagename .. "]]]]</dt>"
	t = t .. "<dd>[[Spezial:Durchsuchen/" .. fbdata.fullpagename .. "|Semantisches Browsen]]"
	if wik.pageExists("Formular:Abfrage " .. fbdata.kategorie[1]) then
		t = t .. " / {{#queryformlink:form=Abfrage " .. fbdata.kategorie[1] .. "|link text=Abfrage}}"
	end
	t = t .. "</dd></dl>"
--	mw.log("t = " .. t)
	return t
end

function p.zeileSemantikBrowsen_(fbdata)
--	mw.log("zeileSemantikBrowsen_(fbdata)")
--	mw.logObject(fbdata)
	-- Konsolenzeile zum Debuggen:
	-- =p.zeileSemantikBrowsen_{fullpagename="Rathaus"}
	local t = ""
	t = t .. "<dl class = 'dataTable'>"
	t = t .. "<dt>[[Bild:IconSearch.svg|16px|semantisches Browsen|link=[[Spezial:Durchsuchen/" .. fbdata.fullpagename .. "]]]]</dt>"
	t = t .. "<dd>[[Spezial:Durchsuchen/" .. fbdata.fullpagename .. "|Semantisches Browsen]]</dd>"
	t = t .. "</dl>"
--	mw.log("t = " .. t)
	return t
end

function p.zeile_(args)
--	mw.log("zeile(args)")
--	mw.logObject(args)
	-- Konsolenzeile zum Debuggen:
	-- =p.zeile_{attr_name="Vorgänger",attr_text="t",fbdata={pargs={["Vorgänger"]="; v11 , V12 ; v13 (a(b))"}},attr_val="; v1 ; v2, v3 (a(b))",val_prefix="pre",val_postfix="post",exclude_bracket_values=true,delimiter=","}
	local t = ""
	-- Attribut-Name/Wert aufbereiten (splitten, in table umwandeln)
	local attr_name = args.attr_name
	local attr_val = args.attr_val or args.fbdata.pargs[attr_name] or {}
	if type(attr_val) ~= "table" then -- Liste in table umwandeln/zerteilen
		if args.delimiter ~= nil then
			attr_val = str.splitAndStrip(attr_val, args.delimiter or ";")
		elseif attr_val ~= "" then
			attr_val = { attr_val }
		else
			attr_val = {}
		end
	end
	-- Zeile zusammenbauen
	if #attr_val > 0 then
		-- Attribut-Text ermitteln und in Zeile übernehmen
		local attr_text = args.attr_text or attr_text_anzeige[attr_name] or attr_name
		if #attr_val > 1 then
			attr_text = mez.mehrzahl(attr_text) -- Mehrzahl
		end
		t = t .. "<dt>" .. "[[Attribut:" .. attr_name .. "|" .. attr_text .. "]]</dt>"
		-- Attribut-Werte in Zeile übernehmen
		t = t .. "<dd>"
		if args.val_prefix ~= nil then
			t = t .. args.val_prefix .. " " -- Prefix
		end
		for idx, val in ipairs(attr_val) do -- Werte-Liste
			if idx > 1 then
				t = t .. ", " -- Listen-Kommata
			end
			if mw.smw.getPropertyType(attr_name) == "_wpg" then -- Seiten-Attribute Spezialbehandlung
				t = t .. p.setPageAttr(attr_name, val)
			else												-- alle anderen Attribut-Datentypen
				local val_pre_bracket, val_post_bracket = "", ""
				if com.isTrue(args.exclude_bracket_values) then -- Klammer-Text separieren (kein Attribut-Wert)
					val_pre_bracket, val, val_post_bracket = str.bracketSplitAndStrip(val)	-- nach Klammern suchen und aufteilen
				end
				if val_pre_bracket ~= "" then
					t = t .. val_pre_bracket .. " "
				end
				t = t .. "[[" .. attr_name .. "::" .. val .. "]]"
				if val_post_bracket ~= "" then
					t = t .. " " .. val_post_bracket
				end
			end
		end
		if args.val_postfix ~= nil then
			t = t .. " " .. args.val_postfix -- Postfix
		end
		t = t .. "</dd>"
	end
--	mw.log("t = " .. t)
	return t
end

function p.setPageAttr(name, val)
	local t = ""
	if string.find(val, "[#=<>%[%]%|%{%}]") ~= nil then											-- problematische Wikitext/HTML-Inhalte vorhanden?
		t = val .. "{{#set:" .. name .. "=" .. val .. "}}"										-- ==> kein Link, sondern nur Attribut versteckt setzen
	elseif wik.pageexists(val) then																-- eine vorhandene Seite regulär setzen
		t = "[[" .. name .. "::" .. val .. "]]"
	else
		val_pre_bracket, val_without_bracket, val_post_bracket = str.bracketSplitAndStrip(val)	-- nach Klammern suchen und aufteilen
		if not wik.pageexists(val_without_bracket) then											-- Seite auch ohne Klammern nicht vorhanden?
			t = val .. "{{#set:" .. name .. "=" .. val .. "}}"									-- ==> kein Link, sondern nur Attribut versteckt setzen
		else
			if val_pre_bracket ~= "" then														-- Klammer-Text vor eigentlicher Seite
				t = t .. val_pre_bracket .. " "
			end
			t = t .. "[[" .. name .. "::" .. val_without_bracket .. "]]"						-- das eigentliche Attribut-Setzen
			if val_post_bracket ~= "" then														-- Klammer-Text nach eigentlicher Seite
				t = t .. " " .. val_post_bracket
			end
		end
	end
	return t
end

return p
Abgerufen von „https://www.fuerthwiki.de/wiki/index.php?title=Modul:Faktenbox/Zeilen&oldid=758073“