Module:WikidataIB: Difference between revisions

["unknown-datetime-format"] = "Unknown datetime format.",

["local-article-not-found"] = "Article is available on Wikidata, but not on Wikipedia"

    "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"

local datetime = datetime or "1 August 30 BCE" -- in case of nil value

-- chop off multiple vales and/or any hours, mins, etc.

-- keep anything before punctuation - we just want a single date:

local dateval = string.match( datetime, "[%w ]+")

local dateformat = string.lower(dateformat or "dmy") -- default to dmy

local bc = string.upper(bc or "") -- can't use nil for bc

-- we only want to accept two possibilities: BC or default to BCE

if bc=="BC" then

bc = " BC" -- prepend the space. **internationalise later**

else

bc = " BCE"

end

local postchrist = true -- start by assuming no BCE

local dateparts = {}

for word in string.gmatch(dateval, "%w+") do

if word == "BCE" or word == "BC" then -- **internationalise later**

postchrist = false

else

-- we'll keep the parts that are not 'BCE' in a table

dateparts[#dateparts + 1] =  word

end

end

if postchrist then bc = "" end -- set AD dates to no suffix **internationalise later**

local sep = " " -- separator is nbsp

local fdate = table.concat(dateparts, " ") -- formatted date defaults to same order as input

-- if we have day month year, check dateformat

if #dateparts == 3 then

if dateformat == "y" then

fdate = dateparts[3]

elseif dateformat == "mdy" then

fdate = dateparts[2] .. sep .. dateparts[1] .. "," .. sep .. dateparts[3]

end

elseif #dateparts == 2 and dateformat == "y" then

fdate = dateparts[2]

end

return fdate .. bc

if param and (#param > 0) then

param = param:lower()

if (param == "false") or (param == "no") or (param == "0") then

return false

else

return true

end

else

return default

end

local label = mw.wikibase.label(id)

if label then

return mw.text.nowiki(label)

else

return id

end

-- it counts how many references are sourced to something not contianing the word "wikipedia"

local refs = 0

if claim.references then

for kr, vr in pairs(claim.references) do

local ref = mw.wikibase.renderSnaks(vr.snaks)

if not ref:find("Wikipedia") then refs = refs + 1 end

end

end

return refs > 0

-- can take a named parameter |qid which is the Wikidata ID for the article.

-- This will not normally be used because it's an expensive call.

local qid = frame.args.qid

if qid and (#qid == 0) then qid = nil end

-- The blacklist is passed in named parameter |suppressfields

local blacklist = frame.args.suppressfields

-- The whitelist is passed in named parameter |fetchwikidata

local whitelist = frame.args.fetchwikidata

-- The name of the field that this function is called from is passed in named parameter |name

local fieldname = frame.args.name

if blacklist then

-- The name is compulsory when blacklist is used, so return nil if it is not supplied

if not fieldname or (#fieldname == 0) then return false, nil, nil end

-- If this field is on the blacklist, then return nil

if blacklist:find(fieldname) then return false, nil, nil end

end

-- If we got this far then we're not on the blacklist

-- The blacklist overrides any locally supplied parameter as well

-- If a non-blank input parameter was supplied return it

if input_parm then return false, input_parm, nil end

-- Otherwise see if this field is on the whitelist:

if not (whitelist and (whitelist == 'ALL' or whitelist:find(fieldname))) then

-- not on the whitelist so just return what should be a nil input parameter

return false, input_parm, nil

end

-- See what's on Wikidata:

local entity = mw.wikibase.getEntityObject(qid)

if entity and entity.claims then

local props = entity.claims[property_id]

if props and props[1] then  

return true, entity, props

end

end

-- no property on Wikidata

return false, input_parm, nil

-- onlysourced is a boolean passed to return only values sourced to other than Wikipedia

-- if nothing or an empty string is passed set it true

-- if "false" or "no" or "0" is passed set it false

local onlysrc = parseParam(frame.args.onlysourced, true)

-- noicon is a boolean passed to suppress the trailing "edit at Wikidata" icon

-- for use when the value is processed further by the infobox

-- if nothing or an empty string is passed set it false

-- if "false" or "no" or "0" is passed set it false

local noic = parseParam(frame.args.noicon, false)

-- wdlinks is a boolean passed to enable links to Wikidata when no article exists

-- if nothing or an empty string is passed set it false

-- if "false" or "no" or "0" is passed set it false

local wdl = parseParam(frame.args.wdlinks, false)

-- sorted is a boolean passed to enable sorting of the values returned

-- if nothing or an empty string is passed set it false

-- if "false" or "no" or "0" is passed set it false

local sorted = parseParam(frame.args.sorted, false)

-- separator is a string that is used to separate multiple returned values

-- if nothing or an empty string is passed set it to the default

-- any double-quotes " are stripped out, so that spaces may be passed

-- e.g. |sep=" - "

local sepdefault = ", " -- **internationalise later**

local separator = frame.args.sep or ""

separator = string.gsub(separator, '"', '')

if #separator == 0 then

separator = sepdefault

end

-- list is a string that may be "", "hlist" or "ubl"

-- this controls whether multiple values are output as comma-separated

-- as a horizontal list (hlist) or unbulleted list (ubl)

local list = frame.args.list or ""

if list~="hlist" and list~="ubl" then list = "" end

-- So now we have something to return: deal with (1) a Wikibase-entity; (3) a date; (3) anything else

local lang = mw.language.getContentLanguage().code

local thisQid = entity.id

-- table 'out' is going to to store the return value(s):

local out = {}

local icon = " [[File:Blue pencil.svg |frameless |text-top |10px |alt=Edit this on Wikidata |link=https://www.wikidata.org/wiki/" .. thisQid .. "?uselang=" .. lang .. "#" .. propertyID .. "|Edit this on Wikidata]]"

if props[1].mainsnak.datatype == "wikibase-item" then

-- it's wiki-linked value, so output as link if possible

for k, v in pairs(props) do

if filter(v) and ((onlysrc == false) or sourced(v)) then -- has valid refs or all values required

if v.mainsnak.snaktype == "somevalue" then -- check for value is unknown

out[#out + 1] = "Unknown value"

else

local qnumber = "Q" .. v.mainsnak.datavalue.value["numeric-id"]

local sitelink = mw.wikibase.sitelink(qnumber)

local label = labelOrId(qnumber)

if sitelink then

out[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]"

else

-- no sitelink, so check first for a redirect with that label

local artitle = mw.title.new(label, 0)

if artitle.id > 0 then

if artitle.isRedirect then

-- no sitelink, but there's a redirect with the same title as the label

-- let's link to that

out[#out + 1] = "[[" .. label .. "]]"

else

-- no sitelink and not a redirect but an article exists with the same title as the label

-- that's probably a dab page, so output the plain label

out[#out + 1] = label

end

else

-- no article or redirect with the same title as the label

if wdl then

-- show that there's a Wikidata entry available

out[#out + 1] = "[[:d:Q" .. v.mainsnak.datavalue.value["numeric-id"] .. "|" .. label .. "]]&nbsp;<span title='" .. i18n["errors"]["local-article-not-found"] .. "'>[[File:Wikidata-logo.svg|16px|alt=|link=]]</span>"

else

-- no wikidata links required, so just give the plain label

out[#out + 1] = label

end

end

end

end

end

end

elseif props[1].mainsnak.datatype == "time" then

-- it's a date value, so output according to formatting preferences

for k, v in pairs(props) do

-- check for references, and count valid references

if filter(v) and ((onlysrc == false) or sourced(v)) then

local timestamp = v.mainsnak.datavalue.value.time

-- A year can be stored like this: "+1872-00-00T00:00:00Z",

-- which is processed here as if it were the day before "+1872-01-01T00:00:00Z",

-- and that's the last day of 1871, so the year is wrong.

-- So fix the month 0, day 0 timestamp to become 1 January instead:

timestamp = timestamp:gsub("%-00%-00T", "-01-01T")

local dateprecision = v.mainsnak.datavalue.value.precision

local dateformat = "y"

local fpvdate = tonumber(timestamp:sub(2, 5))

if timestamp:sub(1, 1) == "-" then

fpvdate = fpvdate .. " BCE"

end

if dateprecision > 9 then -- add month

fpvdate = i18n.months[tonumber(timestamp:sub(7, 8))] .. " " .. fpvdate

dateformat = frame.args.df

end

if dateprecision > 10 then -- add day

fpvdate = tonumber(timestamp:sub(10, 11)) .. " " .. fpvdate

end

out[#out+1] = format_Date(fpvdate, dateformat, frame.args.bc)

end

end

else

-- not a linkable article title or a date

-- this needs to be expanded to cater for multiple values

local reflist = ""

local refs = 0

for k, v in pairs(props) do

-- check for references,

-- construct a reference list for debugging

-- and count valid references

if v.references then

for kr, vr in pairs(v.references) do

local ref = mw.wikibase.renderSnaks(vr.snaks)

reflist = reflist .. " <span style='color:#0DD;'>" .. ref .. "</span>"

if not ref:find("Wikipedia") then refs = refs + 1 end

end

end

end

local propertyValue = entity:formatPropertyValues(propertyID).value

if (refs > 0) or (onlysrc == false) then -- has valid refs or all values required

out[#out+1] = propertyValue

end

end

-- if there's anything to return, then return a list

-- comma-separated by default, but may be specified by the sep parameter

-- optionally specify a hlist or  

if #out > 0 then

if sorted then table.sort(out) end

if list == "hlist" then

return frame:expandTemplate{title = 'Hlist', args = out}

elseif list == "ubl" then

return frame:expandTemplate{title = 'Unbulleted list', args = out}

else

if noic then

return table.concat(out, separator)

else

return table.concat(out, separator) .. icon

end

end

else

return nil -- no items had valid reference

end

local propertyID = mw.text.trim(frame.args[1] or "")

-- There may be a local parameter supplied, if it's blank, set it to nil

local input_parm =  mw.text.trim(frame.args[2] or "")

if input_parm and (#input_parm == 0) then input_parm = nil end

local success, errorOrEntity, props = parseInput(frame, input_parm, propertyID)

if not success then

return errorOrEntity

else

entity = errorOrEntity

end

local function filter(claim)

return true

end

return _getvalue(frame, entity, props, filter, propertyID)

local propertyID = mw.text.trim(frame.args[1] or "")

-- There may be a local parameter supplied, if it's blank, set it to nil

local input_parm =  mw.text.trim(frame.args[2] or "")

if input_parm and (#input_parm == 0) then input_parm = nil end

local success, errorOrEntity, props = parseInput(frame, input_parm, propertyID)

if not success then

return errorOrEntity

else

entity = errorOrEntity

end

local prefflag = false

for k, v in pairs(props) do

if v.rank == "preferred" then  

prefflag = true  

break

end

end

local function filter(claim)

return claim.rank == "preferred" or prefflag == false

end

return _getvalue(frame, entity, props, filter, propertyID)

frame.args.onlysourced = "yes"

return p.getValue(frame)

local propertyID = "P625"

local input_parm =  mw.text.trim(frame.args[1] or "")

if input_parm and (#input_parm == 0) then input_parm = nil end

-- if there is a 'display' parameter supplied, use it

-- otherwise default to "inline, title"

local disp = frame.args.display

if (not disp) or (#disp == 0) then

disp = "inline, title"

end

local success, errorOrEntity = parseInput(frame, input_parm, property_id)

if not success then

return errorOrEntity

else

local entity = errorOrEntity

local lat_long = {}

local coords = entity:formatPropertyValues(propertyID).value

-- the latitude and longitude are returned like this: nn°nn&#39;nn.n&#34;

-- using html entities with hex values really screws up parsing the numbers - thanks devs

local lat = mw.ustring.match(coords, "^[^,]*")  -- everything from the start to before the comma

local long = mw.ustring.match(coords, "[^ ]*$") -- everything from after the space to the end

lat = lat:gsub("&#%d%d;", ":")                  -- clean out the html entities

long = long:gsub("&#%d%d;", ":")                -- clean out the html entities

-- read the latitude numbers into a table

for num in mw.ustring.gmatch(lat, "%d+%.?%d*") do

  lat_long[#lat_long + 1] = num

end

-- add the N/S

lat_long[#lat_long + 1] = lat:sub(-1)

-- read the longitude numbers into a table

for num in mw.ustring.gmatch(long, "%d+%.?%d*") do

lat_long[#lat_long + 1] = num

end

-- add E/W for long

lat_long[#lat_long + 1] = long:sub(-1)

-- add named parameter for display

lat_long["display"] = disp

-- invoke template Coord with the values stored in the table

return frame:expandTemplate{title = 'coord', args = lat_long}

end

-- The call needs: a property (the unnamed parameter or 1=)

-- a target value for that property (pval=)

-- a qualifier for that target value (qual=)

-- when the property is unsourced (or only sourced to Wikipedia)

local propertyID = mw.text.trim(frame.args[1] or "")

-- The PropertyID of the target value of the property

-- whose qualifier is to be returned is passed in named parameter |pval=

local propvalue = frame.args.pval

-- The PropertyID of the qualifier

-- whose value is to be returned is passed in named parameter |qual=

local qualifierID = frame.args.qual

-- onlysourced is a boolean passed to return qualifiers

-- only when property values are sourced to something other than Wikipedia

-- if nothing or an empty string is passed set it false

-- if "false" or "no" or 0 is passed set it false

local onlysrc = parseParam(frame.args.onlysourced,false)

local success, errorOrEntity, props = parseInput(frame,nil, propertyID)

if not success then

return errorOrEntity

else

local entity = errorOrEntity

-- Scan through the values of the property

-- we want something like property is P793, significant event (in propertyID)

-- whose value is something like Q385378, construction (in propvalue)

-- then we can return the value(s) of a qualifier such as P580, start time (in qualifierID)

for k1, v1 in pairs(props) do

if v1.mainsnak.snaktype == "value" and v1.mainsnak.datavalue.type == "wikibase-entityid" then

-- It's a wiki-linked value, so check if it's the target (in propvalue)

-- and if it has qualifiers

if v1.mainsnak.datavalue.value.id == propvalue and v1.qualifiers then

if (onlysrc == true) and not sourced(v1) then

return

end

-- if we've got this far, we have a (sourced) claim with qualifiers

-- which matches the target, so find the value(s) of the qualifier we want

local quals = v1.qualifiers[qualifierID]

local out = {}

if quals then

if quals[1].datatype == "wikibase-item" then

for k2, v2 in pairs(quals) do

local valueID = v2.datavalue.value.id

local sitelink = mw.wikibase.sitelink(valueID)

local label = labelOrId(valueID)

if sitelink then

out[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]"

else

out[#out + 1] = "[[:d:" .. valueID .. "|" .. label .. "]]&nbsp;<span title='" .. i18n["errors"]["local-article-not-found"] .. "'>[[File:Wikidata-logo.svg|16px|alt=|link=]]</span>"

end

end

return table.concat(out, ", ")

else

return mw.wikibase.renderSnaks(quals)

end

end

end

end -- of loop through values of propertyID

end

end

return nil

local itemID = mw.text.trim(frame.args[1] or "")

if itemID == "" then return end

local sitelink = mw.wikibase.sitelink(itemID)

local label = labelOrId(itemID)

if sitelink then

return "[[" .. sitelink .. "|" .. label .. "]]"

else

return label

end

local itemID = mw.text.trim(frame.args[1] or "")

if itemID == "" then return end

return labelOrId(itemID)

local itemID = mw.text.trim(frame.args[1] or "")

if itemID == "" then return end

return mw.wikibase.sitelink(itemID)

return format_Date(frame.args[1], frame.args.df, frame.args.bc)

local blacklist = frame.args.suppressfields

local fieldname = frame.args.name

if blacklist and fieldname then

if blacklist:find(fieldname) then return nil end

return true

end