Module:Authority control: Difference between revisions
From The Goon Show Depository
m (1 revision imported) |
m (1 revision imported) |
||
(15 intermediate revisions by 2 users not shown) | |||
Line 1: | Line 1: | ||
require('strict') | require('strict') | ||
local config = | local config = mw.loadData('Module:Authority control/config') | ||
local p = {} | local p = {} | ||
local title = mw.title.getCurrentTitle() | local title = mw.title.getCurrentTitle() | ||
local namespace = title.namespace | local namespace = title.namespace | ||
local testcases = (string.sub(title.subpageText,1,9) == | local testcases = (string.sub(title.subpageText,1,9) == config.i18n.testcases) | ||
local function needsAttention(sortkey) | local function needsAttention(sortkey) | ||
return '[[ | return '[[' .. config.i18n.category .. ':' .. config.i18n.attentioncat .. '|' .. sortkey .. title.text .. ']]' | ||
end | end | ||
Line 17: | Line 17: | ||
end | end | ||
if sortkey then | if sortkey then | ||
cat = '[[ | cat = '[[' .. config.i18n.category .. ':'..cat..'|' .. sortkey .. title.text .. ']]' | ||
else | else | ||
cat = '[[ | cat = '[[' .. config.i18n.category .. ':'..cat..']]' | ||
end | end | ||
cat = cat .. redlinkcat | cat = cat .. redlinkcat | ||
Line 30: | Line 30: | ||
local function getCatForId(id,faulty) | local function getCatForId(id,faulty) | ||
local cat = 'Articles with ' | local cat = 'Articles with ' | ||
if faulty then cat = cat .. ' | if faulty then cat = cat .. config.i18n.faulty .. ' ' end | ||
cat = cat .. id .. ' identifiers | cat = cat .. id .. ' ' .. config.i18n.identifiers | ||
return addCat(cat) | return addCat(cat) | ||
end | end | ||
local function getIdsFromWikidata(qid,property) | local function getIdsFromWikidata(qid,property) | ||
local function getquals(statement,qualid) | |||
if statement.qualifiers and statement.qualifiers['P'..qualid] then | |||
return mw.wikibase.renderSnak(statement.qualifiers['P'..qualid][1]) | |||
else | |||
return false | |||
end | |||
end | |||
local ids = {} | local ids = {} | ||
if | if qid then | ||
for _, statement in ipairs(mw.wikibase.getBestStatements(qid,property)) do | |||
if statement.mainsnak.datavalue then | if statement.mainsnak.datavalue then | ||
local val = statement.mainsnak.datavalue.value | |||
if val then | |||
local namedas = getquals(statement,1810) or getquals(statement,742) or '' | |||
table.insert(ids,{id=val,name=namedas}) | |||
end | |||
end | end | ||
end | end | ||
Line 51: | Line 58: | ||
end | end | ||
local function | local _makelink = function(conf,val,nextid,qid) --validate values and create a link | ||
local function tooltip(text,label) | |||
if label and label~='' then | |||
return mw.getCurrentFrame():expandTemplate{title = "Tooltip", args = {text,label}} | |||
else | |||
return text | |||
end | |||
end | |||
local link | local link | ||
if nextid==1 then | if nextid==1 then | ||
Line 63: | Line 77: | ||
end | end | ||
local valid_value = false | local valid_value = false | ||
if conf. | if conf.customlink then -- use function to validate and generate link | ||
local label = nextid>1 and nextid | |||
link = link .. | local newlink= require(config.auxiliary)[conf.customlink](val.id,label) | ||
if newlink then | |||
link = link .. newlink | |||
valid_value = true | valid_value = true | ||
end | end | ||
else | else | ||
if conf.pattern then -- use pattern to determine validity if defined | if conf.pattern then -- use pattern to determine validity if defined | ||
valid_value = | valid_value = string.match(val.id,'^'..conf.pattern..'$') | ||
elseif conf.patterns then | elseif conf.patterns then | ||
for | for _,pattern in ipairs(conf.patterns) do | ||
valid_value = val:match( | valid_value = val.id:match('^'..pattern..'$') | ||
if valid_value then break end | if valid_value then break end | ||
end | end | ||
elseif conf.valid then -- otherwise use function to determine validity | elseif conf.valid then -- otherwise use function to determine validity | ||
valid_value = conf.valid(val) | valid_value = require(config.auxiliary)[conf.valid](val.id) | ||
else -- no validation possible | else -- no validation possible | ||
valid_value = val | valid_value = val.id | ||
end | end | ||
if valid_value then | if valid_value then | ||
local newlink | |||
if not | local label = conf.label | ||
if not label or nextid>1 then | |||
label = tostring(nextid) | |||
end | end | ||
if conf.link then | if conf.link then | ||
valid_value = valid_value:gsub('%%', '%%%%') | valid_value = valid_value:gsub('%%', '%%%%') | ||
newlink = '[' .. mw.ustring.gsub(conf.link,'%$1',valid_value) .. ' ' .. label .. ']' | |||
else | else | ||
newlink = valid_value | |||
end | end | ||
link = link .. '</span>' | link = link .. '<span class="uid">'..tooltip(newlink,val.name)..'</span>' | ||
end | end | ||
end | end | ||
Line 100: | Line 117: | ||
--local preview = require("Module:If preview") | --local preview = require("Module:If preview") | ||
local wdlink = qid and '[[:wikidata:' .. qid .. '#P' .. conf.property .. ']]' or '' | local wdlink = qid and '[[:wikidata:' .. qid .. '#P' .. conf.property .. ']]' or '' | ||
link = link .. '[[File:345-409 Ambox warning centered.svg|20px|frameless|link=' .. wdlink ..'|The '..conf[1]..' id '.. | link = link .. '[[File:345-409 Ambox warning centered.svg|20px|frameless|link=' .. wdlink .. '|' .. config.i18n.The .. ' ' .. conf[1] .. ' ' .. config.i18n.identifier .. ' ' .. val.id .. ' ' .. config.i18n.isnotvalid .. '.]]' | ||
if conf.errorcat then | if conf.errorcat then | ||
link = link .. addCat(conf.errorcat) | link = link .. addCat(conf.errorcat) | ||
Line 106: | Line 123: | ||
link = link .. getCatForId(conf.category or conf[1],true) | link = link .. getCatForId(conf.category or conf[1],true) | ||
end | end | ||
link = link .. addCat( | link = link .. addCat(config.i18n.allfaultycat,conf[1])-- .. preview._warning({'The '..conf[1]..' id '..val..' is not valid.'}) | ||
end | end | ||
return link | return link | ||
Line 119: | Line 136: | ||
qid = 'Q'..mw.ustring.gsub(qid, '^[Qq]', '') | qid = 'Q'..mw.ustring.gsub(qid, '^[Qq]', '') | ||
if mw.wikibase.isValidEntityId(qid) and mw.wikibase.entityExists(qid) then | if mw.wikibase.isValidEntityId(qid) and mw.wikibase.entityExists(qid) then | ||
return qid | local sitelink = mw.wikibase.getSitelink(qid) | ||
if sitelink then | |||
return mw.wikibase.getEntityIdForTitle(sitelink) or mw.wikibase.getEntity(qid).id | |||
end | |||
return mw.wikibase.getEntity(qid).id | |||
end | end | ||
end | end | ||
Line 125: | Line 146: | ||
local conf = config.config | local conf = config.config | ||
local parentArgs = frame:getParent().args | local parentArgs = frame:getParent().args | ||
local auxCats = '' | local auxCats = '' | ||
local rct = | local rct = false -- boolean to track if there are any links to be returned | ||
local qid,topic | local qid,topic | ||
if namespace == 0 then | if namespace == 0 then | ||
Line 134: | Line 153: | ||
end | end | ||
if qid then -- article is connected to Wikidata item | if qid then -- article is connected to Wikidata item | ||
if parentArgs.qid and (parentArgs.qid ~= qid) then -- non-matching qid parameter | if parentArgs.qid and (resolveQID(parentArgs.qid) ~= qid) then -- non-matching qid parameter | ||
auxCats = auxCats .. needsAttention('D') | auxCats = auxCats .. needsAttention('D') | ||
end | end | ||
Line 144: | Line 163: | ||
topic = nil | topic = nil | ||
end | end | ||
elseif parentArgs.qid then -- invalid qid has been supplied, add to tracking cat | elseif parentArgs.qid and parentArgs.qid~='' then -- invalid qid has been supplied, add to tracking cat | ||
auxCats = auxCats .. needsAttention('Q') | auxCats = auxCats .. needsAttention('Q') | ||
end | end | ||
end | |||
if topic and mw.wikibase.getSitelink(qid) then -- make wikilink to article | |||
topic = '[[' .. mw.wikibase.getSitelink(qid) .. '|' .. topic .. ']]' | |||
end | end | ||
local qids = {} -- setup any additional QIDs | local qids = {} -- setup any additional QIDs | ||
Line 152: | Line 174: | ||
for _,v in ipairs(mw.text.split(parentArgs.additional,"%s*,%s*")) do | for _,v in ipairs(mw.text.split(parentArgs.additional,"%s*,%s*")) do | ||
v = resolveQID(v) | v = resolveQID(v) | ||
if v == qid then -- duplicate of qid parameter | if v then | ||
auxCats = auxCats .. needsAttention(' | if v == qid then -- duplicate of qid parameter | ||
auxCats = auxCats .. needsAttention('R') | |||
end | |||
table.insert(qids,v) | |||
else -- invalid QID specified | |||
auxCats = auxCats .. needsAttention('A') | |||
end | end | ||
end | end | ||
end | end | ||
local sections = {} | local sections = {} | ||
for _ | local localparams = false | ||
local numsections = 0 | |||
for _,_ in ipairs(config.sections) do numsections = numsections + 1 end | |||
for _ = 1,#qids+numsections do table.insert(sections,{}) end | |||
local qslink = '' -- setup link to add using QuickStatements | local qslink = '' -- setup link to add using QuickStatements | ||
Line 166: | Line 195: | ||
local show = {} -- setup list | local show = {} -- setup list | ||
local showall = true | local showall = true | ||
local function stripP(pid) | |||
if pid:match("^[Pp]%d+$") then | |||
pid = mw.ustring.gsub(pid,'[Pp]','') --strip P from property number | |||
end | |||
if pid:match("^%d+$") then | |||
return tonumber(pid) | |||
end | |||
end | |||
local function addshowlist(list) | local function addshowlist(list) | ||
if list and list ~= '' then | if list and list ~= '' then | ||
for _,v in ipairs(mw.text.split(string.lower(list),"%s*,%s*")) do | for _,v in ipairs(mw.text.split(string.lower(list),"%s*,%s*")) do | ||
if config.whitelists[v] then | local vprop = stripP(v) | ||
if vprop then -- e.g. show=P214 to show one particular property | |||
show[vprop] = true | |||
else -- e.g. show=arts to use whitelist | |||
if config.whitelists[v] then | |||
for _,w in ipairs(config.whitelists[v].properties) do | |||
show[w] = true | |||
end | |||
end | end | ||
end | end | ||
Line 183: | Line 225: | ||
local suppresslist = mw.text.split(parentArgs.suppress,"%s*,%s*") -- split parameter by comma | local suppresslist = mw.text.split(parentArgs.suppress,"%s*,%s*") -- split parameter by comma | ||
for _,v in ipairs(suppresslist) do | for _,v in ipairs(suppresslist) do | ||
v = stripP(string.upper(v)) | |||
v = | if v then | ||
show[v] = false | |||
auxCats = auxCats .. '[[' .. config.i18n.category .. ':' .. config.i18n.suppressedcat .. ']]' | |||
else | else | ||
auxCats = auxCats .. needsAttention('P') | |||
end | end | ||
end | end | ||
end | end | ||
Line 219: | Line 258: | ||
showb = false | showb = false | ||
end | end | ||
if not showb then | |||
tval[params.property] = false -- indicates the identifier is suppressed | |||
elseif not addit then | |||
local val = parentArgs[mw.ustring.lower(params[1])] or parentArgs[params[1]] | local val = parentArgs[mw.ustring.lower(params[1])] or parentArgs[params[1]] | ||
if | if val and val~='' then -- add local parameter to list if not already in | ||
localparams = true | |||
local bnew = true | local bnew = true | ||
for _, w in pairs(tval[params.property]) do | for _, w in pairs(tval[params.property]) do | ||
if val == w then | if val == w.id then | ||
bnew = false | bnew = false | ||
end | end | ||
Line 239: | Line 274: | ||
qslink = qslink .. '%7C%7C' .. qid .. '%7CP' .. params.property .. '%7C%22' .. mw.uri.encode(val,"PATH") .. '%22%7CS143%7CQ328' | qslink = qslink .. '%7C%7C' .. qid .. '%7CP' .. params.property .. '%7C%22' .. mw.uri.encode(val,"PATH") .. '%22%7CS143%7CQ328' | ||
end | end | ||
table.insert(tval[params.property],val) | table.insert(tval[params.property],{id=val,name=''}) | ||
end | end | ||
end | end | ||
Line 258: | Line 291: | ||
local row = '' | local row = '' | ||
for _,val in ipairs(tval[params.property]) do | for _,val in ipairs(tval[params.property]) do | ||
local link = | local link = _makelink(params,val,nextIdVal,qid) | ||
row = row .. link | row = row .. link | ||
table.insert(tlinks,link) | table.insert(tlinks,link) | ||
Line 266: | Line 299: | ||
row = row .. '\n' | row = row .. '\n' | ||
table.insert(sections[addit or params.section],row) | table.insert(sections[addit or params.section],row) | ||
rct = | rct = true | ||
end | end | ||
end | end | ||
Line 282: | Line 315: | ||
makeSections(qid,false) | makeSections(qid,false) | ||
for c = 1,#qids do | for c = 1,#qids do | ||
makeSections(qids[c], | makeSections(qids[c],numsections+c) | ||
end | end | ||
--configure Navbox | --configure Navbox | ||
local outString = '' | local outString = '' | ||
if rct | if rct or localparams then -- there is at least one link to display | ||
local Navbox = require('Module:Navbox') | local Navbox = require('Module:Navbox') | ||
local sect,lastsect = 0,0 | local sect,lastsect = 0,0 | ||
Line 294: | Line 327: | ||
navboxclass = 'authority-control', | navboxclass = 'authority-control', | ||
bodyclass = 'hlist', | bodyclass = 'hlist', | ||
state = parentArgs.state or | state = parentArgs.state or config.i18n.autocollapse, | ||
navbar = 'off' | navbar = 'off' | ||
} | } | ||
for c=1, | for c=1,numsections+#qids do | ||
if #sections[c] ~= 0 then -- section is non-empty | if #sections[c] ~= 0 then -- section is non-empty | ||
sect = sect + 1 | sect = sect + 1 | ||
lastsect = c | lastsect = c | ||
local sectname | local sectname | ||
if c <= | if c <= numsections then -- regular section | ||
sectname = config. | sectname = config.sections[c].name | ||
else -- section from additional qid | else -- section from additional qid | ||
sectname = mw.wikibase.getLabel(qids[c- | sectname = mw.wikibase.getLabel(qids[c-numsections]) .. pencil(qids[c-numsections]) | ||
end | end | ||
navboxArgs['group' .. c] = sectname | navboxArgs['group' .. c] = sectname | ||
Line 311: | Line 344: | ||
end | end | ||
end | end | ||
local | if localparams then | ||
lastsect = lastsect + 1 | |||
sect = sect + 1 | |||
navboxArgs['group' .. lastsect] = config.i18n.warning | |||
local warning = frame:expandTemplate{title = config.i18n.errortemplate, args = {config.i18n.localparams}} | |||
if qslink ~= '' then | |||
warning = warning .. ' ' .. config.i18n.movetowd .. '<span class="qs autoconfirmed-show"> [[File:Commons to Wikidata QuickStatements.svg|20px|link=https://quickstatements.toolforge.org/#/v1=' .. qslink .. '|' .. config.i18n.addtowd .. ']]</span>' | |||
elseif not qid then | |||
if namespace == 0 then | |||
warning = warning .. ' ' .. config.i18n.connecttowd | |||
elseif namespace==14 or namespace==2 or namespace==118 then | |||
warning = warning .. ' ' .. config.i18n.qidcode | |||
end | |||
end | |||
navboxArgs['list' .. lastsect] = warning | |||
end | end | ||
if topic then -- display in expanded form with topic | if topic then -- display in expanded form with topic | ||
navboxArgs.title = aclink .. ' – ' .. topic .. pencil(qid) | navboxArgs.title = config.i18n.aclink .. ' – ' .. topic .. pencil(qid) | ||
elseif sect == 1 then -- special display when only one section | elseif sect == 1 then -- special display when only one section | ||
if lastsect = | if lastsect <= numsections then | ||
if config.sections[lastsect].hidelabelwhenalone then -- no special label when only general or other IDs are present | |||
navboxArgs['group' .. lastsect] = config.i18n.aclink .. pencil(qid) | |||
else -- other regular section | |||
navboxArgs['group' .. lastsect] = config.i18n.aclink .. ': ' .. navboxArgs['group' .. lastsect] .. pencil(qid) | |||
end | |||
else -- section from additional qid | else -- section from additional qid | ||
navboxArgs['group' .. lastsect] = aclink .. ': ' .. navboxArgs['group' .. lastsect] | navboxArgs['group' .. lastsect] = config.i18n.aclink .. ': ' .. navboxArgs['group' .. lastsect] | ||
end | end | ||
else -- add title to navbox | else -- add title to navbox | ||
navboxArgs.title = aclink .. pencil(qid) | navboxArgs.title = config.i18n.aclink .. pencil(qid) | ||
end | end | ||
outString = Navbox._navbox(navboxArgs) | outString = Navbox._navbox(navboxArgs) | ||
Line 332: | Line 379: | ||
if parentArgs.state then | if parentArgs.state then | ||
if (parentArgs.state ~= | if (parentArgs.state ~= config.i18n.collapsed) and (parentArgs.state ~= config.i18n.expanded) and (parentArgs.state ~= config.i18n.autocollapse) then --invalid state parameter | ||
auxCats = auxCats .. needsAttention('S') | auxCats = auxCats .. needsAttention('S') | ||
end | end | ||
end | end | ||
if testcases then | if testcases then | ||
auxCats = mw.ustring.gsub(auxCats, '(%[%[)( | auxCats = mw.ustring.gsub(auxCats, '(%[%[)(' .. config.i18n.category .. ')', '%1:%2') --for easier checking | ||
end | end | ||
Line 343: | Line 390: | ||
outString = outString..auxCats | outString = outString..auxCats | ||
if namespace ~= 0 then | if namespace ~= 0 then | ||
outString = mw.ustring.gsub(outString,'(%[%[)( | outString = mw.ustring.gsub(outString,'(%[%[)(' .. config.i18n.category .. ':Articles)([^%|%]]+)%|?[^%|%]]*(%]%])','%1:%2%3%4') | ||
outString = mw.ustring.gsub(outString,'(%[%[)( | outString = mw.ustring.gsub(outString,'(%[%[)(' .. config.i18n.category .. ':All articles)([^%|%]]+)%|?[^%|%]]*(%]%])','%1:%2%3%4') | ||
end | end | ||
local check = require('Module:Check for unknown parameters')._check | local check = require('Module:Check for unknown parameters')._check | ||
Line 354: | Line 401: | ||
end | end | ||
local tracking = check({ | local tracking = check({ | ||
['unknown']='[[ | ['unknown'] = '[[' .. config.i18n.category .. ':Pages using authority control with parameters|' .. sortkey .. ']]', | ||
['preview']=' | ['preview'] = 'Warning: Local parameters are deprecated. Please move any identifiers to Wikidata.', | ||
'show', 'country', 'suppress', 'additional', 'qid', 'state' | 'show', 'country', 'suppress', 'additional', 'qid', 'state' | ||
}, parentArgs) | }, parentArgs) | ||
Line 367: | Line 414: | ||
end | end | ||
p.makelink = function(conf,val,nextid,qid) | |||
return _makelink(conf,val,nextid,qid) | |||
function | |||
return | |||
end | end | ||
return p | return p |
Latest revision as of 12:14, 21 April 2023
![]() | This Lua module is used on many pages. To avoid large-scale disruption and unnecessary server load, any changes to this module should first be tested in its /sandbox or /testcases subpages. The tested changes can then be added to this page in one single edit. Please consider discussing any changes on the talk page before implementing them. |
![]() | <translate> This module is [[<tvar name=1>Special:MyLanguage/Category:Modules subject to page protection</tvar>|subject to {{<tvar name=2>#if:</tvar>|cascading|page}} protection]].</translate> <translate> It is a highly visible module in use by a very large number of pages.</translate> <translate> Because vandalism or mistakes would affect many pages, and even trivial editing might cause substantial load on the servers, it is [[<tvar name=1>Special:MyLanguage/Project:Protected page</tvar>|protected]] from editing.</translate> |
Related pages |
---|
![](https://upload.wikimedia.org/wikipedia/commons/thumb/f/ff/Wikidata-logo.svg/40px-Wikidata-logo.svg.png)
This module uses one or more Wikidata properties; see § Parameters for details.
![]() | This module depends on the following other modules: |
This module contains the code of the {{Authority control}} template. See its documentation.
Parameters, Wikidata properties, and tracking categories
Lua error in package.lua at line 80: module 'strict' not found.
Additional tracking categories
This module also implements the following hidden tracking categories:
- Category:Pages with red-linked authority control categories (1) – error category to identify missing categories
- Category:Articles with deprecated authority control identifiers (0) – fix/migrate/remove deprecated IDs
- Category:Articles with suppressed authority control identifiers (0) – tracking only (no error)
- Category:Articles with multiple identifiers (0) – tracking only (no error)
- Category:Pages using authority control with parameters (0) – migrate IDs to Wikidata, if possible (no error)
- Category:Pages using authority control with parameters different on Wikidata (0) – determine/remove incorrect IDs & migrate to Wikidata
- Category:Pages using authority control with parameters all matching Wikidata (0) – template parameters may safely be removed
Number of identifiers
- Category:AC with 0 elements (1)
- Category:AC with 25 elements (0)
- Category:AC with 26 elements (0)
- Category:AC with 27 elements (0)
- Category:AC with 28 elements (0)
- Category:AC with 29 elements (0)
- Category:AC with 30 elements (0)
- Category:AC with 31 elements (0)
- Category:AC with 32 elements (0)
- Category:AC with 33 elements (0)
- Category:AC with 34 elements (0)
- Category:AC with 35 elements (0)
- Category:AC with 36 elements (0)
- Category:AC with 37 elements (0)
- Category:AC with 38 elements (0)
- Category:AC with 39 elements (0)
- Category:AC with 40 elements (0)
- Category:AC with 41 elements (0)
- Category:AC with 42 elements (0)
- Category:AC with 43 elements (0)
- Category:AC with 44 elements (0)
- Category:AC with 45 elements (0)
State parameter
- Category:AC using state parameter: collapsed (0)
- Category:AC using state parameter: expanded (0)
- Category:AC using state parameter: autocollapse (0)
- Category:AC using state parameter: other (0)
See also
- m:Interwiki map – definition of global custom interwiki prefixes
require('strict')
local config = mw.loadData('Module:Authority control/config')
local p = {}
local title = mw.title.getCurrentTitle()
local namespace = title.namespace
local testcases = (string.sub(title.subpageText,1,9) == config.i18n.testcases)
local function needsAttention(sortkey)
return '[[' .. config.i18n.category .. ':' .. config.i18n.attentioncat .. '|' .. sortkey .. title.text .. ']]'
end
local function addCat(cat,sortkey)
if cat and cat ~= '' and (namespace == 0 or namespace == 14 or testcases) then
local redlinkcat = ''
if testcases == false and mw.title.new(cat, 14).exists == false then
redlinkcat = needsAttention('N')
end
if sortkey then
cat = '[[' .. config.i18n.category .. ':'..cat..'|' .. sortkey .. title.text .. ']]'
else
cat = '[[' .. config.i18n.category .. ':'..cat..']]'
end
cat = cat .. redlinkcat
return cat
else
return ''
end
end
local function getCatForId(id,faulty)
local cat = 'Articles with '
if faulty then cat = cat .. config.i18n.faulty .. ' ' end
cat = cat .. id .. ' ' .. config.i18n.identifiers
return addCat(cat)
end
local function getIdsFromWikidata(qid,property)
local function getquals(statement,qualid)
if statement.qualifiers and statement.qualifiers['P'..qualid] then
return mw.wikibase.renderSnak(statement.qualifiers['P'..qualid][1])
else
return false
end
end
local ids = {}
if qid then
for _, statement in ipairs(mw.wikibase.getBestStatements(qid,property)) do
if statement.mainsnak.datavalue then
local val = statement.mainsnak.datavalue.value
if val then
local namedas = getquals(statement,1810) or getquals(statement,742) or ''
table.insert(ids,{id=val,name=namedas})
end
end
end
end
return ids
end
local _makelink = function(conf,val,nextid,qid) --validate values and create a link
local function tooltip(text,label)
if label and label~='' then
return mw.getCurrentFrame():expandTemplate{title = "Tooltip", args = {text,label}}
else
return text
end
end
local link
if nextid==1 then
if conf.prefix then
link = '*' .. conf.prefix .. '\n**'
else
link = '*'
end
else
link = '\n**'
end
local valid_value = false
if conf.customlink then -- use function to validate and generate link
local label = nextid>1 and nextid
local newlink= require(config.auxiliary)[conf.customlink](val.id,label)
if newlink then
link = link .. newlink
valid_value = true
end
else
if conf.pattern then -- use pattern to determine validity if defined
valid_value = string.match(val.id,'^'..conf.pattern..'$')
elseif conf.patterns then
for _,pattern in ipairs(conf.patterns) do
valid_value = val.id:match('^'..pattern..'$')
if valid_value then break end
end
elseif conf.valid then -- otherwise use function to determine validity
valid_value = require(config.auxiliary)[conf.valid](val.id)
else -- no validation possible
valid_value = val.id
end
if valid_value then
local newlink
local label = conf.label
if not label or nextid>1 then
label = tostring(nextid)
end
if conf.link then
valid_value = valid_value:gsub('%%', '%%%%')
newlink = '[' .. mw.ustring.gsub(conf.link,'%$1',valid_value) .. ' ' .. label .. ']'
else
newlink = valid_value
end
link = link .. '<span class="uid">'..tooltip(newlink,val.name)..'</span>'
end
end
if valid_value then
link = link .. getCatForId(conf.category or conf[1])
else
--local preview = require("Module:If preview")
local wdlink = qid and '[[:wikidata:' .. qid .. '#P' .. conf.property .. ']]' or ''
link = link .. '[[File:345-409 Ambox warning centered.svg|20px|frameless|link=' .. wdlink .. '|' .. config.i18n.The .. ' ' .. conf[1] .. ' ' .. config.i18n.identifier .. ' ' .. val.id .. ' ' .. config.i18n.isnotvalid .. '.]]'
if conf.errorcat then
link = link .. addCat(conf.errorcat)
else
link = link .. getCatForId(conf.category or conf[1],true)
end
link = link .. addCat(config.i18n.allfaultycat,conf[1])-- .. preview._warning({'The '..conf[1]..' id '..val..' is not valid.'})
end
return link
end
--[[==========================================================================]]
--[[ Main ]]
--[[==========================================================================]]
function p.authorityControl(frame)
local function resolveQID(qid)
if qid then
qid = 'Q'..mw.ustring.gsub(qid, '^[Qq]', '')
if mw.wikibase.isValidEntityId(qid) and mw.wikibase.entityExists(qid) then
local sitelink = mw.wikibase.getSitelink(qid)
if sitelink then
return mw.wikibase.getEntityIdForTitle(sitelink) or mw.wikibase.getEntity(qid).id
end
return mw.wikibase.getEntity(qid).id
end
end
end
local conf = config.config
local parentArgs = frame:getParent().args
local auxCats = ''
local rct = false -- boolean to track if there are any links to be returned
local qid,topic
if namespace == 0 then
qid = mw.wikibase.getEntityIdForCurrentPage()
end
if qid then -- article is connected to Wikidata item
if parentArgs.qid and (resolveQID(parentArgs.qid) ~= qid) then -- non-matching qid parameter
auxCats = auxCats .. needsAttention('D')
end
else -- page is not connected to any Wikidata item
qid = resolveQID(parentArgs.qid) -- check qid parameter if no wikidata item is connected
if qid then -- qid parameter is valid, set topic to display
topic = mw.wikibase.getLabel(qid)
if topic and (mw.ustring.lower(title.subpageText) == mw.ustring.lower(topic)) then -- suppress topic display if subpagename equals topic up to case change
topic = nil
end
elseif parentArgs.qid and parentArgs.qid~='' then -- invalid qid has been supplied, add to tracking cat
auxCats = auxCats .. needsAttention('Q')
end
end
if topic and mw.wikibase.getSitelink(qid) then -- make wikilink to article
topic = '[[' .. mw.wikibase.getSitelink(qid) .. '|' .. topic .. ']]'
end
local qids = {} -- setup any additional QIDs
if parentArgs.additional and parentArgs.additional ~= '' then
for _,v in ipairs(mw.text.split(parentArgs.additional,"%s*,%s*")) do
v = resolveQID(v)
if v then
if v == qid then -- duplicate of qid parameter
auxCats = auxCats .. needsAttention('R')
end
table.insert(qids,v)
else -- invalid QID specified
auxCats = auxCats .. needsAttention('A')
end
end
end
local sections = {}
local localparams = false
local numsections = 0
for _,_ in ipairs(config.sections) do numsections = numsections + 1 end
for _ = 1,#qids+numsections do table.insert(sections,{}) end
local qslink = '' -- setup link to add using QuickStatements
-- check which identifiers to show/suppress in template
local show = {} -- setup list
local showall = true
local function stripP(pid)
if pid:match("^[Pp]%d+$") then
pid = mw.ustring.gsub(pid,'[Pp]','') --strip P from property number
end
if pid:match("^%d+$") then
return tonumber(pid)
end
end
local function addshowlist(list)
if list and list ~= '' then
for _,v in ipairs(mw.text.split(string.lower(list),"%s*,%s*")) do
local vprop = stripP(v)
if vprop then -- e.g. show=P214 to show one particular property
show[vprop] = true
else -- e.g. show=arts to use whitelist
if config.whitelists[v] then
for _,w in ipairs(config.whitelists[v].properties) do
show[w] = true
end
end
end
end
showall = false
end
end
addshowlist(frame.args.show) -- check show= parameter on wrapper template
addshowlist(parentArgs.show or parentArgs.country) -- check show parameter on article template
if parentArgs.suppress then
local suppresslist = mw.text.split(parentArgs.suppress,"%s*,%s*") -- split parameter by comma
for _,v in ipairs(suppresslist) do
v = stripP(string.upper(v))
if v then
show[v] = false
auxCats = auxCats .. '[[' .. config.i18n.category .. ':' .. config.i18n.suppressedcat .. ']]'
else
auxCats = auxCats .. needsAttention('P')
end
end
end
local function makeSections(qid,addit)
local tval = {}
local function parameter_is_used(property)
local used = false
if property then
if tval[property] then
if tval[property][1] then
used = true
end
elseif tval[property] == false then -- property has been manually suppressed
used = true
end
end
return used
end
for _, params in ipairs(conf) do
tval[params.property] = getIdsFromWikidata(qid, 'P' .. params.property) -- setup table for values with property number as key
local showb = true
if (show[params.property] == nil) and (show[string.upper(params[1])] == nil ) then
showb = showall -- if not specified then depends on showall
elseif (show[params.property] == false) or (show[string.upper(params[1])] == false) then -- if either are false then id will be suppressed
showb = false
end
if not showb then
tval[params.property] = false -- indicates the identifier is suppressed
elseif not addit then
local val = parentArgs[mw.ustring.lower(params[1])] or parentArgs[params[1]]
if val and val~='' then -- add local parameter to list if not already in
localparams = true
local bnew = true
for _, w in pairs(tval[params.property]) do
if val == w.id then
bnew = false
end
end
if bnew then -- add new value to table
if qid then
qslink = qslink .. '%7C%7C' .. qid .. '%7CP' .. params.property .. '%7C%22' .. mw.uri.encode(val,"PATH") .. '%22%7CS143%7CQ328'
end
table.insert(tval[params.property],{id=val,name=''})
end
end
end
local suppress = false
if params.suppressedbyproperty then
for _,sc in ipairs(params.suppressedbyproperty) do
if parameter_is_used(sc) then
suppress = true
end
end
end
if tval[params.property] ~= false and not suppress then
local tlinks = {} -- setup table for links
local nextIdVal = 1
local row = ''
for _,val in ipairs(tval[params.property]) do
local link = _makelink(params,val,nextIdVal,qid)
row = row .. link
table.insert(tlinks,link)
nextIdVal = nextIdVal + 1
end
if nextIdVal>=2 then
row = row .. '\n'
table.insert(sections[addit or params.section],row)
rct = true
end
end
end
end
local function pencil(qid)
if not qid then
return ''
end
local args = { pid = 'identifiers' } -- #target the list of identifiers
args.qid = qid
return require('Module:EditAtWikidata')._showMessage(args)
end
makeSections(qid,false)
for c = 1,#qids do
makeSections(qids[c],numsections+c)
end
--configure Navbox
local outString = ''
if rct or localparams then -- there is at least one link to display
local Navbox = require('Module:Navbox')
local sect,lastsect = 0,0
local navboxArgs = {
name = 'Authority control',
navboxclass = 'authority-control',
bodyclass = 'hlist',
state = parentArgs.state or config.i18n.autocollapse,
navbar = 'off'
}
for c=1,numsections+#qids do
if #sections[c] ~= 0 then -- section is non-empty
sect = sect + 1
lastsect = c
local sectname
if c <= numsections then -- regular section
sectname = config.sections[c].name
else -- section from additional qid
sectname = mw.wikibase.getLabel(qids[c-numsections]) .. pencil(qids[c-numsections])
end
navboxArgs['group' .. c] = sectname
navboxArgs['list' .. c] = table.concat(sections[c])
end
end
if localparams then
lastsect = lastsect + 1
sect = sect + 1
navboxArgs['group' .. lastsect] = config.i18n.warning
local warning = frame:expandTemplate{title = config.i18n.errortemplate, args = {config.i18n.localparams}}
if qslink ~= '' then
warning = warning .. ' ' .. config.i18n.movetowd .. '<span class="qs autoconfirmed-show"> [[File:Commons to Wikidata QuickStatements.svg|20px|link=https://quickstatements.toolforge.org/#/v1=' .. qslink .. '|' .. config.i18n.addtowd .. ']]</span>'
elseif not qid then
if namespace == 0 then
warning = warning .. ' ' .. config.i18n.connecttowd
elseif namespace==14 or namespace==2 or namespace==118 then
warning = warning .. ' ' .. config.i18n.qidcode
end
end
navboxArgs['list' .. lastsect] = warning
end
if topic then -- display in expanded form with topic
navboxArgs.title = config.i18n.aclink .. ' – ' .. topic .. pencil(qid)
elseif sect == 1 then -- special display when only one section
if lastsect <= numsections then
if config.sections[lastsect].hidelabelwhenalone then -- no special label when only general or other IDs are present
navboxArgs['group' .. lastsect] = config.i18n.aclink .. pencil(qid)
else -- other regular section
navboxArgs['group' .. lastsect] = config.i18n.aclink .. ': ' .. navboxArgs['group' .. lastsect] .. pencil(qid)
end
else -- section from additional qid
navboxArgs['group' .. lastsect] = config.i18n.aclink .. ': ' .. navboxArgs['group' .. lastsect]
end
else -- add title to navbox
navboxArgs.title = config.i18n.aclink .. pencil(qid)
end
outString = Navbox._navbox(navboxArgs)
end
if parentArgs.state then
if (parentArgs.state ~= config.i18n.collapsed) and (parentArgs.state ~= config.i18n.expanded) and (parentArgs.state ~= config.i18n.autocollapse) then --invalid state parameter
auxCats = auxCats .. needsAttention('S')
end
end
if testcases then
auxCats = mw.ustring.gsub(auxCats, '(%[%[)(' .. config.i18n.category .. ')', '%1:%2') --for easier checking
end
--out
outString = outString..auxCats
if namespace ~= 0 then
outString = mw.ustring.gsub(outString,'(%[%[)(' .. config.i18n.category .. ':Articles)([^%|%]]+)%|?[^%|%]]*(%]%])','%1:%2%3%4')
outString = mw.ustring.gsub(outString,'(%[%[)(' .. config.i18n.category .. ':All articles)([^%|%]]+)%|?[^%|%]]*(%]%])','%1:%2%3%4')
end
local check = require('Module:Check for unknown parameters')._check
local sortkey
if namespace == 0 then
sortkey = '*' .. title.text
else
sortkey = title.fullText
end
local tracking = check({
['unknown'] = '[[' .. config.i18n.category .. ':Pages using authority control with parameters|' .. sortkey .. ']]',
['preview'] = 'Warning: Local parameters are deprecated. Please move any identifiers to Wikidata.',
'show', 'country', 'suppress', 'additional', 'qid', 'state'
}, parentArgs)
if namespace == 0 -- mainspace
or namespace == 14 -- category
or namespace == 2 -- user
or namespace == 118 then -- draft
outString = outString .. tracking
end
return outString
end
p.makelink = function(conf,val,nextid,qid)
return _makelink(conf,val,nextid,qid)
end
return p