Modul:Straße: Unterschied zwischen den Versionen

← Zum vorherigen Versionsunterschied

Modul:Straße (Quelltext anzeigen)

Version vom 22. Januar 2026, 11:01 Uhr

2.179 Bytes hinzugefügt , 11:01

- Kategorie:Straßen ohne Stadtteil

HeikoK

SMW-Administratoren, SMW-Kuratoren, SMW-Editoren, Administratoren

4.629

Bearbeitungen

@@ Zeile 5: / Zeile 5: @@
 local geo = require("Modul:Geo")
 local fab = require("Modul:Faktenbox")
+local kar = require("Modul:Karte")
+local wik = require("Modul:Wiki")
+local smw = require("Modul:SMW")
 function p.Faktenbox(frame)
 --	mw.log("Faktenbox(frame)")
---	mw.logObject(frame)
+--	mw.logObject(frame, "frame")
 	-- Konsolenzeile zum Debuggen:
 	-- =p.Faktenbox{pargs={Stadtteil="Innenstadt;Ronhof",Ort="Buxtehude"}}
 	-- Basis-Faktenbox-Daten (Klasse/Kategorie/Formular)
-	local fbdata = fab.fbdata(frame)
+	local fbdata = fab.getFbdata(frame)
 	fbdata.klasse = {"Straße"}
 	fbdata.kategorie = {"Straßen"}
@@ Zeile 20: / Zeile 23: @@
 	-- Postleitzahl ermitteln
-	local stadtteile = str.splitAndStrip(fbdata.pargs["Stadtteil"] or "", ";")
+	local stadtteile = str.splitAndStrip(fbdata.pargs["Stadtteil"], ";")
 	fbdata.plz = geo.stadtteil2PLZ(stadtteile)
 	-- Tabs einsammeln und zusammenfügen
-	local box =
+	local t = p.kartenTab(fbdata) ..											-- Karten-Tab muss vor Tabs mit zeileGeoDaten() sein
-		"<div class = factbox><tabs>" ..
+		fab.bildTab(fbdata) .. p.datenTab(fbdata) .. fab.benennungenTab(fbdata)
-		p.kartenTab(fbdata) ..
+	t = fab.factbox_header_footer(t)
-		fab.bildTab(fbdata) ..
-		p.datenTab(fbdata) ..
-		fab.benennungenTab(fbdata) ..
-		"</tabs></div>"
 	-- Straßen-spezifische Kategorien usw.
-	if (fbdata.pargs["Stadtteil"] or "") == "" then
+	if fbdata.pargs["Stadtteil"] == nil then
-		box = box .. "[[Kategorie:Straßen ohne Stadtteil]]"
+		fab.addWartungsmeldung(fbdata, "Straßen ohne Stadtteil")
 	end
-	if (fbdata.pargs["Ort"] or "") == "" then
+	if fbdata.pargs["Ort"] == nil then
-		box = box .. "{{#set:Ort=Fürth}}"
+		smw.addAttrToList(fbdata.attr.list, "Ort", "Fürth")
 	end
 	-- Sonstige gemeinsame Dinge anfügen (Klasse, Formular, Kategorien, Wartung, ...)
-	box = box .. fab.common(fbdata)
+	t = t .. fab.postprocess(fbdata)
---	mw.log("box = " .. box)
+	-- Pre-Processing
+--	mw.logObject(t, "t")
-	-- Pre-Processing und String-Länge checken
+	t = fbdata.frame:preprocess(t)
-	box = fbdata.frame:preprocess(box)
+	return t
---	mw.log("box = " .. box)
-	return box
 end
 function p.datenTab(fbdata)
 --	mw.log("datenTab(fbdata)")
---	mw.logObject(fbdata)
+--	mw.logObject(fbdata, "fbdata")
 	--[[ Konsolenzeile zum Debuggen:
 	fab=require("Modul:Faktenbox"); fbdata=fab.fbdata{pargs={Baujahr="1987",Stadtteil="Innenstadt;Ronhof",Ort="Buxtehude"}};
@@ Zeile 61: / Zeile 58: @@
 	-- Zusammenbau
-	t = t .. "<dl class = 'dataTable'>"
 	t = t .. fab.zeileKategorieSeite(fbdata)
-	t = t .. fab.zeile{attr_name = "Baujahr",		fbdata = fbdata, delimiter = ";"}
+	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "Baujahr",		delimiter = ";"}
-	t = t .. fab.zeile{attr_name = "Stadtteil",		fbdata = fbdata, delimiter = ";"}
+	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "Stadtteil",	delimiter = ";"}
-	t = t .. fab.zeile{attr_name = "PLZ",			attr_val = fbdata.plz}
+	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "PLZ",			attr_val = fbdata.plz}
-	t = t .. fab.zeile{attr_name = "Ort",			fbdata = fbdata, delimiter = ";"}
+	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "Ort",			delimiter = ";"}
-	t = t .. fab.zeile{attr_name = "Ehemals",		fbdata = fbdata}
+	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "Ehemals"}
-	t = t .. fab.zeile{attr_name = "Abbruchjahr",	fbdata = fbdata, delimiter = ";"}
+	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "Abbruchjahr",	delimiter = ";"}
 	t = t .. fab.zeileGeoDaten(fbdata)
