Colani: 1 versie geïmporteerd

2024-03-23T16:40:18Z

1 versie geïmporteerd

Nieuwe pagina

--Variabele die alle modulefuncties bevat
local p = {}

--Modulefunctie "settlements_table", voert functie "settlements_table" uit
function p.settlements_table(frame)
local ok, result = pcall(settlements_table, frame)
--Als er geen errors optraden tijdens de uitvoering van de functie, wordt de tabel (het resultaat) geretourneerd
if ok == true then
return result
--Als er wel een error optrad, wordt een foutmelding geretourneerd en wordt de pagina in een beheercategorie geplaatst
else
return frame:expandTemplate{ title = 'Error', args = {'De module gaf een foutmelding (klik [[Overleg Wikipedia:Wikiproject/WikidataOpWikipedia/Inwoneraantal#Tabel woonplaatsen Nederlandse gemeente|hier]] voor hulp):<br />' .. result .. '[[Categorie:Wikipedia:Tabel woonplaatsen Nederlandse gemeente/Directe actie nodig]]'} }
end
end

--Functie "settlements_table", maakt een tabel met alle woonplaatsen in een gemeente en de bijbehorende inwoneraantallen en markeert de hoofdplaats(en)
function settlements_table(frame)
result = ''

--Parameters die meegegeven worden aan het sjabloon ophalen
parent_args = frame:getParent().args
--Parameters die meegegeven worden aan de module (vanuit het sjabloon) ophalen
args = frame.args

--Als de sjabloonparameter "wikidataid" gegeven is, wordt een tabel gemaakt voor het Wikidata-item met dat ID
if parent_args.wikidataid then
municipality_id = parent_args.wikidataid
--Als het ID niet op een Wikidata-ID lijkt, wordt een foutmelding geretourneerd
if string.sub(municipality_id, 1, 1) ~= 'Q' then
error('Het opgegeven Wikidata-ID, <code>' .. municipality_id .. '</code>, is niet geldig. Een geldig Wikidata-ID is in de vorm "Qx", met een of meer cijfers op de plaats van x.')
end
--Anders wordt het Wikidata-item behorend bij de pagina zelf gebruikt
else
municipality_id = mw.wikibase.getEntityIdForCurrentPage()
end

--Als de pagina geen Wikidata-ID heeft en ook geen Wikidata-ID is opgegeven, wordt een foutmelding geretourneerd
if municipality_id == nil then
error('Er kon geen tabel gemaakt worden omdat deze pagina geen Wikidata-ID heeft en er geen Wikidata-ID is opgegeven als parameter (zie [[Sjabloon:Tabel woonplaatsen Nederlandse gemeente#Parameters|hier]] welke parameters gebruikt kunnen worden).')
end

--Als het bijbehorende Wikidata-item niet een instantie is van "municipality of the Netherlands" (Q2039348), wordt een foutmelding geretourneerd
local municipality_instance = 'Q2039348'
if not is_instance(municipality_id, municipality_instance) then
error('Er kon geen tabel gemaakt worden omdat het [[:d:' .. municipality_id .. '|Wikidata-item]] ' .. (parent_args.wikidataid and 'van het opgegeven Wikidata-ID' or 'van deze pagina') .. ' niet een instantie is van "municipality of the Netherlands" ([[d:' .. municipality_instance .. '|' .. municipality_instance .. ']]).')
end

--De hoofdplaatsen van, woonplaatsen in, het totale inwoneraantal van en de naam van de gemeente worden opgehaald uit Wikidata
local capitals = mw.wikibase.getBestStatements(municipality_id, 'P36')
local settlements = mw.wikibase.getBestStatements(municipality_id, 'P1383')
local municipality_data = get_population(frame, municipality_id)
local municipality_name = mw.wikibase.getLabelByLang(municipality_id, 'nl')

--De Wikidata-ID's van de hoofdplaatsen worden in een table gezet
local capital_ids = {}
for k in pairs(capitals) do
capital_ids[k] = capitals[k].mainsnak.datavalue.value.id
end

--Voor iedere woonplaats in de gemeente worden gegevens opgehaald
local settlements_data = {}
local municipality_population_sum = 0
local n = 1
for k in pairs(settlements) do
local id = settlements[k].mainsnak.datavalue.value.id

--Alleen als de woonplaats een instantie is van "populated place in the Netherlands" (Q1852859) wordt deze meegenomen
if is_instance(id, 'Q1852859') then
--Het inwoneraantal wordt opgehaald, alsmede het inwoneraantal met bron erachter en de bijbehorende peildatum
local settlement_data = get_population(frame, id)

