Modul:Gebäude: Unterschied zwischen den Versionen

683 Bytes hinzugefügt ,  Samstag um 09:34
- fab.subpagesPresent(fbdata)
(if t ~= "" then t = t .. fab.zeileSemantikBrowsenAbfrage(fbdata))
(- fab.subpagesPresent(fbdata))
 
(26 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
local p = {} --p stands for package
local p = {}
 
local com = require("Modul:Common")
local com = require("Modul:Common")
local str = require("Modul:String")
local str = require("Modul:String")
local geo = require("Modul:Geo")
local geo = require("Modul:Geo")
local que = require("Modul:Queries")
local smw = require("Modul:SMW")
local wik = require("Modul:Wiki")
local wik = require("Modul:Wiki")
local fab = require("Modul:Faktenbox")
local fab = require("Modul:Faktenbox")
local kar = require("Modul:Karte")


function p.Faktenbox(frame)
function p.Faktenbox(frame)
-- mw.log("Faktenbox(frame)")
-- mw.log("Faktenbox(frame)")
-- mw.logObject(frame, "frame")
-- mw.logObject(frame, "frame")
-- Konsolenzeile zum Debuggen:
-- =p.Faktenbox{pargs={Bild="Schwabacher Straße 12 Dez 2020 1.jpg",["Straße"]="Schwabacher Straße",Hausnummer="12",["TeilDesGebäudeKomplexes"]="TDGK",AktenNr="D-5-63-000-1464",Objekt="Häusle"}}
local t = ""
local t = ""


-- Basis-Faktenbox-Daten (Klasse/Kategorie/Formular)
-- Basis-Faktenbox-Daten (Klasse/Kategorie/Formular)
local fbdata = fab.fbdata(frame)
local fbdata = fab.getFbdata(frame)
fbdata.klasse = {"Gebäude"}
fbdata.klasse = {"Gebäude"}
fbdata.kategorie = {"Gebäude"}
fbdata.kategorie = {"Gebäude"}
Zeile 32: Zeile 32:


-- Tabs einsammeln und zusammenfügen
-- Tabs einsammeln und zusammenfügen
t = "<div class = factbox><tabs>" ..
t = fab.bildTab(fbdata) ..
fab.bildTab(fbdata) ..
p.kartenTab(fbdata) .. -- Karten-Tab muss vor Tabs mit zeileGeoDaten() sein
p.kartenTab(fbdata) ..
p.datenTab(fbdata) ..
p.datenTab(fbdata) ..
p.residenzTab(fbdata, {ueberschrift = "Personen, die hier wohnen bzw. gewohnt haben:", klasse = "Person", kategorie="Personen"}) ..
p.residenzTab(fbdata, {ueberschrift = "Personen, die hier wohnen bzw. gewohnt haben:", klasse = "Person", kategorie="Personen"}) ..
p.residenzTab(fbdata, {ueberschrift = "Unternehmen, die hier ansässig sind/waren:", klasse = "Unternehmen", kategorie="Unternehmen"}) ..
p.residenzTab(fbdata, {ueberschrift = "Unternehmen, die hier ansässig sind/waren:", klasse = "Unternehmen", kategorie="Unternehmen"})
"</tabs></div>"
t = fab.factbox_header_footer(t)
 
-- Sonstige gemeinsame Dinge anfügen (Klasse, Formular, Kategorien, Wartung, ...)
t = t .. fab.postprocess(fbdata)
end
end


-- Sonstige gemeinsame Dinge anfügen (Klasse, Formular, Kategorien, Wartung, ...)
-- Pre-Processing und String-Länge checken
t = t .. fab.common(fbdata)
-- mw.logObject(t, "t")
-- mw.logObject(t, "t")
-- Pre-Processing und String-Länge checken
t = fbdata.frame:preprocess(t)
t = fbdata.frame:preprocess(t)
t = t .. com.returnStringCheck(t)
-- mw.logObject(t, "t")
return t
return t
end
end
Zeile 80: Zeile 77:


-- Teil des Ensembles um "Ensemble " ergänzen
-- Teil des Ensembles um "Ensemble " ergänzen
local teil_des_ensembles = str.splitAndStrip(fbdata.pargs["TeilDesEnsembles"] or "", ";")
local teil_des_ensembles = str.splitAndStrip(fbdata.pargs["TeilDesEnsembles"], ";")
for i = 1, #teil_des_ensembles do
for i = 1, #teil_des_ensembles do
teil_des_ensembles[i] = "Ensemble " .. teil_des_ensembles[i]
teil_des_ensembles[i] = "Ensemble " .. teil_des_ensembles[i]
Zeile 86: Zeile 83:


-- Zusammenbau
-- Zusammenbau
t = t .. "<dl class = 'dataTable'>"
t = t .. fab.zeileKategorieSeite(fbdata, args.kindex)
t = t .. fab.zeileKategorieSeite(fbdata, args.kindex)
t = t .. fab.zeileStrasseHnr(fbdata)
t = t .. fab.zeileStrasseHnr(fbdata)
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 = "Objekt", fbdata = fbdata, delimiter = ";"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "Objekt", delimiter = ";"}
t = t .. fab.zeile{attr_name = "TeilDesEnsembles", attr_val = teil_des_ensembles, delimiter = ";"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "TeilDesEnsembles", attr_val = teil_des_ensembles, delimiter = ";"}
t = t .. fab.zeile{attr_name = "TeilDesAreals", fbdata = fbdata, delimiter = ";"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "TeilDesAreals", delimiter = ";"}
t = t .. fab.zeile{attr_name = "TeilDesGebäudeKomplexes", attr_val = teil_des_gebaeude_komplexes, delimiter = ";", attr_text = "Teil des Gebäude-Komplexes"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "TeilDesGebäudeKomplexes", attr_val = teil_des_gebaeude_komplexes, delimiter = ";"}
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 = "DenkmalstatusBesteht", fbdata = fbdata}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "DenkmalstatusBesteht"}
t = t .. fab.zeileAktenNr(fbdata)
t = t .. fab.zeileAktenNr(fbdata)
t = t .. fab.zeile{attr_name = "Quellangaben", fbdata = fbdata, delimiter = ";"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "Quellangaben", delimiter = ";"}
t = t .. fab.zeile{attr_name = "Ehemals", fbdata = fbdata, attr_text = "Ehemals (abgerissen)"}
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.zeile{attr_name = "Baustil", fbdata = fbdata, delimiter = ";"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "Baustil", delimiter = ";"}
t = t .. fab.zeile{attr_name = "Bauherr", fbdata = fbdata, delimiter = ";"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "Bauherr", delimiter = ";"}
t = t .. fab.zeile{attr_name = "Architekt", fbdata = fbdata, delimiter = ";"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "Architekt", delimiter = ";"}
t = t .. fab.zeile{attr_name = "Maurermeister", fbdata = fbdata, delimiter = ";"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "Maurermeister", delimiter = ";"}
t = t .. fab.zeileGeoDaten(fbdata)
t = t .. fab.zeileGeoDaten(fbdata)
t = t .. "</dl>"
t = fab.table_header_footer(t)
t = t .. fab.zeileSemantikBrowsenAbfrage(fbdata)
t = t .. fab.zeileSemantikBrowsenAbfrage(fbdata)


