Module:PopulationFromWikidata/sandbox - Revision history

Johnuniq: Undid revision 1166206716 by Johnuniq (talk) no, they didn't

2023-07-20T01:53:41Z

Undid revision 1166206716 by Johnuniq (talk) no, they didn't

Show changes

Johnuniq: rv self: did my edits cause the mess at Module talk:PopulationFromWikidata/testcases?

2023-07-20T01:52:47Z

rv self: did my edits cause the mess at Module talk:PopulationFromWikidata/testcases?

Show changes

Johnuniq: fix irritating "Lua error in Module:PopulationFromWikidata at line 150: attempt to index field 'claims' (a nil value)." at Municipality of Scone

2023-07-20T01:48:40Z

fix irritating "Lua error in Module:PopulationFromWikidata at line 150: attempt to index field 'claims' (a nil value)." at Municipality of Scone

← Previous revision		Revision as of 01:48, 20 July 2023
Line 147:		Line 147:

	--------------- CHECK: If item.claims[Pop_P] is nil. If it is return an empty string ----------------------		--------------- CHECK: If item.claims[Pop_P] is nil. If it is return an empty string ----------------------
	if item == ~~nil~~ or item.claims[Pop_P] ~~== nil~~ then		if not (item and item.claims and item.claims[Pop_P]) then
	return ""		return ""
	end		end

Johnuniq: fix unintended globals

2023-07-20T01:41:08Z

fix unintended globals

Johnuniq: fix whitespace

2023-07-20T01:40:27Z

fix whitespace

Show changes

MaiaCWilliams: Fixed comments

2022-07-11T09:03:11Z

Fixed comments

← Previous revision		Revision as of 09:03, 11 July 2022
Line 121:		Line 121:

	function p.ListForInfobox( frame )		function p.ListForInfobox( frame )
	local luaplacetype = "" --~~initialise~~ the local place type		local luaplacetype = "" --Initialise the local place type
	if frame.args.type == nil then		if frame.args.type == nil then
	return ""		return ""
	end		end
	local articleplacetype = string.lower(frame.args.type) -- ~~bring~~ in the place type entered into Infobox Australian place template		local articleplacetype = string.lower(frame.args.type) -- Bring in the place type entered into Infobox Australian place template, change to a lower case string
	if articleplacetype == "town" then -- Check which place type and match to the equivalent ABS geographic area "city", "suburb", "town", "lga", "region"		if articleplacetype == "town" then -- Check which place type and match to the equivalent ABS geographic area "city", "suburb", "town", "lga", "region"
	luaplacetype = UCL_I		luaplacetype = UCL_I
	elseif articleplacetype == "suburb" then		elseif articleplacetype == "suburb" then

MaiaCWilliams: Fixed comments

2022-07-11T08:51:33Z

Fixed comments

MaiaCWilliams: Changed population year to substring

2022-07-11T08:23:59Z

Changed population year to substring

← Previous revision		Revision as of 08:23, 11 July 2022
Line 102:		Line 102:
	end		end

	local year = mw.~~language.getContentLanguage():formatDate~~(~~'Y',~~ returnclaim.qualifiers[Pointin_P][1].datavalue.value.time)		local year = string.sub(returnclaim.qualifiers[Pointin_P][1].datavalue.value.time, 2, 5)
	local yearreturn = year		local yearreturn = year

MaiaCWilliams: fixed function

2022-07-11T07:54:08Z

fixed function

← Previous revision		Revision as of 07:54, 11 July 2022
Line 106:		Line 106:

	local detmetitem = mw.wikibase.getEntity(returnclaim.qualifiers[DetMeth_P][1].datavalue.value.id)		local detmetitem = mw.wikibase.getEntity(returnclaim.qualifiers[DetMeth_P][1].datavalue.value.id)
	if detmetitem.sitelinks.enwiki ~=nil then		if detmetitem.sitelinks ~=nil and detmetitem.sitelinks.enwiki ~=nil then
	yearreturn = "[["..detmetitem.sitelinks.enwiki.title.."\|".. year.."]]"		yearreturn = "[["..detmetitem.sitelinks.enwiki.title.."\|".. year.."]]"
	elseif detmetitem.claims[Instof_P] ~=nil and detmetitem.claims[Instof_P][1].mainsnak.datavalue.value.id == CensusAU_I then		elseif detmetitem.claims[Instof_P] ~=nil and detmetitem.claims[Instof_P][1].mainsnak.datavalue.value.id == CensusAU_I then

MaiaCWilliams at 07:51, 11 July 2022

2022-07-11T07:51:58Z

