Modul:Karte: Unterschied zwischen den Versionen

Aus FürthWiki

(ParentArgs(frame))
(loggings aus)
 
(8 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 7: Zeile 7:
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


function p.Karte(frame)
function p.Karte(frame)
Zeile 12: Zeile 14:
-- nur die benötigten Argumente übernehmen
-- nur die benötigten Argumente übernehmen
local args = {"lat", "lon", "location", "locationlist", "geojson", "zoom",
local args = {"lat", "lon", "location", "locationlist", "geojson", "zoom",
"popuptitle", "popuptext", "box", "headline", "width", "height",
"popuptitle", "popuptext", "box", "headline", "width", "height", "Work"}
"noattr", "Work"}
local args = wik.getArgs(pargs, args)
local args = wik.getArgs(pargs, args)
local t, _ = p.karte(frame, args)
local t, _ = p.karte(frame, args)
Zeile 20: Zeile 21:


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 kategorien = {}
Zeile 38: Zeile 38:
geoobjects.geojson = {}
geoobjects.geojson = {}
geoobjects.geojson.arg = args["geojson"]
geoobjects.geojson.arg = args["geojson"]
geoobjects.geojson.pagename = geoobjects.geojson.arg or pagename
geoobjects.geojson.pagename = geoobjects.geojson.arg or pagename -- oder implizite GeoJson mit gleichem Seitennamen
geoobjects.geojson.fullpagename = "GeoJson:" .. geoobjects.geojson.pagename
geoobjects.geojson.fullpagename = "GeoJson:" .. geoobjects.geojson.pagename
geoobjects.geojson.url = "{{canonicalurl:" .. geoobjects.geojson.fullpagename .. "}}"
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.exists = wik.pageExists(geoobjects.geojson.fullpagename)
geoobjects.geojson.missing =
(geoobjects.geojson.arg ~= nil and not geoobjects.geojson.exists)


-- width/height
-- width/height
Zeile 55: Zeile 58:
end
end


-- geocode location and locationlist
-- 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
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. location kann auch Koordinate sein
-- 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
kategorien["Hat textuelle 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
else
local geocode = frame:callParserFunction("#geocode", location)
local geocode = frame:callParserFunction("#geocode", location)
if geocode ~= "Geocoding failed" then
if geocode ~= "Geocoding failed" then -- erfolgreiches geocode
geoobject_entry["Geokoordinate"] = geocode
geoobject_entry["Geokoordinate"] = geocode -- Koordinate übernehmen
geoobject_entry["Quellangaben"] = "location"
geoobject_entry["Quellangaben"] = "location"
minimum_one_geocode_ok = true
minimum_one_geocode_ok = true
Zeile 87: Zeile 95:
kategorien["Hat Geo-Kodierungsfehler"] = true
kategorien["Hat Geo-Kodierungsfehler"] = true
local smw_geokoordinate = mw.smw.ask( -- SMW-Abfrage
local smw_geokoordinate = mw.smw.ask( -- SMW-Abfrage
"[[-Has subobject::" .. pagename .. "]]" ..
"[[-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
kategorien["Hat Geo-Kodierungsfehler, aber Geokoordinate in SMW-DB noch vorhanden"] = true
geoobject_entry["Geokoordinate"] = smw_geokoordinate
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
else -- geocode und SMW-DB-Abfrage nicht erfolgreich
kategorien["Hat Geo-Kodierungsfehler und Geokoordinate nicht in SMW-DB vorhanden"] = true
kategorien["Hat Geo-Kodierungsfehler und Geokoordinate nicht in SMW-DB vorhanden"] = true
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)?
geoobject_entry["KartePopupTitle"] = popuptitle
geoobject_entry["KartePopupText"] = 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  
  args["lat"] ~= nil and args["lon"] ~= nil 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 = frame:callParserFunction("#geocode", args["lat"] .. "," .. args["lon"])
"#coordinates", args["lat"] .. "," .. args["lon"])
local geocode = args["lat"] .. "," .. args["lon"] -- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
if string.find(geokoordinate, "error") == nil then -- Fehlermeldung enthält kein "error"
if geocode ~= "Geocoding failed" then
local geoobject_entry = {
geoobject_entry["Geokoordinate"] = geocode
["Geokoordinate"] = geokoordinate,
geoobject_entry["Quellangaben"] = "lat/lon"
["Quellangaben"] = "lat/lon",
["KartePopupTitle"] = str.nilStrip(args["popuptitle"]),
["KartePopupText"] = str.nilStrip(args["popuptext"])}
table.insert(geoobjects, geoobject_entry)
else
else
kategorien["Hat Geo-Kodierungsfehler"] = true
kategorien["Hat fehlerhafte Koordinate"] = true
end
end
geoobject_entry["KartePopupTitle"] = popuptitle
geoobject_entry["KartePopupText"] = 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
-- Geolokation/Geokoordinate setzen
-- Geokoordinate setzen (zusätzlich zu den subobjects für div. Karten-Queries)
for _, o in ipairs(geoobjects) do -- to do: obsolete, wenn sobobject genutzt
for _, o in ipairs(geoobjects) do
setAttr(attrlist, "Geolokation", o["Geolokation"]) -- to do: obsolete, wenn sobobject genutzt
setAttr(attrlist, "Geokoordinate", o["Geokoordinate"])
setAttr(attrlist, "Geokoordinate", o["Geokoordinate"]) -- to do: obsolete, wenn sobobject genutzt
end
end -- to do: obsolete, wenn sobobject genutzt
-- GeoJson
-- GeoJson
if geoobjects.geojson.exists then
if geoobjects.geojson.exists then
Zeile 137: Zeile 146:
-- zoom
-- zoom
setAttr(attrlist, "Zoomlevel", args["zoom"])
setAttr(attrlist, "Zoomlevel", args["zoom"])
-- normale Attribute setzen
-- jetzt "normale" Attribute setzen
-- mw.logObject(attrlist, "attrlist")
logObject(attrlist, "attrlist")
mw.smw.set(attrlist)
mw.smw.set(attrlist)
-- geoobjects als subobjects setzen
-- geoobjects als subobjects setzen
-- mw.logObject(geoobjects, "geoobjects")
for _, o in ipairs(geoobjects) do
for _, o in ipairs(geoobjects) do
o["SubObjektTyp"] = "Geo"
local id = "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"],
["Quellangaben"] = o["Quellangaben"]}
logObject(id, "id (subobject)")
logObject(attrlist, "attrlist (subobject)")
mw.smw.subobject(attrlist, id)
end
end
end
end


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


