Modul:VCard/Unesco

Dokumentaci tohoto modulu lze vytvořit na stránce Modul:VCard/Unesco/Dokumentace

-- kopie z německých wikicest (https://de.wikivoyage.org/w/index.php?title=Modul:VCard/Unesco&oldid=1522283)
-- copy from dewikivoyage (https://de.wikivoyage.org/w/index.php?title=Modul:VCard/Unesco&oldid=1522283)
-- This module presenting a Unesco icon with a link to the related article
-- has to be adapted to the needs of the local wiki. It depends on the
-- existence of Unesco heritage articles.

-- modul variable and administration
local unesco = {
	moduleInterface  = {
		suite  = 'vCard',
		sub    = 'Unesco',
		serial = '2023-02-18',
		item   = 111232404
	}
}

-- heritage articles by continent, taken from Module:Unesco/i18n
local articles = {
	af      = 'Památky UNESCO/Afrika', -- africa
	am      = 'Památky UNESCO/Amerika', -- america
	as      = 'Památky UNESCO/Asie', -- asia
	au      = 'Památky UNESCO/Austrálie', -- australia
	eu      = 'Památky UNESCO/Evropa', -- europe
	na      = 'Památky UNESCO/Severní Amerika', -- north america
	oc      = 'Památky UNESCO/Oceánie', -- oceania
	sa      = 'Památky UNESCO/Jižní Amerika', -- south america
	default = 'Památky UNESCO',
	title   = 'Památky UNESCO v %s'
}

-- image titles by continent, taken from Module:Unesco/i18n
local titles = {
	af      = 'Památky UNESCO v Africe',
	am      = 'Památky UNESCO v Americe',
	as      = 'Památky UNESCO v Asii',
	au      = 'Památky UNESCO v Austrálii',
	eu      = 'Památky UNESCO v Evropě',
	na      = 'Památky UNESCO v Severní Americe',
	oc      = 'Památky UNESCO v Oceánii',
	sa      = 'Památky UNESCO v Jižní Americe',
	default = 'Památky UNESCO'
}

local exceptions = {
	--na následující řádky vkládat výjimky, zatím ponechávám v komentáři
--[[
	Niue           = 'Welterbe auf Niue',
	Samoa          = 'Welterbe auf Samoa',
	Tonga          = 'Welterbe auf Tonga',
	Bahamas        = 'Welterbe auf den Bahamas',
	Cookinseln     = 'Welterbe auf den Cookinseln',
	Komoren        = 'Welterbe auf den Komoren',
	Malediven      = 'Welterbe auf den Malediven',
	Marshallinseln = 'Welterbe auf den Marshallinseln',
	Philippinen    = 'Welterbe auf den Philippinen',
	Salomonen      = 'Welterbe auf den Salomonen',
	Seychellen     = 'Welterbe auf den Seychellen',

	Irak           = 'Welterbe im Irak',
	Jemen          = 'Welterbe im Jemen',
	Kosovo         = 'Welterbe im Kosovo',
	Libanon        = 'Welterbe im Libanon',
	Sudan          = 'Welterbe im Sudan',
	['Südsudan']   = 'Welterbe im Südsudan',
	Tschad         = 'Welterbe im Tschad',
	['Vereinigtes Königreich'] = 'Welterbe im Vereinigten Königreich',

	['Föderierten Staaten von Mikronesien'] = 'Welterbe in den Föderierten Staaten von Mikronesien',
	Niederlande    = 'Welterbe in den Niederlanden',
	['Vereinigte Staaten'] = 'Welterbe in den Vereinigten Staaten',
	['Vereinigte Arabische Emirate'] = 'Welterbe in den Vereinigten Arabischen Emiraten',

	['Demokratische Republik Kongo'] = 'Welterbe in der Demokratischen Republik Kongo',
	['Dominikanische Republik'] = 'Welterbe in der Dominikanischen Republik',
	['Elfenbeinküste'] = 'Welterbe in der Elfenbeinküste',
	Mongolei       = 'Welterbe in der Mongolei',
	['Republik Kongo'] = 'Welterbe in der Republik Kongo',
	Schweiz        = 'Welterbe in der Schweiz',
	Slowakei       = 'Welterbe in der Slowakei',
	['Türkei']     = 'Welterbe in der Türkei',
	Ukraine        = 'Welterbe in der Ukraine',
	Vatikanstadt   = 'Welterbe in der Vatikanstadt',
	['Zentralafrikanische Republik'] = 'Welterbe in der Zentralafrikanischen Republik'
--]]
--konec řádků s výjimkami
}

-- create unesco image with link and title
function unesco.getUnescoInfo( countryData )
	local article = exceptions[ countryData.country ] or
		articles.title:format( countryData.country )

	if article then
		-- try to get the country article
		local title = mw.title.new( article )
		if title and title.exists then
			return article, article
		end

		-- try to get the continent article
		title = titles[ countryData.cont ]
		if title then
			article = articles[ countryData.cont ] .. '#' .. countryData.country
			return article, title
		end
	end

	return articles.default, titles.default
end

return unesco