Moduuli:Authority control/documentation
Siirry navigaatioon
Siirry hakuun
 |
[ muokkaa ] Tämä on en:module:Authority control/documentation -sivulta kopioitu moduuli. Tätä käytetään dokumentaation esittämiseen ja voi tarvita useita muutoksia lokalisointiin.
|
require('strict')
local p = {}
local arg = mw.getCurrentFrame().args.config
local configfile = 'Module:Authority control/config' .. (arg and arg~='' and ('/' .. arg) or '')
local config = mw.loadData(configfile)
local title = mw.title.getCurrentTitle()
local namespace = title.namespace
local testcases = title.subpageText == config.i18n.testcases
local makelink = require(config.i18n.ACmodule).makelink
local lang = mw.getContentLanguage()
local function needsAttention(sortkey)
return '[[Category:Pages with authority control identifiers needing attention|' .. sortkey .. title.text .. ']]'
--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 then
local success, exists = pcall(function() return mw.title.new(cat, 14).exists end)
if success and not exists then
redlinkcat = needsAttention('N')
end
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
--[[ === fiwki === ]]
function p.catNameSuffix(id)
if string.find(id, "%s") == nil then
return '-tunnisteilla'
else
return ' -tunnisteilla'
end
end
-- Creates a petscan link which shows articles without auktoritettitunnisteet -template
function p.docPetscanMissingQuery(frame)
local pids = {}
for _, conf in pairs( config.config ) do
local category = conf.category or conf[1]
local pid = conf.property
if pid and pid > 0 then
table.insert(pids, "P" .. pid)
end
end
local pidslist = mw.text.listToText(pids, "%2C", "%2C")
if (string.len(pidslist) == 0) then
return ""
end
return "[https://petscan.wmflabs.org/?language=fi&psid=7658178&wikidata_prop_item_use=" .. pidslist .. " Hae sivut joista puuttuu auktoriteettitunnisteet-malline Petscanilla] (hidas)"
end
-- Creates a human-readable standalone wikitable version of p.conf, and tracking categories with page counts, for use in the documentation
function p.docConfTable( frame )
local wikiTable = '{| class="wikitable sortable"\n' ..
'! rowspan=2 | Parametri\n' ..
'! rowspan=2; data-sort-type=number | Wikidata-ominaisuus\n' ..
'! colspan=2 | Seurantaluokat ja sivumäärät\n' ..
'! rowspan=2 | Malline puuttuu\n' ..
'|-\n' ..
'! Artikkeleita\n' ..
'! Viallisia tunnisteita\n' ..
'|-\n'
local lang = mw.getContentLanguage()
for _, conf in pairs(config.config) do
local category = conf.category or conf[1]
local param, pid = conf.label, conf.property
if (category ~= nil) then
if category == 'MBA' then category = 'MusicBrainz' end --it's weird; 'MusicBrainz' for cats only
local args = { id = 'f', pid }
local wpl = frame:expandTemplate{ title = 'Wikidata property link', args = args }
local articleCat = 'Wikipedia-artikkelit '..category..p.catNameSuffix(category)
local userCat = 'Käyttäjäsivut '..category..p.catNameSuffix(category)
local miscCat = 'Muut sivut '..category..p.catNameSuffix(category)
local faultyCat = 'Virheelliset auktoriteettitunnisteet ('..category..')'
local articleCount = lang:formatNum( mw.site.stats.pagesInCategory(articleCat, 'pages') )
local faultyCount = lang:formatNum( mw.site.stats.pagesInCategory(faultyCat, 'pages') )
local missingUrl = 'https://petscan.wmflabs.org/?psid=7658178&wikidata_prop_item_use=P' .. pid
if category == 'MusicBrainz' then category = 'MBA' end --it's weird; 'MBA' for param name only
wikiTable = wikiTable..'\n'..
'|-\n'..
'||'..category..
'||data-sort-value='..pid..'|'..wpl..
'||style="text-align: right;"|[[:Category:'..articleCat..'|'..articleCount..']]'..
'||style="text-align: right;"|[[:Category:'.. faultyCat..'|'.. faultyCount..']]'..
'||style="text-align: center;"|<span class="plainlinks">[' .. missingUrl ..' hae]</span>'
end
end
return wikiTable .. '\n|}'
end
--[[ === /fiwki === ]]
--[=====[
-- Creates a human-readable standalone wikitable version of conf, and tracking categories with page counts, for use in the documentation
function p.docConfTable(frame)
local function checkcat(category,label)
local ret='[[:Category:'..category..'|'..label..']]'
--if mw.title.new(category,14).exists == false then
--ret = ret..' <span class="plainlinks" style="font-size:85%;">[['..tostring(mw.uri.fullUrl('Category:'..category,'action=edit&preload=Template:Authority_control/preload'))..' create]]</span>'
--end
return ret
end
local doc = ''
local a, P, f = 0, 0, 0 --cumulative sums
local count = frame.args.count or false
local columns = 3 + (count and 1 or 0)
local row = function(conf)
local category = conf.category or conf[1]
local articleCat = string.format(config.i18n.cat,category)
local articleCount = mw.site.stats.pagesInCategory(articleCat,config.i18n.pages)
local errorCat = conf.errorcat or string.format(
config.i18n.cat,
config.i18n.faulty .. ' ' .. category
)
local errorCount = mw.site.stats.pagesInCategory(errorCat,config.i18n.pages)
P = P + 1 --property count
a = a + articleCount
f = f + errorCount
local getstatement = function(id,propid,qualid)
local statement = mw.wikibase.getBestStatements('P' .. id, 'P' .. propid)
local value
if statement and statement[1] and statement[1].mainsnak.datavalue.value.id then
value = statement[1].mainsnak.datavalue.value.id
local qual
if qualid and statement[1].qualifiers['P' .. qualid][1].datavalue.value then
qual = statement[1].qualifiers['P' .. qualid][1].datavalue.value
end
return value, qual
end
end
local _, example = getstatement(conf.property, 1855, conf.property)
if not example then example = '' end
example = frame:expandTemplate{title = "Hlist", args = {'\n' .. makelink(conf,{id=example},1)}} .. '\n'
local getname = function(nameprop)
local name = getstatement(conf.property,nameprop)
if name then
return frame:expandTemplate{title='Wikidata fallback link',args={name}}
end
end
local name = getname(1629) or getname(10726) or getname(9073) or getname(2378) or ''
local out = ''
if conf.remark then
out = out .. '<tr><td rowspan=2>'
else
out = out .. '<tr><td>'
end
out = out .. name .. '</td>' ..
'<td style="text-align: center">' .. config.sections[conf.section].name .. '</td>' ..
'<td data-sort-value=' .. conf.property .. '>' .. frame:expandTemplate{title='Wikidata property link',args={id='f',conf.property}} .. '</td>' ..
'<td>' .. example .. '</td>'
if count then
out = out .. '<td style="text-align: right;">'..checkcat(articleCat,lang:formatNum(articleCount))..' ('..checkcat(errorCat,errorCount)..')</td>'
end
out = out .. '</tr>'
if conf.remark then
out = out .. "<tr class='expand-child'><td colspan=" .. columns .. ">'''Remarks:''' " .. frame:preprocess{text = conf.remark} .. "</td></tr>"
end
return out
end
local doc = '<table class="wikitable sortable">' ..
'<tr><th>' .. lang:ucfirst(config.i18n.identifier) .. '</th>' ..
'<th>' .. config.i18n.Section .. '</th>' ..
'<th data-sort-type=number>' .. config.i18n.WDproperty .. '</th>' ..
'<th>' .. config.i18n.Appears_as .. '</th>'
if count then
doc = doc .. '<th>[[:' .. config.i18n.category .. ':' .. config.i18n.maincat .. '|' .. config.i18n.Articles .. ']] '
.. '([[:' .. config.i18n.category .. ':' .. config.i18n.faultcat .. '|' .. config.i18n.Faults .. ']])</th>'
end
doc = doc .. '</tr>'
for _, conf in pairs(config.config) do
doc = doc .. row(conf)
end
if count then
doc = doc .. '<tr><th style="text-align: right;" colspan=' .. columns-1 .. '>' .. config.i18n.Totals .. '</th>' ..
'<th style="text-align: right;">' .. P .. '</th>' ..
'<th style="text-align: right;">' .. lang:formatNum(a) .. ' ([[:' .. config.i18n.category .. ':' .. config.i18n.allfaultycat .. '|' .. f .. ']])</th></tr>'
end
doc = doc .. '</table>'
return doc
end
--]=====]
function p.errorTable(frame)
local Table = '<table class="wikitable sortable">'..
'<tr><th>' .. config.i18n.WDproperty .. '</th>'..
'<th>' .. lang:ucfirst(config.i18n.faulty) .. ' ' .. config.i18n.identifiers .. '</th>'..
'<th>[[:' .. config.i18n.category .. ':' .. config.i18n.faultcat .. '|' .. config.i18n.Tracking_category .. ']]</th></tr>'
local f, P = 0, 0, 0 --cumulative sums
for _, conf in pairs(config.config) do
local category = conf.errorcat or string.format(
config.i18n.cat,
config.i18n.faulty .. ' ' .. (conf.category or conf[1])
)
local count = mw.site.stats.pagesInCategory(category,'pages')
if count > 0 then
P = P + 1
f = f + count
Table = Table..'<tr><td>'..frame:expandTemplate{ title = config.i18n.linktemplate, args = { id = 'f', conf.property } } .. '</td>'..
'<td style="text-align:center;">'..tostring(count)..'</td>'..
'<td>[[:' .. config.i18n.category .. ':'..category..']]</td></tr>'
end
end
Table = Table..'<tr><th>' .. config.i18n.Totals .. '</th>'..
'<th style="text-align:center;">' .. '[[:' .. config.i18n.category .. ':' .. config.i18n.allfaultycat .. '|' .. tostring(f) .. ']]</th>'..
'<th style="text-align:center;">'..tostring(P)..'</th></tr></table>'
return Table
end
function p.whitelisttable(frame)
local Table = '<table class="wikitable sortable">'..
'<tr><th>' .. config.i18n.Code .. '</th>'..
'<th>' .. config.i18n.Topic .. '</th>'..
'<th>' .. lang:ucfirst(config.i18n.identifiers) .. '</th></tr>'
for code, wlist in pairs(config.whitelists) do
Table = Table .. '<tr><th>' .. code .. '</th>'..
'<td>[[' .. mw.wikibase.getSitelink('Q' .. wlist.topic) .. ']]</td>'
local plist = {}
for _, property in pairs(wlist.properties) do
table.insert(plist,frame:expandTemplate{title='Wikidata property link', args={'P' .. property}})
end
Table = Table .. '<td>' .. table.concat(plist,', ') .. '</td></tr>'
end
Table = Table .. '</table>'
return Table
end
function p.sectiontable(frame)
local Table = '<table class="wikitable sortable">'..
'<tr><th>' .. config.i18n.Section .. '</th>' ..
'<th>' .. config.i18n.Description .. '</th>'..
'<th>' .. lang:ucfirst(config.i18n.identifiers) .. '</th></tr>'
for number,section in ipairs(config.sections) do
Table = Table .. '<tr><th>' .. number .. '</th>' .. '<td>' .. section.name .. '</td>'
local plist = {}
for _,id in pairs(config.config) do
if id.section == number then
table.insert(plist,frame:expandTemplate{title=config.i18n.linktemplate, args={'P' .. id.property}})
end
end
Table = Table .. '<td>' .. table.concat(plist,', ') .. '</td></tr>'
end
Table = Table .. '</table>'
return Table
end
-- Main/External Call for Pages with authority control identifiers
function p.autoDetect(frame)
local function whichTOC(frame) -- standardize TOC behavior via {{CatAutoTOC}}
return frame:expandTemplate{ title = 'CatAutoTOC', args = { align = 'center' } }
end
local function wpa(frame,id,faulty)
for _,conf in pairs(config.config) do
if conf.category == id or conf[1] == id then
local getname = function(nameprop)
local name = mw.wikibase.getBestStatements('P'..conf.property,nameprop)
if name and name[1] and name[1].mainsnak.datavalue.value.id then
return frame:expandTemplate{title='Wikidata fallback link',args={name[1].mainsnak.datavalue.value.id}}
end
end
local name = getname('P1629') or getname('P10726') or getname('P9073') or getname('P2378') or ''
local outString = frame:expandTemplate{ title = 'Category explanation', args = {'articles with '..name..' identifiers.'..' Please do not add [[Wikipedia:Categorization#Subcategorization|subcategories]].\nPages in this category should only be added by [[Module:Authority control]].'}}
.. frame:expandTemplate{ title = 'Cat more', args = {'Wikipedia:Authority control', ':d:Property:P'..conf.property} }
.. frame:expandTemplate{ title = 'Possibly empty category' }
.. frame:expandTemplate{ title = 'Wikipedia category', args = { hidden = 'yes', tracking = 'yes' } }
.. frame:expandTemplate{ title = 'Polluted category' }
.. whichTOC( frame )
if faulty then
outString = outString .. addCat(config.i18n.faultcat,id) .. addCat(string.format(config.i18n.cat, id))
else
outString = outString .. addCat(config.i18n.maincat,id)
end
return outString
end
end
end
if namespace == 14 then --cat space
local wpfaultyID = mw.ustring.match(title.text, 'Articles with faulty (.+) identifiers')
local wpID = mw.ustring.match(title.text, 'Articles with (.+) identifiers')
if wpfaultyID then
return wpa(frame,wpfaultyID,true)-- must be before wpID check, in case they both match
elseif wpID then
return wpa(frame,wpID,false)
else
return needsAttention('U')
end
end
end
function p.idproposal(frame)
local property = frame.args.property or ''
local out = '<ul><li>Wikidata property: ' .. frame:expandTemplate{title='Wikidata property link', args={'P' .. property}} .. '</li>'
out = out .. '<li>Section: '
local section = frame.args.section or ''
if section~='' then
out = out .. config.sections[section].name .. ' (' .. section .. ')'
else
out = out .. 'Not specified'
end
out = out .. '</li><li>Link: '
local link = frame.args.link or ''
if link=='' then
link = mw.wikibase.getBestStatements('P'..property,'P1630') or ''
link = link[1].mainsnak.datavalue.value
end
if link~='' then
out = out .. '<code>' .. link .. '</code>'
else
out = out .. 'Not specified'
end
out = out .. '</li><li>Label: '
local label = frame.args.label or ''
if label~='' then
out = out .. label
else
out = out .. 'Not specified'
end
out = out .. '</li><li>Example: '
local example = mw.wikibase.getBestStatements('P'..property,'P1855') or ''
if example then
example = example[1].qualifiers['P'..property][1].datavalue.value
example = frame:expandTemplate{title = "Hlist", args = {'\n' .. makelink({[1]='',link=link,label=label},{id=example},1)}} .. '\n'
out = out .. example
else
out = out .. 'Not available'
end
out = out .. '</li></ul>'
return out
end
return p