--De naam van de woonplaats wordt opgehaald
local settlement_name = mw.wikibase.getLabelByLang(id, 'nl')

--Voor de woonplaatsnamen worden links naar artikelen gemaakt, als er geen pagina over bestaat wordt er niet gelinkt
local settlement_table_name = frame:expandTemplate{ title = 'Wikidata', args = {'label', 'short', 'linked', id} }

--Als de woonplaats een hoofdplaats van de gemeente is, wordt hij gemarkeerd
local settlement_is_capital = contains(capital_ids, id)
if settlement_is_capital then
settlement_table_name = '\'\'\'' .. settlement_table_name .. '\'\'\''
end

--Gegevens over de woonplaats worden opgeslagen in een table
settlement_data_combined = {name=settlement_name, table_name=settlement_table_name, is_capital=settlement_is_capital}
for k,v in pairs(settlement_data) do
settlement_data_combined[k] = v
end
settlements_data[n] = settlement_data_combined
n = n + 1

--De som van alle inwoneraantallen wordt berekend
municipality_population_sum = municipality_population_sum + settlement_data_combined.population
end
end

--De table wordt gesorteerd volgens de functie "order_settlements"
table.sort(settlements_data, order_settlements)

for k, row in pairs(settlements_data) do
--De tabel wordt gemaakt met de gegevens uit de table "settlements_data". Merk op dat hier "row.population_with_source_sortable" wordt gebruikt, het inwoneraantal mét bron erachter
result = result .. '\n|-\n|' .. row.table_name .. '||' .. row.population_with_source_sortable .. '||' .. row.population_date
end

--Als de som van de inwoneraantallen niet gelijk is aan de waarde gegeven op Wikidata, wordt het verschil toegevoegd aan de tabel
local population_difference = municipality_data.population - municipality_population_sum
if population_difference ~= 0 then
--Het Sjabloon:Sorteer wordt gebruikt om het overige inwoneraantal sorteerbaar te maken
local population_difference_sortable = frame:expandTemplate{ title = 'Sorteer', args = {population_difference, format_thousand(population_difference)} }
--Als het verschil binnen de marge van een afrondingsverschil ligt (aantal woonplaatsen vermenigvuldigd met 2) heet de tabelrij "Afrondingsverschil", anders "Overig"
if math.abs(population_difference) > #settlements_data * 2 then
--Als het verschil te groot is, wordt de pagina in een beheercategorie geplaatst
population_difference_title = 'Overig[[Categorie:Wikipedia:Tabel woonplaatsen Nederlandse gemeente/Te veel overig]]'
else
population_difference_title = 'Afrondingsverschil'
end
result = result .. '\n|-class="sortbottom"\n|' .. population_difference_title .. '||' .. population_difference_sortable .. '||'
end

--Het totale inwoneraantal van de gemeente uit Wikidata wordt onderaan de tabel gezet. Merk op dat hier "municipality_data.population_with_source_sortable" wordt gebruikt, het inwoneraantal mét bron erachter
result = '{| class="wikitable sortable"\n|+ Woonplaatsen in de gemeente ' .. municipality_name .. '\n|-\n!Woonplaats!!Inwoneraantal!!Peildatum' .. result .. '\n|-class="sortbottom"\n|Totaal:||' .. municipality_data.population_with_source_sortable .. '||' .. municipality_data.population_date .. '\n|+ align="bottom" style="caption-side:bottom; text-align:right;" class="noprint" | <small>[[Overleg Wikipedia:Wikiproject/WikidataOpWikipedia/Inwoneraantal#Tabel woonplaatsen Nederlandse gemeente|Meld een fout]]</small>\n|}'

--Het resultaat wordt geretourneerd
return result
end

--Functie "is_instance", kijkt of een Wikidata-item een instantie is van een ander Wikidata-item
function is_instance(id, instance)
local instances = mw.wikibase.getBestStatements(id, 'P31')
for index, value in pairs(instances) do
if value.mainsnak.datavalue.value.id == instance then
return true
end
end
return false
end

