Modul:Grundstück/Work

Seiten-Übersicht

Zur Klasse Grundstück gehörende Seiten:

		Hauptseite	Unterseiten
Allgemein		Grundstücke Klasse:Grundstück Kategorie:Grundstücke Konzept:Alle Grundstücke FürthWiki:Semantik FürthWiki:Wartung/Grundstück
Faktenbox	Vorlagen	Grundstück	Grundstück/Ehemalige Adresse/Work Grundstück/Gebäude-Faktenbox/Work Grundstück/Gebäude/Work Grundstück/Gebäudedaten/Work Grundstück/Work
	Formulare	Grundstück PositionKarte (sofern genutzt) Kategorie:Klassen-übergreifende Formulare	Grundstück/Daten/Work Grundstück/Ehemalige Adresse/Work Grundstück/Work
	Module	Grundstück	Grundstück/Work Grundstück/Work/Doku
Abfrage	Vorlagen	Abfrage Grundstücke
	Formulare	Abfrage Grundstücke
	Sonstige	Abfrage ausführen

Siehe auch

• Modul:Common
• Modul:Faktenbox

---

local p = {}

local com = require("Modul:Common")
local str = require("Modul:String")
local dev = require("Modul:Development")
local smw = require("Modul:SMW")
local wik = require("Modul:Wiki")
local fab = require("Modul:Faktenbox/Work")
local geb = require("Modul:Gebäude/Work")

local gebauede_daten = {"Bild", "Objekt", "TeilDesEnsembles", "TeilDesAreals",
	"Baujahr", "Baustil", "Architekt", "Bauherr", "Maurermeister", "Ehemals",
	"Abbruchjahr", "DenkmalstatusBesteht", "AktenNr", "Quellangaben",
	"lat", "lon", "location", "locationlist", "geojson", "GeoJsonKarte",
	"Work"}

local listen_attribute = {["Bauherr"] = true, ["Architekt"] = true,				-- diese Attr. können Listen sein
	["AktenNr"] = true, ["Quellangaben"] = true}

function p.Faktenbox(frame)
--	mw.log("Faktenbox(frame)")
--	mw.logObject(frame, "frame")
	-- Konsolenzeile zum Debuggen:
	-- =p.Faktenbox{pargs={Baujahr="1987",AktenNr="D-5-63-000-1464"}}

	-- Basis-Faktenbox-Daten (Klasse/Kategorie/Formular)
	local fbdata = fab.fbdata(frame)
	fbdata.klasse = {"Grundstück"}
	fbdata.kategorie = {"Grundstücke"}
	fbdata.formular = "Grundstück/Work" -- ggf. "Grundstück/Work"
	fbdata.positionscheck = true

	-- Straße/Hausnummer Formular-Eingaben analysieren, Postleitzahl ermitteln
	fbdata.strasse_hnr = geb.strasseHnrParser(fbdata)
	fbdata.plz = geb.getPlz(fbdata)

	-- Tabs einsammeln und zusammenfügen
	local box = 
		"<div class = factbox><tabs>" ..
--		geb.kartenTab(fbdata) .. -- Karten-Tab muss vor Tabs mit zeileGeoDaten() sein
		fab.bildTab(fbdata) ..
		p.datenTab(fbdata) ..
		"</tabs></div>"

	-- Sonstige gemeinsame Dinge anfügen (Klasse, Formular, Kategorien, Wartung, ...)
	box = box .. fab.common(fbdata)
--	mw.logObject(box, "box")

	-- Pre-Processing und String-Länge checken
	box = fbdata.frame:preprocess(box)
	return box
end

