Modul:Straße: Unterschied zwischen den Versionen

1.825 Bytes hinzugefügt ,  Gestern um 20:54
Portierung Vorlage:Straße/Karte zu Lua hier
(-- 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, "kartenTab(fbdata)")
-- mw.log("kartenTab(fbdata)")
-- mw.logObject(fbdata, "fbdata")
-- Konsolenzeile zum Debuggen:
-- Konsolenzeile zum Debuggen:
-- fab=require("Modul:Faktenbox"); fbdata=fab.fbdata{pargs={Ehemals="ja";location="Bla"}}; fbdata.pagename="Erlanger Straße"; fbdata.plz={90765}; p.kartenTab(fbdata)
-- 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 = com.shallowcopy(fbdata.pargs)
-- Karten-Argumente übernehmen und aufbereiten
if com.isEmpty(args["location"]) and not com.isTrue(args["Ehemals"]) then
local args = fab.getKartenArgs(fbdata, 16)
args["streetlocation"] = fbdata.pagename .. "," .. (args["Ort"] or "Fürth")
-- 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["streetlocation"] = args["streetlocation"] .. "," .. fbdata.plz[1]
args["location"] = args["location"] .. "," .. fbdata.plz[1]
end
end
args["streetlocation"] = args["streetlocation"] .. ",Bayern,Deutschland"
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
-- mw.logObject(args, "args")
t = t .. fbdata.frame:expandTemplate{title = 'Straße/Karte', args=args}
t = str.strip(t)
end
end
-- Tab draus machen
-- Tab draus machen