Modul:WikidataIB

Dokumentasjon for denne modulen kan opprettes på Modul:WikidataIB/dok

local p = {}

function pTable(table)
	local r = ""
	for k,v in pairs( table ) do
		if (type(v) == 'table') then
			r = r .. k .. "=" .. pTable(v) .. ", "
		else
			r = r .. k .. "=" .. v .. ", "
		end
	end
	return r
end

function getargument(frame, argument)
	local args = frame.args
	if args[1] == nil then
		local pFrame = frame:getParent();
		args = pFrame.args;
		for k,v in pairs( frame.args ) do
			args[k] = v;
		end
	 end
	 if args[argument] then
		return args[argument]
	 end
	 return ""
end


-- Denne funksjonen returnerer noe
function get_single_value(property_value, first)
	lang = mw.language.getContentLanguage()
	if not property_value.mainsnak or not property_value.mainsnak.datavalue or not property_value.mainsnak.datavalue.value then
		return ""
	end
	local retval = ""
	-- retval = retval .. 'property_value.mainsnak.datavalue =' .. pTable(property_value.mainsnak.datavalue) .. ' '
	if property_value.mainsnak.datavalue.type == 'wikibase-entityid' then
		-- This is a wikibase entity, so let's make it a link
		local q_value = 'Q' .. property_value.mainsnak.datavalue.value["numeric-id"]
		local label = mw.wikibase.label(q_value)
		local sitelink = mw.wikibase.sitelink(q_value)
		if label and sitelink then
			if first and label ~= sitelink then
				retval = retval .. '[[' .. sitelink .. '|' .. lang:ucfirst(label) .. ']]'
			elseif label ~= sitelink then
				retval = retval .. '[[' .. sitelink .. '|' .. label .. ']]'
			else 
				retval = retval .. '[[' .. sitelink .. ']]'
			end
		elseif label and not sitelink then
			if first then
				retval = retval .. lang:ucfirst(label)
			else
				retval = retval .. label
			end
		elseif sitelink and not label then
			retval = retval .. '[[' .. sitelink .. ']]'
		else
			-- changing target, breaking user expectation
			retval = retval .. "[[d:" .. q_value .. '|' .. q_value .. ']]'
		end
	elseif property_value.mainsnak.datavalue.type == 'quantity' then
		-- This is a quantity of some kind, so let's take the amount 
		retval = retval .. tonumber(property_value.mainsnak.datavalue.value['amount'])
	else
		-- Unknown type
		retval = retval .. 'unknown type ' .. property_value.mainsnak.datavalue.type
	end
	return retval
end