Zeile 121: Zeile 117:
t = ""
t = ""
if string.find(fbdata.pagename, ";") ~= nil then
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
elseif kar.kartenArgsVorhanden(fbdata.pargs) or -- Soll überhaupt eine Karte angezeigt werden?
local args_karte = com.shallowcopy(fbdata.pargs)
  not com.isTrue(fbdata.pargs["Ehemals"]) or
args_karte["PLZ"] = fbdata.plz
  fbdata.pargs["Straße"] ~= nil or
args_karte["Debug"] = "Nein"
  fbdata.pargs["Straße2"] ~= nil or
t = fbdata.frame:expandTemplate{title = 'Gebäude/Karte', args = args_karte}
  fbdata.pargs["Straße3"] ~= nil then
-- Karten-Argumente übernehmen und aufbereiten
local args = fab.getKartenArgs(fbdata, 18)
-- locationlist ermitteln
local pargs = com.shallowcopy(fbdata.pargs) -- to do: in Lua überführen
pargs["PLZ"] = fbdata.plz -- derzeit noch etwas verkrampft
local locationlist_template = "Gebäude/Karte/Locationlist" -- to do: mehrfache geoobjects an der selben Geokoordinate ausfiltern
if com.isTrue(fbdata.pargs["Work"]) and wik.pageExists(locationlist_template .. "/Work") then -- siehe z.B. Rathaus <=> Königstr. 88
locationlist_template = locationlist_template .. "/Work"
end
args["locationlist"] =
fbdata.frame:expandTemplate{title = locationlist_template, args = pargs}
args["location"] = nil
-- Karte erstellen
-- mw.logObject(args, "args")
local t_karte = ""
if kar.kartenArgsVorhanden(args) or not com.isTrue(args["Ehemals"]) then
t_karte, fbdata.geoobjects = kar.karte(fbdata.frame, args)
end
t = t .. t_karte
end
end
-- Tab draus machen
-- Tab draus machen
Zeile 150: Zeile 165:
}
}