← Previous revision		Revision as of 07:51, 11 July 2022
Line 102:		Line 102:
	end		end

	local year = mw.language.getContentLanguage():formatDate('Y', ~~appliespartclaim~~.qualifiers[Pointin_P][1].datavalue.value.time)		local year = mw.language.getContentLanguage():formatDate('Y', returnclaim.qualifiers[Pointin_P][1].datavalue.value.time)
	local yearreturn = year		local yearreturn = year

← Previous revision		Revision as of 01:41, 20 July 2023
Line 26:		Line 26:
	--------------- Function GetRefsForClaim to check, collate and format all the reference components----------------------		--------------- Function GetRefsForClaim to check, collate and format all the reference components----------------------

	function GetRefsForClaim(claim, defaulttitle)		local function GetRefsForClaim(claim, defaulttitle)
	local refs = ""		local refs = ""
	for b,x in pairs(claim.references) do -- Loop through all references in a claim and pull out the components		for b,x in pairs(claim.references) do -- Loop through all references in a claim and pull out the components
Line 94:		Line 94:

	---------------This is a function for getting the population geography abbreviation and the Wikipedia article link for the population year ---------------		---------------This is a function for getting the population geography abbreviation and the Wikipedia article link for the population year ---------------
	function GetAbbrLabelYearLink(returnclaim)		local function GetAbbrLabelYearLink(returnclaim)
	local appliespartitem = mw.wikibase.getEntity(returnclaim.qualifiers[Applies_P][1].datavalue.value.id) -- This gets the item ID for the current claim Applied to Part value		local appliespartitem = mw.wikibase.getEntity(returnclaim.qualifiers[Applies_P][1].datavalue.value.id) -- This gets the item ID for the current claim Applied to Part value
	local abbrelabel = appliespartitem.labels.en.value -- This is the fall back value for the geography label if no abbreviation (short name) value exists in Wikidata item		local abbrelabel = appliespartitem.labels.en.value -- This is the fall back value for the geography label if no abbreviation (short name) value exists in Wikidata item
Line 155:		Line 155:

	local validpopclaims = {} --initialise the blank claim table for storing all population claims that satisfy the four conditions		local validpopclaims = {} --initialise the blank claim table for storing all population claims that satisfy the four conditions
	z = 0 -- initialise the table row count		local z = 0 -- initialise the table row count
	for j, s in pairs(item.claims[Pop_P]) do		for j, s in pairs(item.claims[Pop_P]) do
	if s.qualifiers ~= nil and		if s.qualifiers ~= nil and

← Previous revision		Revision as of 08:51, 11 July 2022
Line 94:		Line 94:
	end		end

	---------------This is a function for getting the ~~Wikidata~~ ~~short_name~~ ~~value~~ and the Wikipedia article link for the population ~~point in time~~ year ---------------		---------------This is a function for getting the population geography abbreviation and the Wikipedia article link for the population year ---------------
	function GetAbbrLabelYearLink(returnclaim)		function GetAbbrLabelYearLink(returnclaim)
	local appliespartitem = mw.wikibase.getEntity(returnclaim.qualifiers[Applies_P][1].datavalue.value.id)		local appliespartitem = mw.wikibase.getEntity(returnclaim.qualifiers[Applies_P][1].datavalue.value.id) -- This gets the item ID for the current claim Applied to Part value
	local abbrelabel = appliespartitem.labels.en.value		local abbrelabel = appliespartitem.labels.en.value -- This is the fall back value for the geography label if no abbreviation (short name) value exists in Wikidata item
	if appliespartitem.claims[ShortN_P] ~= nil then		if appliespartitem.claims[ShortN_P] ~= nil then -- If a short name value exists then use thi value instead of the full item label.
	abbrelabel = mw.getCurrentFrame():expandTemplate{title = 'Abbr', args = {appliespartitem.claims[ShortN_P][1].mainsnak.datavalue.value.text , appliespartitem.labels.en.value }}		abbrelabel = mw.getCurrentFrame():expandTemplate{title = 'Abbr', args = {appliespartitem.claims[ShortN_P][1].mainsnak.datavalue.value.text , appliespartitem.labels.en.value }} -- Output the abbreviated name with tooltip showing the full label
	end		end

	local year = string.sub(returnclaim.qualifiers[Pointin_P][1].datavalue.value.time, 2, 5)		local year = string.sub(returnclaim.qualifiers[Pointin_P][1].datavalue.value.time, 2, 5) -- Get the population point in time as a year string
			local yearreturn = year -- If no links to Wikipedia articles describing population determination method exist then just output year
	local yearreturn = year

	local detmetitem = mw.wikibase.getEntity(returnclaim.qualifiers[DetMeth_P][1].datavalue.value.id)		local detmetitem = mw.wikibase.getEntity(returnclaim.qualifiers[DetMeth_P][1].datavalue.value.id) -- Get the current claim determination method item
	if detmetitem.sitelinks ~=nil and detmetitem.sitelinks.enwiki ~=nil then		if detmetitem.sitelinks ~=nil and detmetitem.sitelinks.enwiki ~=nil then -- Check if the determination method item has an enwiki URL
	yearreturn = "[["..detmetitem.sitelinks.enwiki.title.."\|".. year.."]]"		yearreturn = "[["..detmetitem.sitelinks.enwiki.title.."\|".. year.."]]" -- If it does, use this URL as the link with the year value
	elseif detmetitem.claims[Instof_P] ~=nil and detmetitem.claims[Instof_P][1].mainsnak.datavalue.value.id == CensusAU_I then		elseif detmetitem.claims[Instof_P] ~=nil and detmetitem.claims[Instof_P][1].mainsnak.datavalue.value.id == CensusAU_I then -- If there isn't a populated enwiki URL for determination method item AND it's a census determination method then...
	yearreturn = "[[Census_in_Australia#"..year.."\|".. year.."]]"		yearreturn = "[[Census_in_Australia#"..year.."\|".. year.."]]" -- ... return the population year linked to the corresponding section of the Census in Australia article
	end		end
	return abbrelabel.." "..yearreturn		return abbrelabel.." "..yearreturn -- Join the geography abbreviation to the year (with link) ready for the final output
	end		end





