Modul:Karte: Unterschied zwischen den Versionen

Aus FürthWiki

(#set: GeoJson verschoben von Vorlage:Karte hierher)
(+ nowarn)
 
(41 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
p = {}
local p = {}


local com = require("Modul:Common")
local com = require("Modul:Common")
local str = require("Modul:String")
local str = require("Modul:String")
local dev = require("Modul:Development")
local wik = require("Modul:Wiki")
local wik = require("Modul:Wiki")
local smw = require("Modul:SMW")
local smw = require("Modul:SMW")
local box = require("Modul:Box")
local box = require("Modul:Box")
local logOn = false -- loggings an/aus
p.karten_args = { -- Liste mit den Karten-Argumenten
["lat"] = true, ["lon"] = true,
["location"] = true, ["locationlist"] = true,
["geojson"] = true, ["GeoJsonKarte"] = true,
["zoom"] = true}


function p.Karte(frame)
function p.Karte(frame)
local frame, pargs = dev.GetFrameAndParentArgs(frame)
-- nur die benötigten Argumente übernehmen
-- nur die benötigten Argumente übernehmen
local argslist = {
local args = {"lat", "lon", "location", "locationlist", "geojson", "zoom",
"lat", "lon", "location", "locationlist", "geojson", "geocode",
"popuptitle", "popuptext", "box", "headline", "width", "height", "Work"}
"zoom", "popuptitle", "popuptext",
local args = wik.getArgs(pargs, args)
"box", "headline", "width", "height",
local t, _ = p.karte(frame, args)
"noattr", "form",
return t
"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)
end
end


function p.karte(frame, args)
function p.karte(frame, args)
mw.log("karte(frame, args)")
if logOn then
mw.logObject(args, "args")
mw.log("karte(frame, args)")
-- Konsolenzeilen zum Debuggen:
end
-- =p.karte(mw.getCurrentFrame(), args)
logObject(args, "args")
-- =p.karte(mw.getCurrentFrame(), {pagename="Zum Adler", location="Restaurant Zum Adler, Fürth, Bayern, Deutschland"})
local t = ""
local t = ""
local kategorien = {}
local attrlist = {}
local geoobjects = {}
local geoobjects = {}
local kategorien = {}
local pagename = args["pagename"] or wik.pagename() -- nur zum Debuggen pagename vorgebbar
local pagename = args["pagename"] or wik.pagename() -- nur zum Debuggen pagename vorgebbar
local nowarn = com.isTrue(args["nowarn"])
 
-- defaults setzen
-- defaults setzen
-- args["box"] = args["box"] or "Ja"
args["box"] = args["box"] or "Ja"
if com.isEmpty(args["box"]) then -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
args["zoom"] = args["zoom"] or "16"
args["box"] = "Ja" -- 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
-- args["zoom"] = args["zoom"] or "16"
if com.isEmpty(args["zoom"]) then -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
args["zoom"] = "16" -- 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 com.isEmpty(args["geojson"]) then -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
-- geojson-Angabe auswerten
args["geojson_pagename"] = pagename -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
geoobjects.geojson = {}
else -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
geoobjects.geojson.arg = args["geojson"]
args["geojson_pagename"] = args["geojson"] -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
geoobjects.geojson.pagename = geoobjects.geojson.arg or pagename -- oder implizite GeoJson mit gleichem Seitennamen
end -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
geoobjects.geojson.fullpagename = "GeoJson:" .. geoobjects.geojson.pagename
args["geojson_fullpagename"] = "GeoJson:" .. args["geojson_pagename"]
geoobjects.geojson.url =
"{{canonicalurl:" .. geoobjects.geojson.fullpagename .. "}}" -- über diese kommt man schneller dazu, eine neue GeoJson-Karte anzulegen
geoobjects.geojson.exists = wik.pageExists(geoobjects.geojson.fullpagename)
geoobjects.geojson.missing =
(geoobjects.geojson.arg ~= nil and not geoobjects.geojson.exists)


-- geocode location and locationlist
-- 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 -- zerlegt locationlist und versucht geocode zu jeder location
local minimum_one_geocode_ok = false -- Flag, dass mindestens ein geocode erfolgreich war
local minimum_one_geocode_ok = false -- Flag, dass mindestens ein geocode erfolgreich war
-- locationlist und location zusammenführen
-- locationlist in table splitten und mit location zusammenführen
local locationlist = str.splitAndStrip(args["locationlist"] or "", ";")
local locationlist = {}
table.insert(locationlist,
if args["locationlist"] ~= nil then
(args["location"] or "") .. "~" ..
locationlist = str.splitAndStrip(args["locationlist"] or "", ";")
(args["popuptitle"] or "") .. "~" ..
end
(args["popuptext"] or ""))
if args["location"] ~= nil then -- location hinzufügen
-- alle locations durchiterieren und für jedes ein subobject erstellen
table.insert(locationlist, args["location"] .. "~" ..
(args["popuptitle"] or "") .. "~" .. (args["popuptext"] or "")) -- ein leeres ~ ~ wird später wieder bereinigt
end
-- alle locations durchiterieren und für jedes ein geoobject (später subobject) erstellen
local geokodierungsfehler = false
for _, l in ipairs(locationlist) do
for _, l in ipairs(locationlist) do
-- Aufteilung location ~ popuptitle ~ popuptext
-- Aufteilung location ~ popuptitle ~ popuptext bzw. l[1] ~ l[2] ~ l[3]
l = str.split2(l, "~")
l = str.split2(l, "~")
local location = str.strip(l[1] or "")
local location = str.nilStrip(l[1])
local popuptitle = str.strip(l[2] or "")
if location ~= nil then
local popuptext = str.strip(l[3] or "")
-- location auswerten
if location ~= "" then
local geoobject_entry = {["Geolokation"] = location,
local geoobject_entry = {["Geolokation"] = location}
["KartePopupTitle"] = str.nilStrip(l[2]),
["KartePopupText"] = str.nilStrip(l[3])}
-- Prüfung Koordinate (Zahl) oder textuelle Objektlokation
-- Prüfung Koordinate (Zahl) oder textuelle Objektlokation
-- wenn Objektlokation und Ehemals, dann nicht auswerten
-- wenn textuelle Objektlokation und Ehemals, dann nicht auswerten,
if string.match(location, "%d") == nil and -- Keine-Zahl-Erkennung
-- weil diese in OSM nicht mehr vorhanden sind
if string.match(location, "%d") == nil and -- textuellen location (Keine Koordinaten-Zahl)?
  com.isTrue(args["Ehemals"]) then
  com.isTrue(args["Ehemals"]) then
kategorien["Hat Objektlokation, ist aber ehemaliges Objekt"] = true
  if not nowarn then
mw.smw.set{["Wartungsmeldung"] =
"Geo-Kodierungsfehler - Objekt-Lokation bei ehemaligen Objekt funktioniert nicht"}
end
else
else
-- location geocode
local geocode = frame:callParserFunction("#geocode", location)
local geocode = geocode(frame, location)
if geocode ~= "Geocoding failed" then -- erfolgreiches geocode
if geocode ~= "Geocoding failed" then
geoobject_entry["Geokoordinate"] = geocode -- Koordinate übernehmen
geoobject_entry["Geokoordinate"] = geocode
geoobject_entry["Quellangaben"] = "location"
geoobject_entry["Quellangaben"] = "location"
minimum_one_geocode_ok = true
minimum_one_geocode_ok = true
else
else
-- geocode nicht erfolgreich => SMW-DB nehmen
-- geocode nicht erfolgreich => SMW-DB-Eintrag nehmen
kategorien["Hat Geo-Kodierungsfehler"] = true
geokodierungsfehler = true
local smw_geokoordinate = mw.smw.ask(
  if not nowarn then
"[[-Has subobject::" .. pagename .. "]]" ..
mw.smw.set{["Wartungsmeldung"] =
"Geo-Kodierungsfehler - Objekt-Lokation nicht gefunden"}
end
local smw_geokoordinate = mw.smw.ask( -- SMW-Abfrage
"[[-Has subobject::" .. pagename .. "]]" .. -- liefert nil, wenn nix gefunden
"[[SubObjektTyp::Geo]]" ..
"[[Geolokation::" .. location .. "]]" ..
"[[Geolokation::" .. location .. "]]" ..
"|?Geokoordinate|limit=1") or {{}}
"|?Geokoordinate|limit=1") or {{}} -- deswegen {{}}
smw_geokoordinate = smw_geokoordinate[1]["Geokoordinate"]
smw_geokoordinate = smw_geokoordinate[1]["Geokoordinate"] -- 1. Ergebnis (limit=1)
if smw_geokoordinate ~= nil then -- SMW-DB Geokoordinate vorhanden?
if smw_geokoordinate ~= nil then -- SMW-DB Geokoordinate vorhanden?
kategorien["Hat Geo-Kodierungsfehler, aber Geokoordinate in SMW-DB noch vorhanden"] = true
  if not nowarn then
geoobject_entry["Geokoordinate"] = smw_geokoordinate
mw.smw.set{["Wartungsmeldung"] =
"Geo-Kodierungsfehler, aber Geokoordinate in SMW-DB noch vorhanden"}
end
geoobject_entry["Geokoordinate"] = smw_geokoordinate -- SMW-DB-Koordinate übernehmen (beibehalten)
geoobject_entry["Quellangaben"] = "SMW-DB"
geoobject_entry["Quellangaben"] = "SMW-DB"
minimum_one_geocode_ok = true
minimum_one_geocode_ok = true
else -- geocode und SMW-DB-Abfrage nicht erfolgreich
  if not nowarn then
mw.smw.set{["Wartungsmeldung"] =
"Geo-Kodierungsfehler und Geo-Koordinate nicht in SMW-DB vorhanden"}
end
geoobject_entry["Quellangaben"] = "geocode error"
end
end
end -- if geocode ~= "Geocoding failed" then
end -- if geocode ~= "Geocoding failed" then
end -- if Zahlerkennung
end -- if textuellen location (Keine Koordinaten-Zahl)?
set_popuptitle_popuptext(geoobject_entry, popuptitle, popuptext)
table.insert(geoobjects, geoobject_entry)
table.insert(geoobjects, geoobject_entry)
end -- if location ~= "" then
end -- if location ~= nil then
end -- for _, l in ipairs(locations_merged) do
end -- for _, l in ipairs(locationlist) do


-- geocode lon/lat, nur wenn location/locationlist nicht erfolgreich oder ehemals
-- lon/lat, nur wenn location/locationlist nicht erfolgreich oder Ehemals
if (not minimum_one_geocode_ok or com.isTrue(args["Ehemals"])) and  
if (not minimum_one_geocode_ok or com.isTrue(args["Ehemals"])) and  
  not com.isEmpty(args["lat"]) and not com.isEmpty(args["lon"]) then
  args["lat"] ~= nil and args["lon"] ~= nil then
local geoobject_entry = {}
local geokoordinate = frame:callParserFunction( -- lat/lon-Angabe in Default-Format konvertieren und prüfen
local geocode = geocode(frame, args["lat"] .. "," .. args["lon"])
"#coordinates", args["lat"] .. "," .. args["lon"])
if geocode ~= "Geocoding failed" then
if string.find(geokoordinate, "error") == nil then -- Fehlermeldung enthält kein "error"
geoobject_entry["Geokoordinate"] = geocode
local geoobject_entry = {
geoobject_entry["Quellangaben"] = "lat/lon"
["Geokoordinate"] = geokoordinate,
else
["Quellangaben"] = "lat/lon",
kategorien["Hat Geo-Kodierungsfehler"] = true
["KartePopupTitle"] = str.nilStrip(args["popuptitle"]),
["KartePopupText"] = str.nilStrip(args["popuptext"])}
table.insert(geoobjects, geoobject_entry)
elseif not nowarn then
mw.smw.set{["Wartungsmeldung"]="Geo-Fehler - fehlerhafte Koordinate"}
end
end
set_popuptitle_popuptext(geoobject_entry, popuptitle, popuptext)
table.insert(geoobjects, geoobject_entry)
end
end
logObject(geoobjects, "geoobjects")


-- Attribute setzen
-- Attribute setzen
if not com.isTrue(args["noattr"]) then
if not com.isTrue(args["noattr"]) then -- kann per noattr deaktiviert werden
 
-- Geokoordinate setzen (zusätzlich zu den subobjects für div. Karten-Queries)
-- geoobjects setzen
for _, o in ipairs(geoobjects) do
mw.logObject(geoobjects, "geoobjects")
smw.addAttrToList(attrlist, "Geokoordinate", o["Geokoordinate"])
end
-- jetzt "normale" Attribute setzen
logObject(attrlist, "attrlist")
mw.smw.set(attrlist)
-- geoobjects als subobjects setzen
for _, o in ipairs(geoobjects) do
for _, o in ipairs(geoobjects) do
o["SubObjektTyp"] = "Geo"
o.subid = "Geo " ..
local id = smw.subobjectIdCleaner(o["Geolokation"] or o["Geokoordinate"])
smw.subobjectIdCleaner(o["Geolokation"] or o["Geokoordinate"])
mw.smw.subobject(o, id)
local attrlist = { ["SubObjektTyp"] = "Geo",
["Geolokation"] = o["Geolokation"],
["Geokoordinate"] = o["Geokoordinate"],
["Zoomlevel"] = args["zoom"],
["Quellangaben"] = o["Quellangaben"]}
if geoobjects.geojson.exists then
attrlist["GeoJson"] = geoobjects.geojson.fullpagename
end
logObject(o.subid, "o.subid")
logObject(attrlist, "attrlist (subobject)")
mw.smw.subobject(attrlist, o.subid)
end
end
end


-- GeoJson
-- Karte anzeigen
if wik.pageExists(args["geojson_fullpagename"]) then
if not com.isTrue(args["nomap"]) then -- keine Karte anzeigen oder nur geoobjects und SMW-DB?
t = t .. "{{#set:GeoJson=" .. args["geojson_fullpagename"] .. "}}"
-- Anwendung: Faktenbox, aber mit eigener Karten-Darstellung z.B. Straße
-- Karten-Argumente (display_map) erstellen
local map_args = { "", ["zoom"] = args["zoom"], -- gemeinsame settings und erstmal leere locationlist
["width"] = args["width"], ["height"] = args["height"], -- map_args[1] = ""
["enablefullscreen"] = "yes", ["resizable"] = "yes"}
-- geojson-Argument
if geoobjects.geojson.exists then
map_args["geojson"] = geoobjects.geojson.pagename
end
-- location/lat/lon-Argumente
if not (geoobjects.geojson.exists and -- Pin-Anzeige deaktivieren, wenn GeoJson vorhanden und hide_loc_latlon=Ja
com.isTrue(args["hide_loc_latlon"])) then -- SMW-DB wird trotzdem geschrieben
for _, o in ipairs(geoobjects) do -- Anwendung: Es soll GeoJson-Karte aber ohne die location/lat/lon-Nadeln angezeigt werden
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"]
-- PopUp-Text und -Titel
if o["KartePopupTitle"] ~= nil then
map_args[1] = map_args[1] .. "~" .. o["KartePopupTitle"]
if o["KartePopupText"] ~= nil then -- keine Text ohne Titel
map_args[1] = map_args[1] .. "~" .. o["KartePopupText"]
end
end
end
end
end
end


-- zoom
-- Karte (display_map)
t = t .. "{{#set:Zoomlevel=" .. args["zoom"] .. "}}"
logObject(map_args, "map_args")
if map_args[1] ~= "" or map_args["geojson"] ~= nil then -- wenn locationlist oder geojson vorhanden
end --- if not com.isTrue(args["noattr"]) then
t = t .. frame:callParserFunction("#display_map", map_args)
if geoobjects.geojson.missing then
t = t .. "<small>Karte [" .. geoobjects.geojson.url .. " " ..
geoobjects.geojson.arg .. "] nicht gefunden. </small>"
end
-- Fehlermeldung bei geocode-Fehler
if geokodierungsfehler then
t = t .. "<small>Geo-Kodierungsfehler: Objekt(e) nicht gefunden. </small>"
end
elseif geokodierungsfehler then
t = t .. "Geo-Kodierungsfehler: Objekt(e) nicht gefunden."
else
if com.isTrue(args["form"]) then
t = t .. "Positionsangabe fehlt oder fehlende Karte<br>" ..
geoobjects.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>" ..
geoobjects.geojson.fullpagename
end
t = t .. "<br>[" .. geoobjects.geojson.url ..
" Hier klicken zum Anlegen der Karte<br>" ..
geoobjects.geojson.fullpagename ..
"].<br>Siehe auch [[Hilfe:Karten]]"
  if not nowarn then
mw.smw.set{["Wartungsmeldung"] =
"Geo-Kodierungsfehler - Positionsangabe fehlt"}
end
end
-- Box um Karte
if com.isTrue(args["box"]) then
local headline = args["headline"] -- Box-Überschrift
if headline == nil and geoobjects.geojson.exists then
headline = geoobjects.geojson.pagename
end
t = box.box{headline = headline, content = t, textalign = center}
end


-- bisherige Vorlagen-Karte
end -- if not com.isTrue(args["nomap"]) then
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 setzen
kategorien["Hat Karte"] = true
kategorien["Hat Karte"] = true
-- Check "Hat Geolokation, aber keine Geokoordinate"
-- Check "Hat Geolokation, aber keine Geokoordinate"
-- for _, o in ipairs(geoobjects) do -- Check "Hat Geolokation, aber keine Geokoordinate"
for _, o in ipairs(geoobjects) do
-- if o["Geolokation"] ~= nil and o["Geokoordinate"] == nil then
if o["Geolokation"] ~= nil and o["Geokoordinate"] == nil and not nowarn then
-- kategorien["Hat Geolokation, aber keine Geokoordinate"] = true
mw.smw.set{["Wartungsmeldung"]="Geo-Kodierungsfehler - fehlende Geo-Koordinate trotz Objekt-Lokation"}
-- end
end
-- end
end
hat_geolokation = false -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
-- Check "Hat geojson und location/lat/lon"
hat_geokoordinate = false -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
if geoobjects.geojson.exists and #geoobjects > 0 then
for _, o in ipairs(geoobjects) do -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
kategorien["Hat geojson und location/lat/lon"] = true
hat_geolokation = hat_geolokation or (o["Geolokation"] ~= nil) -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
end
hat_geokoordinate = hat_geokoordinate or (o["Geokoordinate"] ~= nil) -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
-- Kategorien nun setzen
end -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
logObject(kategorien, "kategorien")
if hat_geolokation and not hat_geokoordinate then -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
if wik.namespace() == "" then
kategorien["Hat Geolokation, aber keine Geokoordinate"] = true -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
for k, _ in pairs(kategorien) do
end -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
t = t .. "[[Kategorie:" .. k .. "]]"
-- nun setzen
end
for k, _ in pairs(kategorien) do
t = t .. "[[Kategorie:" .. k .. "]]"
end
end


mw.logObject(t, "t")
logObject(t, "t")
t = frame:preprocess(t)
t = frame:preprocess(t)
return t
return t, geoobjects
end
end


function geocode(frame, location)
function p.kartenArgsVorhanden(args)
return frame:callParserFunction(
local argsVorhanden =
"#geocode", {location, format="float", directional="no"})
(not com.isEmpty(args["lat"]) and not com.isEmpty(args["lon"])) or
not com.isEmpty(args["location"]) or
not com.isEmpty(args["locationlist"]) or
not com.isEmpty(args["geojson"]) or
wik.pageExists("GeoJson:" .. wik.pagename()) or
com.isTrue(args["GeoJsonKarte"])
return argsVorhanden
end
end


function set_popuptitle_popuptext(geoobject_entry, popuptitle, popuptext)
function logObject(...)
if not com.isEmpty(popuptitle) then
if logOn then
geoobject_entry["KartePopupTitle"] = popuptitle
mw.logObject(...)
end
if not com.isEmpty(popuptext) then
geoobject_entry["KartePopupText"] = popuptext
end
end
end
end


return p
return p

Aktuelle Version vom 17. Januar 2026, 09:17 Uhr

Modul:Karte

Zusätzliche Parameter karte()

Vorlagenparameter

ParameterBeschreibungTypStatus
Keine Attribute setzen.noattr

Autowert
nein
Wahrheitswertoptional
Keine Karte rendern.nomap

Autowert
nein
Wahrheitswertoptional
Keine Wartungsmeldungen ausgeben.nowarn

Autowert
nein
Wahrheitswertoptional
Karte befindet sich in Seite mit Formularform

keine Beschreibung

Autowert
nein
Wahrheitswertoptional
EhemalsEhemals

keine Beschreibung

Autowert
nein
Wahrheitswertoptional
location/locationlist/lat/lon Nadeln ausblenden, wenn GeoJson vorhandenhide_loc_latlon

keine Beschreibung

Autowert
nein
Wahrheitswertoptional

geoobjects-Daten-table

  • geoobjects[] Einzel-Objekte (table)
    • geoobjects[]["Geolokation"]
    • geoobjects[]["Geokoordinate"]
    • geoobjects[]["Quellangaben"] = Quelle von Geokoordinate
    • geoobjects[]["KartePopupTitle"]
    • geoobjects[]["KartePopupText"]
  • geoobjects.geojson GeoJson-Daten
    • geoobjects.geojson.arg = übergebenes GeoJson-Argument
    • geoobjects.geojson.pagename = GeoJson-Seitenname ohne "GeoJson:"
    • geoobjects.geojson.fullpagename = GeoJson-Seitenname mit "GeoJson:"
    • geoobjects.geojson.url = GeoJson-URL (über diese kommt man schneller dazu, eine neue GeoJson-Karte anzulegen)
    • geoobjects.geojson.exists = GeoJson-Karte existiert
    • geoobjects.geojson.missing = GeoJson-Karte explizit angegeben, aber existiert nicht

Vorlage:Karte

Diese Vorlage zeigt eine Karte wahlweise in einer oder ohne Box an.

Vorlagenparameter

ParameterBeschreibungTypStatus
Breitengradlat

Beispiel
12.345
Zahlenwertoptional
Längengradlon

Beispiel
12.345
Zahlenwertoptional
Objekt-Lokationlocation

Beispiel
Uhrenhäusla, Fürth, Bayern, Deutschland
Einzeiliger Textoptional
Objekt-Lokations-Listelocationlist

Siehe Beispiele unten

Beispiel
Uhrenhäusla, Fürth, Bayern, Deutschland ~ [[Uhrenhäusla]] ~ Hier steht das Uhrenhäusla ; Rathaus Rathaus, Fürth, Bayern, Deutschland ~ [[Rathaus]] ~ Hier steht das Rathaus
Einzeiliger Textoptional
GeoJson-Kartegeojson

Kartenname ohne 'GeoJson:'

Seitennameoptional
Zoom-Faktorzoom

keine Beschreibung

Autowert
16
Zahlenwertoptional
Popup-Titelpopuptitle

Wird angezeigt, wenn Maus über location-Pin. Darf auch Links enthalten. Bei einer grafischen GeoJson-Karte wird der Popup-Titel im grafischen Editor für jedes Element (Pin, Linie, Fläche) einzeln eingetragen und dieser Parameter wird ignoriert. Nicht bei Objekt-Lokations-Liste (locationlist).

Einzeiliger Textoptional
Popup-Textpopuptext

Wird angezeigt, wenn Maus über location-Pin. Darf auch Links enthalten. Bei einer grafischen GeoJson-Karte wird der Popup-Titel im grafischen Editor für jedes Element (Pin, Linie, Fläche) einzeln eingetragen und dieser Parameter wird ignoriert. Nicht bei Objekt-Lokations-Liste (locationlist).

Mehrzeiliger Textoptional
Box-Anzeige: Karte in einer Box oder ohne.box

Entweder 'ja' oder 'nein'

Autowert
ja
Wahrheitswertoptional
Box-Überschriftheadline

Wenn eingebunden in einer Box. Darf auch Links enthalten.

Autowert
GeoJson-Kartenname oder hilfsweise Seitenname
Einzeiliger Textoptional
Kartenbreitewidth

Entweder in Prozent oder in Pixel angegeben (wenn NICHT eingebunden in einer Box)

Beispiel
100% bzw. 300
Autowert
50%
Zahlenwertoptional
Kartenhöheheight

Entweder in Prozent oder in Pixel angegeben (wenn NICHT eingebunden in einer Box)

Beispiel
100% bzw. 300
Autowert
25%
Zahlenwertoptional

Einbindung

Möglichkeiten/Parameter zur Einbindung:

  • Bei Angabe einer Koordinate (lat/lon-Wertepaar):
{{ Karte | lat=... | lon=... | zoom=... | headline=... | popuptitle=... | popuptext=... | box=... | width=... | height=... }}
  • Bei Angabe von Objekt-Lokation (location):
{{ Karte | location=... | zoom=... | headline=... | popuptitle=... | popuptext=... | box=... | width=... | height=... }}
  • Bei Angabe von Liste mit Objekt-Lokationen (locationlist):
{{ Karte | locationlist=... | zoom=... | headline=... | box=... | width=... | height=... }}
  • Bei Angabe von grafischer GeoJson-Karte2) (geojson):
{{ Karte | geojson=... | zoom=... | headline=... | box=... | width=... | height=... }}
  • Bei Angabe von grafischer GeoJson-Karte und Koordinate2),3):
{{ Karte | geojson=... | lat=... | lon=... | zoom=... | headline=... | box=... | width=... | height=... }}
  • Bei Angabe von grafischer GeoJson-Karte und Objekt-Lokation2),3):
{{ Karte | geojson=... | location=... | zoom=... | headline=... | box=... | width=... | height=... }}
  • Grafische GeoJson-Karte mit gleichem Seitennamen1),2):
{{ Karte | zoom=... | headline=... | box=... | width=... | height=... }}
Anmerkungen

