FürthWiki

Modul:Karte/Work: Unterschied zwischen den Versionen

Modul Diskussion

Modul:Karte/Work (Quelltext anzeigen)

Version vom 10. Dezember 2025, 14:07 Uhr

277 Bytes hinzugefügt ,  Mittwoch um 14:07
keine Bearbeitungszusammenfassung
Keine Bearbeitungszusammenfassung
Keine Bearbeitungszusammenfassung
Zeile 24: Zeile 24:
-- =p.karte(mw.getCurrentFrame(), {pagename="Zum Adler", location="Restaurant Zum Adler, Fürth, Bayern, Deutschland"})
-- =p.karte(mw.getCurrentFrame(), {pagename="Zum Adler", location="Restaurant Zum Adler, Fürth, Bayern, Deutschland"})
local t = ""
local t = ""
local pagename = args["pagename"] or wik.pagename() -- nur zum Debugging pagename vorgebbar
local geoobjects = {}
local kategorien = {}
local pagename = args["pagename"] or wik.pagename() -- nur zum Debuggen pagename vorgebbar


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


-- geocode lon/lat
-- geocode lon/lat
Zeile 88: Zeile 85:
geoobjects:insert(geoobject_entry)
geoobjects:insert(geoobject_entry)
else
else
t = t .. "[[Kategorie:Hat Geo-Kodierungsfehler]]"
kategorien["Hat Geo-Kodierungsfehler"] = true
end
end
end
end
Zeile 102: Zeile 99:
-- bisherige Vorlagen-Karte
-- bisherige Vorlagen-Karte
t = t .. frame:expandTemplate{title = "Karte/Legacy", args = args}
t = t .. frame:expandTemplate{title = "Karte/Legacy", args = args}
-- Kategorien setzen
for _, k in pairs(kategorien) do
t = t .. "[[Kategorie:" .. k .. "]]"
end


mw.logObject(t, "t")
mw.logObject(t, "t")
Abgerufen von „https://www.fuerthwiki.de/wiki/index.php?title=Spezial:Mobiler_Unterschied/769750“