-- Karte (display_map)
-- Karte (display_map)
if map_args[1] ~= "" or map_args["geojson"] ~= nil then
logObject(map_args, "map_args")
-- mw.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)
t = t .. frame:callParserFunction("#display_map", map_args)
if geoobjects.geojson.arg ~= nil and map_args["geojson"] == nil then
if geoobjects.geojson.missing then
t = t .. "<small>Karte [" .. geoobjects.geojson.url .. " " .. geoobjects.geojson.arg .. "] nicht gefunden</small>"
t = t .. "<small>Karte [" .. geoobjects.geojson.url .. " " ..
geoobjects.geojson.arg .. "] nicht gefunden. </small>"
end
-- Fehlermeldung bei geocode-Fehler
if kategorien["Hat Geo-Kodierungsfehler"] then
t = t .. "<small>Geo-Kodierungsfehler: Objekt(e) nicht gefunden. </small>"
end
elseif kategorien["Hat Geo-Kodierungsfehler"] 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]]"
kategorien["Hat keine Positionsangabe"] = true
end
end
else
if com.isTrue(args["form"]) then
-- Box um Karte
t = t .. "Positionsangabe fehlt oder fehlende Karte<br>" .. geoobjects.geojson.fullpagename .. "<br>Bitte Position in Formular eintragen oder"
if com.isTrue(args["box"]) then
else
local headline = args["headline"] -- Box-Überschrift
t = t .. "Breiten-/Längengrad (lat/lon) fehlt, Objekt-Lokation (location) fehlt oder fehlende Karte<br>" .. geoobjects.geojson.fullpagename
if headline == nil and geoobjects.geojson.exists then
headline = geoobjects.geojson.pagename
end
t = box.box{headline = headline, content = t, textalign = center}
end
end
t = t .. "<br>[" .. geoobjects.geojson.url .. " Hier klicken zum Anlegen der Karte<br>" .. geoobjects.geojson.fullpagename .. "].<br>Siehe auch [[Hilfe:Karten]]"
kategorien["Ohne Position"] = true
end


