Module:WikidataIB: Difference between revisions
From Zoophilia Wiki
Jump to navigationJump to search
meta>RexxS nbsp |
meta>RexxS update getValue to check references |
||
Line 33: | Line 33: | ||
if input_parm and (#input_parm == 0) then input_parm = nil end | if input_parm and (#input_parm == 0) then input_parm = nil end | ||
-- can take a named parameter |qid which is the Wikidata ID for the article. This will not normally be used. | -- 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 | local qid = frame.args.qid | ||
if qid and (#qid == 0) then qid = nil end | if qid and (#qid == 0) then qid = nil end | ||
Line 54: | Line 55: | ||
-- If we got this far then we're not on the blacklist | -- 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 a non-blank input parameter was supplied return it | ||
if input_parm then return input_parm end | if input_parm then return input_parm end | ||
Line 71: | Line 72: | ||
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]]" | 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] and props[1].mainsnak.snaktype == "value" and props[1].mainsnak.datavalue.type == "wikibase-entityid" then | if props[1] and props[1].mainsnak.snaktype == "value" and props[1].mainsnak.datavalue.type == "wikibase-entityid" then | ||
-- | -- it's wiki-linked value, so output as link if possible | ||
local out = {} | local out = {} | ||
for k, v in pairs(props) do | for k, v in pairs(props) do | ||
local sitelink = mw.wikibase.sitelink("Q" .. v.mainsnak.datavalue.value["numeric-id"]) | -- check for references, | ||
-- construct a reference list for debugging | |||
-- and count valid references | |||
local reflist = "" | |||
local refs = 0 | |||
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 | |||
if refs > 0 then -- has valid refs | |||
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='" .. i18n["errors"]["local-article-not-found"] .. "'> [*]</abbr>" | |||
end | |||
end | end | ||
end | end | ||
return table.concat(out, ", ") .. icon | if #out > 0 then | ||
return table.concat(out, ", ") .. icon | |||
else | |||
return nil -- no items had valid reference | |||
end | |||
else | else | ||
-- not a linkable article title, | -- not a linkable article title | ||
return entity:formatPropertyValues(propertyID).value .. icon | -- 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 | |||
if refs > 0 then | |||
return entity:formatPropertyValues(propertyID).value .. icon | |||
else | |||
return nil | |||
end | |||
end | end | ||
else | else | ||
Line 98: | Line 136: | ||
end | end | ||
end | end | ||
-- This is used to get a value, or a comma separated list of them if multiple values exist | -- This is used to get a value, or a comma separated list of them if multiple values exist | ||
Line 211: | Line 250: | ||
end | end | ||
end | end | ||
-- This is used to get coordinates for display in infobox | -- This is used to get coordinates for display in infobox |
Revision as of 13:00, 10 October 2016
Documentation for this module may be created at Module:WikidataIB/doc
-- Module to try out use of a blacklist and whitelist for infobox fields
-- can take a named parameter |qid which is the Wikidata ID for the article. This will not normally be used
-- Fields in blacklist are never to be displayed, i.e. module must return nil in all circumstances
-- Fields in whitelist return local value if it exists or the Wikidata value otherwise
-- The name of the field that this function is called from is passed in named parameter |name
-- The name is compulsory when blacklist or whitelist is used, so the module returns nil if it is not supplied
-- blacklist is passed in named parameter |suppressfields
-- whitelist is passed in named parameter |fetchwikidata
local p = {}
local i18n =
{
["errors"] =
{
["property-not-found"] = "Property not found.",
["entity-not-found"] = "Wikidata entity not found.",
["unknown-claim-type"] = "Unknown claim type.",
["unknown-entity-type"] = "Unknown entity type.",
["qualifier-not-found"] = "Qualifier not found.",
["site-not-found"] = "Wikimedia project not found.",
["unknown-datetime-format"] = "Unknown datetime format.",
["local-article-not-found"] = "Article is not yet available in this wiki"
},
}
-- This is used to get a value, or a comma separated list of them if multiple values exist
p.getValue = function(frame)
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
-- 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 nil end
-- If this field is on the blacklist, then return nil
if blacklist:find(fieldname) then return 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 input_parm end
-- Otherwise see if this field is on the whitelist:
if whitelist and (whitelist:find(fieldname) or whitelist == 'ALL') then
local entity = mw.wikibase.getEntityObject(qid)
local props
if entity and entity.claims then
props = entity.claims[propertyID]
end
if props then
local lang = mw.language.getContentLanguage().code
local thisQid
if qid then thisQid = qid else thisQid = entity.id end
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] and props[1].mainsnak.snaktype == "value" and props[1].mainsnak.datavalue.type == "wikibase-entityid" then
-- it's wiki-linked value, so output as link if possible
local out = {}
for k, v in pairs(props) do
-- check for references,
-- construct a reference list for debugging
-- and count valid references
local reflist = ""
local refs = 0
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
if refs > 0 then -- has valid refs
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='" .. i18n["errors"]["local-article-not-found"] .. "'> [*]</abbr>"
end
end
end
if #out > 0 then
return table.concat(out, ", ") .. icon
else
return nil -- no items had valid reference
end
else
-- not a linkable article title
-- 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
if refs > 0 then
return entity:formatPropertyValues(propertyID).value .. icon
else
return nil
end
end
else
-- no property stored for this article
return nil
end
else
-- not on the whitelist so just return what should be a nil input parameter
return input_parm
end
end
-- This is used to get a value, or a comma separated list of them if multiple values exist
-- but only values that are sourced are returned
p.getSourcedValue = function(frame)
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
-- 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 nil end
-- If this field is on the blacklist, then return nil
if blacklist:find(fieldname) then return 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 input_parm end
-- Otherwise see if this field is on the whitelist:
if whitelist and (whitelist:find(fieldname) or whitelist == 'ALL') then
local entity = mw.wikibase.getEntityObject(qid)
local props
if entity and entity.claims then
props = entity.claims[propertyID]
end
if props then
local lang = mw.language.getContentLanguage().code
local thisQid
if qid then thisQid = qid else thisQid = entity.id end
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] and props[1].mainsnak.snaktype == "value" and props[1].mainsnak.datavalue.type == "wikibase-entityid" then
-- it's wiki-linked value, so output as link if possible
local out = {}
for k, v in pairs(props) do
-- check for references,
-- construct a reference list for debugging
-- and count valid references
local reflist = ""
local refs = 0
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
if refs > 0 then -- has valid refs
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='" .. i18n["errors"]["local-article-not-found"] .. "'> [*]</abbr>"
end
end
end
if #out > 0 then
return table.concat(out, ", ") .. icon
else
return nil -- no items had valid reference
end
else
-- not a linkable article title
-- 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
if refs > 0 then
return entity:formatPropertyValues(propertyID).value .. icon
else
return nil
end
end
else
-- no property stored for this article
return nil
end
else
-- not on the whitelist so just return what should be a nil input parameter
return input_parm
end
end
-- This is used to get coordinates for display in infobox
p.getCoords = function(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
local qid = frame.args.qid
if qid and (#qid == 0) then qid = nil end
local blacklist = frame.args.suppressfields
local whitelist = frame.args.fetchwikidata
-- The name of the field that this function is called from is passed in named parameter |name
-- it's probably 'coords' but we can't be certain
local fieldname = frame.args.name
if blacklist then
if not fieldname or (#fieldname == 0) then return nil end
if blacklist:find(fieldname) then return nil end
end
if input_parm then return input_parm end
if whitelist and (whitelist:find(fieldname) or whitelist == 'ALL') then
local entity = mw.wikibase.getEntityObject(qid)
local props
if entity and entity.claims then
props = entity.claims[propertyID]
end
if props then
local lat_long = {}
local coords = entity:formatPropertyValues(propertyID).value
-- the latitude and longitude are returned like this: nn°nn'nn.n"
-- 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 numbers into a table
for num in mw.ustring.gmatch(lat, "%d+%.?%d*") do
lat_long[#lat_long + 1] = num
end
lat_long[#lat_long + 1] = lat:sub(-1)
for num in mw.ustring.gmatch(long, "%d+%.?%d*") do
lat_long[#lat_long + 1] = num
end
lat_long[#lat_long + 1] = long:sub(-1)
-- invoke template Coord with the values stored in the table
return frame:expandTemplate{title = 'coord', args = lat_long}
else
-- no coords in Wikidata for this article
return nil
end
else
-- not on the whitelist so just return what should be a nil input parameter
return input_parm
end
end
return p