1) Wenn weder lat/lon noch location noch locationlist noch geojson angegeben sind, dann wird implizit die GesJson-Karte mit gleichem Seitennamen wie die eigentliche Seite angenommen. Beispiel: GeoJson:Pegnitz ist die zu Pegnitz gehörende Karte.
2) Wenn die GesJson-Karte (noch) nicht existiert, erscheint eine entsprechende Meldung mit der Klick-Möglichkeit, diese neu anzulegen.
3) Wenn geojson und zusätzlich location bzw. lat/lon übergeben werden, dann wird die GeoJson-Karte angezeigt, aber location bzw. lat/lon als Geokoordinate (Semantic) gesetzt. Zweck ist, dass man der Karte eine (Mitten-)Position mitgeben kann, damit sie z. B. per Semantisches Browsen gefunden werden kann.

Beispiele

Stadtwappen.svg
 
Die Karte wird geladen …
{{Karte|lat=49.4805779|lon=10.9978422|zoom=17}}


Stadtwappen.svg
 
Die Karte wird geladen …
{{Karte|location=Uhrenhäusla, Fürth, Bayern, Deutschland|zoom=17}}


Stadtwappen.svg
 Hier steht das Uhrenhäusla
Die Karte wird geladen …
{{Karte|location=Uhrenhäusla, Fürth, Bayern, Deutschland|headline=Hier steht das Uhrenhäusla|zoom=17}}


