Modul:WikidataIB

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

local p = {}

function pTable(table)
	return "<pre>" .. mw.dumpObject(table) .. "</pre>"
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 nil
end

function getDate(qualifiers, dateformat, langcode)
	local out = "" -- pTable(qualifiers)
	local qualifierID = ""
	if qualifiers['P585'] then qualifierID='P585'			-- point-in-time
	elseif qualifiers['P580'] then qualifierID='P580' end		-- from
	-- todo: timespans? P582
	for k2, v2 in pairs(qualifiers[qualifierID]) do
		if v2.snaktype == 'value' then
			out = out .. "(" .. mw.language.new(langcode):formatDate(dateformat, v2.datavalue.value.time) .. ")"
		end
	end
	return out
end

-- This is used to get a value, or a comma separated list of them if multiple values exist
function getValue(propertyID, list, dateformat, edit)
	local langcode = mw.language.getContentLanguage().code
	local entity = mw.wikibase.getEntityObject()
	local claims
	if entity and entity.claims then
		claims = entity.claims[propertyID]
	end
	if claims then
		local out = {}
		if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "wikibase-entityid") then
			-- if wiki-linked value output as link if possible
			for k, v in pairs(claims) do
				-- todo: get the entries in preferred order
				local sitelink = mw.wikibase.sitelink("Q" .. v.mainsnak.datavalue.value["numeric-id"])
				local label = mw.wikibase.label("Q" .. v.mainsnak.datavalue.value["numeric-id"])
				if label == nil then 
					label = "Q" .. v.mainsnak.datavalue.value["numeric-id"] 
				end
						
				if sitelink then
					out[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]"
				else
					out[#out + 1] = "[[:d:Q" .. v.mainsnak.datavalue.value["numeric-id"] .. "|" .. label .. "]]<abbr title='Artikkelen er ikke tilgjengelig på denne wikien enda'>[*]</abbr>"
				end
				if dateformat then
					out[#out] = out[#out] .. " " .. getDate(v.qualifiers, dateformat, langcode)
				end
				if not list then 
					break
				end
			end
			return table.concat(out, ", ")
		elseif (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == 'quantity') then
			-- this is a quantity, output as value
			for k, v in pairs(claims) do
				-- todo: get the values in preferred order
				out[#out + 1] = tonumber(v.mainsnak.datavalue.value['amount'])
				if dateformat then
					out[#out] = out[#out] .. " " .. getDate(v.qualifiers, dateformat, langcode)
				end
				if not list then 
					break
				end
			end
			return table.concat(out, ", ")
		else
			-- Unknown type
			return 'unknown type ' .. claims[1].mainsnak.datavalue.type
		end
	else
		return ""
	end
end

-- This is used to get a value, or a comma separated list of them if multiple values exist
function getProperty(propertyID)
	local lang = mw.language.getContentLanguage()
	local out =  mw.wikibase.label(propertyID)
	return lang:ucfirst(out)	
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=<datoformat>}}, f.eks. {{#invoke:WikidataIB|rowProperty|P26|dato=j. F Y}} vil gi (31. desember 2015)
--             denne kan også kombineres med "liste"
-- følgende vil implementeres etterhvert
--  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 not 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 not 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 = getargument(frame, 'liste')
	if list and list ~= "" and list == "1" then
		list = true
	else
		list = false
	end
	-- Hent argumentet "dato", kalt opp slik: {{#invoke:WikidataIB|rowProperty|P26|dato=<format>}}
	-- Dette gjør at claims under en property får dato i parantes i etterkant av claimet, slik: <tr><td>[Property-navn]</td><td>[claim] (dato)</td></tr>
	local date = getargument(frame, 'dato')
	-- 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 = getargument(frame, 'edit')
	if edit and edit ~= "" and edit == "1" and property_text ~= "" and claim_value ~= "" then
		edit = true
	else
		edit = false
	end
	return '<tr class="rad" valign="top"><th colspan="2">' .. getProperty(property) .. '</th><td colspan="2">' .. getValue(property, list, date, edit) .. '</td></tr>'
end

return p