Visa källa för Modul:Wikidata2/Aux

p = {}

local wikidata = require('Modul:Wikidata2').formatStatementsFromLua


function p.data(frame)
local args = frame.args
if args[1] == 'ref' then
local data = wikidata({entityId = args.item, property = args.property, sortbytime = 'chronological', enbarten = 'yes', raw = 'true', avoidqualifier='P518'})
return data[1].ref
end
if args[1] == 'year' then
local data = wikidata({entityId = args.item, property = args.property, sortbytime = 'chronological', enbarten = 'yes', raw = 'true', avoidqualifier='P518', noref='true', modifyqualifiertime = 'Y'})
return data[1].datum
end
if args[1] == 'number' then
local data = wikidata({entityId = args.item, property = args.property, sortbytime = 'chronological', enbarten = 'yes', raw = 'true', avoidqualifier='P518', noref='true'})
if not data then
return nil
end
local data2 = tostring(data[1].amount)
if string.sub(data2, 1, 1) == '+' then
return string.sub(data2, 2)
else
return data2
end
end
if args[1] == 'unit' then
local data = wikidata({entityId = args.item, property = args.property, sortbytime = 'chronological', enbarten = 'yes', raw = 'true', avoidqualifier='P518', noref='true'})
if data then
return data[1].unit
else
return nil
end
end
if args[1] == 'kommun' then
local s = {}
local data = wikidata({entityId = args.item, property = args.property, noref='true', avoidqualifier='P582', getonly=args.typ, claimindex=args.index})
return data
end
if args[1] == 'bild' then
local data = wikidata({entityId = args.item, property = 'P18', raw = 'true', noref='true', enbarten = 'true', langpref = 'en'})
if data and #data > 0 then
return data[1].value
end

end
if args[1] == 'bild2' then
local data = wikidata({entityId = args.item, property = 'P18', raw = 'true', noref='true', enbarten = 'true', langpref = 'en'})
if data and #data > 1 then
return data[2].value
end

end

if args[1] == 'bildtext_med_motivlänk' then
local data = wikidata({entityId = args.item, property = 'P18', qual1 = 'P180', qualifierseparator = '§§§', qualifierconjunction = '§§§', raw = 'true', noref='true', enbarten = 'true', langpref = 'sv'})
if data and #data > 0 then
data = data[1]
if data and data.bildtext then
local bildtext = data.bildtext
if data.motiv then
motivtable = mw.text.split(data.qp1,'§§§')
for k,v in pairs(motivtable) do
linktext = v:match( "%|(.*)%]%]" ) or v
bildtext, n = bildtext:gsub(linktext,v,1)
end
end
return bildtext
elseif data and data.motiv then
return data.motiv
end
end
end

if args[1] == 'bildtext' then
local data = wikidata({entityId = args.item, property = 'P18', raw = 'true', noref='true', enbarten = 'true', langpref = 'sv'})
if data and #data > 0 then
data = data[1]
if data and data.bildtext then
return '<span class= "Wikidata_P18_P2096" >'.. data.bildtext.. '</span>'
end
end
end

if args[1] == 'bildtext2' then
local data = wikidata({entityId = args.item, property = 'P18', raw = 'true', noref='true', enbarten = 'true', langpref = 'sv'})
if data and #data > 1 then
data = data[2]
if data then
return data.bildtext
end
end
end

if args[1] == 'motiv' then
local data = wikidata({entityId = args.item, property = 'P18', raw = 'true', noref='true', enbarten = 'true', langpref = 'sv'})
if data and #data > 0 then
data = data[1]
if data then
return data.motiv
end
end
end

if args[1] == 'motiv2' then
local data = wikidata({entityId = args.item, property = 'P18', raw = 'true', noref='true', enbarten = 'true', langpref = 'sv'})
if data and #data > 1 then
data = data[2]
if data then
return data.motiv
end
end
end

if args[1] == 'utbredningskarta' then
local data = wikidata({entityId = args.item, property = 'P181', raw = 'true', noref='true', enbarten = 'true', langpref = 'en'})
if data and #data > 0 then
return data[1].value
end

end

if args[1] == 'utbredningskartabeskrivning' then
local data = wikidata({entityId = args.item, property = 'P181', raw = 'true', noref='true', enbarten = 'true', langpref = 'sv'})
if data and #data > 0 then
data = data[1]
if data then
return data.bildtext
end
end
end

if args[1] == 'vapenbild' then
local data = wikidata({entityId = args.item, property = 'P94', raw = 'true', noref='true', enbarten = 'true', langpref = 'en'})
if data and #data > 0 then
return data[1].value
end
end

if args[1] == 'vapenbildbeskrivning' then
local data = wikidata({entityId = args.item, property = 'P94', raw = 'true', noref='true', enbarten = 'true', langpref = 'sv'})
if data and #data > 0 then
data = data[1]
if data then
return data.bildtext
end
end
end

return nil
end

