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")

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) ..
		p.gebaeudeTabs(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.Gebaeudedaten(frame)
--	mw.log("Gebaeudedaten(frame)")
--	mw.logObject(frame, "frame")
	local fbdata = fab.fbdata(frame)
	geb.faktenbox(fbdata)														-- die Gebäude-Faktenbox setzt hier nur die Attribute
end

function p.GebaeudeFaktenbox(frame)												-- to do: Kategorien
--	mw.log("GebaeudeFaktenbox(frame)")
--	mw.logObject(frame, "frame")
	local fbdata = fab.fbdata(frame)
	local t = ""
	-- Gebäude-Attribute von subobject abfragen	
	fbdata.attr.subid = geb.getSubobjectID(fbdata.pargs)
	local subobject_pagename = fbdata.pagename .. "#" .. fbdata.attr.subid
	fbdata.pargs = {}
	t = t .. queryGebaeudeArgs(fbdata.pargs, subobject_pagename)
--	mw.logObject(fbdata.pargs, "fbdata.pargs")
	-- Faktenbox anzeigen (ohne Attribute setzen)
	if fbdata.pargs ~= {} then
		fbdata.attr.noattr = true
		t = t .. geb.faktenbox(fbdata)
	end
--	mw.logObject(t, "t")
	return t
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.logObject(t, "t")
    return t
end

function p.gebaeudeTabs(fbdata)
	mw.log("gebaeudeTabs(fbdata)")
	local t = ""
	-- Gebäude-Liste ermitteln
	query = "[[-has subobject::" .. fbdata.pagename .. "]]" ..
		"[[SubObjektTyp::Gebäude]]|?#-"
	mw.logObject(query, "query")
	local gebaude = mw.smw.ask(query) or {}
	mw.logObject(gebaude, "gebaude")
	for i, g in ipairs(gebaude) do
		-- temporäres fbdata für Gebäude
		local fbdata_gebaeude = fab.fbdata(fbdata.frame)
		fbdata_gebaeude.klasse = {"Gebäude"}
		fbdata_gebaeude.kategorie = {"Gebäude"}
		-- Gebäude-Attribute von subobject abfragen	
		fbdata_gebaeude.pargs = {}
		queryGebaeudeArgs(fbdata_gebaeude.pargs, g[1])
		mw.logObject(fbdata_gebaeude.pargs, "fbdata_gebaeude.pargs")
		-- Straße/Hausnummer Formular-Eingaben analysieren, Postleitzahl ermitteln
		fbdata_gebaeude.strasse_hnr = geb.strasseHnrParser(fbdata_gebaeude)
		fbdata_gebaeude.plz = geb.getPlz(fbdata_gebaeude)
		fbdata_gebaeude.attr.noattr = true
		local tabname = ""
		local objekt = fbdata_gebaeude.pargs["Objekt"]
		local baujahr = fbdata_gebaeude.pargs["Baujahr"]
		if objekt ~= nil then
			tabname = tabname .. objekt
		elseif baujahr == nil then
			tabname = tabname .. "Gebäude&nbsp;" .. i
		else
			tabname = tabname .. "Gebäude"
		end
		if baujahr ~= nil then
			tabname = tabname .. "&nbsp;" .. baujahr
		end
		t = t .. geb.datenTab(fbdata_gebaeude, {tabname = tabname})
	end
	mw.logObject(t, "t")
    return t
end

function queryGebaeudeArgs(args, subobject_pagename)							-- Gebäude-Attribute von subobject abfragen	
--	mw.log("queryGebaeudeArgs(args, subobject_pagename)")
--	mw.logObject(subobject_pagename, "subobject_pagename")
	local t = ""
	local query = "[[" .. subobject_pagename .. "]]"
	for _, a in ipairs(geb.gebaude_attr) do
		query = query .. "|?" .. a .. "#-"
	end
	query = query .. "|?GeoSubobject#-|?#-"
--	mw.logObject(query, "query")
	val = mw.smw.ask(query)
--	mw.logObject(val, "val")
	if val == nil then
		t = t .. "<br>Gebäude " .. (args["Objekt"] or "(fehlt)") ..
			" mit Baujahr " .. (args["Baujahr"] or "(fehlt)") ..
			" nicht gefunden<br>"
	elseif #val > 1 then
		t = t .. "<br>Mehrere (kein eindeutiges) Gebäude " ..
			(args["Objekt"] or "(fehlt)") .. " mit Baujahr " ..
			(args["Baujahr"] or "(fehlt)") .. " gefunden<br>"
	else
		-- Attribute-table zu Argumente (pargs) rückwandeln
		val = val[1]															-- immer nur das erste subobject nehmen
		val[1] = nil															-- subobject id entfernen
		for a, v in pairs(val) do
			if type(v) == "table" then
				v = table.concat(v, ";")
			else
				v = tostring(v)
			end
			if a == "Bild" then
				args[a] = string.sub(v, 7)										-- "Datei:" abschneiden
			else
				args[a] = v
			end
		end
		getGeoArgs(args, val.GeoSubobject)	
	end
--	mw.logObject(args, "args")
--	mw.logObject(t, "t")
	return t
end

function getGeoArgs(args, geo_subobjects)										-- wandelt die Geo-Subjekte wieder ein pargs zurück
--	mw.log("getGeoArgs(args, geo_subobjects)")
--	mw.logObject(geo_subobjects, "geo_subobjects")
	if geo_subobjects ~= nil then
		if type(geo_subobjects) ~= "table" then
			geo_subobjects = {geo_subobjects}
		end
		-- query Geo-Subjekte
		local query = ""
		for _, g in ipairs(geo_subobjects) do									-- alle Geo-Subjekte werden in einem Rutsch abgefragt 
			if query ~= "" then
				query = query .. " OR "
			end
			query = query .. "[[" .. g .. "]]"
		end
		query = query .. "|?Geokoordinate|?Geolokation|?GeoJson#-|?Zoomlevel|?#-"
--		mw.logObject(query, "query")
		geo_subobjects = mw.smw.ask(query) or {}
--		mw.logObject(geo_subobjects, "geo_subobjects")
		-- Attribute zu pargs wandeln
		for _, o in ipairs(geo_subobjects) do
			local location = o["Geolokation"] or o["Geokoordinate"]				-- keine Rückwandlung Geokoordinate zu lat/lon
			local geojson = o["GeoJson"]
			local zoom = o["Zoomlevel"]
			if location ~= nil then												-- location-Liste mergen
				if args["location"] == nil then									-- muss location sein, nicht locationlist
					args["location"] = location
				else
					args["location"] =
						args["location"] .. ";" .. location
				end
			end
			if args["geojson"] == nil and geojson ~= nil then					-- GeoJson 1x übernehmen. Sind eh alle gleich
				args["geojson"] = string.sub(geojson, 9)						-- "GeoJson:" abschneiden
			end
			if args["zoom"] == nil and zoom ~= nil then							-- Zoomlevel 1x übernehmen. Sind eh alle gleich
				args["zoom"] = zoom
			end
		end
	end
--	mw.logObject(args, "args")
end

return p