Stadtwappen.svg
 Hier steht das Uhrenhäusla
Die Karte wird geladen …
{{Karte|location=Uhrenhäusla, Fürth, Bayern, Deutschland|headline=Hier steht das Uhrenhäusla|popuptitle=Uhrenhäusla|popuptext=Siehe Uhrenhäusla|zoom=17}}


Stadtwappen.svg
 
Die Karte wird geladen …
{{Karte|locationlist=Uhrenhäusla, Fürth, Bayern, Deutschland|zoom=17}}


Stadtwappen.svg
 
Die Karte wird geladen …
{{Karte|locationlist=Uhrenhäusla, Fürth, Bayern, Deutschland; Rathaus Rathaus, Fürth, Bayern, Deutschland|zoom=15}}


Stadtwappen.svg
 
Die Karte wird geladen …
{{Karte|locationlist=Uhrenhäusla, Fürth, Bayern, Deutschland ~ Uhrenhäusla ~ Hier steht das Uhrenhäusla; Rathaus Rathaus, Fürth, Bayern, Deutschland ~ Rathaus ~ Hier steht das Rathaus|zoom=15}}


Stadtwappen.svg
 Südstadt
Die Karte wird geladen …
{{Karte|geojson=Südstadt|headline=Südstadt|zoom=13}}


