Modul:Karte

Vorlage:Karte

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

Vorlagenparameter

Parameter		Beschreibung	Typ	Status
Breitengrad	lat	Beispiel 12.345	Zahlenwert	optional
Längengrad	lon	Beispiel 12.345	Zahlenwert	optional
Objekt-Lokation	location	Beispiel Uhrenhäusla, Fürth, Bayern, Deutschland	Einzeiliger Text	optional
Objekt-Lokations-Liste	locationlist	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 Text	optional
GeoJson-Karte	geojson	Kartenname ohne 'GeoJson:'	Seitenname	optional
Zoom-Faktor	zoom	keine Beschreibung Autowert 16	Zahlenwert	optional
Popup-Titel	popuptitle	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 Text	optional
Popup-Text	popuptext	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 Text	optional
Box-Anzeige: Karte in einer Box oder ohne.	box	Entweder 'ja' oder 'nein' Autowert ja	Wahrheitswert	optional
Box-Überschrift	headline	Wenn eingebunden in einer Box. Darf auch Links enthalten. Autowert GeoJson-Kartenname oder hilfsweise Seitenname	Einzeiliger Text	optional
Kartenbreite	width	Entweder in Prozent oder in Pixel angegeben (wenn NICHT eingebunden in einer Box) Beispiel 100% bzw. 300 Autowert 50%	Zahlenwert	optional
Kartenhöhe	height	Entweder in Prozent oder in Pixel angegeben (wenn NICHT eingebunden in einer Box) Beispiel 100% bzw. 300 Autowert 25%	Zahlenwert	optional

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-Karte^{2) (geojson)}:

{{ Karte | geojson=... | zoom=... | headline=... | box=... | width=... | height=... }}

• Bei Angabe von grafischer GeoJson-Karte und Koordinate^2),3):

{{ Karte | geojson=... | lat=... | lon=... | zoom=... | headline=... | box=... | width=... | height=... }}

• Bei Angabe von grafischer GeoJson-Karte und Objekt-Lokation^2),3):

{{ Karte | geojson=... | location=... | zoom=... | headline=... | box=... | width=... | height=... }}

• Grafische GeoJson-Karte mit gleichem Seitennamen^1),2):

{{ Karte | zoom=... | headline=... | box=... | width=... | height=... }}

Anmerkungen

¹⁾ 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.
²⁾ Wenn die GesJson-Karte (noch) nicht existiert, erscheint eine entsprechende Meldung mit der Klick-Möglichkeit, diese neu anzulegen.
³⁾ 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

{{Karte|lat=49.4805779|lon=10.9978422|zoom=17}}

{{Karte|location=Uhrenhäusla, Fürth, Bayern, Deutschland|zoom=17}}

{{Karte|location=Uhrenhäusla, Fürth, Bayern, Deutschland|headline=Hier steht das Uhrenhäusla|zoom=17}}

{{Karte|location=Uhrenhäusla, Fürth, Bayern, Deutschland|headline=Hier steht das Uhrenhäusla|popuptitle=Uhrenhäusla|popuptext=Siehe Uhrenhäusla|zoom=17}}

{{Karte|locationlist=Uhrenhäusla, Fürth, Bayern, Deutschland|zoom=17}}

{{Karte|locationlist=Uhrenhäusla, Fürth, Bayern, Deutschland; Rathaus Rathaus, Fürth, Bayern, Deutschland|zoom=15}}

{{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}}

{{Karte|geojson=Südstadt|headline=Südstadt|zoom=13}}

{{Karte|lat=49.4805779|lon=10.9978422|geojson=BlaBla|zoom=17}}

{{Karte|location=Uhrenhäusla, Fürth, Bayern, Deutschland|geojson=BlaBla|zoom=17}}

{{Karte|zoom=14}}

{{Karte|geojson=BlaBla}}

{{Karte|lat=49.4805779|lon=10.9978422|box=nein}}

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

Siehe auch

• Attribut:Geokoordinate
• Attribut:Zoomlevel
• Hilfe:Karten
• Modul:Karte

Zusätzliche Parameter karte()

Vorlagenparameter

Parameter		Beschreibung	Typ	Status
Keine Attribute setzen.	noattr	Autowert nein	Wahrheitswert	optional
Keine Karte rendern.	nomap	Autowert nein	Wahrheitswert	optional
Ehemals	form	keine Beschreibung Autowert nein	Wahrheitswert	optional

