Modul:Grundstück/Work: Unterschied zwischen den Versionen

Aus FürthWiki

Keine Bearbeitungszusammenfassung
Keine Bearbeitungszusammenfassung
Zeile 3: Zeile 3:
local com = require("Modul:Common")
local com = require("Modul:Common")
local str = require("Modul:String")
local str = require("Modul:String")
local dev = require("Modul:Development")
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")
local smw = require("Modul:SMW")
local wik = require("Modul:Wiki")
local fab = require("Modul:Faktenbox")
local geb = require("Modul:Gebäude")


function p.Faktenbox(frame)
function p.Faktenbox(frame)
Zeile 13: Zeile 13:
-- mw.logObject(frame, "frame")
-- mw.logObject(frame, "frame")
-- Konsolenzeile zum Debuggen:
-- Konsolenzeile zum Debuggen:
-- =p.Faktenbox{pargs={Baujahr="1987",AktenNr="D-5-63-000-1464"}}
-- =p.Faktenbox{pargs={Stadtteil="Innenstadt;Ronhof",Ort="Buxtehude"}}


-- Basis-Faktenbox-Daten (Klasse/Kategorie/Formular)
-- Basis-Faktenbox-Daten (Klasse/Kategorie/Formular)
Zeile 22: Zeile 22:
fbdata.positionscheck = true
fbdata.positionscheck = true


-- Straße/Hausnummer Formular-Eingaben analysieren, Postleitzahl ermitteln
-- Postleitzahl ermitteln
fbdata.strasse_hnr = geb.strasseHnrParser(fbdata)
local stadtteile = str.splitAndStrip(fbdata.pargs["Stadtteil"], ";")
fbdata.plz = geb.getPlz(fbdata)
fbdata.plz = geo.stadtteil2PLZ(stadtteile)


-- Tabs einsammeln und zusammenfügen
-- Tabs einsammeln und zusammenfügen
local t = geb.kartenTab(fbdata) .. -- Karten-Tab muss vor Tabs mit zeileGeoDaten() sein
local t = p.kartenTab(fbdata) .. -- Karten-Tab muss vor Tabs mit zeileGeoDaten() sein
fab.bildTab(fbdata) .. p.datenTab(fbdata) .. p.gebaeudeTabs(fbdata)
fab.bildTab(fbdata) .. p.datenTab(fbdata) .. fab.benennungenTab(fbdata)
t = fab.factbox_header_footer(t)
t = fab.factbox_header_footer(t)
-- Straßen-spezifische Kategorien usw.
if fbdata.pargs["Stadtteil"] == nil then
t = t .. "[[Kategorie: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, ...)
-- Sonstige gemeinsame Dinge anfügen (Klasse, Formular, Kategorien, Wartung, ...)
Zeile 36: Zeile 44:
-- mw.logObject(t, "t")
-- mw.logObject(t, "t")
t = fbdata.frame:preprocess(t)
t = fbdata.frame:preprocess(t)
return t
end
function p.Gebaeudedaten(frame)
-- mw.log("Gebaeudedaten(frame)")
-- mw.logObject(frame, "frame")
local fbdata = fab.getFbdata(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.getFbdata(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 not com.isEmpty(fbdata.pargs) then
fbdata.attr.noattr = true
t = t .. geb.faktenbox(fbdata)
end
-- mw.logObject(t, "t")
return t
return t
end
end
Zeile 68: Zeile 49:
function p.datenTab(fbdata)
function p.datenTab(fbdata)
-- mw.log("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",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 = ""
local t = ""


-- Zusammenbau
-- Zusammenbau
t = t .. fab.zeileKategorieSeite(fbdata)
t = t .. fab.zeileKategorieSeite(fbdata)
t = t .. fab.zeileStrasseHnr(fbdata)
t = t .. fab.zeile{fbdata = fbdata, attr_name = "Baujahr", delimiter = ";"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "PLZ", attr_val = fbdata.plz}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "Stadtteil", delimiter = ";"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "TeilDesEnsembles", attr_val = teil_des_ensembles, delimiter = ";"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "PLZ", attr_val = fbdata.plz}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "TeilDesAreals", delimiter = ";"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "Ort", delimiter = ";"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "Ehemals", attr_text = "Ehemals (aufgelassen)"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "Ehemals"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "Abbruchjahr", delimiter = ";", attr_text = "Aufgelassungsjahr"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "Abbruchjahr", delimiter = ";"}
t = t .. fab.zeileGeoDaten(fbdata)
t = t .. fab.zeileGeoDaten(fbdata)
t = fab.table_header_footer(t)
t = fab.table_header_footer(t)
Zeile 90: Zeile 66:
-- Tab draus machen
-- Tab draus machen
t = fab.tab(t, "Daten")
t = fab.tab(t, "Daten")
-- mw.logObject(t, "t")
-- mw.log("t = " .. t)
     return 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.getFbdata(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 " .. i
else
tabname = tabname .. "Gebäude"
end
if baujahr ~= nil then
tabname = tabname .. " " .. 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
end


return p
return p

Version vom 5. Januar 2026, 21:52 Uhr

Seiten-Übersicht

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


Formulare


Sonstige


Siehe auch

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 = {"Grundstück"}
	fbdata.kategorie = {"Grundstücke"}
	fbdata.formular = "Grundstück/Work" -- ggf. "Grundstück/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
		t = t .. "[[Kategorie: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")
	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

return p
Abgerufen von „https://www.fuerthwiki.de/wiki/index.php?title=Modul:Grundstück/Work&oldid=776233“