Stadtwappen.svg
 
Die Karte wird geladen …
Karte BlaBla nicht gefunden. 
{{Karte|lat=49.4805779|lon=10.9978422|geojson=BlaBla|zoom=17}}


Stadtwappen.svg
 
Die Karte wird geladen …
Karte BlaBla nicht gefunden. 
{{Karte|location=Uhrenhäusla, Fürth, Bayern, Deutschland|geojson=BlaBla|zoom=17}}


Stadtwappen.svg
 

Breiten-/Längengrad (lat/lon) fehlt, Objekt-Lokation (location) fehlt oder fehlende Karte
GeoJson:Karte
Hier klicken zum Anlegen der Karte
GeoJson:Karte.
Siehe auch Hilfe:Karten 

{{Karte|zoom=14}}


Stadtwappen.svg
 

Breiten-/Längengrad (lat/lon) fehlt, Objekt-Lokation (location) fehlt oder fehlende Karte
GeoJson:BlaBla
Hier klicken zum Anlegen der Karte
GeoJson:BlaBla.
Siehe auch Hilfe:Karten 

{{Karte|geojson=BlaBla}}


Die Karte wird geladen …
{{Karte|lat=49.4805779|lon=10.9978422|box=nein}}


Die Karte wird geladen …
{{Karte|lat=49.4805779|lon=10.9978422|box=nein|width=100%|height=500}}


