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 argslist = {
		"lat", "lon", "location", "locationlist", "geojson", "geocode",
		"zoom", "popuptitle", "popuptext",
		"box", "headline", "width", "height",
		"noattr", "form",
		"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

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 pagename = args["pagename"] or wik.pagename()							-- nur zum Debuggen pagename vorgebbar
	
	-- defaults setzen
--	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["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 in lokale var ändern
		args["geojson_pagename"] = pagename										-- to do: diesen Block später in lokale var ändern
	else																		-- to do: diesen Block später in lokale var ändern
		args["geojson_pagename"] = args["geojson"]								-- to do: diesen Block später in lokale var ändern
	end																			-- to do: diesen Block später in lokale var ändern
	args["geojson_fullpagename"] = "GeoJson:" .. args["geojson_pagename"]		-- to do: diesen Block später in lokale var ändern

	-- 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 = geocode(frame, location)							-- to do: nur diese Zeile bleibt übrig
				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 = geocode(frame, args["lat"] .. "," .. args["lon"])
		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

		-- geoobjects 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

		-- Geolokation/Geokoordinate setzen
		for _, o in ipairs(geoobjects) do										-- to do: obsolete, wenn sobobject genutzt
			if o["Geolokation"] ~= nil then										-- to do: obsolete, wenn sobobject genutzt
				t = t .. "{{#set:Geolokation=" .. o["Geolokation"] .. "}}"		-- to do: obsolete, wenn sobobject genutzt
			end																	-- to do: obsolete, wenn sobobject genutzt
			if o["Geokoordinate"] ~= nil then									-- to do: obsolete, wenn sobobject genutzt
				t = t .. "{{#set:Geokoordinate=" .. o["Geokoordinate"] .. "}}"	-- to do: obsolete, wenn sobobject genutzt
			end																	-- to do: obsolete, wenn sobobject genutzt
		end																		-- to do: obsolete, wenn sobobject genutzt

		-- GeoJson
		if wik.pageExists(args["geojson_fullpagename"]) then
			t = t .. "{{#set:GeoJson=" .. args["geojson_fullpagename"] .. "}}"
		end

		-- zoom
		t = t .. "{{#set:Zoomlevel=" .. args["zoom"] .. "}}"
		
	end ---	if not com.isTrue(args["noattr"]) then

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

	-- 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
	hat_geolokation = false														-- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
	hat_geokoordinate = false													-- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
	for _, o in ipairs(geoobjects) do											-- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
		hat_geolokation = hat_geolokation or (o["Geolokation"] ~= nil)			-- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
		hat_geokoordinate = hat_geokoordinate or (o["Geokoordinate"] ~= nil)	-- 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 hat_geolokation and not hat_geokoordinate then							-- to do: diesen Block später rausschmeißen und obigen aktivieren, wenn fertig
		kategorien["Hat Geolokation, aber keine Geokoordinate"] = true			-- 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
	-- 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 geocode(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

return p