p.datediff = function(frame)
local wikidata = require('Modul:Wikidata2').formatStatementsFromLua
local entityId = frame.args['entityId']
local entity = mw.wikibase.getEntityObject()
if not entityId and entity then entityId = entity.id end
if not entityId then return '' end
local date1 = frame.args['date1']
local date2 = frame.args['date2']
local prefix = frame.args['prefix'] or ''
local suffix = frame.args['suffix'] or ''
t1 = wikidata({entityId=entityId, property=date1, noref='ja', nolink='ja', rank='best'})
if date2=='nu' then
t2=os.date( ">%Y-%m-%d" )
else
t2 = wikidata({entityId=entityId, property=date2, noref='ja', nolink='ja', rank='best'})
end
if string.match(t1,'och') or string.match(t2, 'och') then
return '' --skip if more than one date with best rank
end
y1,m1,d1=string.match(t1,'>(%d+)-(%d+)-(%d+)')
y2,m2,d2=string.match(t2,'>(%d+)-(%d+)-(%d+)')
if not d1 or not d2 then
return '' -- skip if not both dates are full dates
end
diff = y2-y1
if m2 < m1 then diff = diff-1 end
if m2 == m1 and d2 < d1 then diff = diff - 1 end
if diff == 0 then
diff = frame.args['visa0som'] or 0
end
return prefix.. diff.. suffix
end

function tablesize(T)
local n = 0
for _ in pairs(T) do n = n + 1 end
return n
end

p.property_med_land = function(frame)
local res = ''
local args = frame.args
local item = args.item or mw.wikibase.getEntityIdForCurrentPage()
if item == nil or item == '' then return nil end
local entity = mw.wikibase.getEntityObject(item)
if entity == nil then return nil end
local property = args['property'] or 'P19'
local noref = args['noref'] or 'noimport'
local labelfromnameproperty = args['labelfromnameproperty'] or 'P569'
local somevalue = args['somevalue'] or ''
if entity['claims'] == nil then return nil end
if entity['claims'][property] == nil then return nil end
local claims = entity['claims'][property]
res = res.. (wikidata({entityId=item, property=property, noref=noref, labelfromnameproperty=labelfromnameproperty, somevalue='', novalue='', redlink='yes', conjunction=args.conjunction}) or '')
local numberofclaims = tablesize(entity['claims'][property]) -- TODO: ignore possible claims with deprecated rank
if numberofclaims > 1 then return res end
if entity['claims'][property][1].mainsnak.datatype ~= 'wikibase-item' then return res end
if entity['claims'][property][1].mainsnak.snaktype == 'somevalue' then return res end
if entity['claims'][property][1].mainsnak.snaktype == 'novalue' then return res end
local claim = entity['claims'][property][1].mainsnak.datavalue.value.id
local claimentity = mw.wikibase.getEntityObject(claim)
if claimentity['claims'] == nil then return res end
if claimentity['claims']['P17'] == nil then return res end
-- TODO: select P17 that don't give an anachronism, for now just skip if there are more than one P17
if tablesize(claimentity['claims']['P17']) > 1 then return res end
if claimentity['claims']['P17'][1].mainsnak.datatype ~= 'wikibase-item' then return res end
if claimentity['claims']['P17'][1].mainsnak.snaktype == 'value' and claimentity['claims']['P17'][1].mainsnak.datavalue.value.id == claim then return res end -- don't repeat if P17 is self-referencing
local result = wikidata({property='p17', noref='ja', entityId=claim, novalue=''})
if result then
res = res.. ', '.. result
end
return res
end

p.socken2distrikt = function(frame)
-- traverse a number of intermediate object via property "property" (default is P1366) until the target object is reached
-- the intermediate objects must have intermediateproperty (default is P31) in the set "intemediatepropertyvalues" (default is Q615980)
-- the target objekt must have a property of targetproperty (default is P31) in the set of "targepropertyvalues" (default is 'Q18333556')
item = frame.args['item']
traverseproperty = frame.args['traverseproperty'] or 'P1366'
intermediateproperty = frame.args['intermediateproperty'] or 'P31'
intermediatepropertyvalues = frame.args['intermediatepropertyvalues'] or 'Q615980'
targetproperty = frame.args['targetproperty'] or 'P31'
targetpropertyvalues = frame.args['targetpropertyvalues'] or 'Q18333556'

while (item~=nil) do
ready = wikidata({entityId = item, property = traverseproperty, getonlyproperty = targetproperty, getonly = targetpropertyvalues, raw='ja', noref='ja'})
if (ready == nil or ready[1] == nil) then
nextitem = wikidata({entityId = item, property = traverseproperty, getonlyproperty = intermediateproperty, getonly = intermediatepropertyvalues, enbarten='ja', raw='ja', noref='ja'})
if (nextitem ~= nil and nextitem[1]) then
item = nextitem[1]['item']
else
item = nil
end
else
item = nil
end
end
if ready and ready[1] and ready[1]['item'] then
res = ready[1]['item']
else
res = ''
end
return res
end

p.wikisourcelink = function(frame)
res = nil
local args = frame.args
if args.item ~= '' then
entity = mw.wikibase.getEntityObject(args.item)
if entity['sitelinks']['svwikisource'] then
res = '[[:src:'.. entity['sitelinks']['svwikisource']['title']..'|'.. entity['sitelinks']['svwikisource']['title'].. ']]'
end
end
return res
end

return p