15.838
Bearbeitungen
(-- Karten-Tab muss vor Tabs mit zeileGeoDaten() sein) |
(Portierung Vorlage:Straße/Karte zu Lua hier) |
||
| Zeile 5: | Zeile 5: | ||
local geo = require("Modul:Geo") | local geo = require("Modul:Geo") | ||
local fab = require("Modul:Faktenbox") | local fab = require("Modul:Faktenbox") | ||
local kar = require("Modul:Karte") | |||
local wik = require("Modul:Wiki") | |||
function p.Faktenbox(frame) | function p.Faktenbox(frame) | ||
-- mw.log("Faktenbox(frame)") | -- mw.log("Faktenbox(frame)") | ||
-- mw.logObject(frame) | -- mw.logObject(frame, "frame") | ||
-- Konsolenzeile zum Debuggen: | -- Konsolenzeile zum Debuggen: | ||
-- =p.Faktenbox{pargs={Stadtteil="Innenstadt;Ronhof",Ort="Buxtehude"}} | -- =p.Faktenbox{pargs={Stadtteil="Innenstadt;Ronhof",Ort="Buxtehude"}} | ||
| Zeile 52: | Zeile 54: | ||
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: | --[[ Konsolenzeile zum Debuggen: | ||
fab=require("Modul:Faktenbox"); fbdata=fab.fbdata{pargs={Baujahr="1987",Stadtteil="Innenstadt;Ronhof",Ort="Buxtehude"}}; | fab=require("Modul:Faktenbox"); fbdata=fab.fbdata{pargs={Baujahr="1987",Stadtteil="Innenstadt;Ronhof",Ort="Buxtehude"}}; | ||
| Zeile 80: | Zeile 82: | ||
function p.kartenTab(fbdata) | function p.kartenTab(fbdata) | ||
-- mw.logObject(fbdata, " | -- mw.log("kartenTab(fbdata)") | ||
-- mw.logObject(fbdata, "fbdata") | |||
-- Konsolenzeile zum Debuggen: | -- Konsolenzeile zum Debuggen: | ||
-- | -- fbdata=require("Modul:Faktenbox").fbdata{pargs={Ehemals="ja";location="Bla"}}; fbdata.pagename="Erlanger Straße"; fbdata.plz={90765}; p.kartenTab(fbdata) | ||
local t = "" | local 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 | else | ||
local args = | -- Karten-Argumente übernehmen und aufbereiten | ||
if | local args = fab.getKartenArgs(fbdata, 16) | ||
args[" | -- Straßen-Lokation ermitteln, sofern location nicht explizit angegeben | ||
if args["location"] == nil and not com.isTrue(args["Ehemals"]) then | |||
args["location"] = fbdata.pagename .. "," .. (args["Ort"] or "Fürth") | |||
if #fbdata.plz > 0 then | if #fbdata.plz > 0 then | ||
args[" | args["location"] = args["location"] .. "," .. fbdata.plz[1] | ||
end | end | ||
args[" | args["location"] = args["location"] .. ",Bayern,Deutschland" | ||
end | |||
local karten_args_vorhanden = kar.kartenArgsVorhanden(args) | |||
-- Gebäude-Selektor für Queries | |||
local gebaeude_selector = | |||
"[[:+]][[Kategorie:Gebäude]][[Straße::" .. fbdata.pagename .. "]] OR " .. | |||
"[[:+]][[Kategorie:Gebäude]][[Straße2::" .. fbdata.pagename .. "]] OR " .. | |||
"[[:+]][[Kategorie:Gebäude]][[Straße3::" .. fbdata.pagename .. "]]" | |||
-- Gebäude-Artikel mit dieser Straße vorhanden? | |||
local n_gebaeude = 0 | |||
if not karten_args_vorhanden then | |||
local query = {gebaeude_selector, ["format"] = "count"} | |||
n_gebaeude = mw.smw.ask(query) | |||
end | |||
-- Karte erstellen | |||
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 | |||
local query = { | |||
gebaeude_selector .. " OR [[" .. fbdata.pagename .. "]]", | |||
["format"] = "leaflet", ["limit"] = "10000", | |||
["zoom"] = args["zoom"], | |||
["resizable"] = "yes", ["enablefullscreen"] = "yes", | |||
["cluster"] = "yes", ["clustermaxzoom"] = "16", | |||
["clusterspiderfy"] = "no"} | |||
for _, q in ipairs{"Geokoordinate", "Objekt", "Architekt", | |||
"Baujahr", "Baustil", "AktenNr=Akten-Nr.", "Bauherr"} do | |||
table.insert(query, "?" .. q) | |||
end | |||
if fbdata.geoobjects.geojson.exists then | |||
query["geojson"] = fbdata.geoobjects.geojson.pagename | |||
elseif args["lat"] ~= nil and args["lon"] ~= nil then | |||
query["centre"] = args["lat"] .. "," .. args["lon"] | |||
else | |||
query["centre"] = "49.476,10.989" | |||
end | |||
-- Karte per #ask rendern | |||
t = t .. fbdata.frame:callParserFunction("#ask", query) | |||
end | end | ||
end | end | ||
-- Tab draus machen | -- Tab draus machen | ||