Modul:Straße

Seiten-Übersicht

Zur Klasse Straße gehörende Seiten:

		Hauptseite	Unterseiten
Allgemein		Straßen Klasse:Straße Kategorie:Straßen Konzept:Alle Straßen FürthWiki:Semantik FürthWiki:Wartung/Straße
Faktenbox	Vorlagen	Straße	Straße/Doku Straße/Karte/Popup/Work Straße/Liste mit Orte
	Formulare	Straße PositionKarte (sofern genutzt) Kategorie:Klassen-übergreifende Formulare	Straße/Daten
	Module	Straße	Straße/Doku Straße/Work
Abfrage	Vorlagen	Abfrage Straßen
	Formulare	Abfrage Straßen
	Sonstige	Abfrage ausführen

Siehe auch

• Modul:Common
• Modul:String
• Modul:Geo
• Modul:Karte
• Modul:Wiki
• Modul:Faktenbox

---

local p = {}

local com = require("Modul:Common")
local str = require("Modul:String")
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, "frame")
	-- Konsolenzeile zum Debuggen:
	-- =p.Faktenbox{pargs={Stadtteil="Innenstadt;Ronhof",Ort="Buxtehude"}}

	-- Basis-Faktenbox-Daten (Klasse/Kategorie/Formular)
	local fbdata = fab.getFbdata(frame)
	fbdata.klasse = {"Straße"}
	fbdata.kategorie = {"Straßen"}
	fbdata.formular = "Straße" -- ggf. "Straße/Work"
	fbdata.positionscheck = true

	-- Postleitzahl ermitteln
	local stadtteile = str.splitAndStrip(fbdata.pargs["Stadtteil"], ";")
	fbdata.plz = geo.stadtteil2PLZ(stadtteile)

	-- Tabs einsammeln und zusammenfügen
	local t = p.kartenTab(fbdata) ..											-- Karten-Tab muss vor Tabs mit zeileGeoDaten() sein
		fab.bildTab(fbdata) .. p.datenTab(fbdata) .. fab.benennungenTab(fbdata)
	t = fab.factbox_header_footer(t)

	-- Straßen-spezifische Kategorien usw.
	if fbdata.pargs["Stadtteil"] == nil then
		fab.addWartungsmeldung(fbdata, "Straßen ohne Stadtteil")
	end
	if fbdata.pargs["Ort"] == nil then
		smw.addAttrToList(fbdata.attr.list, "Ort", "Fürth")
	end

	-- Sonstige gemeinsame Dinge anfügen (Klasse, Formular, Kategorien, Wartung, ...)
	t = t .. fab.postprocess(fbdata)
	-- Pre-Processing
--	mw.logObject(t, "t")
	t = fbdata.frame:preprocess(t)
	return t
end

function p.datenTab(fbdata)
--	mw.log("datenTab(fbdata)")
--	mw.logObject(fbdata, "fbdata")
	--[[ Konsolenzeile zum Debuggen:
	fab=require("Modul:Faktenbox"); fbdata=fab.fbdata{pargs={Baujahr="1987",Stadtteil="Innenstadt;Ronhof",Ort="Buxtehude"}};
	fbdata.klasse={"Straße"}; fbdata.kategorie={"Straßen"}; fbdata.fullpagename="Erlanger Straße"; fbdata.subpagename="Erlanger Straße";
	print(p.datenTab(fbdata))
	]]
	local t = ""

	-- Zusammenbau
	t = t .. fab.zeileKategorieSeite(fbdata)
	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "Baujahr",		delimiter = ";"}
	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "Stadtteil",	delimiter = ";"}
	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "PLZ",			attr_val = fbdata.plz}
	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "Ort",			delimiter = ";"}
	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "Ehemals"}
	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "Abbruchjahr",	delimiter = ";"}
	t = t .. fab.zeileGeoDaten(fbdata)
	t = fab.table_header_footer(t)
	t = t .. fab.zeileSemantikBrowsenAbfrage(fbdata)

	-- Tab draus machen
	t = fab.tab(t, "Daten")
--	mw.log("t = " .. t)
    return t
end

function p.kartenTab(fbdata)
--	mw.log("kartenTab(fbdata)")
--	mw.logObject(fbdata, "fbdata")
	-- Konsolenzeile zum Debuggen:
	-- 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 = t .. "Semikolon im Artikel-/Seitennamen für korrekte Kartendarstellung nicht erlaubt!"
	else
		-- Karten-Argumente übernehmen und aufbereiten
		local args = fab.getKartenArgs(fbdata, 16)
		-- 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["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
			t_karte, fbdata.geoobjects = kar.karte(fbdata.frame, args)			-- kar.karte() setzt Kategorien
			t = t .. t_karte
		end
	end
	-- Tab draus machen
--	mw.logObject(t, "t")
	t = fab.tab(t, "Karte")
	return t
end

return p