--Functie "get_population", haalt het inwoneraantal, inwoneraantal met bron en de peildatum van het inwoneraantal op uit Wikidata
function get_population(frame, id)
--Als de woonplaats een inwoneraantal heeft waarvan "van toepassing op deel" (P518) de gemeente zelf is, dan wordt dat inwoneraantal gebruikt
population_partial = frame:expandTemplate{ title = 'Wikidata', args = {'property', id, 'P1082', P518=municipality_id} }:gsub('%.', '')
if population_partial ~= '' then
population = population_partial
population_with_source = frame:expandTemplate{ title = 'Wikidata', args = {'property', 'qualifier', 'references', 'normal+', id, 'P1082', P518=municipality_id} }
population_date = frame:expandTemplate{ title = 'Wikidata', args = {'properties', 'qualifier', 'normal+', id, 'P1082', P518=municipality_id, 'P585', format='%q'} }
else
--Anders worden met Sjabloon:Inwonertal het "gewone" inwoneraantal en bijbehorende gegevens van Wikidata gehaald, die gemarkeerd zijn als voorkeurswaarde
population = frame:expandTemplate{ title = 'Inwonertal', args = {id=id, soort='waardepuur'} }:gsub('%.', '')
population_with_source = frame:expandTemplate{ title = 'Inwonertal', args = {id=id} }
population_date = frame:expandTemplate{ title = 'Inwonertal', args = {id=id, soort='datum'} }
end

--Als de peildatum 4 karakters of korter is (een jaartal), wordt deze via het Sjabloon:Sorteer voor de sortering omgezet naar 1 januari van dat jaar
if string.len(population_date) <= 4 then
population_date = frame:expandTemplate{ title = 'Sorteer', args = {'1 januari', population_date} }
end

--Als het inwoneraantal niet bekend is, wordt deze vervangen door een vraagteken en wordt de pagina in een beheercategorie geplaatst
if population == '' then
--Voor de sortering wordt het inwoneraantal op 0 gezet, terwijl "population_with_source" wordt weergegeven als een vraagteken
population = 0
population_with_source = '?'
result = result .. '[[Categorie:Wikipedia:Tabel woonplaatsen Nederlandse gemeente/Ontbrekend inwoneraantal]]'
end

--Als de peildatum niet gelijk is aan de gewenste peildatum, wordt de pagina in een beheercategorie geplaatst
if population_date ~= args.reference_date then
result = result .. '[[Categorie:Wikipedia:Tabel woonplaatsen Nederlandse gemeente/Onjuiste peildatum]]'
end

--Als de moduleparameter "wikidatalinks" gelijk is aan "ja", wordt bij ieder inwoneraantal een link geplaatst naar de Wikidata-locatie van dat gegeven
if parent_args.wikidatalinks == 'ja' then
local wikidatalink = frame:expandTemplate{ title = 'Inwonertal', args = {id=id, soort='wdlink'} }
--Alleen als het het inwoneraantal van de gemeente betreft, wordt de pagina in een beheercategorie geplaatst (zodat die categorietoewijzing maar een keer gebeurt)
if id == municipality_id then
wikidatalink = wikidatalink .. '[[Categorie:Wikipedia:Tabel woonplaatsen Nederlandse gemeente/Directe actie nodig]]'
end
population_with_source = population_with_source .. ' ' .. wikidatalink
end

--Het Sjabloon:Sorteer wordt gebruikt om de inwoneraantallen sorteerbaar te maken
local population_with_source_sortable = frame:expandTemplate{ title = 'Sorteer', args = {population, population_with_source} }

return {population=population, population_with_source_sortable=population_with_source_sortable, population_date=population_date}
end

--Functie "contains", kijkt of een table een bepaalde waarde bevat
function contains(tab, val)
for index, value in pairs(tab) do
if value == val then
return true
end
end
return false
end

--Functie "order_settlements", retourneert welke rij boven en welke onder de andere moet staan: op alfabetische volgorde van woonplaatsnamen, waarbij de hoofdplaats(en) bovenaan staat/staan (alfabetisch gesorteerd indien meer dan één)
function order_settlements(a, b)
if a.is_capital == b.is_capital then
return a.name < b.name
end
return a.is_capital
end

--Functie "format_thousand", voegt scheidingstekens voor duizendtallen (punten) toe aan een getal
--Credits: remiX (04-01-2013), van http://www.computercraft.info/forums2/index.php?/topic/8065-lua-thousand-separator/
--Aangepast om ook te werken voor negatieve getallen
function format_thousand(v)
if v < 0 then
negative = true
v = -v
end
local s = string.format('%d', math.floor(v))
local pos = string.len(s) % 3
if pos == 0 then pos = 3 end
local formatted = string.sub(s, 1, pos) .. string.gsub(string.sub(s, pos+1), '(...)', '.%1')
if negative == true then formatted = '-' .. formatted end
return formatted
end

return p

Module:Gemeente in Nederland - Bewerkingsoverzicht

Colani: 1 versie geïmporteerd