Module:Wikidata
-- vim: set noexpandtab ft=lua ts=4 sw=4:
 require('Module:No globals')
 
 local p = {}
 local debug = false
 
 
 ------------------------------------------------------------------------------
 -- module local variables and functions
 
 local wiki =
 {
 	langcode = mw.language.getContentLanguage().code
 }
 
 -- internationalisation
 local i18n =
 {
 	[&quot;errors&quot;] =
 	{
 		[&quot;property-not-found&quot;] = &quot;Property not found.&quot;,
 		[&quot;entity-not-found&quot;] = &quot;Wikidata entity not found.&quot;,
 		[&quot;unknown-claim-type&quot;] = &quot;Unknown claim type.&quot;,
 		[&quot;unknown-entity-type&quot;] = &quot;Unknown entity type.&quot;,
 		[&quot;qualifier-not-found&quot;] = &quot;Qualifier not found.&quot;,
 		[&quot;site-not-found&quot;] = &quot;Wikimedia project not found.&quot;,
 		[&quot;unknown-datetime-format&quot;] = &quot;Unknown datetime format.&quot;,
 		[&quot;local-article-not-found&quot;] = &quot;Article is not yet available in this wiki.&quot;
 	},
 	[&quot;datetime&quot;] =
 	{
 		-- $1 is a placeholder for the actual number
 		[0] = &quot;$1 billion years&quot;,	-- precision: billion years
 		[1] = &quot;$100 million years&quot;,	-- precision: hundred million years
 		[2] = &quot;$10 million years&quot;,	-- precision: ten million years
 		[3] = &quot;$1 million years&quot;,	-- precision: million years
 		[4] = &quot;$100,000 years&quot;,		-- precision: hundred thousand years
 		[5] = &quot;$10,000 years&quot;,		-- precision: ten thousand years
 		[6] = &quot;$1 millennium&quot;,		-- precision: millennium
 		[7] = &quot;$1 century&quot;,			-- precision: century
 		[8] = &quot;$1s&quot;,				-- precision: decade
 		-- the following use the format of #time parser function
 		[9]  = &quot;Y&quot;,					-- precision: year,
 		[10] = &quot;F Y&quot;,				-- precision: month
 		[11] = &quot;F j, Y&quot;,			-- precision: day
 		[12] = &quot;F j, Y ga&quot;,			-- precision: hour
 		[13] = &quot;F j, Y g:ia&quot;,		-- precision: minute
 		[14] = &quot;F j, Y g:i:sa&quot;,		-- precision: second
 		[&quot;beforenow&quot;] = &quot;$1 BCE&quot;,	-- how to format negative numbers for precisions 0 to 5
 		[&quot;afternow&quot;] = &quot;$1 CE&quot;,		-- how to format positive numbers for precisions 0 to 5
 		[&quot;bc&quot;] = '$1 &quot;BCE&quot;',		-- how print negative years
 		[&quot;ad&quot;] = &quot;$1&quot;,				-- how print positive years
 		-- the following are for function getDateValue() and getQualifierDateValue()
 		[&quot;default-format&quot;] = &quot;dmy&quot;, -- default value of the #3 (getDateValue) or
 									-- #4 (getQualifierDateValue) argument
 		[&quot;default-addon&quot;] = &quot;BC&quot;,	-- default value of the #4 (getDateValue) or
 									-- #5 (getQualifierDateValue) argument
 		[&quot;prefix-addon&quot;] = false,	-- set to true for languages put &quot;BC&quot; in front of the
 									-- datetime string; or the addon will be suffixed
 		[&quot;addon-sep&quot;] = &quot; &quot;,		-- separator between datetime string and addon (or inverse)
 		[&quot;format&quot;] =				-- options of the 3rd argument
 		{
 			[&quot;mdy&quot;] = &quot;F j, Y&quot;,
 			[&quot;my&quot;] = &quot;F Y&quot;,
 			[&quot;y&quot;] = &quot;Y&quot;,
 			[&quot;dmy&quot;] = &quot;j F Y&quot;,
 			[&quot;ymd&quot;] = &quot;Y-m-d&quot;,
 			[&quot;ym&quot;] = &quot;Y-m&quot;
 		}
 	},
 	[&quot;monolingualtext&quot;] = '&lt;span lang=&quot;%language&quot;&gt;%text&lt;/span&gt;',
 	[&quot;warnDump&quot;] = &quot;[[Category:Called function 'Dump' from module Wikidata]]&quot;,
 	[&quot;ordinal&quot;] =
 	{
 		[1] = &quot;st&quot;,
 		[2] = &quot;nd&quot;,
 		[3] = &quot;rd&quot;,
 		[&quot;default&quot;] = &quot;th&quot;
 	}
 }
 
 if wiki.langcode ~= &quot;en&quot; then
 	--require(&quot;Module:i18n&quot;).loadI18n(&quot;Module:Wikidata/i18n&quot;, i18n)
 	-- got idea from [[:w:Module:Wd]]
 	local module_title; if ... == nil then
 		module_title = mw.getCurrentFrame():getTitle()
 	else
 		module_title = ...
 	end
 	require('Module:i18n').loadI18n(module_title..'/i18n', i18n)
 end
 
 -- this function needs to be internationalised along with the above:
 -- takes cardinal numer as a numeric and returns the ordinal as a string
 -- we need three exceptions in English for 1st, 2nd, 3rd, 21st, .. 31st, etc.
 local function makeOrdinal (cardinal)
 	local ordsuffix = i18n.ordinal.default
 	if cardinal % 10 == 1 then
 		ordsuffix = i18n.ordinal[1]
 	elseif cardinal % 10 == 2 then
 		ordsuffix = i18n.ordinal[2]
 	elseif cardinal % 10 == 3 then
 		ordsuffix = i18n.ordinal[3]
 	end
 	-- In English, 1, 21, 31, etc. use 'st', but 11, 111, etc. use 'th'
 	-- similarly for 12 and 13, etc.
 	if (cardinal % 100 == 11) or (cardinal % 100 == 12) or (cardinal % 100 == 13) then
 		ordsuffix = i18n.ordinal.default
 	end
 	return tostring(cardinal) .. ordsuffix
 end
 
 local function printError(code)
 	return '&lt;span class=&quot;error&quot;&gt;' .. (i18n.errors[code] or code) .. '&lt;/span&gt;'
 end
 local function parseDateFormat(f, timestamp, addon, prefix_addon, addon_sep) 
 	local year_suffix
 	local tstr = &quot;&quot;
 	local lang_obj = mw.language.new(wiki.langcode)
 	local f_parts = mw.text.split(f, 'Y', true)
 	for idx, f_part in pairs(f_parts) do
 		year_suffix = ''
 		if string.match(f_part, &quot;x[mijkot]$&quot;) then
 			-- for non-Gregorian year
 			f_part = f_part .. 'Y'
 		elseif idx &lt; #f_parts then
 			-- supress leading zeros in year
 			year_suffix = lang_obj:formatDate('Y', timestamp)
 			year_suffix = string.gsub(year_suffix, '^0+', '', 1)
 		end
 		tstr = tstr .. lang_obj:formatDate(f_part, timestamp) .. year_suffix
 	end
 	if addon ~= &quot;&quot; and prefix_addon then
 		return addon .. addon_sep .. tstr
 	elseif addon ~= &quot;&quot; then
 		return tstr .. addon_sep .. addon
 	else
 		return tstr
 	end
 end
 local function parseDateValue(timestamp, date_format, date_addon)
 	local prefix_addon = i18n[&quot;datetime&quot;][&quot;prefix-addon&quot;]
 	local addon_sep = i18n[&quot;datetime&quot;][&quot;addon-sep&quot;]
 	local addon = &quot;&quot;
 
 	-- check for negative date
 	if string.sub(timestamp, 1, 1) == '-' then
 		timestamp = '+' .. string.sub(timestamp, 2)
 		addon = date_addon
 	end
 	local _date_format = i18n[&quot;datetime&quot;][&quot;format&quot;][date_format]
 	if _date_format ~= nil then
 		return parseDateFormat(_date_format, timestamp, addon, prefix_addon, addon_sep)
 	else
 		return printError(&quot;unknown-datetime-format&quot;)
 	end
 end
 
 -- This local function combines the year/month/day/BC/BCE handling of parseDateValue{}
 -- with the millennium/century/decade handling of formatDate()
 local function parseDateFull(timestamp, precision, date_format, date_addon)
 	local prefix_addon = i18n[&quot;datetime&quot;][&quot;prefix-addon&quot;]
 	local addon_sep = i18n[&quot;datetime&quot;][&quot;addon-sep&quot;]
 	local addon = &quot;&quot;
 
 	-- check for negative date
 	if string.sub(timestamp, 1, 1) == '-' then
 		timestamp = '+' .. string.sub(timestamp, 2)
 		addon = date_addon
 	end
 
 	-- get the next four characters after the + (should be the year now in all cases)
 	-- ok, so this is dirty, but let's get it working first
 	local intyear = tonumber(string.sub(timestamp, 2, 5))
 	if intyear == 0 and precision &lt;= 9 then
 		return &quot;&quot;
 	end
 
 	-- precision is 10000 years or more
 	if precision &lt;= 5 then
 		local factor = 10 ^ ((5 - precision) + 4)
 		local y2 = math.ceil(math.abs(intyear) / factor)
 		local relative = mw.ustring.gsub(i18n.datetime[precision], &quot;$1&quot;, tostring(y2))
 		if addon ~= &quot;&quot; then
 			-- negative date
 			relative = mw.ustring.gsub(i18n.datetime.beforenow, &quot;$1&quot;, relative)
 		else
 			relative = mw.ustring.gsub(i18n.datetime.afternow, &quot;$1&quot;, relative)
 		end
 		return relative
 	end
 
 	-- precision is decades (8), centuries (7) and millennia (6)
 	local era, card
 	if precision == 6 then
 		card = math.floor((intyear - 1) / 1000) + 1
 		era = mw.ustring.gsub(i18n.datetime[6], &quot;$1&quot;, makeOrdinal(card))
 	end
 	if precision == 7 then
 		card = math.floor((intyear - 1) / 100) + 1
 		era = mw.ustring.gsub(i18n.datetime[7], &quot;$1&quot;, makeOrdinal(card))
 	end
 	if precision == 8 then
 		era = mw.ustring.gsub(i18n.datetime[8], &quot;$1&quot;, tostring(math.floor(math.abs(intyear) / 10) * 10))
 	end
 	if era then
 		if addon ~= &quot;&quot; then
 			era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc, '&quot;', &quot;&quot;), &quot;$1&quot;, era)
 		else
 			era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad, '&quot;', &quot;&quot;), &quot;$1&quot;, era)
 		end
 		return era
 	end
 
 	local _date_format = i18n[&quot;datetime&quot;][&quot;format&quot;][date_format]
 	if _date_format ~= nil then
 		-- check for precision is year and override supplied date_format
 		if precision == 9 then
 			_date_format = i18n[&quot;datetime&quot;][9]
 		end
 		return parseDateFormat(_date_format, timestamp, addon, prefix_addon, addon_sep)
 	else
 		return printError(&quot;unknown-datetime-format&quot;)
 	end
 end
 
 -- the &quot;qualifiers&quot; and &quot;snaks&quot; field have a respective &quot;qualifiers-order&quot; and &quot;snaks-order&quot; field
 -- use these as the second parameter and this function instead of the built-in &quot;pairs&quot; function
 -- to iterate over all qualifiers and snaks in the intended order.
 local function orderedpairs(array, order)
 	if not order then return pairs(array) end
 
 	-- return iterator function
 	local i = 0
 	return function()
 		i = i + 1
 		if order[i] then
 			return order[i], array[order[i]]
 		end
 	end
 end
 
 -- precision: 0 - billion years, 1 - hundred million years, ..., 6 - millennia, 7 - century, 8 - decade, 9 - year, 10 - month, 11 - day, 12 - hour, 13 - minute, 14 - second
 local function normalizeDate(date)
 	date = mw.text.trim(date, &quot;+&quot;)
 	-- extract year
 	local yearstr = mw.ustring.match(date, &quot;^\-?%d+&quot;)
 	local year = tonumber(yearstr)
 	-- remove leading zeros of year
 	return year .. mw.ustring.sub(date, #yearstr + 1), year
 end
 
 local function formatDate(date, precision, timezone)
 	precision = precision or 11
 	local date, year = normalizeDate(date)
 	if year == 0 and precision &lt;= 9 then return &quot;&quot; end
 
 	-- precision is 10000 years or more
 	if precision &lt;= 5 then
 		local factor = 10 ^ ((5 - precision) + 4)
 		local y2 = math.ceil(math.abs(year) / factor)
 		local relative = mw.ustring.gsub(i18n.datetime[precision], &quot;$1&quot;, tostring(y2))
 		if year &lt; 0 then
 			relative = mw.ustring.gsub(i18n.datetime.beforenow, &quot;$1&quot;, relative)
 		else
 			relative = mw.ustring.gsub(i18n.datetime.afternow, &quot;$1&quot;, relative)
 		end
 		return relative
 	end
 
 	-- precision is decades, centuries and millennia
 	local era
 	if precision == 6 then era = mw.ustring.gsub(i18n.datetime[6], &quot;$1&quot;, tostring(math.floor((math.abs(year) - 1) / 1000) + 1)) end
 	if precision == 7 then era = mw.ustring.gsub(i18n.datetime[7], &quot;$1&quot;, tostring(math.floor((math.abs(year) - 1) / 100) + 1)) end
 	if precision == 8 then era = mw.ustring.gsub(i18n.datetime[8], &quot;$1&quot;, tostring(math.floor(math.abs(year) / 10) * 10)) end
 	if era then
 		if year &lt; 0 then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc, '&quot;', &quot;&quot;), &quot;$1&quot;, era)
 		elseif year &gt; 0 then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad, '&quot;', &quot;&quot;), &quot;$1&quot;, era) end
 		return era
 	end
 
 	-- precision is year
 	if precision == 9 then
 		return year
 	end
 
 	-- precision is less than years
 	if precision &gt; 9 then
 		--[[ the following code replaces the UTC suffix with the given negated timezone to convert the global time to the given local time
 		timezone = tonumber(timezone)
 		if timezone and timezone ~= 0 then
 			timezone = -timezone
 			timezone = string.format(&quot;%.2d%.2d&quot;, timezone / 60, timezone % 60)
 			if timezone[1] ~= '-' then timezone = &quot;+&quot; .. timezone end
 			date = mw.text.trim(date, &quot;Z&quot;) .. &quot; &quot; .. timezone
 		end
 		]]--
 
 		local formatstr = i18n.datetime[precision]
 		if year == 0 then formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], &quot;&quot;)
 		elseif year &lt; 0 then
 			-- Mediawiki formatDate doesn't support negative years
 			date = mw.ustring.sub(date, 2)
 			formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], mw.ustring.gsub(i18n.datetime.bc, &quot;$1&quot;, i18n.datetime[9]))
 		elseif year &gt; 0 and i18n.datetime.ad ~= &quot;$1&quot; then
 			formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], mw.ustring.gsub(i18n.datetime.ad, &quot;$1&quot;, i18n.datetime[9]))
 		end
 		return mw.language.new(wiki.langcode):formatDate(formatstr, date)
 	end
 end
 
 local function printDatavalueEntity(data, parameter)
 	-- data fields: entity-type [string], numeric-id [int, Wikidata id]
 	local id
 
 	if data[&quot;entity-type&quot;] == &quot;item&quot; then id = &quot;Q&quot; .. data[&quot;numeric-id&quot;]
 	elseif data[&quot;entity-type&quot;] == &quot;property&quot; then id = &quot;P&quot; .. data[&quot;numeric-id&quot;]
 	else return printError(&quot;unknown-entity-type&quot;)
 	end
 
 	if parameter then
 		if parameter == &quot;link&quot; then
 			local linkTarget = mw.wikibase.sitelink(id)
 			local linkName = mw.wikibase.label(id)
 			if linkTarget then
 				-- if there is a local Wikipedia article link to it using the label or the article title
 				return &quot;[[&quot; .. linkTarget .. &quot;|&quot; .. (linkName or linkTarget) .. &quot;]]&quot;
 			else
 				-- if there is no local Wikipedia article output the label or link to the Wikidata object to let the user input a proper label
 				if linkName then return linkName else return &quot;[[:d:&quot; .. id .. &quot;|&quot; .. id .. &quot;]]&quot; end
 			end
 		else
 			return data[parameter]
 		end
 	else
 		return mw.wikibase.label(id) or id
 	end
 end
 
 local function printDatavalueTime(data, parameter)
 	-- data fields: time [ISO 8601 time], timezone [int in minutes], before [int], after [int], precision [int], calendarmodel [wikidata URI]
 	--   precision: 0 - billion years, 1 - hundred million years, ..., 6 - millennia, 7 - century, 8 - decade, 9 - year, 10 - month, 11 - day, 12 - hour, 13 - minute, 14 - second
 	--   calendarmodel: e.g. http://www.wikidata.org/entity/Q1985727 for the proleptic Gregorian calendar or http://www.wikidata.org/wiki/Q11184 for the Julian calendar]
 	if parameter then
 		if parameter == &quot;calendarmodel&quot; then data.calendarmodel = mw.ustring.match(data.calendarmodel, &quot;Q%d+&quot;) -- extract entity id from the calendar model URI
 		elseif parameter == &quot;time&quot; then data.time = normalizeDate(data.time) end
 		return data[parameter]
 	else
 		return formatDate(data.time, data.precision, data.timezone)
 	end
 end
 
 local function printDatavalueMonolingualText(data, parameter)
 	-- data fields: language [string], text [string]
 	if parameter then
 		return data[parameter]
 	else
 		local result = mw.ustring.gsub(mw.ustring.gsub(i18n.monolingualtext, &quot;%%language&quot;, data[&quot;language&quot;]), &quot;%%text&quot;, data[&quot;text&quot;])
 		return result
 	end
 end
 
 local function findClaims(entity, property)
 	if not property or not entity or not entity.claims then return end
 
 	if mw.ustring.match(property, &quot;^P%d+$&quot;) then
 		-- if the property is given by an id (P..) access the claim list by this id
 		return entity.claims[property]
 	else
 		property = mw.wikibase.resolvePropertyId(property)
 		if not property then return end
 
 		return entity.claims[property]
 	end
 end
 
 local function getSnakValue(snak, parameter)
 	if snak.snaktype == &quot;value&quot; then
 		-- call the respective snak parser
 		if snak.datavalue.type == &quot;string&quot; then return snak.datavalue.value
 		elseif snak.datavalue.type == &quot;globecoordinate&quot; then return printDatavalueCoordinate(snak.datavalue.value, parameter)
 		elseif snak.datavalue.type == &quot;quantity&quot; then return printDatavalueQuantity(snak.datavalue.value, parameter)
 		elseif snak.datavalue.type == &quot;time&quot; then return printDatavalueTime(snak.datavalue.value, parameter)
 		elseif snak.datavalue.type == &quot;wikibase-entityid&quot; then return printDatavalueEntity(snak.datavalue.value, parameter)
 		elseif snak.datavalue.type == &quot;monolingualtext&quot; then return printDatavalueMonolingualText(snak.datavalue.value, parameter)
 		end
 	end
 	return mw.wikibase.renderSnak(snak)
 end
 
 local function getQualifierSnak(claim, qualifierId)
 	-- a &quot;snak&quot; is Wikidata terminology for a typed key/value pair
 	-- a claim consists of a main snak holding the main information of this claim,
 	-- as well as a list of attribute snaks and a list of references snaks
 	if qualifierId then
 		-- search the attribute snak with the given qualifier as key
 		if claim.qualifiers then
 			local qualifier = claim.qualifiers[qualifierId]
 			if qualifier then return qualifier[1] end
 		end
 		return nil, printError(&quot;qualifier-not-found&quot;)
 	else
 		-- otherwise return the main snak
 		return claim.mainsnak
 	end
 end
 
 local function getValueOfClaim(claim, qualifierId, parameter)
 	local error
 	local snak
 	snak, error = getQualifierSnak(claim, qualifierId)
 	if snak then
 		return getSnakValue(snak, parameter)
 	else
 		return nil, error
 	end
 end
 
 local function getReferences(frame, claim)
 	local result = &quot;&quot;
 	-- traverse through all references
 	for ref in pairs(claim.references or {}) do
 		local refparts
 		-- traverse through all parts of the current reference
 		for snakkey, snakval in orderedpairs(claim.references[ref].snaks or {}, claim.references[ref][&quot;snaks-order&quot;]) do
 			if refparts then refparts = refparts .. &quot;, &quot; else refparts = &quot;&quot; end
 			-- output the label of the property of the reference part, e.g. &quot;imported from&quot; for P143
 			refparts = refparts .. tostring(mw.wikibase.label(snakkey)) .. &quot;: &quot;
 			-- output all values of this reference part, e.g. &quot;German Wikipedia&quot; and &quot;English Wikipedia&quot; if the referenced claim was imported from both sites
 			for snakidx = 1, #snakval do
 				if snakidx &gt; 1 then refparts = refparts .. &quot;, &quot; end
 				refparts = refparts .. getSnakValue(snakval[snakidx])
 			end
 		end
 		if refparts then result = result .. frame:extensionTag(&quot;ref&quot;, refparts) end
 	end
 	return result
 end
 
 local function parseInput(frame)
 	local qid = frame.args.qid
 	if qid and (#qid == 0) then qid = nil end
 	local propertyID = mw.text.trim(frame.args[1] or &quot;&quot;)
 	local input_parm = mw.text.trim(frame.args[2] or &quot;&quot;)
 	if input_parm ~= &quot;FETCH_WIKIDATA&quot; then
 		return false, input_parm, nil, nil
 	end
 	local entity = mw.wikibase.getEntityObject(qid)
 	local claims
 	if entity and entity.claims then
 		claims = entity.claims[propertyID]
 		if not claims then
 			return false, &quot;&quot;, nil, nil
 		end
 	else
 		return false, &quot;&quot;, nil, nil
 	end
 	return true, entity, claims, propertyID
 end
 local function isType(claims, type)
 	return claims[1] and claims[1].mainsnak.snaktype == &quot;value&quot; and claims[1].mainsnak.datavalue.type == type
 end
 local function getValue(entity, claims, propertyID, delim, labelHook) 
 	if labelHook == nil then
 		labelHook = function (qnumber)
 			return nil;
 		end
 	end
 	if isType(claims, &quot;wikibase-entityid&quot;) then
 		local out = {}
 		for k, v in pairs(claims) do
 			local qnumber = &quot;Q&quot; .. v.mainsnak.datavalue.value[&quot;numeric-id&quot;]
 			local sitelink = mw.wikibase.sitelink(qnumber)
 			local label = labelHook(qnumber) or mw.wikibase.label(qnumber) or qnumber
 			if sitelink then
 				out[#out + 1] = &quot;[[&quot; .. sitelink .. &quot;|&quot; .. label .. &quot;]]&quot;
 			else
 				out[#out + 1] = &quot;[[:d:&quot; .. qnumber .. &quot;|&quot; .. label .. &quot;]]&lt;abbr title='&quot; .. i18n[&quot;errors&quot;][&quot;local-article-not-found&quot;] .. &quot;'&gt;[*]&lt;/abbr&gt;&quot;
 			end
 		end
 		return table.concat(out, delim)
 	else
 		-- just return best values
 		return entity:formatPropertyValues(propertyID).value
 	end
 end
 
 ------------------------------------------------------------------------------
 -- module global functions
 
 if debug then
 	function p.inspectI18n(frame)
 		local val = i18n
 		for _, key in pairs(frame.args) do
 			key = mw.text.trim(key)
 			val = val[key]
 		end
 		return val
 	end
 end
 
 function p.descriptionIn(frame)
 	local langcode = frame.args[1]
 	local id = frame.args[2]
 	-- return description of a Wikidata entity in the given language or the default language of this Wikipedia site
 	return mw.wikibase.getEntityObject(id).descriptions[langcode or wiki.langcode].value
 end
 
 function p.labelIn(frame)
 	local langcode = frame.args[1]
 	local id = frame.args[2]
 	-- return label of a Wikidata entity in the given language or the default language of this Wikipedia site
 	return mw.wikibase.getEntityObject(id).labels[langcode or wiki.langcode].value
 end
 
 -- This is used to get a value, or a comma separated list of them if multiple values exist
 p.getValue = function(frame)
 	local delimdefault = &quot;, &quot; -- **internationalise later**
 	local delim = frame.args.delimiter or &quot;&quot;
 	delim = string.gsub(delim, '&quot;', '')
 	if #delim == 0 then
 		delim = delimdefault
 	end
 	local go, errorOrentity, claims, propertyID = parseInput(frame)
 	if not go then
 		return errorOrentity
 	end
 	return getValue(errorOrentity, claims, propertyID, delim)
 end
 
 -- Same as above, but uses the short name property for label if available.
 p.getValueShortName = function(frame)
 	local go, errorOrentity, claims, propertyID = parseInput(frame)
 	if not go then
 		return errorOrentity
 	end
 	local entity = errorOrentity
 	-- if wiki-linked value output as link if possible
 	local function labelHook (qnumber)
 		local label
 		local claimEntity = mw.wikibase.getEntity(qnumber)
 		if claimEntity ~= nil then
 			if claimEntity.claims.P1813 then
 				for k2, v2 in pairs(claimEntity.claims.P1813) do
 					if v2.mainsnak.datavalue.value.language == &quot;en&quot; then
 						label = v2.mainsnak.datavalue.value.text
 					end
 				end
 			end
 		end
 		if label == nil or label == &quot;&quot; then return nil end
 		return label
 	end
 	return getValue(errorOrentity, claims, propertyID, &quot;, &quot;, labelHook);
 end
 
 -- This is used to get a value, or a comma separated list of them if multiple values exist
 -- from an arbitrary entry by using its QID.
 -- Use : {{#invoke:Wikidata|getValueFromID|&lt;ID&gt;|&lt;Property&gt;|FETCH_WIKIDATA}}
 -- E.g.: {{#invoke:Wikidata|getValueFromID|Q151973|P26|FETCH_WIKIDATA}} - to fetch value of 'spouse' (P26) from 'Richard Burton' (Q151973)
 -- Please use sparingly - this is an *expensive call*.
 p.getValueFromID = function(frame)
 	local itemID = mw.text.trim(frame.args[1] or &quot;&quot;)
 	local propertyID = mw.text.trim(frame.args[2] or &quot;&quot;)
 	local input_parm = mw.text.trim(frame.args[3] or &quot;&quot;)
 	if input_parm == &quot;FETCH_WIKIDATA&quot; then
 		local entity = mw.wikibase.getEntity(itemID)
 		local claims
 		if entity and entity.claims then
 			claims = entity.claims[propertyID]
 		end
 		if claims then
 			return getValue(entity, claims, propertyID, &quot;, &quot;)
 		else
 			return &quot;&quot;
 		end
 	else
 		return input_parm
 	end
 end
 local function getQualifier(frame, outputHook) 
 	local propertyID = mw.text.trim(frame.args[1] or &quot;&quot;)
 	local qualifierID = mw.text.trim(frame.args[2] or &quot;&quot;)
 	local input_parm = mw.text.trim(frame.args[3] or &quot;&quot;)
 	if input_parm == &quot;FETCH_WIKIDATA&quot; then
 		local entity = mw.wikibase.getEntityObject()
 		if entity.claims[propertyID] ~= nil then
 			local out = {}
 			for k, v in pairs(entity.claims[propertyID]) do
 				for k2, v2 in pairs(v.qualifiers[qualifierID]) do
 					if v2.snaktype == 'value' then
 						out[#out + 1] = outputHook(v2);
 					end
 				end
 			end
 			return table.concat(out, &quot;, &quot;), true
 		else
 			return &quot;&quot;, false
 		end
 	else
 		return input_parm, false
 	end
 end
 p.getQualifierValue = function(frame)
 	local function outputValue(value)
 		local qnumber = &quot;Q&quot; .. value.datavalue.value[&quot;numeric-id&quot;]
 		if (mw.wikibase.sitelink(qnumber)) then
 			return &quot;[[&quot; .. mw.wikibase.sitelink(qnumber) .. &quot;]]&quot;
 		else
 			return &quot;[[:d:&quot; .. qnumber .. &quot;|&quot; ..qnumber .. &quot;]]&lt;abbr title='&quot; .. i18n[&quot;errors&quot;][&quot;local-article-not-found&quot;] .. &quot;'&gt;[*]&lt;/abbr&gt;&quot;
 		end
 	end
 	return (getQualifier(frame, outputValue))
 end
 
 -- This is used to get a value like 'male' (for property p21) which won't be linked and numbers without the thousand separators
 p.getRawValue = function(frame)
 	local go, errorOrentity, claims, propertyID = parseInput(frame)
 	if not go then
 		return errorOrentity
 	end
 	local entity = errorOrentity
 	local result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value
 	-- if number type: remove thousand separators, bounds and units
 	if isType(claims, &quot;quantity&quot;) then
 		result = mw.ustring.gsub(result, &quot;(%d),(%d)&quot;, &quot;%1%2&quot;)
 		result = mw.ustring.gsub(result, &quot;(%d)±.*&quot;, &quot;%1&quot;)
 	end
 	return result
 end
 
 -- This is used to get the unit name for the numeric value returned by getRawValue
 p.getUnits = function(frame)
 	local go, errorOrentity, claims, propertyID = parseInput(frame)
 	if not go then
 		return errorOrentity
 	end
 	local entity = errorOrentity
 	local result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value
 	if isType(claims, &quot;quantity&quot;) then
 		result = mw.ustring.sub(result, mw.ustring.find(result, &quot; &quot;)+1, -1)
 	end
 	return result
 end
 
 -- This is used to get the unit's QID to use with the numeric value returned by getRawValue
 p.getUnitID = function(frame)
 	local go, errorOrentity, claims = parseInput(frame)
 	if not go then
 		return errorOrentity
 	end
 	local entity = errorOrentity
 	local result
 	if isType(claims, &quot;quantity&quot;) then
 		-- get the url for the unit entry on Wikidata:
 		result = claims[1].mainsnak.datavalue.value.unit
 		-- and just reurn the last bit from &quot;Q&quot; to the end (which is the QID):
 		result = mw.ustring.sub(result, mw.ustring.find(result, &quot;Q&quot;), -1)
 	end
 	return result
 end
 
 p.getRawQualifierValue = function(frame)
 	local function outputHook(value)
 		if value.datavalue.value[&quot;numeric-id&quot;] then
 			return mw.wikibase.label(&quot;Q&quot; .. value.datavalue.value[&quot;numeric-id&quot;])
 		else
 			return value.datavalue.value
 		end
 	end
 	local ret, gotData = getQualifier(frame, outputHook)
 	if gotData then
 		ret = string.upper(string.sub(ret, 1, 1)) .. string.sub(ret, 2)
 	end
 	return ret
 end
 
 -- This is used to get a date value for date_of_birth (P569), etc. which won't be linked
 -- Dates and times are stored in ISO 8601 format (sort of).
 -- At present the local formatDate(date, precision, timezone) function doesn't handle timezone
 -- So I'll just supply &quot;Z&quot; in the call to formatDate below:
 p.getDateValue = function(frame)
 	local date_format = mw.text.trim(frame.args[3] or i18n[&quot;datetime&quot;][&quot;default-format&quot;])
 	local date_addon = mw.text.trim(frame.args[4] or i18n[&quot;datetime&quot;][&quot;default-addon&quot;])
 	local go, errorOrentity, claims = parseInput(frame)
 	if not go then
 		return errorOrentity
 	end
 	local entity = errorOrentity
 	local out = {}
 	for k, v in pairs(claims) do
 		if v.mainsnak.datavalue.type == 'time' then
 			local timestamp = v.mainsnak.datavalue.value.time
 			local dateprecision = v.mainsnak.datavalue.value.precision
 			-- A year can be stored like this: &quot;+1872-00-00T00:00:00Z&quot;,
 			-- which is processed here as if it were the day before &quot;+1872-01-01T00:00:00Z&quot;,
 			-- and that's the last day of 1871, so the year is wrong.
 			-- So fix the month 0, day 0 timestamp to become 1 January instead:
 			timestamp = timestamp:gsub(&quot;%-00%-00T&quot;, &quot;-01-01T&quot;)
 			out[#out + 1] = parseDateFull(timestamp, dateprecision, date_format, date_addon)
 		end
 	end
 	return table.concat(out, &quot;, &quot;)
 end
 p.getQualifierDateValue = function(frame)
 	local date_format = mw.text.trim(frame.args[4] or i18n[&quot;datetime&quot;][&quot;default-format&quot;])
 	local date_addon = mw.text.trim(frame.args[5] or i18n[&quot;datetime&quot;][&quot;default-addon&quot;])
 	local function outputHook(value)
 		local timestamp = value.datavalue.value.time
 		return parseDateValue(timestamp, date_format, date_addon)
 	end
 	return (getQualifier(frame, outputHook))
 end
 
 -- This is used to fetch all of the images with a particular property, e.g. image (P18), Gene Atlas Image (P692), etc.
 -- Parameters are | propertyID | value / FETCH_WIKIDATA / nil | separator (default=space) | size (default=frameless)
 -- It will return a standard wiki-markup [[File:Filename | size]] for each image with a selectable size and separator (which may be html)
 -- e.g. {{#invoke:Wikidata|getImages|P18|FETCH_WIKIDATA}}
 -- e.g. {{#invoke:Wikidata|getImages|P18|FETCH_WIKIDATA|&lt;br&gt;|250px}}
 -- If a property is chosen that is not of type &quot;commonsMedia&quot;, it will return empty text.
 p.getImages = function(frame)
 	local sep = mw.text.trim(frame.args[3] or &quot; &quot;)
 	local imgsize = mw.text.trim(frame.args[4] or &quot;frameless&quot;)
 	local go, errorOrentity, claims = parseInput(frame)
 	if not go then
 		return errorOrentity
 	end
 	local entity = errorOrentity
 	if (claims[1] and claims[1].mainsnak.datatype == &quot;commonsMedia&quot;) then
 		local out = {}
 		for k, v in pairs(claims) do
 			local filename = v.mainsnak.datavalue.value
 			out[#out + 1] = &quot;[[File:&quot; .. filename .. &quot;|&quot; .. imgsize .. &quot;]]&quot;
 		end
 		return table.concat(out, sep)
 	else
 		return &quot;&quot;
 	end
 end
 
 -- This is used to get the TA98 (Terminologia Anatomica first edition 1998) values like 'A01.1.00.005' (property P1323)
 -- which are then linked to http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/01.1.00.005%20Entity%20TA98%20EN.htm
 -- uses the newer mw.wikibase calls instead of directly using the snaks
 -- formatPropertyValues returns a table with the P1323 values concatenated with &quot;, &quot; so we have to split them out into a table in order to construct the return string
 p.getTAValue = function(frame)
 	local ent = mw.wikibase.getEntityObject()
 	local props = ent:formatPropertyValues('P1323')
 	local out = {}
 	local t = {}
 	for k, v in pairs(props) do
 		if k == 'value' then
 			t = mw.text.split( v, &quot;, &quot;)
 			for k2, v2 in pairs(t) do
 				out[#out + 1] = &quot;[http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/&quot; .. string.sub(v2, 2) .. &quot;%20Entity%20TA98%20EN.htm &quot; .. v2 .. &quot;]&quot;
 			end
 		end
 	end
 	local ret = table.concat(out, &quot;&lt;br&gt; &quot;)
 	if #ret == 0 then
 		ret = &quot;Invalid TA&quot;
 	end
 	return ret
 end
 
 --[[
 This is used to return an image legend from Wikidata
 image is property P18
 image legend is property P2096
 
 Call as {{#invoke:Wikidata |getImageLegend | &lt;PARAMETER&gt; | lang=&lt;ISO-639code&gt; |id=&lt;QID&gt;}}
 Returns PARAMETER, unless it is equal to &quot;FETCH_WIKIDATA&quot;, from Item QID (expensive call)
 If QID is omitted or blank, the current article is used (not an expensive call)
 If lang is omitted, it uses the local wiki language, otherwise it uses the provided ISO-639 language code
 ISO-639: https://docs.oracle.com/cd/E13214_01/wli/docs92/xref/xqisocodes.html#wp1252447
 
 Ranks are: 'preferred' &gt; 'normal'
 This returns the label from the first image with 'preferred' rank
 Or the label from the first image with 'normal' rank if preferred returns nothing
 Ranks: https://www.mediawiki.org/wiki/Extension:Wikibase_Client/Lua
 ]]
 
 p.getImageLegend = function(frame)
 	-- look for named parameter id; if it's blank make it nil
 	local id = frame.args.id
 	if id and (#id == 0) then
 		id = nil
 	end
 
 	-- look for named parameter lang
 	-- it should contain a two-character ISO-639 language code
 	-- if it's blank fetch the language of the local wiki
 	local lang = frame.args.lang
 	if (not lang) or (#lang &lt; 2) then
 		lang = mw.language.getContentLanguage().code
 	end
 
 	-- first unnamed parameter is the local parameter, if supplied
 	local input_parm = mw.text.trim(frame.args[1] or &quot;&quot;)
 	if input_parm == &quot;FETCH_WIKIDATA&quot; then
 		local ent = mw.wikibase.getEntityObject(id)
 		local imgs
 		if ent and ent.claims then
 			imgs = ent.claims.P18
 		end
 		local imglbl
 		if imgs then
 			-- look for an image with 'preferred' rank
 			for k1, v1 in pairs(imgs) do
 				if v1.rank == &quot;preferred&quot; and v1.qualifiers and v1.qualifiers.P2096 then
 					local imglbls = v1.qualifiers.P2096
 					for k2, v2 in pairs(imglbls) do
 						if v2.datavalue.value.language == lang then
 							imglbl = v2.datavalue.value.text
 							break
 						end
 					end
 				end
 			end
 			-- if we don't find one, look for an image with 'normal' rank
 			if (not imglbl) then
 				for k1, v1 in pairs(imgs) do
 					if v1.rank == &quot;normal&quot; and v1.qualifiers and v1.qualifiers.P2096 then
 						local imglbls = v1.qualifiers.P2096
 						for k2, v2 in pairs(imglbls) do
 							if v2.datavalue.value.language == lang then
 								imglbl = v2.datavalue.value.text
 								break
 							end
 						end
 					end
 				end
 			end
 		end
 		return imglbl
 	else
 		return input_parm
 	end
 end
 
 -- This is used to get the QIDs of all of the values of a property, as a comma separated list if multiple values exist
 -- Usage: {{#invoke:Wikidata |getPropertyIDs |&lt;PropertyID&gt; |FETCH_WIKIDATA}}
 -- Usage: {{#invoke:Wikidata |getPropertyIDs |&lt;PropertyID&gt; |&lt;InputParameter&gt; |qid=&lt;QID&gt;}}
 
 p.getPropertyIDs = function(frame)
 	local go, errorOrentity, propclaims = parseInput(frame)
 	if not go then
 		return errorOrentity
 	end
 	local entity = errorOrentity
 	-- if wiki-linked value collect the QID in a table
 	if (propclaims[1] and propclaims[1].mainsnak.snaktype == &quot;value&quot; and propclaims[1].mainsnak.datavalue.type == &quot;wikibase-entityid&quot;) then
 		local out = {}
 		for k, v in pairs(propclaims) do
 			out[#out + 1] = &quot;Q&quot; .. v.mainsnak.datavalue.value[&quot;numeric-id&quot;]
 		end
 		return table.concat(out, &quot;, &quot;)
 	else
 		-- not a wikibase-entityid, so return empty
 		return &quot;&quot;
 	end
 end
 
 -- returns the page id (Q...) of the current page or nothing of the page is not connected to Wikidata
 function p.pageId(frame)
 	local entity = mw.wikibase.getEntityObject()
 	if not entity then return nil else return entity.id end
 end
 
 function p.claim(frame)
 	local property = frame.args[1] or &quot;&quot;
 	local id = frame.args[&quot;id&quot;]
 	local qualifierId = frame.args[&quot;qualifier&quot;]
 	local parameter = frame.args[&quot;parameter&quot;]
 	local list = frame.args[&quot;list&quot;]
 	local references = frame.args[&quot;references&quot;]
 	local showerrors = frame.args[&quot;showerrors&quot;]
 	local default = frame.args[&quot;default&quot;]
 	if default then showerrors = nil end
 
 	-- get wikidata entity
 	local entity = mw.wikibase.getEntityObject(id)
 	if not entity then
 		if showerrors then return printError(&quot;entity-not-found&quot;) else return default end
 	end
 	-- fetch the first claim of satisfying the given property
 	local claims = findClaims(entity, property)
 	if not claims or not claims[1] then
 		if showerrors then return printError(&quot;property-not-found&quot;) else return default end
 	end
 
 	-- get initial sort indices
 	local sortindices = {}
 	for idx in pairs(claims) do
 		sortindices[#sortindices + 1] = idx
 	end
 	-- sort by claim rank
 	local comparator = function(a, b)
 		local rankmap = { deprecated = 2, normal = 1, preferred = 0 }
 		local ranka = rankmap[claims[a].rank or &quot;normal&quot;] .. string.format(&quot;%08d&quot;, a)
 		local rankb = rankmap[claims[b].rank or &quot;normal&quot;] .. string.format(&quot;%08d&quot;, b)
 		return ranka &lt; rankb
 	end
 	table.sort(sortindices, comparator)
 
 	local result
 	local error
 	if list then
 		local value
 		-- iterate over all elements and return their value (if existing)
 		result = {}
 		for idx in pairs(claims) do
 			local claim = claims[sortindices[idx]]
 			value, error = getValueOfClaim(claim, qualifierId, parameter)
 			if not value and showerrors then value = error end
 			if value and references then value = value .. getReferences(frame, claim) end
 			result[#result + 1] = value
 		end
 		result = table.concat(result, list)
 	else
 		-- return first element
 		local claim = claims[sortindices[1]]
 		result, error = getValueOfClaim(claim, qualifierId, parameter)
 		if result and references then result = result .. getReferences(frame, claim) end
 	end
 
 	if result then return result else
 		if showerrors then return error else return default end
 	end
 end
 
 -- look into entity object
 function p.ViewSomething(frame)
 	local f = (frame.args[1] or frame.args.id) and frame or frame:getParent()
 	local id = f.args.id
 	if id and (#id == 0) then
 		id = nil
 	end
 	local data = mw.wikibase.getEntityObject(id)
 	if not data then
 		return nil
 	end
 
 	local i = 1
 	while true do
 		local index = f.args[i]
 		if not index then
 			if type(data) == &quot;table&quot; then
 				return mw.text.jsonEncode(data, mw.text.JSON_PRESERVE_KEYS + mw.text.JSON_PRETTY)
 			else
 				return tostring(data)
 			end
 		end
 
 		data = data[index] or data[tonumber(index)]
 		if not data then
 			return
 		end
 
 		i = i + 1
 	end
 end
 
 -- getting sitelink of a given wiki
 -- get sitelink of current item if qid not supplied
 function p.getSiteLink(frame)
 	local qid = frame.args.qid
 	if qid == &quot;&quot; then qid = nil end
 	local f = mw.text.trim( frame.args[1] or &quot;&quot;)
 	local entity = mw.wikibase.getEntity(qid)
 	if not entity then
 		return
 	end
 	local link = entity:getSitelink( f )
 	if not link then
 		return
 	end
 	return link
 end
 
 function p.Dump(frame)
 	local f = (frame.args[1] or frame.args.id) and frame or frame:getParent()
 	local data = mw.wikibase.getEntityObject(f.args.id)
 	if not data then
 		return i18n.warnDump
 	end
 
 	local i = 1
 	while true do
 		local index = f.args[i]
 		if not index then
 			return &quot;&lt;pre&gt;&quot;..mw.dumpObject(data)..&quot;&lt;/pre&gt;&quot;.. i18n.warnDump
 		end
 
 		data = data[index] or data[tonumber(index)]
 		if not data then
 			return i18n.warnDump
 		end
 
 		i = i + 1
 	end
 end