for _, sh in ipairs(strasse_hnr) do -- Straße/Hausnummern-Kombis durchitereieren
for ish, sh in ipairs(strasse_hnr) do -- Straße/Hausnummern-Kombis durchitereieren
local s = str.strip(sh[1]) -- Straße
local s = str.strip(sh[1]) -- Straße
local hl = str.strip(sh[2]) -- Hausnummernliste
local hl = str.strip(sh[2]) -- Hausnummernliste
Zeile 163: Zeile 178:
entry.suspekt = false
entry.suspekt = false
if hl == "" then -- leere Hausnummernliste
if hl == "" then -- leere Hausnummernliste
result.suspekt = true
if ish ~= 2 then -- Sonderfall Ecke
result.suspekt = true
end
entry.suspekt = true
entry.suspekt = true
else
else
Zeile 194: Zeile 211:
-- DB-Abfrage
-- DB-Abfrage
local query = "[[:+]][[-Has subobject::+]][[SubObjektTyp::Adresse]][[VonObjekt::" .. fbdata.subpagename.. "]][[-Has subobject.KlassenName::" .. args.klasse .. "]]"
local query = "[[:+]][[-Has subobject::+]][[SubObjektTyp::Adresse]][[VonObjekt::" .. fbdata.subpagename.. "]][[-Has subobject.KlassenName::" .. args.klasse .. "]]"
query = query .. "|?-has subobject.Seite#-=Seite|?Adressart|?AdresseVon#-F[j. F Y]|?AdresseBis#-F[j. F Y]|mainlabel=-|limit=100"
query = query .. "|?-has subobject.Seite#-=Seite|?Adressart|?AdresseVon#LOCL|?AdresseBis#LOCL|mainlabel=-|limit=100"
local ask_result = mw.smw.ask(query)
local ask_result = mw.smw.ask(query)
-- mw.logObject(ask_result, "ask_result")
-- mw.logObject(ask_result, "ask_result")
Zeile 228: Zeile 245:


-- Shoah-Opfer
-- Shoah-Opfer
if args.klasse == "Person" and com.isTrue(fbdata.pargs["ShoahTest"]) and fbdata.shoah ~= nil then
if args.klasse == "Person" and fbdata.shoah ~= nil then
for _, s in ipairs(fbdata.shoah) do
for _, s in ipairs(fbdata.shoah) do
local name = (s["Vorname"] or "") .. " " .. (s["Nachname"] or "")
local name = (s["Vorname"] or "") .. " " .. (s["Nachname"] or "")
Zeile 249: Zeile 266:


if t ~= "" then
if t ~= "" then
t = t .. fab.zeileSemantikBrowsenAbfrage(fbdata)
t = t .. "<br>" .. fab.zeileSemantikBrowsenAbfrage(fbdata)
end
end


Zeile 287: Zeile 304:
else
else
end
end
-- mw.log(plz, "plz")
-- mw.logObject(plz, "plz")
return plz
return plz
end
end
Zeile 296: Zeile 313:
-- Konsolenzeile zum Debuggen:
-- Konsolenzeile zum Debuggen:
-- =p.teilDesGebaeudeKomplexes{pargs={["TeilDesGebäudeKomplexes"]="Rathaus"},fullpagename="Badstraße 15",subpagename="Badstraße 15"}
-- =p.teilDesGebaeudeKomplexes{pargs={["TeilDesGebäudeKomplexes"]="Rathaus"},fullpagename="Badstraße 15",subpagename="Badstraße 15"}
local teil_des_gebaeude_komplexes = fbdata.pargs["TeilDesGebäudeKomplexes"] or ""
local teil_des_gebaeude_komplexes = str.splitAndStrip(fbdata.pargs["TeilDesGebäudeKomplexes"], ";")
teil_des_gebaeude_komplexes = str.splitAndStrip(teil_des_gebaeude_komplexes, ";")
local query = "[[:+]][[!" .. fbdata.fullpagename .. "]][[Kategorie:Gebäude]][[StraßeHnr::" .. fbdata.subpagename .. "]] [[AnzahlGebäude::>2]]"
local query = "[[:+]][[!" .. fbdata.fullpagename .. "]][[Kategorie:Gebäude]][[StraßeHnr::" .. fbdata.subpagename .. "]] [[AnzahlGebäude::>2]]"
-- mw.log(query, "query")
-- mw.log(query, "query")
local query_result = que.getPages(query, true)
local query_result = smw.getPages(query, true)
-- mw.logObject(query_result, "query_result")
-- mw.logObject(query_result, "query_result")
teil_des_gebaeude_komplexes = com.append_tables(teil_des_gebaeude_komplexes, query_result)
teil_des_gebaeude_komplexes = com.append_tables(teil_des_gebaeude_komplexes, query_result)
Zeile 315: Zeile 331:


-- Geolokation location ermitteln
-- Geolokation location ermitteln
local location = fbdata.pargs["location"] or "" -- location vorhanden?
local location = fbdata.pargs["location"]
if location == "" then
if location == nil and fbdata.pargs["lat"] ~= nil and fbdata.pargs["lon"] ~= nil then
local lat = fbdata.pargs["lat"] or "" -- lat/lon vorhanden?
location = fbdata.pargs["lat"] .. "," .. fbdata.pargs["lon"]
local lon = fbdata.pargs["lon"] or ""
if lat ~= "" and lon ~= "" then
location = lat .. "," .. lon
end
end
end
if location == "" then -- im Zweifelsfall generische location mittels Seitennamen
if location == nil then -- im Zweifelsfall generische location mittels Seitennamen
location = wik.pagename() .. ",Fürth,Bayern,Deutschland"
location = wik.pagename() .. ",Fürth,Bayern,Deutschland"
end
end
Zeile 354: Zeile 366:


-- Sonstige gemeinsame Dinge anfügen (Klasse, Formular, Kategorien, Wartung, ...)
-- Sonstige gemeinsame Dinge anfügen (Klasse, Formular, Kategorien, Wartung, ...)
fbdata.positionscheck = false
t = t .. "{{#set:Seite=" .. fbdata.fullpagename .. "}}"
t = t .. "{{#set:Seite=" .. fbdata.fullpagename .. "}}"
t = t .. fab.common(fbdata)
t = t .. fab.postprocess(fbdata)
end
end
end
end