function p.datenTab(fbdata)
--	mw.log("datenTab(fbdata)")
--	mw.logObject(fbdata)
	--[[ Konsolenzeile zum Debuggen:
	fab=require("Modul:Faktenbox"); fbdata=fab.fbdata{pargs={Baujahr="1987",AktenNr="D-5-63-000-1464"}};
	fbdata.klasse={"Grundstück"}; fbdata.kategorie={"Grundstücke"}; fbdata.fullpagename="Stadtpark"; fbdata.subpagename="Stadtpark";
	print(p.datenTab(fbdata))
	]]
	local t = ""

	-- Zusammenbau
	t = t .. "<dl class = 'dataTable'>"
	t = t .. fab.zeileKategorieSeite(fbdata)
	t = t .. fab.zeileStrasseHnr(fbdata)
	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "PLZ",				attr_val = fbdata.plz}
	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "TeilDesEnsembles",	attr_val = teil_des_ensembles,	delimiter = ";"}
	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "TeilDesAreals",									delimiter = ";"}
	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "Ehemals",															 attr_text = "Ehemals (aufgelassen)"}
	t = t .. fab.zeile{fbdata = fbdata,	attr_name = "Abbruchjahr",										delimiter = ";", attr_text = "Aufgelassungsjahr"}
	t = t .. fab.zeileGeoDaten(fbdata)
	t = t .. "</dl>"
	t = t .. fab.zeileSemantikBrowsenAbfrage(fbdata)

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

function p.Gebaeudedaten(frame)
--	mw.log("Gebaeudedaten(frame)")
--	mw.logObject(frame, "frame")
	local fbdata = fab.fbdata(frame)
	-- subobject ID zusammenbauen
	fbdata.SubID = "Gebäude"
	if not com.isEmpty(fbdata.pargs["Objekt"]) then
		fbdata.SubID = fbdata.SubID .. " " .. fbdata.pargs["Objekt"]
	end
	if not com.isEmpty(fbdata.pargs["Baujahr"]) then
		fbdata.SubID = fbdata.SubID .. " " .. fbdata.pargs["Baujahr"]
	end
	fbdata.SubID = smw.subobjectIdCleaner(fbdata.SubID)
	geb.faktenbox(fbdata)
--	return ""

--	local frame, pargs = dev.GetFrameAndParentArgs(frame)
----	mw.logObject(pargs, "pargs")
--	local attrlist = {}
--	for _, a in ipairs(gebauede_daten) do										-- diese Attr. übernehmen
--		local val = pargs[a] or ""
--		if val ~= "" then
--			if listen_attribute[a] then											-- Listen aufteilen
--				val = str.splitAndStrip(val, ";")
--			end
--			smw.addAttrToList(attrlist, a, val)
--		end
--	end
----	mw.logObject(attrlist, "attrlist")
--	-- subobject ID zusammenbauen
--	local id = "Gebäude"
--	if attrlist["Objekt"] ~= nil then
--		id = id .. " " .. attrlist["Objekt"][1]
--	end
--	if attrlist["Baujahr"] ~= nil then
--		id = id .. " " .. attrlist["Baujahr"][1]
--	end
--	id = smw.subobjectIdCleaner(id)
----	mw.logObject(id, "id")
--	-- subobject setzen
--	mw.smw.subobject(attrlist, id)
end

function p.GebaeudeFaktenbox(frame)												-- to do: Kategorien
--	mw.log("GebaeudeFaktenbox(frame)")
--	mw.logObject(frame, "frame")
	local fbdata = fab.fbdata(frame)
	local t = ""
	local pargs, empty = wik.getArgs(fbdata.pargs, {"Objekt", "Baujahr"})
	if not empty then
		local query = "[[-has subobject::" .. fbdata.pagename.. "]]"
		if pargs["Objekt"] ~= nil then
			query = query .. "[[Objekt::" .. pargs["Objekt"] .. "]]"
		end
		if pargs["Baujahr"] ~= nil then
			query = query .. "[[Baujahr::" .. pargs["Baujahr"] .. "]]"
		end
		for _, a in ipairs(gebauede_daten) do
			query = query .. "|?" .. a .. "#-"
		end
--		mw.logObject(query, "query")
		val = mw.smw.ask(query)
--		mw.logObject(val, "val")
		if val == nil then
			t = t .. "<br>Gebäude " ..
				(pargs["Objekt"] or "(nicht angegeben)") ..
				" mit Baujahr " ..
				(pargs["Baujahr"] or "(nicht angegeben)") ..
				" nicht gefunden<br>"
		else
			val = val[1]														-- immer nur das erste subobject nehmen
			val[1] = nil														-- subobject id entfernen
			fbdata.pargs = {}
			for a, v in pairs(val) do
				if type(v) == "table" then
					v = table.concat(v, ";")
				else
					v = tostring(v)
				end
				fbdata.pargs[a] = v
			end
			fbdata.noattr = true
			t = geb.faktenbox(fbdata)
		end
	end
--	mw.logObject(t, "t")
	return t
end

return p