Modul:Karte

Aus FürthWiki

Version vom 17. Dezember 2025, 10:24 Uhr von HeikoBot (Diskussion | Beiträge) (KartePopupTitle/KartePopupText nicht in SemDB speichern)

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
 Karte
Die Karte wird geladen …
{{Karte|lat=49.4805779|lon=10.9978422|zoom=17}}


Stadtwappen.svg
 Karte
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
 Karte
Die Karte wird geladen …
{{Karte|locationlist=Uhrenhäusla, Fürth, Bayern, Deutschland|zoom=17}}


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


Stadtwappen.svg
 Karte
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
 BlaBla
Die Karte wird geladen …
Karte BlaBla nicht gefunden 
{{Karte|lat=49.4805779|lon=10.9978422|geojson=BlaBla|zoom=17}}


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


Stadtwappen.svg
 Karte

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
 BlaBla

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

Zusätzliche Parameter karte()

Vorlagenparameter

ParameterBeschreibungTypStatus
Keine Attribute setzen.noattr

Autowert
nein
Wahrheitswertoptional
Keine Karte rendern.nomap

Autowert
nein
Wahrheitswertoptional
Ehemals form

keine Beschreibung

Autowert
nein
Wahrheitswertoptional

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")

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",
		"noattr", "Work"}
	local args = wik.getArgs(pargs, args)
	local t, _ = p.karte(frame, args)
	return t
end

function p.karte(frame, args)
--	mw.log("karte(frame, args)")
--	mw.logObject(args, "args")
	-- Konsolenzeilen zum Debuggen:
	-- =p.karte(mw.getCurrentFrame(), args)
	-- =p.karte(mw.getCurrentFrame(), {pagename="Zum Adler", location="Restaurant Zum Adler, Fürth, Bayern, Deutschland"})
	local t = ""
	local 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
	geoobjects.geojson.fullpagename = "GeoJson:" .. geoobjects.geojson.pagename
	geoobjects.geojson.url = "{{canonicalurl:" .. geoobjects.geojson.fullpagename .. "}}"
	geoobjects.geojson.exists = wik.pageExists(geoobjects.geojson.fullpagename)

	-- 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
	local minimum_one_geocode_ok = false										-- Flag, dass mindestens ein geocode erfolgreich war
	-- locationlist und location zusammenführen
	local locationlist = str.splitAndStrip(args["locationlist"] or "", ";")
	table.insert(locationlist,
		(args["location"] or "") .. "~" ..
		(args["popuptitle"] or "") .. "~" ..
		(args["popuptext"] or ""))
	-- alle locations durchiterieren und für jedes ein subobject erstellen
	for _, l in ipairs(locationlist) do
		-- Aufteilung location ~ popuptitle ~ popuptext
		l = str.split2(l, "~")
		local location = str.strip(l[1] or "")
		local popuptitle = str.strip(l[2] or "")
		local popuptext = str.strip(l[3] or "")
		if location ~= "" then
			local geoobject_entry = {["Geolokation"] = location}
			-- Prüfung Koordinate (Zahl) oder textuelle Objektlokation
			-- wenn Objektlokation und Ehemals, dann nicht auswerten
			if string.match(location, "%d") == nil and							-- Keine-Zahl-Erkennung. location kann auch Koordinate sein
			   com.isTrue(args["Ehemals"]) then
				kategorien["Hat Objektlokation, ist aber ehemaliges Objekt"] = true
			else -- if args["lat"] == nil or args["lon"] == nil then			-- to do: dieses if später rausschmeißen nach Aufbau nominatim.fuerthwiki.de
				local geocode = frame:callParserFunction("#geocode", location)
				if geocode ~= "Geocoding failed" then
					geoobject_entry["Geokoordinate"] = geocode
					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 .. "]]" ..
						"[[Geolokation::" .. location .. "]]" ..
						"|?Geokoordinate|limit=1") or {{}}
					smw_geokoordinate = smw_geokoordinate[1]["Geokoordinate"]
					if smw_geokoordinate ~= nil then							-- SMW-DB Geokoordinate vorhanden?
						kategorien["Hat Geo-Kodierungsfehler, aber Geokoordinate in SMW-DB noch vorhanden"] = true
						geoobject_entry["Geokoordinate"] = smw_geokoordinate
						geoobject_entry["Quellangaben"] = "SMW-DB"
						minimum_one_geocode_ok = true
					else
						kategorien["Hat Geo-Kodierungsfehler und Geokoordinate nicht in SMW-DB vorhanden"] = true
					end
				end -- if geocode ~= "Geocoding failed" then
			end -- if Zahlerkennung
			geoobject_entry["KartePopupTitle"] = popuptitle
			geoobject_entry["KartePopupText"] = popuptext
			table.insert(geoobjects, geoobject_entry)
		end -- if location ~= "" then
	end -- for _, l in ipairs(locations_merged) do

	-- geocode lon/lat, nur wenn location/locationlist nicht erfolgreich oder ehemals
	if (not minimum_one_geocode_ok or com.isTrue(args["Ehemals"])) and 
	   args["lat"] ~= nil and args["lon"] ~= nil then
		local geoobject_entry = {}