-- Box um Karte
end -- if not com.isTrue(args["nomap"]) then
if com.isTrue(args["box"]) then
local headline = args["headline"] or geoobjects.geojson.arg or pagename
t = box.box{headline = headline, content = t, textalign = center}
end


-- Kategorien setzen
-- Kategorien setzen
Zeile 209: Zeile 243:
kategorien["Hat Geolokation, aber keine Geokoordinate"] = true
kategorien["Hat Geolokation, aber keine Geokoordinate"] = true
end
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
end
-- Kategorien nun setzen
-- Kategorien nun setzen
for k, _ in pairs(kategorien) do
logObject(kategorien, "kategorien")
t = t .. "[[Kategorie:" .. k .. "]]"
if wik.namespace() == "" then
for k, _ in pairs(kategorien) do
t = t .. "[[Kategorie:" .. k .. "]]"
end
end
end


-- mw.logObject(t, "t")
logObject(t, "t")
t = frame:preprocess(t)
t = frame:preprocess(t)
return t, geoobjects
return t, geoobjects
Zeile 239: Zeile 280:
com.isTrue(args["GeoJsonKarte"])
com.isTrue(args["GeoJsonKarte"])
return argsVorhanden
return argsVorhanden
end
function logObject(...)
if logOn then
mw.logObject(...)
end
end
end


return p
return p

Aktuelle Version vom 18. Dezember 2025, 15:48 Uhr

Modul:Karte

Zusätzliche Parameter karte()

Vorlagenparameter

ParameterBeschreibungTypStatus
Keine Attribute setzen.noattr

Autowert
nein
Wahrheitswertoptional
Keine Karte rendern.nomap

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

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

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

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

	-- 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
	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
				kategorien["Hat textuelle Objektlokation, ist aber ehemaliges Objekt"] = true
			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
					kategorien["Hat Geo-Kodierungsfehler"] = true
					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?
						kategorien["Hat Geo-Kodierungsfehler, aber Geokoordinate in SMW-DB noch vorhanden"] = true
						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
						kategorien["Hat Geo-Kodierungsfehler und Geokoordinate nicht in SMW-DB vorhanden"] = true
						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)
		else
			kategorien["Hat fehlerhafte Koordinate"] = true
		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
			setAttr(attrlist, "Geokoordinate", o["Geokoordinate"])
		end
		-- GeoJson
		if geoobjects.geojson.exists then
			setAttr(attrlist, "GeoJson", geoobjects.geojson.fullpagename)
		end
		-- zoom
		setAttr(attrlist, "Zoomlevel", args["zoom"])
		-- jetzt "normale" Attribute setzen
		logObject(attrlist, "attrlist")
		mw.smw.set(attrlist)
		-- geoobjects als subobjects setzen
		for _, o in ipairs(geoobjects) do
			local id = "Geo " .. 
				smw.subobjectIdCleaner(o["Geolokation"] or o["Geokoordinate"])
			local attrlist = { ["SubObjektTyp"] = "Geo",
				["Geolokation"] = o["Geolokation"],
				["Geokoordinate"] = o["Geokoordinate"],
				["Quellangaben"] = o["Quellangaben"]}
			logObject(id, "id (subobject)")
			logObject(attrlist, "attrlist (subobject)")
			mw.smw.subobject(attrlist, id)
		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 kategorien["Hat Geo-Kodierungsfehler"] then
				t = t .. "<small>Geo-Kodierungsfehler: Objekt(e) nicht gefunden. </small>"
			end
		elseif kategorien["Hat Geo-Kodierungsfehler"] 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]]"
			kategorien["Hat keine Positionsangabe"] = true
		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 then
			kategorien["Hat Geolokation, aber keine Geokoordinate"] = true
		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 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

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=771287“