FürthWiki

Modul:Karte: Unterschied zwischen den Versionen

Modul Diskussion

Modul:Karte (Quelltext anzeigen)

Version vom 11. Dezember 2025, 11:42 Uhr

4.498 Bytes hinzugefügt ,  Gestern um 11:42
fix leere Argumente
(subobject-ID LatLon)
(fix leere Argumente)
(7 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 4: Zeile 4:
local str = require("Modul:String")
local str = require("Modul:String")
local wik = require("Modul:Wiki")
local wik = require("Modul:Wiki")
local smw = require("Modul:SMW")
local box = require("Modul:Box")


function p.Karte(frame)
function p.Karte(frame)
-- nur die benötigten Argumente übernehmen
-- nur die benötigten Argumente übernehmen
local args = {
local argslist = {
"lat", "lon", "location", "locationlist", "geojson", "geocode",
"lat", "lon", "location", "locationlist", "geojson", "geocode",
"zoom", "popuptitle", "popuptext",
"zoom", "popuptitle", "popuptext",
"box", "headline", "width", "height",
"box", "headline", "width", "height",
"noattr", "form"}
"noattr", "form",
args = wik.getArgs(frame.args, args)
"Work", "Debug"}
-- local args = wik.getArgs(frame.args, argslist)
local args = {} -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
for _, a in ipairs(argslist) do -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
if frame.args[a] ~= nil then -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
args[a] = frame.args[a] -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
end
end
return p.karte(frame, args)
return p.karte(frame, args)
end
end
Zeile 19: Zeile 28:
mw.log("karte(frame, args)")
mw.log("karte(frame, args)")
mw.logObject(args, "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 t = ""
local geoobjects = {}
local kategorien = {}
local pagename = args["pagename"] or wik.pagename() -- nur zum Debuggen pagename vorgebbar
-- defaults setzen
args["box"] = args["box"] or "Ja"


-- geocode location and locationlist
-- geocode location and locationlist
local subobjects = {}
local minimum_one_geocode_ok = false -- Flag, dass mindestens ein geocode erfolgreich war
local minimum_one_geocode_ok = false
-- locationlist und location zusammenführen
if not com.isTrue(args["Ehemals"]) then
local locationlist = str.splitAndStrip(args["locationlist"] or "", ";")
-- locationlist und location zusammenführen
table.insert(locationlist,
local locations_merged = str.splitAndStrip(args["locationlist"] or "", ";")
(args["location"] or "") .. "~" ..
local location = str.strip(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
if location ~= "" then
table.insert(locations_merged, args["location"] ..
local geoobject_entry = {["Geolokation"] = location}
"~" .. (args["popuptitle"] or "") ..
-- Prüfung Koordinate (Zahl) oder textuelle Objektlokation
"~" .. (args["popuptext"] or ""))
-- wenn Objektlokation und Ehemals, dann nicht auswerten
end
if string.match(location, "%d") == nil and -- Keine-Zahl-Erkennung
-- alle locations durchiterieren und für jedes ein subobject erstellen
  com.isTrue(args["Ehemals"]) then
for _, l in ipairs(locations_merged) do
kategorien["Hat Objektlokation, ist aber ehemaliges Objekt"] = true
local subobject_entry = {}
else
-- Aufteilung location ~ popuptitle ~ popuptext
-- location geocode
l = str.split2(l, "~")
local geocode = geocode(frame, location)
local location = str.strip(l[1] or "")
local popuptitle = str.strip(l[2] or "")
local popuptext = str.strip(l[3] or "")
-- location geocode
if location ~= "" then
subobject_entry["Geolokation"] = location
local geocode = frame:callParserFunction("#geocode", location)
if geocode ~= "Geocoding failed" then
if geocode ~= "Geocoding failed" then
subobject_entry["Geokoordinate"] = geocode
geoobject_entry["Geokoordinate"] = geocode
geoobject_entry["Quellangaben"] = "location"
minimum_one_geocode_ok = true
minimum_one_geocode_ok = true
end
else
end
-- geocode nicht erfolgreich => SMW-DB nehmen
-- popuptitle und popuptext ablegen
kategorien["Hat Geo-Kodierungsfehler"] = true
if popuptitle ~= "" then
local smw_geokoordinate = mw.smw.ask(
subobject_entry["KartePopupTitle"] = popuptitle
"[[-Has subobject::" .. pagename .. "]]" ..
end
"[[Geolokation::" .. location .. "]]" ..
if popuptext ~= "" then
"|?Geokoordinate|limit=1") or {{}}
subobject_entry["KartePopupText"] = popuptext
smw_geokoordinate = smw_geokoordinate[1]["Geokoordinate"]
end
if smw_geokoordinate ~= nil then -- SMW-DB Geokoordinate vorhanden?
-- subobject in Liste aufnehmen
kategorien["Hat Geo-Kodierungsfehler, aber Geokoordinate in SMW-DB noch vorhanden"] = true
table.insert(subobjects, subobject_entry)
geoobject_entry["Geokoordinate"] = smw_geokoordinate
end
geoobject_entry["Quellangaben"] = "SMW-DB"
end
minimum_one_geocode_ok = true
end
end -- if geocode ~= "Geocoding failed" then
end -- if Zahlerkennung
set_popuptitle_popuptext(geoobject_entry, popuptitle, popuptext)
table.insert(geoobjects, geoobject_entry)
end -- if location ~= "" then
end -- for _, l in ipairs(locations_merged) do


-- geocode lon/lat
-- 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
if (not minimum_one_geocode_ok or com.isTrue(args["Ehemals"])) and  
local geocode = frame:callParserFunction("#geocode", args["lat"] .. "," .. args["lon"])
  not com.isEmpty(args["lat"]) and not com.isEmpty(args["lon"]) then
local geoobject_entry = {}
local geocode = geocode(frame, args["lat"] .. "," .. args["lon"])
if geocode ~= "Geocoding failed" then
if geocode ~= "Geocoding failed" then
local subobject_entry = {}
geoobject_entry["Geokoordinate"] = geocode
subobject_entry["Geokoordinate"] = geocode
geoobject_entry["Quellangaben"] = "lat/lon"
one_geocode_ok = true
else
table.insert(subobjects, subobject_entry)
kategorien["Hat Geo-Kodierungsfehler"] = true
end
end
set_popuptitle_popuptext(geoobject_entry, popuptitle, popuptext)
table.insert(geoobjects, geoobject_entry)
end
end
mw.logObject(subobjects, "subobjects")
-- subobjects setzen
-- geoobjects setzen
for _, s in ipairs(subobjects) do
mw.logObject(geoobjects, "geoobjects")
s["SubObjektTyp"] = "Geo"
for _, o in ipairs(geoobjects) do
mw.smw.subobject(s, s["Geolokation"] or "LatLon")
o["SubObjektTyp"] = "Geo"
local id = smw.subobjectIdCleaner(o["Geolokation"] or o["Geokoordinate"])
mw.smw.subobject(o, id)
end
end


-- bisherige Vorlagen-Karte
-- bisherige Vorlagen-Karte
t = t .. frame:expandTemplate{title = "Karte/Legacy", args = args}
local karte_vorlage = "Karte/Legacy"
if com.isTrue(args["Work"]) then
karte_vorlage = karte_vorlage .. "/Work"
-- args["Debug"] = "Ja"
end
mw.logObject(args, "args zur Vorlage " .. karte_vorlage)
t = t .. frame:expandTemplate{title = karte_vorlage, args = args}
 
-- Box drum herum
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
hat_geolokation = false -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
hat_geokoordinate = false -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
for _, o in ipairs(geoobjects) do -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
hat_geolokation = hat_geolokation or (o["Geolokation"] ~= nil) -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
hat_geokoordinate = hat_geokoordinate or (o["Geokoordinate"] ~= nil) -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
end -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
if hat_geolokation and not hat_geokoordinate then -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
kategorien["Hat Geolokation, aber keine Geokoordinate"] = true -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
end -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
-- nun setzen
for k, _ in pairs(kategorien) do
t = t .. "[[Kategorie:" .. k .. "]]"
end


mw.logObject(t, "t")
mw.logObject(t, "t")
return t
return t
end
function geocode(frame, location)
return frame:callParserFunction(
"#geocode", {location, format="float", directional="no"})
end
function set_popuptitle_popuptext(geoobject_entry, popuptitle, popuptext)
if not com.isEmpty(popuptitle) then
geoobject_entry["KartePopupTitle"] = popuptitle
end
if not com.isEmpty(popuptext) then
geoobject_entry["KartePopupText"] = popuptext
end
end
end


return p
return p
Abgerufen von „https://www.fuerthwiki.de/wiki/index.php?title=Spezial:Mobiler_Unterschied/769620...769941“