--		local geocode = frame:callParserFunction("#geocode", args["lat"] .. "," .. args["lon"])
		local geocode = args["lat"] .. "," .. args["lon"]						-- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
		if geocode ~= "Geocoding failed" then
			geoobject_entry["Geokoordinate"] = geocode
			geoobject_entry["Quellangaben"] = "lat/lon"
		else
			kategorien["Hat Geo-Kodierungsfehler"] = true
		end
		geoobject_entry["KartePopupTitle"] = popuptitle
		geoobject_entry["KartePopupText"] = popuptext
		table.insert(geoobjects, geoobject_entry)
	end

	-- Attribute setzen
	if not com.isTrue(args["noattr"]) then
		-- Geolokation/Geokoordinate setzen
		for _, o in ipairs(geoobjects) do										-- to do: obsolete, wenn sobobject genutzt
			setAttr(attrlist, "Geolokation", o["Geolokation"])					-- to do: obsolete, wenn sobobject genutzt
			setAttr(attrlist, "Geokoordinate", o["Geokoordinate"])				-- to do: obsolete, wenn sobobject genutzt
		end																		-- to do: obsolete, wenn sobobject genutzt
		-- GeoJson
		if geoobjects.geojson.exists then
			setAttr(attrlist, "GeoJson", geoobjects.geojson.fullpagename)
		end
		-- zoom
		setAttr(attrlist, "Zoomlevel", args["zoom"])
		-- normale Attribute setzen
--		mw.logObject(attrlist, "attrlist")
		mw.smw.set(attrlist)
		-- geoobjects als subobjects setzen
--		mw.logObject(geoobjects, "geoobjects")
		for _, o in ipairs(geoobjects) do
			o["SubObjektTyp"] = "Geo"
			o["KartePopupTitle"] = nil											-- brauchen nicht gespeichert werden
			o["KartePopupText"] = nil
			local id = smw.subobjectIdCleaner(o["Geolokation"] or o["Geokoordinate"])
			mw.smw.subobject(o, id)
		end
	end

	if not com.isTrue(args["nomap"]) then										-- keine Karte anzeigen?
																				-- sondern nur geoobjects und SMW-DB
		-- Karten-Argumente (display_map) erstellen
		local map_args = { "", ["zoom"] = args["zoom"],							-- gemeinsame settings
			["width"] = args["width"], ["height"] = args["height"],
			["enablefullscreen"] = "yes", ["resizable"] = "yes"}
		-- geojson-Argument
		if geoobjects.geojson.exists then
			map_args["geojson"] = geoobjects.geojson.pagename
			if #geoobjects > 0 then
				kategorien["Hat geojson und location/lat/lon"] = true
			end
		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
				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"]
					if o["KartePopupTitle"] ~= nil then
						map_args[1] = map_args[1] .. "~" .. o["KartePopupTitle"]
						if o["KartePopupText"] ~= nil then
							map_args[1] = map_args[1] .. "~" .. o["KartePopupText"]
						end
					end
				end
			end
		end
	
		-- Karte (display_map)
		if map_args[1] ~= "" or map_args["geojson"] ~= nil then
--			mw.logObject(map_args, "map_args")
			t = t .. frame:callParserFunction("#display_map", map_args)
			if geoobjects.geojson.arg ~= nil and map_args["geojson"] == nil then
				t = t .. "<small>Karte [" .. geoobjects.geojson.url .. " " ..
					geoobjects.geojson.arg .. "] nicht gefunden</small>"
			end
		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["Ohne Position"] = true
		end
	
		-- Box um Karte
		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

	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
	-- Kategorien nun setzen
	for k, _ in pairs(kategorien) do
		t = t .. "[[Kategorie:" .. k .. "]]"
	end

--	mw.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

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