Modul:Karte

Aus FürthWiki

Version vom 18. Dezember 2025, 15:39 Uhr von HeikoBot (Diskussion | Beiträge) (div. Optimierungen, fixes, Kleinkram, Kommentare)

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 = true																-- 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=771284“