Unterseiten

• Karte/Doku
• Karte/Work

Siehe auch

• Vorlage:Karte

---

p = {}

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

function p.Karte(frame)
	-- nur die benötigten Argumente übernehmen
	local args = {
		"lat", "lon", "location", "locationlist", "geojson", "geocode",
		"zoom", "popuptitle", "popuptext",
		"box", "headline", "width", "height",
		"noattr", "form",
		"Work", "Debug"}
	local args = wik.getArgs(frame.args, args)
	return p.karte(frame, args)
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 geoobjects = {}
	local kategorien = {}
	local attrlist = {}
	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"
	local geojson_pagename = args["geojson"] or pagename
	local geojson_fullpagename = "GeoJson:" .. geojson_pagename

	-- 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
			   com.isTrue(args["Ehemals"]) then
				kategorien["Hat Objektlokation, ist aber ehemaliges Objekt"] = true
			else
				-- location geocode
				local geocode = "Geocoding failed"								-- to do: diesen Block später rausschmeißen nach Aufbau nominatim.fuerthwiki.de
				if com.isEmpty(args["lat"]) or com.isEmpty(args["lon"]) then	-- to do: diesen Block später rausschmeißen nach Aufbau nominatim.fuerthwiki.de
					geocode = getGeocode(frame, location)						-- to do: nur diese Zeile bleibt übrig (mit local)
				end																-- to do: diesen Block später rausschmeißen nach Aufbau nominatim.fuerthwiki.de
				if geocode ~= "Geocoding failed" then
					geoobject_entry["Geokoordinate"] = geocode
					geoobject_entry["Quellangaben"] = "location"
					minimum_one_geocode_ok = true
				else
					-- geocode nicht erfolgreich => SMW-DB nehmen
					kategorien["Hat Geo-Kodierungsfehler"] = true
					local smw_geokoordinate = mw.smw.ask(
						"[[-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
					end
				end -- if geocode ~= "Geocoding failed" then
			end -- if Zahlerkennung
			set_popuptitle_popuptext(geoobject_entry, popuptitle, 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 
	   not com.isEmpty(args["lat"]) and not com.isEmpty(args["lon"]) then
		local geoobject_entry = {}
--		local geocode = getGeocode(frame, 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
		set_popuptitle_popuptext(geoobject_entry, popuptitle, 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 wik.pageExists(geojson_fullpagename) then
			setAttr(attrlist, "GeoJson", 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"
			local id = smw.subobjectIdCleaner(o["Geolokation"] or o["Geokoordinate"])
			mw.smw.subobject(o, id)
		end
	end

	-- Karte
	local map_args = { "", ["zoom"] = args["zoom"],								-- gemeinsame settings
		["width"] = args["width"], ["height"] = args["height"],
		["enablefullscreen"] = "yes", ["resizable"] = "yes"}
	-- geojson
	if wik.pageExists(geojson_fullpagename) then
		map_args["geojson"] = geojson_pagename
		table.insert(map_args, "") -- dummy / keine location
		if #geoobjects > 0 then
			kategorien["Hat geojson und location/lat/lon"] = true
		end
	else
		-- location/lat/lon
		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
	if map_args[1] ~= "" or map_args["geojson"] ~= nil then
		mw.logObject(map_args, "map_args")
		t = t .. frame:callParserFunction("#display_map", map_args)
	else
		-- bisherige Vorlagen-Karte
		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}
	end

	-- 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["Hat Karte"] = true
	-- Check "Hat Geolokation, aber keine Geokoordinate"
	for _, o in ipairs(geoobjects) do											-- Check "Hat Geolokation, aber keine Geokoordinate"
		if o["Geolokation"] ~= nil and o["Geokoordinate"] == nil then
			kategorien["Hat Geolokation, aber keine Geokoordinate"] = true
		end
	end
	-- nun setzen
	for k, _ in pairs(kategorien) do
		t = t .. "[[Kategorie:" .. k .. "]]"
	end

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

function getGeocode(frame, location)
	return frame:callParserFunction(
		"#geocode", {location, format="float", directional="no"})
end

function set_popuptitle_popuptext(geoobject_entry, popuptitle, popuptext)
	if not com.isEmpty(popuptitle) then
		geoobject_entry["KartePopupTitle"] = popuptitle
	end
	if not com.isEmpty(popuptext) then
		geoobject_entry["KartePopupText"] = popuptext
	end
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

return p