Module:Authority control/documentation/sandbox

require('strict') local p = {} local configfile = 'Module:Authority control/config' -- default configuation module local arg = mw.getCurrentFrame.args.config if arg and arg~='' then configfile = 'Module:Authority control/config/' .. arg end local config if mw.title.new(configfile).exists then config = mw.loadData(configfile) else return error('Invalid configuration file',0) end local title = mw.title.getCurrentTitle local namespace = title.namespace local testcases = title.subpageText == config.i18n.testcases local makelink = require(config.i18n.ACmodule .. '/' .. config.i18n.sandbox).makelink local lang = mw.getContentLanguage

local function needsAttention(sortkey) return  .. 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 =  .. sortkey .. title.text ..  else cat =  .. config.i18n.category .. ':'..cat.. end cat = cat .. redlinkcat return cat else return '' end end

-- 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=..label.. --if mw.title.new(category,14).exists == false then --ret = ret..' &#91;['..tostring(mw.uri.fullUrl('Category:'..category,'action=edit&preload=Template:Authority_control/preload'))..' create]&#93; ' --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 '' local out = '' if conf.remark then out = out .. ' '		else out = out .. ' '		end out = out .. name .. ' ' ..			'' .. config.sections[conf.section].name .. ' ' ..			'' .. frame:expandTemplate{title='Wikidata property link',args={id='f',conf.property}} .. ' ' ..			' ' .. example .. ' '		if count then out = out .. ''..checkcat(articleCat,lang:formatNum(articleCount))..' ('..checkcat(errorCat,errorCount)..') ' end out = out .. ' '		if conf.remark then out = out .. "Remarks: " .. frame:preprocess{text = conf.remark} .. " "		end return out end local doc = ' ' return doc end

function p.errorTable(frame) local Table = ' ' return Table end

function p.whitelisttable(frame) local Table = ' ' return Table end

function p.sectiontable(frame) local 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 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 '' local outString = frame:expandTemplate{ title = 'Category explanation', args = {'articles with '..name..' identifiers.'..' Please do not add 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 = 'Wikidata property: ' .. frame:expandTemplate{title='Wikidata property link', args={'P' .. property}} .. '' out = out .. '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 .. '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 .. ' '	else out = out .. 'Not specified' end out = out .. 'Label: ' local label = frame.args.label or '' if label~='' then out = out .. label else out = out .. 'Not specified' end out = out .. '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 .. '</ul>' return out end

return p