Module:IMDb

Moduledocumentatie​[bekijk] [bewerk] [ververs] [geschiedenis]

Voor infoboxen van artiesten en films en ook voor Sjabloon:Link IMDb naam, Sjabloon:Link IMDb titel en Sjabloon:Link IMDb bedrijf.

Gebruikt volgcategorie: Categorie:Wikipedia:IMDb-code niet op Wikidata

local p = {}

function p.test(frame)
	local particle = frame.args[1]	-- required
	local charge = frame.args[2]	-- optional
	local r = mw.ustring.gsub(particle, "%d+", "<sub>%0</sub>")
	if charge then
		charge = mw.ustring.gsub(charge, "[-–]", "−")	-- proper minus
		r = r .. "<sup>" .. charge .. "</sup>"
	end
	return r
end

local paths = {
	tt="title/$1/",
	nm="name/$1/",
	co="company/$1/",
	ev="event/$1",
	ni="news/$1/",
};

function p.link_infobox(frame)
	local entity = mw.wikibase.getEntity()
	if not entity then
		return ''
	end
	local qid = entity.id
	local prefix = frame.args[1]	-- optional
	local spec;
	if prefix and #prefix == 2 then
		local path = paths[prefix]
		if not path then
			return ''
		end
		spec = "https://www.imdb.com/" .. path
	else
		spec = "https://wikidata-externalid-url.toolforge.org/?p=345&url_prefix=https://www.imdb.com/&id=$1"
	end
	local r = nil
	for _, s in pairs(mw.wikibase.getBestStatements(qid, 'P345')) do
		local imdbId = s.mainsnak.datavalue.value
		if not prefix or prefix == mw.ustring.sub(imdbId, 1, 2) then
			local url = mw.ustring.gsub(spec, "$1", imdbId)
			local link = "[" .. url .. " IMDb-profiel]"
			if r then
				r = r .. ", " .. link
			else
				r = link
			end
		end
	end
--	if r then
--		r = "{{en}} " .. r
--	end
	return r
end

local function externalLink(frame, prefix)
	local entity = mw.wikibase.getEntity()
	if not entity then
		return '<span style="color:red">Fout: pagina niet verbonden met een Wikidata-item</span>'
	end
	local qid = entity.id
	local label = frame.args[1]		-- optional
	if not label or label == "" then
		label = mw.wikibase.getLabel(qid)
	end
	local spec = "https://www.imdb.com/" .. paths[prefix]
	local sa = mw.wikibase.getBestStatements(qid, 'P345')
	if not sa or #sa == 0 then
		return '<span style="color:red">Fout: geen IMDb-id gevonden op Wikidata-item</span>'
	end
	local r
	for _, s in pairs(sa) do
		local imdbId = s.mainsnak.datavalue.value
		if prefix == mw.ustring.sub(imdbId, 1, 2) then
			local url = mw.ustring.gsub(spec, "$1", imdbId)
			local link = "[" .. url .. " " .. label .. "]"
			if prefix == 'tt' then
				link = "''" .. link .. "''"
			end
			r = link
			break
		end
	end
	if not r then
		return '<span style="color:red">Fout: geen geschikt IMDb-id gevonden op Wikidata-item</span>'
	end
--	r = "{{en}} [[Bestand:Comicsfilm.png|15px|class=noviewer|Pictogram film]]&nbsp;" .. r
	return r
end

function p.link_naam(frame)
	return externalLink(frame, 'nm')
end

function p.link_titel(frame)
	return externalLink(frame, 'tt')
end

function p.link_bedrijf(frame)
	return externalLink(frame, 'co')
end

return p