Line 123:		Line 121:

	function p.ListForInfobox( frame )		function p.ListForInfobox( frame )
	local luaplacetype = "" --initialise the local place type		local luaplacetype = "" --initialise the local place type
	if frame.args.type == nil then		if frame.args.type == nil then
	return ""		return ""
	end		end
	local articleplacetype = string.lower(frame.args.type) -- bring in the place type entered into Infobox Australian place template		local articleplacetype = string.lower(frame.args.type) -- bring in the place type entered into Infobox Australian place template
	if articleplacetype == "town" then -- Check which place type and match to the equivalent ABS geographic area "city", "suburb", "town", "lga", "region"		if articleplacetype == "town" then -- Check which place type and match to the equivalent ABS geographic area "city", "suburb", "town", "lga", "region"
	luaplacetype = UCL_I		luaplacetype = UCL_I
Line 223:		Line 221:


	------------------------------~~Return~~ to ~~template~~--------------------------------		------------------------------Compiling the module output--------------------------------

⚫	-- local ~~div~~ = ~~mw.html.create( 'div' )~~ -- ~~formulate~~ ~~giving~~ the value back to the Infobox Australian place ~~template~~
	local returnlist = {} -- Initiate an empty table to store the output claims		local returnlist = {} -- Initiate an empty table to store the output claims
	if maxclaimspertemplategeog ~=nil then -- Situation 1: Getting population for max date claim where applies to part matches the Infobox place type		if maxclaimspertemplategeog ~=nil then -- Situation 1: Getting population for max date claim where applies to part matches the Infobox place type
	-- local appliespartitem = mw.wikibase.getEntity(maxclaimspertemplategeog.qualifiers[Applies_P][1].datavalue.value.id)
	local templategeogrefs = GetRefsForClaim(maxclaimspertemplategeog, item.labels.en.value) -- Getting the references for max date claim where Wikidata applies to part matches the Infobox place type		local templategeogrefs = GetRefsForClaim(maxclaimspertemplategeog, item.labels.en.value) -- Getting the references for max date claim where Wikidata applies to part matches the Infobox place type
	table.insert (returnlist, mw.language.getContentLanguage():formatNum(tonumber(maxclaimspertemplategeog.mainsnak.datavalue.value.amount)).." ("..GetAbbrLabelYearLink(maxclaimspertemplategeog)..")"..templategeogrefs) --Insert the return string to returnlist. With population value, applies to part, point in time, reference		table.insert (returnlist, mw.language.getContentLanguage():formatNum(tonumber(maxclaimspertemplategeog.mainsnak.datavalue.value.amount)).." ("..GetAbbrLabelYearLink(maxclaimspertemplategeog)..")"..templategeogrefs) --Insert the return string to returnlist. With population value, applies to part, point in time, reference

	elseif articleplacetype == "town" then -- Situation 2: Getting population for max date claims where Infobox place type = town. If no UCL populations (earlier default) then get ILOC and SAL populations.		elseif articleplacetype == "town" then -- Situation 2: Getting population for max date claims where Infobox place type = town. If no UCL populations (earlier default) then get ILOC and SAL populations.
	if maxclaimsperothergeog[ILOC_I]~=nil then		if maxclaimsperothergeog[ILOC_I]~=nil then
	-- local appliespartILOC = mw.wikibase.getEntity(maxclaimsperothergeog[ILOC_I].qualifiers[Applies_P][1].datavalue.value.id)
	local ILOCrefs = GetRefsForClaim(maxclaimsperothergeog[ILOC_I], item.labels.en.value) -- Getting the references for max date claim where applies to part = ILOC		local ILOCrefs = GetRefsForClaim(maxclaimsperothergeog[ILOC_I], item.labels.en.value) -- Getting the references for max date claim where applies to part = ILOC
	table.insert (returnlist, mw.language.getContentLanguage():formatNum(tonumber(maxclaimsperothergeog[ILOC_I].mainsnak.datavalue.value.amount)).." ("..GetAbbrLabelYearLink(maxclaimsperothergeog[ILOC_I])..")"..ILOCrefs) --Insert the return string to returnlist. With population value, applies to part, point in time, reference		table.insert (returnlist, mw.language.getContentLanguage():formatNum(tonumber(maxclaimsperothergeog[ILOC_I].mainsnak.datavalue.value.amount)).." ("..GetAbbrLabelYearLink(maxclaimsperothergeog[ILOC_I])..")"..ILOCrefs) --Insert the return string to returnlist. With population value, applies to part, point in time, reference
	end		end
	if maxclaimsperothergeog[SAL_I]~=nil then		if maxclaimsperothergeog[SAL_I]~=nil then
	-- local appliespartSAL = mw.wikibase.getEntity(maxclaimsperothergeog[SAL_I].qualifiers[Applies_P][1].datavalue.value.id)
	local SALrefs = GetRefsForClaim(maxclaimsperothergeog[SAL_I], item.labels.en.value) -- Getting the references for max date claim where applies to part = SAL		local SALrefs = GetRefsForClaim(maxclaimsperothergeog[SAL_I], item.labels.en.value) -- Getting the references for max date claim where applies to part = SAL
	table.insert (returnlist, mw.language.getContentLanguage():formatNum(tonumber(maxclaimsperothergeog[SAL_I].mainsnak.datavalue.value.amount)).." ("..GetAbbrLabelYearLink(maxclaimsperothergeog[SAL_I])..")"..SALrefs) --Insert the return string to returnlist. With population value, applies to part, point in time, reference		table.insert (returnlist, mw.language.getContentLanguage():formatNum(tonumber(maxclaimsperothergeog[SAL_I].mainsnak.datavalue.value.amount)).." ("..GetAbbrLabelYearLink(maxclaimsperothergeog[SAL_I])..")"..SALrefs) --Insert the return string to returnlist. With population value, applies to part, point in time, reference
	end		end
	else		else
	for a, w in pairs(maxclaimsperothergeog) do -- Situation 3: Getting population for max date claims where applies to part doesn't = Infobox place type, and Infobox place type doesn't = town.		for a, w in pairs(maxclaimsperothergeog) do -- Situation 3: Getting population for max date claims where applies to part doesn't = Infobox place type, and Infobox place type doesn't = town.
		⚫	local othergeogrefs = GetRefsForClaim(w, item.labels.en.value) -- Loop through the claims in maxclaimsperothergeog and output all of them
	-- local appliespartitem = mw.wikibase.getEntity(maxclaimsperothergeog[a].qualifiers[Applies_P][1].datavalue.value.id)