-	t = t .. "</dl>"
+	t = fab.table_header_footer(t)
 	t = t .. fab.zeileSemantikBrowsenAbfrage(fbdata)
@@ Zeile 80: / Zeile 76: @@
 function p.kartenTab(fbdata)
---	mw.logObject(fbdata, "kartenTab(fbdata)")
+--	mw.log("kartenTab(fbdata)")
+--	mw.logObject(fbdata, "fbdata")
 	-- Konsolenzeile zum Debuggen:
-	-- fab=require("Modul:Faktenbox"); fbdata=fab.fbdata{pargs={Ehemals="ja";location="Bla"}}; fbdata.pagename="Erlanger Straße"; fbdata.plz={90765}; p.kartenTab(fbdata)
+	-- fbdata=require("Modul:Faktenbox").fbdata{pargs={Ehemals="ja";location="Bla"}}; fbdata.pagename="Erlanger Straße"; fbdata.plz={90765}; p.kartenTab(fbdata)
 	local t = ""
 	if string.find(fbdata.pagename, ";") ~= nil then
-		t = "Semikolon im Artikel-/Seitennamen für korrekte Kartendarstellung nicht erlaubt!"
+		t = t .. "Semikolon im Artikel-/Seitennamen für korrekte Kartendarstellung nicht erlaubt!"
 	else
-		local args = com.shallowcopy(fbdata.pargs)
+		-- Karten-Argumente übernehmen und aufbereiten
-		if com.isEmpty(args["location"]) and not com.isTrue(args["Ehemals"]) then
+		local args = fab.getKartenArgs(fbdata, 16)
-			args["streetlocation"] = fbdata.pagename .. "," .. (args["Ort"] or "Fürth")
+		-- Straßen-Lokation ermitteln, sofern location nicht explizit angegeben
+		if args["location"] == nil and not com.isTrue(args["Ehemals"]) then
+			local _, strasse, _ = str.bracketSplitAndStrip(fbdata.pagename)		-- Klammern abschneiden wie z. B. "(Straße)"
+			args["location"] = strasse .. "," .. (args["Ort"] or "Fürth")
 			if  #fbdata.plz > 0 then
-				args["streetlocation"] = args["streetlocation"] .. "," .. fbdata.plz[1]
+				args["location"] = args["location"] .. "," .. fbdata.plz[1]
+			end
+			args["location"] = args["location"] .. ",Bayern,Deutschland"
+		end
+		local karten_args_vorhanden = kar.kartenArgsVorhanden(args)
+		-- Gebäude-Selektor für Queries
+		local gebaeude_selector =
+			"[[:+]][[Kategorie:Gebäude]][[Straße::" .. fbdata.pagename .. "]] OR " ..
+			"[[:+]][[Kategorie:Gebäude]][[Straße2::" .. fbdata.pagename .. "]] OR " ..
+			"[[:+]][[Kategorie:Gebäude]][[Straße3::" .. fbdata.pagename .. "]]"
+		-- Gebäude-Artikel mit dieser Straße vorhanden?
+		local n_gebaeude = 0
+		if not karten_args_vorhanden then
+			local query = {gebaeude_selector, ["format"] = "count"}
+			n_gebaeude = mw.smw.ask(query)
+		end
+		-- Karte erstellen
+		if karten_args_vorhanden or n_gebaeude > 0 then
+			-- Karten-Query zusammensetzen
+			local query = gebaeude_selector
+			local geojson_pagename = args["geojson"] or fbdata.pagename
+			if not wik.pageExists("GeoJson:" .. geojson_pagename) then
+				query = query .. " OR [[" .. fbdata.pagename .. "]]"
+				geojson_pagename = ""
+			end
+			query = {
+				query,
+				["format"] = "leaflet", ["limit"] = "10000",
+				["zoom"] = args["zoom"],
+				["resizable"] = "yes", ["enablefullscreen"] = "yes",
+				["cluster"] = "yes", ["clustermaxzoom"] = "16",
+				["clusterspiderfy"] = "no"}
+			for _, q in ipairs{"Geokoordinate", "Objekt", "Architekt",
+				"Baujahr", "Baustil", "AktenNr=Akten-Nr.", "Bauherr"} do
+				table.insert(query, "?" .. q)
+			end
+			if geojson_pagename ~= "" then
+				query["geojson"] = geojson_pagename
+			elseif args["lat"] ~= nil and args["lon"] ~= nil then
+				query["centre"] = args["lat"] .. "," .. args["lon"]
+--			else
+--				query["centre"] = "49.476,10.989"
+			end
+			-- Karte per #ask rendern
+			local t_karte = fbdata.frame:callParserFunction("#ask", query)
+			-- kar.karte() hinterher schieben
+			if str.strip(t_karte or "") ~= "" then
+				t = t .. t_karte
+				args["nomap"] = "ja"											-- kar.karte() rendert NICHT die Karte, sofern #ask-Karte erfolgreich
 			end
-			args["streetlocation"] = args["streetlocation"] .. ",Bayern,Deutschland"
+			t_karte, fbdata.geoobjects = kar.karte(fbdata.frame, args)			-- kar.karte() setzt Kategorien
+			t = t .. t_karte
 		end
---		mw.logObject(args, "args")
-		t = t .. fbdata.frame:expandTemplate{title = 'Straße/Karte', args=args}
-		t = str.strip(t)
 	end
 	-- Tab draus machen