Siehe auch

Unterseiten

Siehe auch

local p = {}

local com = require("Modul:Common")
local str = require("Modul:String")
local dev = require("Modul:Development")
local wik = require("Modul:Wiki")
local smw = require("Modul:SMW")
local box = require("Modul:Box")

local logOn = false																-- loggings an/aus

p.karten_args = {																-- Liste mit den Karten-Argumenten
	["lat"] = true, ["lon"] = true,
	["location"] = true, ["locationlist"] = true,
	["geojson"] = true, ["GeoJsonKarte"] = true,
	["zoom"] = true}

function p.Karte(frame)
	local frame, pargs = dev.GetFrameAndParentArgs(frame)
	-- nur die benötigten Argumente übernehmen
	local args = {"lat", "lon", "location", "locationlist", "geojson", "zoom",
		"popuptitle", "popuptext", "box", "headline", "width", "height", "Work"}
	local args = wik.getArgs(pargs, args)
	local t, _ = p.karte(frame, args)
	return t
end

function p.karte(frame, args)
	if logOn then
		mw.log("karte(frame, args)")
	end
	logObject(args, "args")
	local t = ""
	local kategorien = {}
	local attrlist = {}
	local geoobjects = {}
	local pagename = args["pagename"] or wik.pagename()							-- nur zum Debuggen pagename vorgebbar
	local nowarn = com.isTrue(args["nowarn"])

	-- defaults setzen
	args["box"] = args["box"] or "Ja"
	args["zoom"] = args["zoom"] or "16"

	-- geojson-Angabe auswerten
	geoobjects.geojson = {}
	geoobjects.geojson.arg = args["geojson"]
	geoobjects.geojson.pagename = geoobjects.geojson.arg or pagename			-- oder implizite GeoJson mit gleichem Seitennamen
	geoobjects.geojson.fullpagename = "GeoJson:" .. geoobjects.geojson.pagename
	geoobjects.geojson.url =
		"{{canonicalurl:" .. geoobjects.geojson.fullpagename .. "}}"			-- über diese kommt man schneller dazu, eine neue GeoJson-Karte anzulegen
	geoobjects.geojson.exists = wik.pageExists(geoobjects.geojson.fullpagename)
	geoobjects.geojson.missing =
		(geoobjects.geojson.arg ~= nil and not geoobjects.geojson.exists)

	-- 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										-- zerlegt locationlist und versucht geocode zu jeder location
	local minimum_one_geocode_ok = false										-- Flag, dass mindestens ein geocode erfolgreich war
	-- locationlist in table splitten und mit location zusammenführen
	local locationlist = {}
	if args["locationlist"] ~= nil then
		locationlist = str.splitAndStrip(args["locationlist"] or "", ";")
	end
	if args["location"] ~= nil then												-- location hinzufügen
		table.insert(locationlist, args["location"] .. "~" ..
			(args["popuptitle"] or "") .. "~" .. (args["popuptext"] or ""))		-- ein leeres ~ ~ wird später wieder bereinigt
	end
	-- alle locations durchiterieren und für jedes ein geoobject (später subobject) erstellen
	local geokodierungsfehler = false
	for _, l in ipairs(locationlist) do
		-- Aufteilung location ~ popuptitle ~ popuptext bzw. l[1] ~ l[2] ~ l[3]
		l = str.split2(l, "~")
		local location = str.nilStrip(l[1])
		if location ~= nil then
			-- location auswerten
			local geoobject_entry = {["Geolokation"] = location,
				["KartePopupTitle"] = str.nilStrip(l[2]),
				["KartePopupText"] = str.nilStrip(l[3])}
			-- Prüfung Koordinate (Zahl) oder textuelle Objektlokation
			-- wenn textuelle Objektlokation und Ehemals, dann nicht auswerten,
			-- weil diese in OSM nicht mehr vorhanden sind
			if string.match(location, "%d") == nil and							-- textuellen location (Keine Koordinaten-Zahl)?
			   com.isTrue(args["Ehemals"]) then
			   	if not nowarn then
					mw.smw.set{["Wartungsmeldung"] =
						"Geo-Kodierungsfehler - Objekt-Lokation bei ehemaligen Objekt funktioniert nicht"}
				end
			else
				local geocode = frame:callParserFunction("#geocode", location)
				if geocode ~= "Geocoding failed" then							-- erfolgreiches geocode
					geoobject_entry["Geokoordinate"] = geocode					-- Koordinate übernehmen
					geoobject_entry["Quellangaben"] = "location"
					minimum_one_geocode_ok = true
				else
					-- geocode nicht erfolgreich => SMW-DB-Eintrag nehmen
					geokodierungsfehler = true
				   	if not nowarn then
						mw.smw.set{["Wartungsmeldung"] =
							"Geo-Kodierungsfehler - Objekt-Lokation nicht gefunden"}
					end
					local smw_geokoordinate = mw.smw.ask(						-- SMW-Abfrage
						"[[-Has subobject::" .. pagename .. "]]" ..				-- liefert nil, wenn nix gefunden
						"[[SubObjektTyp::Geo]]" ..
						"[[Geolokation::" .. location .. "]]" ..
						"|?Geokoordinate|limit=1") or {{}}						-- deswegen {{}}
					smw_geokoordinate = smw_geokoordinate[1]["Geokoordinate"]	-- 1. Ergebnis (limit=1)
					if smw_geokoordinate ~= nil then							-- SMW-DB Geokoordinate vorhanden?
					   	if not nowarn then
							mw.smw.set{["Wartungsmeldung"] =
								"Geo-Kodierungsfehler, aber Geokoordinate in SMW-DB noch vorhanden"}
						end
						geoobject_entry["Geokoordinate"] = smw_geokoordinate	-- SMW-DB-Koordinate übernehmen (beibehalten)
						geoobject_entry["Quellangaben"] = "SMW-DB"
						minimum_one_geocode_ok = true
					else														-- geocode und SMW-DB-Abfrage nicht erfolgreich
					   	if not nowarn then
							mw.smw.set{["Wartungsmeldung"] =
								"Geo-Kodierungsfehler und Geo-Koordinate nicht in SMW-DB vorhanden"}
						end
						geoobject_entry["Quellangaben"] = "geocode error"
					end
				end -- if geocode ~= "Geocoding failed" then
			end -- if textuellen location (Keine Koordinaten-Zahl)?
			table.insert(geoobjects, geoobject_entry)
		end -- if location ~= nil then
	end -- for _, l in ipairs(locationlist) do

	-- 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 geokoordinate = frame:callParserFunction(							-- lat/lon-Angabe in Default-Format konvertieren und prüfen
			"#coordinates", args["lat"] .. "," .. args["lon"])
		if string.find(geokoordinate, "error") == nil then						-- Fehlermeldung enthält kein "error"
			local geoobject_entry = {
				["Geokoordinate"] = geokoordinate,
				["Quellangaben"] = "lat/lon",
				["KartePopupTitle"] = str.nilStrip(args["popuptitle"]),
				["KartePopupText"] = str.nilStrip(args["popuptext"])}
			table.insert(geoobjects, geoobject_entry)
		elseif not nowarn then
			mw.smw.set{["Wartungsmeldung"]="Geo-Fehler - fehlerhafte Koordinate"}
		end
	end

	logObject(geoobjects, "geoobjects")

	-- Attribute setzen
	if not com.isTrue(args["noattr"]) then										-- kann per noattr deaktiviert werden
		-- Geokoordinate setzen (zusätzlich zu den subobjects für div. Karten-Queries)
		for _, o in ipairs(geoobjects) do
			smw.addAttrToList(attrlist, "Geokoordinate", o["Geokoordinate"])
		end
		-- jetzt "normale" Attribute setzen
		logObject(attrlist, "attrlist")
		mw.smw.set(attrlist)
		-- geoobjects als subobjects setzen
		for _, o in ipairs(geoobjects) do
			o.subid = "Geo " .. 
				smw.subobjectIdCleaner(o["Geolokation"] or o["Geokoordinate"])
			local attrlist = { ["SubObjektTyp"] = "Geo",
				["Geolokation"] = o["Geolokation"],
				["Geokoordinate"] = o["Geokoordinate"],
				["Zoomlevel"] = args["zoom"],
				["Quellangaben"] = o["Quellangaben"]}
			if geoobjects.geojson.exists then
				attrlist["GeoJson"] = geoobjects.geojson.fullpagename
			end
			logObject(o.subid, "o.subid")
			logObject(attrlist, "attrlist (subobject)")
			mw.smw.subobject(attrlist, o.subid)
		end
	end

	-- Karte anzeigen
	if not com.isTrue(args["nomap"]) then										-- keine Karte anzeigen oder nur geoobjects und SMW-DB?
																				-- Anwendung: Faktenbox, aber mit eigener Karten-Darstellung z.B. Straße
		-- Karten-Argumente (display_map) erstellen
		local map_args = { "", ["zoom"] = args["zoom"],							-- gemeinsame settings und erstmal leere locationlist
			["width"] = args["width"], ["height"] = args["height"],				-- map_args[1] = ""
			["enablefullscreen"] = "yes", ["resizable"] = "yes"}
		-- geojson-Argument
		if geoobjects.geojson.exists then
			map_args["geojson"] = geoobjects.geojson.pagename
		end
		-- location/lat/lon-Argumente
		if not (geoobjects.geojson.exists and									-- Pin-Anzeige deaktivieren, wenn GeoJson vorhanden und hide_loc_latlon=Ja
				com.isTrue(args["hide_loc_latlon"])) then						-- SMW-DB wird trotzdem geschrieben
			for _, o in ipairs(geoobjects) do									-- Anwendung: Es soll GeoJson-Karte aber ohne die location/lat/lon-Nadeln angezeigt werden
				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"]
					-- PopUp-Text und -Titel
					if o["KartePopupTitle"] ~= nil then
						map_args[1] = map_args[1] .. "~" .. o["KartePopupTitle"]
						if o["KartePopupText"] ~= nil then						-- keine Text ohne Titel
							map_args[1] = map_args[1] .. "~" .. o["KartePopupText"]
						end
					end
				end
			end
		end

		-- Karte (display_map)
		logObject(map_args, "map_args")
		if map_args[1] ~= "" or map_args["geojson"] ~= nil then					-- wenn locationlist oder geojson vorhanden
			t = t .. frame:callParserFunction("#display_map", map_args)
			if geoobjects.geojson.missing then
				t = t .. "<small>Karte [" .. geoobjects.geojson.url .. " " ..
					geoobjects.geojson.arg .. "] nicht gefunden. </small>"
			end
			-- Fehlermeldung bei geocode-Fehler
			if geokodierungsfehler then
				t = t .. "<small>Geo-Kodierungsfehler: Objekt(e) nicht gefunden. </small>"
			end
		elseif geokodierungsfehler then
			t = t .. "Geo-Kodierungsfehler: Objekt(e) nicht gefunden."
		else
			if com.isTrue(args["form"]) then
				t = t .. "Positionsangabe fehlt oder fehlende Karte<br>" ..
					geoobjects.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>" ..
				geoobjects.geojson.fullpagename
			end
			t = t .. "<br>[" .. geoobjects.geojson.url ..
				" Hier klicken zum Anlegen der Karte<br>" ..
				geoobjects.geojson.fullpagename ..
				"].<br>Siehe auch [[Hilfe:Karten]]"
		   	if not nowarn then
				mw.smw.set{["Wartungsmeldung"] =
					"Geo-Kodierungsfehler - Positionsangabe fehlt"}
			end
		end
	
		-- Box um Karte
		if com.isTrue(args["box"]) then
			local headline = args["headline"]									-- Box-Überschrift
			if headline == nil and geoobjects.geojson.exists then
				headline = geoobjects.geojson.pagename
			end
			t = box.box{headline = headline, content = t, textalign = center}
		end

	end -- if not com.isTrue(args["nomap"]) then

	-- Kategorien setzen
	kategorien["Hat Karte"] = true
	-- Check "Hat Geolokation, aber keine Geokoordinate"
	for _, o in ipairs(geoobjects) do
		if o["Geolokation"] ~= nil and o["Geokoordinate"] == nil and not nowarn then
			mw.smw.set{["Wartungsmeldung"]="Geo-Kodierungsfehler - fehlende Geo-Koordinate trotz Objekt-Lokation"}
		end
	end
	-- Check "Hat geojson und location/lat/lon"
	if geoobjects.geojson.exists and #geoobjects > 0 then
		kategorien["Hat geojson und location/lat/lon"] = true
	end
	-- Kategorien nun setzen
	logObject(kategorien, "kategorien")
	if wik.namespace() == "" then
		for k, _ in pairs(kategorien) do
			t = t .. "[[Kategorie:" .. k .. "]]"
		end
	end

	logObject(t, "t")
	t = frame:preprocess(t)
	return t, geoobjects
end

function p.kartenArgsVorhanden(args)
	local argsVorhanden =
		(not com.isEmpty(args["lat"]) and not com.isEmpty(args["lon"])) or
		not com.isEmpty(args["location"]) or
		not com.isEmpty(args["locationlist"]) or
		not com.isEmpty(args["geojson"]) or
		wik.pageExists("GeoJson:" .. wik.pagename()) or
		com.isTrue(args["GeoJsonKarte"])
	return argsVorhanden
end

function logObject(...)
	if logOn then
		mw.logObject(...)
	end
end

return p
Abgerufen von „https://www.fuerthwiki.de/wiki/index.php?title=Modul:Karte&oldid=779631“