Modul:Karte/Work
Aus FürthWiki
Die Dokumentation für dieses Modul kann unter Modul:Karte/Work/Doku erstellt werden
p = {}
local com = require("Modul:Common")
local str = require("Modul:String")
local wik = require("Modul:Wiki")
local smw = require("Modul:SMW")
local box = require("Modul:Box")
function p.Karte(frame)
-- nur die benötigten Argumente übernehmen
local args = {"lat", "lon", "location", "locationlist", "geojson", "zoom",
"popuptitle", "popuptext", "box", "headline", "width", "height",
"noattr", "Work"}
local args = wik.getArgs(frame.args, args)
return p.karte(frame, args)
end
function p.karte(frame, args)
mw.log("karte(frame, args)")
mw.logObject(args, "args")
-- Konsolenzeilen zum Debuggen:
-- =p.karte(mw.getCurrentFrame(), args)
-- =p.karte(mw.getCurrentFrame(), {pagename="Zum Adler", location="Restaurant Zum Adler, Fürth, Bayern, Deutschland"})
local t = ""
local geoobjects = {}
local kategorien = {}
local attrlist = {}
local pagename = args["pagename"] or wik.pagename() -- nur zum Debuggen pagename vorgebbar
-- defaults setzen
args["box"] = args["box"] or "Ja"
args["zoom"] = args["zoom"] or "16"
-- geojson-Angabe auswerten
local geojson_pagename = args["geojson"] or pagename
local geojson_fullpagename = "GeoJson:" .. geojson_pagename
local geojson_url = "{{canonicalurl:" .. geojson_fullpagename .. "}}"
-- width/height
if com.isTrue(args["box"]) or args["width"] == "auto" then
args["width"] = nil -- ohne width passt sich Karte eigenständig in Box ein
elseif args["width"] == nil then
args["width"] = "50%" -- default bei keiner width-Angabe und keiner Box
end
if com.isTrue(args["box"]) or args["height"] == "auto" then
args["height"] = nil -- ohne height passt sich Karte eigenständig in Box ein
elseif args["height"] == nil then
args["height"] = "25%" -- default bei keiner height-Angabe und keiner Box
end
-- geocode location and locationlist
local minimum_one_geocode_ok = false -- Flag, dass mindestens ein geocode erfolgreich war
-- locationlist und location zusammenführen
local locationlist = str.splitAndStrip(args["locationlist"] or "", ";")
table.insert(locationlist,
(args["location"] or "") .. "~" ..
(args["popuptitle"] or "") .. "~" ..
(args["popuptext"] or ""))
-- alle locations durchiterieren und für jedes ein subobject erstellen
for _, l in ipairs(locationlist) do
-- Aufteilung location ~ popuptitle ~ popuptext
l = str.split2(l, "~")
local location = str.strip(l[1] or "")
local popuptitle = str.strip(l[2] or "")
local popuptext = str.strip(l[3] or "")
if location ~= "" then
local geoobject_entry = {["Geolokation"] = location}
-- Prüfung Koordinate (Zahl) oder textuelle Objektlokation
-- wenn Objektlokation und Ehemals, dann nicht auswerten
if string.match(location, "%d") == nil and -- Keine-Zahl-Erkennung
com.isTrue(args["Ehemals"]) then
kategorien["Hat Objektlokation, ist aber ehemaliges Objekt"] = true
elseif args["lat"] == nil or args["lon"] == nil then -- to do: dieses if später rausschmeißen nach Aufbau nominatim.fuerthwiki.de
geocode = getGeocode(frame, location)
if geocode ~= "Geocoding failed" then
geoobject_entry["Geokoordinate"] = geocode
geoobject_entry["Quellangaben"] = "location"
minimum_one_geocode_ok = true
else
-- geocode nicht erfolgreich => SMW-DB nehmen
kategorien["Hat Geo-Kodierungsfehler"] = true
local smw_geokoordinate = mw.smw.ask(
"[[-Has subobject::" .. pagename .. "]]" ..
"[[Geolokation::" .. location .. "]]" ..
"|?Geokoordinate|limit=1") or {{}}
smw_geokoordinate = smw_geokoordinate[1]["Geokoordinate"]
if smw_geokoordinate ~= nil then -- SMW-DB Geokoordinate vorhanden?
kategorien["Hat Geo-Kodierungsfehler, aber Geokoordinate in SMW-DB noch vorhanden"] = true
geoobject_entry["Geokoordinate"] = smw_geokoordinate
geoobject_entry["Quellangaben"] = "SMW-DB"
minimum_one_geocode_ok = true
end
end -- if geocode ~= "Geocoding failed" then
end -- if Zahlerkennung
geoobject_entry["KartePopupTitle"] = popuptitle
geoobject_entry["KartePopupText"] = popuptext
table.insert(geoobjects, geoobject_entry)
end -- if location ~= "" then
end -- for _, l in ipairs(locations_merged) do
-- geocode lon/lat, nur wenn location/locationlist nicht erfolgreich oder ehemals
if (not minimum_one_geocode_ok or com.isTrue(args["Ehemals"])) and
args["lat"] ~= nil and args["lon"] ~= nil then
local geoobject_entry = {}
-- local geocode = getGeocode(frame, args["lat"] .. "," .. args["lon"])
local geocode = args["lat"] .. "," .. args["lon"] -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
if geocode ~= "Geocoding failed" then
geoobject_entry["Geokoordinate"] = geocode
geoobject_entry["Quellangaben"] = "lat/lon"
else
kategorien["Hat Geo-Kodierungsfehler"] = true
end
geoobject_entry["KartePopupTitle"] = popuptitle
geoobject_entry["KartePopupText"] = popuptext
table.insert(geoobjects, geoobject_entry)
end
-- Attribute setzen
if not com.isTrue(args["noattr"]) then
-- Geolokation/Geokoordinate setzen
for _, o in ipairs(geoobjects) do -- to do: obsolete, wenn sobobject genutzt
setAttr(attrlist, "Geolokation", o["Geolokation"]) -- to do: obsolete, wenn sobobject genutzt
setAttr(attrlist, "Geokoordinate", o["Geokoordinate"]) -- to do: obsolete, wenn sobobject genutzt
end -- to do: obsolete, wenn sobobject genutzt
-- GeoJson
if wik.pageExists(geojson_fullpagename) then
setAttr(attrlist, "GeoJson", geojson_fullpagename)
end
-- zoom
setAttr(attrlist, "Zoomlevel", args["zoom"])
-- normale Attribute setzen
mw.logObject(attrlist, "attrlist")
mw.smw.set(attrlist)
-- geoobjects als subobjects setzen
mw.logObject(geoobjects, "geoobjects")
for _, o in ipairs(geoobjects) do
o["SubObjektTyp"] = "Geo"
local id = smw.subobjectIdCleaner(o["Geolokation"] or o["Geokoordinate"])
mw.smw.subobject(o, id)
end
end
-- Karten-Argumente (display_map) erstellen
local map_args = { "", ["zoom"] = args["zoom"], -- gemeinsame settings
["width"] = args["width"], ["height"] = args["height"],
["enablefullscreen"] = "yes", ["resizable"] = "yes"}
-- geojson-Argumente
if wik.pageExists(geojson_fullpagename) then
map_args["geojson"] = geojson_pagename
if #geoobjects > 0 then
kategorien["Hat geojson und location/lat/lon"] = true
end
end
-- location/lat/lon-Argumente
if not (wik.pageExists(geojson_fullpagename) and -- Pin-Anzeige deaktivieren, wenn GeoJson vorhanden
com.isTrue(args["hide_loc_latlon"])) then -- SMW-DB wird trotzdem geschrieben
for _, o in ipairs(geoobjects) do
if o["Geokoordinate"] ~= nil then
if map_args[1] ~= "" then
map_args[1] = map_args[1] .. ";"
end
map_args[1] = map_args[1] .. o["Geokoordinate"]
if o["KartePopupTitle"] ~= nil then
map_args[1] = map_args[1] .. "~" .. o["KartePopupTitle"]
if o["KartePopupText"] ~= nil then
map_args[1] = map_args[1] .. "~" .. o["KartePopupText"]
end
end
end
end
end
-- Karte (display_map)
if map_args[1] ~= "" or map_args["geojson"] ~= nil then
mw.logObject(map_args, "map_args")
t = t .. frame:callParserFunction("#display_map", map_args)
if args["geojson"] ~= nil and map_args["geojson"] == nil then
t = t .. "<small>Karte [" .. geojson_url .. " " .. args["geojson"] .. "] nicht gefunden</small>"
end
else
if com.isTrue(args["form"]) then
t = t .. "Positionsangabe fehlt oder fehlende Karte<br>" .. geojson_fullpagename .. "<br>Bitte Position in Formular eintragen oder"
else
t = t .. "Breiten-/Längengrad (lat/lon) fehlt, Objekt-Lokation (location) fehlt oder fehlende Karte<br>" .. geojson_fullpagename
end
t = t .. "<br>[" .. geojson_url .. " Hier klicken zum Anlegen der Karte<br>" .. geojson_fullpagename .. "].<br>Siehe auch [[Hilfe:Karten]]"
kategorien["Ohne Position"] = true
end
-- Box um Karte
if com.isTrue(args["box"]) then
local headline = args["headline"] or args["geojson"] or pagename
t = box.box{headline = headline, content = t, textalign = center}
end
-- Kategorien setzen
kategorien["Hat Karte"] = true
-- Check "Hat Geolokation, aber keine Geokoordinate"
for _, o in ipairs(geoobjects) do -- Check "Hat Geolokation, aber keine Geokoordinate"
if o["Geolokation"] ~= nil and o["Geokoordinate"] == nil then
kategorien["Hat Geolokation, aber keine Geokoordinate"] = true
end
end
-- nun setzen
for k, _ in pairs(kategorien) do
t = t .. "[[Kategorie:" .. k .. "]]"
end
mw.logObject(t, "t")
t = frame:preprocess(t)
return t
end
function getGeocode(frame, location)
return frame:callParserFunction(
"#geocode", {location, format="float", directional="no"})
end
function setAttr(attrlist, attr, val)
if val ~= nil then
if attrlist[attr] == nil then
attrlist[attr] = {val}
else
table.insert(attrlist[attr], val)
end
end
end
return p
