Baustelle.svg Eine Bearbeitungssperre steht an, welche von 23. Januar bis einschließlich 25. Januar dauern wird. In dieser Zeit wird das FürthWiki weiterhin lesbar, aber nicht bearbeitbar sein.

Modul:Straße: Unterschied zwischen den Versionen

Aus FürthWiki

(?has subobject.Geokoordinate)
Markierung: Zurückgesetzt
 
(20 dazwischenliegende Versionen von einem anderen Benutzer werden nicht angezeigt)
Zeile 7: Zeile 7:
local kar = require("Modul:Karte")
local kar = require("Modul:Karte")
local wik = require("Modul:Wiki")
local wik = require("Modul:Wiki")
local smw = require("Modul:SMW")


function p.Faktenbox(frame)
function p.Faktenbox(frame)
Zeile 15: Zeile 16:


-- Basis-Faktenbox-Daten (Klasse/Kategorie/Formular)
-- Basis-Faktenbox-Daten (Klasse/Kategorie/Formular)
local fbdata = fab.fbdata(frame)
local fbdata = fab.getFbdata(frame)
fbdata.klasse = {"Straße"}
fbdata.klasse = {"Straße"}
fbdata.kategorie = {"Straßen"}
fbdata.kategorie = {"Straßen"}
Zeile 22: Zeile 23:


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


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


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


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


Zeile 63: Zeile 58:


-- Zusammenbau
-- Zusammenbau
t = t .. "<dl class = 'dataTable'>"
t = t .. fab.zeileKategorieSeite(fbdata)
t = t .. fab.zeileKategorieSeite(fbdata)
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 = "Stadtteil", fbdata = fbdata, delimiter = ";"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "Stadtteil", delimiter = ";"}
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 = "Ort", fbdata = fbdata, delimiter = ";"}
t = t .. fab.zeile{fbdata = fbdata, attr_name = "Ort", delimiter = ";"}
t = t .. fab.zeile{attr_name = "Ehemals", fbdata = fbdata}
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.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 94: Zeile 88:
-- Straßen-Lokation ermitteln, sofern location nicht explizit angegeben
-- Straßen-Lokation ermitteln, sofern location nicht explizit angegeben
if args["location"] == nil and not com.isTrue(args["Ehemals"]) then
if args["location"] == nil and not com.isTrue(args["Ehemals"]) then
args["location"] = fbdata.pagename .. "," .. (args["Ort"] or "Fürth")
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
if  #fbdata.plz > 0 then
args["location"] = args["location"] .. "," .. fbdata.plz[1]
args["location"] = args["location"] .. "," .. fbdata.plz[1]
Zeile 114: Zeile 109:
-- Karte erstellen
-- Karte erstellen
if karten_args_vorhanden or n_gebaeude > 0 then
if karten_args_vorhanden or n_gebaeude > 0 then
args["nomap"] = "ja" -- kar.karte() rendert NICHT die Karte!
local t_karte -- sondern füllt nur SMW-DB und geoobjects
t_karte, fbdata.geoobjects = kar.karte(fbdata.frame, args) -- und setzt Kategorien
t = t .. t_karte
-- Karten-Query zusammensetzen
-- Karten-Query zusammensetzen
local query = {
local query = gebaeude_selector
gebaeude_selector .. " OR [[" .. fbdata.pagename .. "]]",
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",
["format"] = "leaflet", ["limit"] = "10000",
["zoom"] = args["zoom"],
["zoom"] = args["zoom"],
Zeile 126: Zeile 123:
["cluster"] = "yes", ["clustermaxzoom"] = "16",
["cluster"] = "yes", ["clustermaxzoom"] = "16",
["clusterspiderfy"] = "no"}
["clusterspiderfy"] = "no"}
for _, q in ipairs{"has subobject.Geokoordinate", "Objekt", "Architekt",  
for _, q in ipairs{"Geokoordinate", "Objekt", "Architekt",  
"Baujahr", "Baustil", "AktenNr=Akten-Nr.", "Bauherr"} do
"Baujahr", "Baustil", "AktenNr=Akten-Nr.", "Bauherr"} do
table.insert(query, "?" .. q)
table.insert(query, "?" .. q)
end
end
if fbdata.geoobjects.geojson.exists then
if geojson_pagename ~= "" then
query["geojson"] = fbdata.geoobjects.geojson.pagename
query["geojson"] = geojson_pagename
elseif args["lat"] ~= nil and args["lon"] ~= nil then
elseif args["lat"] ~= nil and args["lon"] ~= nil then
query["centre"] = args["lat"] .. "," .. args["lon"]
query["centre"] = args["lat"] .. "," .. args["lon"]
else
-- else
query["centre"] = "49.476,10.989"
-- query["centre"] = "49.476,10.989"
end
end
-- Karte per #ask rendern
-- Karte per #ask rendern
t = t .. fbdata.frame:callParserFunction("#ask", query)
local t_karte = fbdata.frame:callParserFunction("#ask", query)
else
-- kar.karte() hinterher schieben
fbdata.geoobjects = {}
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
end
end