Module:Wikidata/sandbox - Revision history

Graham87: line up with edit to fix link in main module

2023-03-04T04:34:03Z

line up with edit to fix link in main module

← Previous revision		Revision as of 04:34, 4 March 2023
Line 755:		Line 755:

	-- This is used to get the TA98 (Terminologia Anatomica first edition 1998) values like 'A01.1.00.005' (property P1323)		-- 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		-- which are then linked to https://ifaa.unifr.ch/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		-- uses the newer mw.wikibase calls instead of directly using the snaks
	-- formatPropertyValues returns a table with the P1323 values concatenated with ", " so we have to split them out into a table in order to construct the return string		-- formatPropertyValues returns a table with the P1323 values concatenated with ", " so we have to split them out into a table in order to construct the return string
Line 767:		Line 767:
	t = mw.text.split( v, ", ")		t = mw.text.split( v, ", ")
	for k2, v2 in pairs(t) do		for k2, v2 in pairs(t) do
	out[#out + 1] = "[~~http~~://~~www~~.unifr.ch~~/ifaa~~/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/" .. string.sub(v2, 2) .. "%20Entity%20TA98%20EN.htm " .. v2 .. "]"		out[#out + 1] = "[https://ifaa.unifr.ch/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/" .. string.sub(v2, 2) .. "%20Entity%20TA98%20EN.htm " .. v2 .. "]"
	end		end
	end		end

WOSlinker: use require('strict') instead of require('Module:No globals')

2022-10-21T09:55:58Z

use require('strict') instead of require('Module:No globals')

← Previous revision		Revision as of 09:55, 21 October 2022
Line 1:		Line 1:
	-- vim: set noexpandtab ft=lua ts=4 sw=4:		-- vim: set noexpandtab ft=lua ts=4 sw=4:
	require('~~Module:No globals~~')		require('strict')

	local p = {}		local p = {}

Snævar at 11:14, 28 May 2021

2021-05-28T11:14:46Z

← Previous revision		Revision as of 11:14, 28 May 2021
Line 703:		Line 703:
	local i = 1		local i = 1
	while claims[i] ~= nil do		while claims[i] ~= nil do
	if v[i].mainsnak.datavalue.type == 'time' then		if claims[i].mainsnak.datavalue.type == 'time' then
	local timestamp = claims[i].mainsnak.datavalue.value.time		local timestamp = claims[i].mainsnak.datavalue.value.time
	local dateprecision = claims[i].mainsnak.datavalue.value.precision		local dateprecision = claims[i].mainsnak.datavalue.value.precision
Line 760:		Line 760:
	p.getTAValue = function(frame)		p.getTAValue = function(frame)
	local entid = mw.wikibase.getEntityIdForCurrentPage()		local entid = mw.wikibase.getEntityIdForCurrentPage()
	local props = mw.wikibase.~~formatPropertyValues(mw.wikibase.getBestStatements~~(entid, 'P1323'))		local props = mw.wikibase.getEntity(entid):formatPropertyValues('P1323')
	local out = {}		local out = {}
	local t = {}		local t = {}
	for k, v in pairs(props) do		for k, v in pairs(props) do
	if k == 'value' then		if k == 'value' then
	t = mw.text.split( ~~mw.wikibase.renderSnak(~~v), ", ")		t = mw.text.split( v, ", ")
	for k2, v2 in pairs(t) do		for k2, v2 in pairs(t) do
	out[#out + 1] = "[http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/" .. string.sub(v2, 2) .. "%20Entity%20TA98%20EN.htm " .. v2 .. "]"		out[#out + 1] = "[http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/" .. string.sub(v2, 2) .. "%20Entity%20TA98%20EN.htm " .. v2 .. "]"

Snævar at 11:07, 28 May 2021

2021-05-28T11:07:25Z

← Previous revision		Revision as of 11:07, 28 May 2021
Line 543:		Line 543:
	if mw.wikibase.entityExists(qnumber) then		if mw.wikibase.entityExists(qnumber) then
	if mw.wikibase.getBestStatements(qnumber, "P1813")[1] then		if mw.wikibase.getBestStatements(qnumber, "P1813")[1] then
	~~for~~ ~~k2, v2 in pairs(~~mw.wikibase.getBestStatements(qnumber, "P1813")) do		while mw.wikibase.getBestStatements(qnumber, "P1813")[i] ~= nil do
	if v2[i].mainsnak.datavalue.value.language == "en" then		if mw.wikibase.getBestStatements(qnumber, "P1813")[i].mainsnak.datavalue.value.language == "en" then
	label = v2[i].mainsnak.datavalue.value.text		label = mw.wikibase.getBestStatements(qnumber, "P1813")[i].mainsnak.datavalue.value.text
	end		end
	i = i + 1		i = i + 1
Line 589:		Line 589:
	local out = {}		local out = {}
	local i = 1		local i = 1
	~~for~~ ~~k, v in pairs(~~mw.wikibase.getBestStatements(entityid, propertyID)) do		while mw.wikibase.getBestStatements(entityid, propertyID)[i] ~= nil do
	for k2, v2 in pairs(v[i].qualifiers[qualifierID]) do		for k2, v2 in pairs(mw.wikibase.getBestStatements(entityid, propertyID)[i].qualifiers[qualifierID]) do
	if v2.snaktype == 'value' then		if v2.snaktype == 'value' then
	out[#out + 1] = outputHook(v2);		out[#out + 1] = outputHook(v2);
Line 625:		Line 625:
	local result = {}		local result = {}
	local i = 1		local i = 1
			while claims[i] ~= nil do
	for k, v in pairs(claims) do
	-- if number type: remove thousand separators, bounds and units		-- if number type: remove thousand separators, bounds and units
	if isType(claims[i], "quantity") then		if isType(claims[i], "quantity") then
Line 633:		Line 633:
	result[#result + 1] = mw.wikibase.renderSnak(claims[i].mainsnak)		result[#result + 1] = mw.wikibase.renderSnak(claims[i].mainsnak)
	end		end
			i = i + 1
	end		end
	return table.concat(result, ', ')		return table.concat(result, ', ')
Line 645:		Line 646:
	local result = {}		local result = {}
	local i = 1		local i = 1
			while claims[i] ~= nil do
	for k, v in pairs(claims) do
	local i = 1		local i = 1
	if isType(claims[i], "quantity") then		if isType(claims[i], "quantity") then
Line 701:		Line 702:
	local out = {}		local out = {}
	local i = 1		local i = 1
			while claims[i] ~= nil do
	for k, v in pairs(claims) do
	if v[i].mainsnak.datavalue.type == 'time' then		if v[i].mainsnak.datavalue.type == 'time' then
	local timestamp = v[i].mainsnak.datavalue.value.time		local timestamp = claims[i].mainsnak.datavalue.value.time
	local dateprecision = v[i].mainsnak.datavalue.value.precision		local dateprecision = claims[i].mainsnak.datavalue.value.precision
	-- A year can be stored like this: "+1872-00-00T00:00:00Z",		-- A year can be stored like this: "+1872-00-00T00:00:00Z",
	-- which is processed here as if it were the day before "+1872-01-01T00:00:00Z",		-- which is processed here as if it were the day before "+1872-01-01T00:00:00Z",
Line 742:		Line 743:
	local out = {}		local out = {}
	local i = 1		local i = 1
			while claims[i] ~= nil do
	for k, v in pairs(claims) do
	local filename = v[i].mainsnak.datavalue.value		local filename = claims[i].mainsnak.datavalue.value
	out[#out + 1] = "[[File:" .. filename .. "\|" .. imgsize .. "]]"		out[#out + 1] = "[[File:" .. filename .. "\|" .. imgsize .. "]]"
	i = i + 1		i = i + 1
Line 764:		Line 765:
	for k, v in pairs(props) do		for k, v in pairs(props) do
	if k == 'value' then		if k == 'value' then
	t = mw.text.split( v, ", ")		t = mw.text.split( mw.wikibase.renderSnak(v), ", ")
	for k2, v2 in pairs(t) do		for k2, v2 in pairs(t) do
	out[#out + 1] = "[http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/" .. string.sub(v2, 2) .. "%20Entity%20TA98%20EN.htm " .. v2 .. "]"		out[#out + 1] = "[http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/" .. string.sub(v2, 2) .. "%20Entity%20TA98%20EN.htm " .. v2 .. "]"
Line 835:		Line 836:
	local go, propclaims = parseInput(frame)		local go, propclaims = parseInput(frame)
	if not go then		if not go then
	return ~~claims~~		return propclaims
	end		end
	-- if wiki-linked value collect the QID in a table		-- if wiki-linked value collect the QID in a table
Line 841:		Line 842:
	local out = {}		local out = {}
	local i = 1		local i = 1
			while claims[i] ~= nil do
	for k, v in pairs(propclaims) do
	out[#out + 1] = "Q" .. v[i].mainsnak.datavalue.value["numeric-id"]		out[#out + 1] = "Q" .. claims[i].mainsnak.datavalue.value["numeric-id"]
	i = i + 1		i = i + 1
	end		end

Snævar at 11:43, 16 March 2021

2021-03-16T11:43:47Z

← Previous revision		Revision as of 11:43, 16 March 2021
Line 439:		Line 439:

	local function parseInput(frame)		local function parseInput(frame)
	local qid = frame.args.qid		local qid = frame.args.qid or mw.wikibase.getEntityIdForCurrentPage() or nil
	if qid and (#qid == 0) then qid = nil end		if qid and (#qid == 0) then qid = nil end
	local propertyID = mw.text.trim(frame.args[1] or "")		local propertyID = mw.text.trim(frame.args[1] or "")

Snævar at 11:35, 16 March 2021

2021-03-16T11:35:53Z

Show changes

Snævar at 08:37, 16 March 2021

2021-03-16T08:37:30Z

← Previous revision		Revision as of 08:37, 16 March 2021
Line 481:		Line 481:
	else		else
	-- just return best values		-- just return best values
	return mw.wikibase.renderSnak(claims~~[1].mainsnak~~)		return mw.wikibase.renderSnak(claims)
	end		end
	end		end
Line 537:		Line 537:
	local function labelHook (qnumber)		local function labelHook (qnumber)
	local label		local label
	local i = 1
	if claims ~= nil then		if claims ~= nil then
	if mw.wikibase.getBestStatements(qnumber, "P1813")[1] then		if mw.wikibase.getBestStatements(qnumber, "P1813")[1] then
	for k2, v2 in pairs(mw.wikibase.getBestStatements(qnumber, "P1813")~~[i]~~) do		for k2, v2 in pairs(mw.wikibase.getBestStatements(qnumber, "P1813")) do
	if v2.mainsnak.datavalue.value.language == "en" then		if v2.mainsnak.datavalue.value.language == "en" then
	label = v2.mainsnak.datavalue.value.text		label = v2.mainsnak.datavalue.value.text
	end		end
	i = i + 1
	end		end
	end		end
Line 585:		Line 583:
	if mw.wikibase.entityExists(entityid) ~= nil and mw.wikibase.getBestStatements(entityid, propertyID)[1] ~= nil then		if mw.wikibase.entityExists(entityid) ~= nil and mw.wikibase.getBestStatements(entityid, propertyID)[1] ~= nil then
	local out = {}		local out = {}
		⚫	for k, v in pairs(mw.wikibase.getBestStatements(entityid, propertyID)) do
	local i = 1
⚫	for k, v in pairs(mw.wikibase.getBestStatements(entityid, propertyID)~~[i]~~) do
	for k2, v2 in pairs(v.qualifiers[qualifierID]) do		for k2, v2 in pairs(v.qualifiers[qualifierID]) do
	if v2.snaktype == 'value' then		if v2.snaktype == 'value' then
	out[#out + 1] = outputHook(v2);		out[#out + 1] = outputHook(v2);
	end		end
	i = i + 1
	end		end
	end		end
Line 635:		Line 631:
	return claims		return claims
	end		end
	local result = mw.wikibase.renderSnak(claims~~[1].mainsnak~~)		local result = mw.wikibase.renderSnak(claims)
	if isType(claims, "quantity") then		if isType(claims, "quantity") then
	result = mw.ustring.sub(result, mw.ustring.find(result, " ")+1, -1)		result = mw.ustring.sub(result, mw.ustring.find(result, " ")+1, -1)

Snævar at 22:33, 15 March 2021

2021-03-15T22:33:04Z

← Previous revision		Revision as of 22:33, 15 March 2021
Line 798:		Line 798:
	mw.wikibase.getBestStatements(id, "P18")[1].rank == "preferred" then -- in getBestStatements if there is an preferred value, it is ordered first.		mw.wikibase.getBestStatements(id, "P18")[1].rank == "preferred" then -- in getBestStatements if there is an preferred value, it is ordered first.
	imglbl = mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue.value		imglbl = mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue.value
	elseif mw.wikibase.entityExists(id) and mw.wikibase.getBestStatements(id, "P18")[1] and		elseif id and mw.wikibase.entityExists(id) and mw.wikibase.getBestStatements(id, "P18")[1] and
	mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue then -- only normal and preferred rank values outputted in beststatements		mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue then -- only normal and preferred rank values outputted in beststatements
	imglbl = mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue.value		imglbl = mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue.value

Snævar at 22:25, 15 March 2021

2021-03-15T22:25:11Z

← Previous revision		Revision as of 22:25, 15 March 2021
Line 798:		Line 798:
	mw.wikibase.getBestStatements(id, "P18")[1].rank == "preferred" then -- in getBestStatements if there is an preferred value, it is ordered first.		mw.wikibase.getBestStatements(id, "P18")[1].rank == "preferred" then -- in getBestStatements if there is an preferred value, it is ordered first.
	imglbl = mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue.value		imglbl = mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue.value
	elseif mw.wikibase.getBestStatements(id, "P18")[1] and mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue then -- only normal and preferred rank values outputted in beststatements		elseif mw.wikibase.entityExists(id) and mw.wikibase.getBestStatements(id, "P18")[1] and
			mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue then -- only normal and preferred rank values outputted in beststatements
	imglbl = mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue.value		imglbl = mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue.value
	end		end
Line 852:		Line 853:
	end		end
	-- fetch the first claim of satisfying the given property		-- fetch the first claim of satisfying the given property
	local claims = mw.wikibase.getBestStatements(~~entity~~, property) or nil		local claims = mw.wikibase.getBestStatements(id, property) or nil
	if not claims or not claims[1] then		if not claims or not claims[1] then
	if showerrors then return printError("property-not-found") else return default end		if showerrors then return printError("property-not-found") else return default end

Snævar at 22:03, 15 March 2021

2021-03-15T22:03:28Z

← Previous revision		Revision as of 22:03, 15 March 2021
Line 362:		Line 362:

	local function findClaims(entity, property)		local function findClaims(entity, property)
	if not property or not entity or not ~~entity~~.~~claims~~ then return end		if not property or not entity or not mw.wikibase.getBestStatements(entity, property)[1] then return end

	if mw.ustring.match(property, "^P%d+$") then		if mw.ustring.match(property, "^P%d+$") then
	-- if the property is given by an id (P..) access the claim list by this id		-- if the property is given by an id (P..) access the claim list by this id
	return ~~entity~~.~~claims[~~property]		return mw.wikibase.getBestStatements(entity, property)
	else		else
	property = mw.wikibase.resolvePropertyId(property)		property = mw.wikibase.resolvePropertyId(property)
	if not property then return end		if not property then return end

	return ~~entity~~.~~claims[~~property]		return mw.wikibase.getBestStatements(entity, property)
	end		end
	end		end
Line 565:		Line 565:
	if input_parm == "FETCH_WIKIDATA" then		if input_parm == "FETCH_WIKIDATA" then
	local claims		local claims
	if frame.args[1] and mw.wikibase.entityExists(itemID) and ~~entity~~.~~claims~~ then		if frame.args[1] and mw.wikibase.entityExists(itemID) and mw.wikibase.getBestStatements(itemID, propertyID)[1] then
	claims = mw.wikibase.getBestStatements(itemID, propertyID)		claims = mw.wikibase.getBestStatements(itemID, propertyID)
	end		end
Line 798:		Line 798:
	mw.wikibase.getBestStatements(id, "P18")[1].rank == "preferred" then -- in getBestStatements if there is an preferred value, it is ordered first.		mw.wikibase.getBestStatements(id, "P18")[1].rank == "preferred" then -- in getBestStatements if there is an preferred value, it is ordered first.
	imglbl = mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue.value		imglbl = mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue.value
	elseif mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue then -- only normal and preferred rank values outputted in beststatements		elseif mw.wikibase.getBestStatements(id, "P18")[1] and mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue then -- only normal and preferred rank values outputted in beststatements
	imglbl = mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue.value		imglbl = mw.wikibase.getBestStatements(id, "P18")[1].mainsnak.datavalue.value
	end		end
Line 852:		Line 852:
	end		end
	-- fetch the first claim of satisfying the given property		-- fetch the first claim of satisfying the given property
	local claims = mw.wikibase.getBestStatements(entity, property)		local claims = mw.wikibase.getBestStatements(entity, property) or nil
	if not claims or not claims[1] then		if not claims or not claims[1] then
	if showerrors then return printError("property-not-found") else return default end		if showerrors then return printError("property-not-found") else return default end