--
-- Denne funksjonen kalles opp slik: {{#invoke:WikidataIB|rowProperty|P26}}
-- den vil da returnere en tekst-streng som er en rad i en infoboks slik: <tr class="rad" valign="top"><th colspan="2">[Property-navn]</th><td colspan="2">[claim]</td></tr>
-- property-navn og claim hentes fra wikidata
-- andre argumenter som kan benyttes:
--  property - angir hvilken property som skal benyttes, alternativ måte å spesifisere på: {{#invoke:WikidataIB|rowProperty|property=P26}}
--  liste    - angir at hvis det er flere verdier under en property skal de listes ut slik: <tr class="rad" valign="top"><th colspan="2">[Property-navn]</th><td colspan="2">[claim1], [claim2], ...</td></tr>
--             angis slik: {{#invoke:WikidataIB|rowProperty|P26|liste=1}}
--  dato     - angir om verdiene skal legges inn med dato i parantes i etterkant slik: <tr class="rad" valign="top"><th colspan="2">[Property-navn]</th><td colspan="2">[claim] (dato)</td></tr>
--             angis slik: {{#invoke:WikidataIB|rowProperty|P26|dato=1}}
--             denne kan også kombineres med "liste"
--  verdi    - standardverdi som benyttes dersom wikidata ikke har noen claims/verdier for den angitte egenskapen (property). Må da også spesifiseres sammen med "propertynavn".
--             angis slik: {{#invoke:WikidataIB|rowProperty|P26|verdi=Ola Normann}}
--  pnavn    - egenskapsnavn som benyttes dersom wikidata ikke har den angitte egenskapen (property).
--             angis slik: {{#invoke:WikidataIB|rowProperty|P26|pnavn=Ektefelle}}
--  edit     - angir om en "editeringslink" som peker mot Wikidata skal legges på raden. Kun tilgjengelig hvis alle data hentes fra Wikidata.
--             angis slik: {{#invoke:WikidataIB|rowProperty|P26|edit=1}}
--
function p.rowProperty(frame)
	lang = mw.language.getContentLanguage()
	-- Hent argumentet "property", kalt opp slik: {{#invoke:WikidataIB|rowProperty|property=P26}}
	local property = getargument(frame, 'property')
	if property == "" then
		-- Var ikke noe slikt argument, prøv å hente første argument, kalt opp slik: {{#invoke:WikidataIB|rowProperty|P26}}
		property = getargument(frame, '1')
	end
	if property == "" then
		-- Ingen argumenter tilgjengelig, så da avslutter vi bare.
		return "[[Kategori:Artikler med invoke WikidataIB rowProperty uten argumenter]]"
	end
	-- Hent argumentet "liste", kalt opp slik: {{#invoke:WikidataIB|rowProperty|P26|liste=1}}
	-- Dette gjør at alle claims under en property blir listet ut, slik: <tr><td>[Property-navn]</td><td>[claim1], [claim2], [claim3] ..</td></tr>
	local list = lang:lc(getargument(frame, 'liste'))
	if list ~= "" and list == "1" then
		list = true
	else
		list = false
	end
	-- Hent argumentet "dato", kalt opp slik: {{#invoke:WikidataIB|rowProperty|P26|dato=1}}
	-- Dette gjør at claims under en property får dato i parantes i etterkant av claimet, slik: <tr><td>[Property-navn]</td><td>[claim1] (dato)</td></tr>
	local date = lang:lc(getargument(frame, 'dato'))
	if date ~= "" and date == "1" then
		date = true
	else
		date = false
	end
	-- Hent argumentet "pnavn", kalt opp slik: {{#invoke:WikidataIB|rowProperty|P26|pnavn=Ektefelle}}
	local property_text = getargument(frame, 'pnavn')
	-- Hent argumentet "verdi", kalt opp slik: {{#invoke:WikidataIB|rowProperty|P26|pnavn=Ektefelle|verdi=Ola Normann}}
	local claim_value = getargument(frame, 'verdi')
	-- Hent argumentet "edit", kalt opp slik: {{#invoke:WikidataIB|rowProperty|P26|edit=1}}
	-- Dette gjør raden får en editeringslink mot wikidata, slik: <tr><td>[Property-navn]</td><td>[claim1]<span class="noprint plainlinks wikidata-linkback" style="padding-left:.5em"><a class="external text" href="//www.wikidata.org/wiki/QXXXXX"><img alt="Redigere på Wikidata" src="//upload.wikimedia.org/wikipedia/commons/thumb/7/73/Blue_pencil.svg/10px-Blue_pencil.svg.png" title="Voir et modifier les données sur Wikidata" width="10" height="10" style="vertical-align: baseline" srcset="//upload.wikimedia.org/wikipedia/commons/thumb/7/73/Blue_pencil.svg/15px-Blue_pencil.svg.png 1.5x, //upload.wikimedia.org/wikipedia/commons/thumb/7/73/Blue_pencil.svg/20px-Blue_pencil.svg.png 2x" data-file-width="600" data-file-height="600" /></a></span></td></tr>
	local edit = lang:lc(getargument(frame, 'edit'))
	if edit ~= "" and edit == "1" and property_text ~= "" and claim_value ~= "" then
		edit = true
	else
		edit = false
	end
	

	if not mw.wikibase then
		-- No connection to wikidata, so we'll just bail out now
		return "no connection to wikibase"
	end
	
	-- Now let's get all the claims
	local wdarticle = mw.wikibase.getEntityObject()
	if not wdarticle then
		-- no entry for this page at Wikidata.
		return "no entry for this page at Wikidata"
	else
		--return pTable(wdarticle)
	end
	local claims = wdarticle.claims
	
	if not claims then
		-- no claims for this page at Wikidata.
		return "no claims at Wikidata"
	end
	
	-- Now let's make sure the property is resolvable
	local property_id =  mw.wikibase.resolvePropertyId(property)
	if not property_id then
		-- not resolvable, so it's probably an error or a bogus property
		return "property was not resolvable"
	end
	
	local property_values = claims[property_id]
	if not property_values then
		-- No property value is available
		return "no property_value is available"
	end
	if not property_values[1].mainsnak then
		-- No property value is available
		return "no property_value mainsnak is available"
	end
	if not property_values[1].mainsnak.datavalue then
		-- No property value is available
		return "no property_value mainsnak.datavalue is available"
	end

	local i = 1
	local result = get_single_value(property_values[i],true)
	if list then
		local noTranslation = #result==0
		local first = noTranslation
		while i < #property_values do
			i = i+1
			local lres = get_single_value(property_values[i],first)
			if #lres > 0 then
				if not first then
					result = result .. ", "
				end
				result = result .. lres
				first = false;
			else
				noTranslation = true
			end
		end
		if noTranslation then
			result = result .. "[[Kategori:Artikler hvor " .. property .. " mangler oversettelse]]"
		end
	end
	
	return result
end
	

return p