⚫	local othergeogrefs = GetRefsForClaim(w, item.labels.en.value)
	table.insert (returnlist, mw.language.getContentLanguage():formatNum(tonumber(maxclaimsperothergeog[a].mainsnak.datavalue.value.amount)).." ("..GetAbbrLabelYearLink(maxclaimsperothergeog[a])..")"..othergeogrefs) --Insert the return string to returnlist. With population value, applies to part, point in time, reference		table.insert (returnlist, mw.language.getContentLanguage():formatNum(tonumber(maxclaimsperothergeog[a].mainsnak.datavalue.value.amount)).." ("..GetAbbrLabelYearLink(maxclaimsperothergeog[a])..")"..othergeogrefs) --Insert the return string to returnlist. With population value, applies to part, point in time, reference
	end		end
	end		end

	local wikitext = ""
		⚫	local wikitext = "" -- Initialise an empty string output (this is the value that goes back to the Infobox Australian place)
	if #returnlist == 1 then
			if #returnlist == 1 then -- If there is only one formatted "population (geography year)" string (one row) in returnlist then return it without a bullet point
	wikitext = returnlist[1]		wikitext = returnlist[1]
	else		else
	wikitext = "\n"..table.concat(returnlist,"\n")		wikitext = "\n"..table.concat(returnlist,"\n") -- If there are multiple formatted "population (geography year)" strings (multiple rows) in returnlist then return all the rows with new line and bullet points between them
	end		end
	return wikitext..'[[Category:Australian place articles using Wikidata population values]]'		return wikitext..'[[Category:Australian place articles using Wikidata population values]]' -- Append the category to the output so we can keep track of which articles are using this module to output a population value
	end		end