Porn Base Central

Module:Authority control: Difference between revisions

Module Discussion

Module:Authority control (edit)

Revision as of 05:05, 28 February 2021

6,148 bytes added ,  28 February 2021
no edit summary
(Created page with "require('Module:No globals') local p = {} local title = mw.title.getCurrentTitle() local namespace = title.namespace local testcases = (string.sub(title.subpageText,1,9) == '...")
 
No edit summary
 
local data = require('Module:NoAuthority globalscontrol/data')
-- Localizable part
-- Please, note, that labels to various sites and cataloges are taken from Wikidata (i.e. Wikidata label)
 
local plinksPrefix = {}''
local titleproject = mw.title.getCurrentTitle()'PBC'
local categoryTemplateEmpty = project .. ':The "Authority control" template is empty'
local namespace = title.namespace
local templateLink = 'Authority control'
local testcases = (string.sub(title.subpageText,1,9) == 'testcases')
 
local group1Label = 'Social networks'
--[[==========================================================================]]
local group2Label = 'Texts of works'
--[[ Category functions ]]
local group3Label = 'Photo, video and audio'
--[[==========================================================================]]
local group4Label = 'Thematic sites'
local group5Label = 'Dictionaries and encyclopedias'
local group6Label = 'Genealogy and necropolis'
local group7Label = 'Taxonomy'
local group8Label = 'Authority control'
 
-- The language codes that should be always displayed even if they have normal rank and claim with another language and prefferered rank exists
function p.getCatForId( id )
local catNamepreferredLanguage = 'Q96'; -- english
 
if namespace == 0 then
local templateColorName = 'color';
catName = 'PBC articles with '..id..' identifiers'
-- Some projects have "named" colors, defined by templates
elseif namespace == 2 and not title.isSubpage then
function colorByTitle( frame, colorTitle )
catName = 'User pages with '..id..' identifiers'
local templateName = 'Color/' .. colorTitle;
else
local templateTitle = mw.title.makeTitle( 'Template', templateName );
catName = 'Miscellaneous pages with '..id..' identifiers'
if ( templateTitle == nil or not templateTitle.exists ) then
return false;
end
return frame:expandTemplate{ title = templateName };
return '[[Category:'..catName..']]'..p.redCatLink(catName)
end
 
-- Feel free to correct labels and categories, or add/remove sources here
function p.redCatLink( catName ) --catName == 'Blah' (not 'Category:Blah', not '[[Category:Blah]]')
 
if catName and catName ~= '' and
-- Non-localizable part (not need to localize )
testcases == false and
local moduleNavbox = require('Module:Navbox')
mw.title.new(catName, 14).exists == false
local moduleLanguages -- accessed if necessary
then
 
return '[[Category:Pages with red-linked authority control categories]]'
local titleBasedLinks = { ['Q602358'] = true, ['Q17290934'] = true, ['Q1960551'] = true }
 
local p = {}
 
function link( url )
return url
end
 
function replace( str, pattern, repl )
pattern = mw.ustring.gsub( pattern, "[%(%)%.%+%-%*%?%[%]%^%$%%]", "%%%1" ); -- escape pattern
repl = mw.ustring.gsub( repl, "[%%]", "%%%%" ); -- escape replacement
return mw.ustring.gsub( str, pattern, repl );
end
 
function renderLabel( params )
if type( params ) == 'string' then
return params;
end
 
return ''
local id = params[ 1 ];
local default = params[ 2 ];
 
if #params >= 3 then
local label = params[ 3 ];
local link = mw.wikibase.sitelink( id );
if ( link ~= nil ) then
return '[[' .. link .. '|' .. label .. ']]';
end
local title = mw.wikibase.label( id ) or default;
return '<span title="' .. title .. '" style="border-bottom: 1px dotted; cursor: help;">' .. label .. '</span>'
end
 
return mw.wikibase.label( id ) or default;
end
 
function getQualifierSingleValue( statement, qualifierName )
function p.createRow( id, label, rawValues, link, links, withUid, specialCat )
if (statement ~= nil
local catName = 'PBC articles with faulty '..(specialCat or id)..' identifiers'
and statement.qualifiers ~= nil
if links then -- all links[] use withUid = false; no check needed
and statement.qualifiers[qualifierName] ~= nil) then
local row = '*<span class="nowrap">'..label
 
for i, l in ipairs( links ) do
for qualifierIndex, qualifier in pairs( statement.qualifiers[qualifierName] ) do
if i == 1 then row = row..' '
if (qualifier.datavalue ~= nil
else row = row..', ' end
and qualifier.datavalue.type ~= nil
if l then
and qualifier.datavalue.value ~= nil) then
row = row..'<span class="uid">'..l..'</span>'
 
else
if ( qualifier.datavalue.type == "monolingualtext" ) then
row = row..'<span class="error">The '..id..' id '..rawValues[i]..' is not valid.</span>[[Category:'..catName..']]'..p.redCatLink(catName)
return qualifier.datavalue.value.text;
end
if ( qualifier.datavalue.type == "string" ) then
return qualifier.datavalue.value;
end
if ( qualifier.datavalue.type == "wikibase-entityid" ) then
return qualifier.datavalue.value.id;
end
mw.log( 'Unknown qualifier type: ' .. qualifier.datavalue.type )
return qualifier.datavalue.value;
 
end
end
 
return row..'</span>\n'
elseif link then
if withUid then
return '*<span class="nowrap">'..label..' <span class="uid">'..link..'</span></span>\n'
end
return '*<span class="nowrap">'..label..' '..link..'</span>\n'
end
return nil;
return '* <span class="error">The '..id..' id '..rawValues..' is not valid.</span>[[Category:'..catName..']]'..p.redCatLink(catName)..'\n'
end
 
function getQualifierValues( statement, qualifierName )
--[[=========================== Helper functions =============================]]
local result = {}
if (statement ~= nil
and statement.qualifiers ~= nil
and statement.qualifiers[qualifierName] ~= nil) then
local qualifiers = statement.qualifiers[qualifierName];
for _, qualifier in pairs( qualifiers ) do
if (qualifier.datavalue ~= nil
and qualifier.datavalue.type ~= nil
and qualifier.datavalue.value ~= nil) then
 
if ( qualifier.datavalue.type == "string" ) then
function p.append(str, c, length)
result[ #result + 1 ] = qualifier.datavalue.value;
while str:len() < length do
elseif ( qualifier.datavalue.type == "wikibase-entityid" ) then
str = c .. str
result[ #result + 1 ] = qualifier.datavalue.value.id;
else
mw.log( 'Unknown qualifier type: ' .. qualifier.datavalue.type );
result[ #result + 1 ] = qualifier.datavalue.value;
end
end
end
end
return strresult;
end
 
function collectLinks( configuration, elementId )
--Returns the ISNI check digit isni must be a string where the 15 first elements are digits, e.g. 0000000066534145
--Create rows
function p.getIsniCheckDigit( isni )
local totalelements = 0{}
forlocal idata = 1, 15 do{}
 
local digit = isni:byte( i ) - 48 --Get integer value
 
total = (total + digit) * 2
local item = mw.wikibase.getEntity( elementId )
if item == nil or item.claims == nil then
return elements
end
 
local remainder = total % 11
if ( item.claims['P602'] ~= nil ) then
local result = (12 - remainder) % 11
local claim = item.claims['P602']
if result == 10 then
for _, statement in pairs( claim ) do
return "X"
if (statement ~= nil) then
-- profile ID
local rank = statement.rank or 'normal';
if ( rank ~= 'deprecated' ) then
local itemId = getQualifierSingleValue( statement, 'P603' );
if (itemId ~= nil) then
-- language
local languages = getQualifierValues( statement, 'P44' );
local resourceId = statement.mainsnak.datavalue.value.id;
if (data[resourceId] == nil) then
data[resourceId] = {};
end
table.insert( data[resourceId], { itemId = itemId, languages = languages, rank = rank} );
end
end
end
end
end
return tostring( result )
end
 
for _, params in pairs( configuration ) do
--[[==========================================================================]]
local resourceId = params[2]
--[[ PornBaseData & documentation functions ]]
--[[==========================================================================]]
 
local claim = item.claims[ resourceId ]
function p.getIdsFromPornBaseData( itemId, property )
if ( claim ) then
local ids = {}
for _, statement in pairs( claim ) do
local statements = mw.wikibase.getBestStatements( itemId, property )
local rank = statement.rank or 'normal';
if statements then
if ( rank ~= 'deprecated' and statement.mainsnak.datavalue) then
for _, statement in ipairs( statements ) do
if local itemId = statement.mainsnak.datavalue then.value;
local languages = getQualifierValues( statement, 'P44' );
table.insert( ids, statement.mainsnak.datavalue.value )
if (data[resourceId] == nil) then
data[resourceId] = {};
end
table.insert( data[resourceId], { itemId = itemId, languages = languages, rank = rank} );
end
end
end
end
return ids
end
 
for resourceId, resourceDatas in pairs( data ) do
function p.matchesPornBaseDataRequirements( itemId, reqs )
data[resourceId] = filterByRank( resourceDatas );
for _, group in ipairs( reqs ) do
end
local property = 'P'..group[1]
local qid = group[2]
local statements = mw.wikibase.getBestStatements( itemId, property )
if statements then
for _, statement in ipairs( statements ) do
if statement.mainsnak.datavalue then
if statement.mainsnak.datavalue.value['numeric-id'] == qid then
return true
end end end end end
return false
end
 
local hasNonOptionalLinks = false
-- 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 )
for _, params in pairs( configuration ) do
local wikiTable = '{| class="wikitable sortable"\n'..
local resourceId = params[2]
'! rowspan=2 | Parameter\n'..
local optional = params[5] or false;
'! rowspan=2 | Label\n'..
 
'! rowspan=2; data-sort-type=number | PornBaseData property\n'..
local resourceDatas = data[resourceId];
'! colspan=4 | Tracking categories and page counts\n'..
if resourceDatas ~= nil then
'|-\n'..
if ( not optional ) then
'! [[:Category:PBC articles with authority control information|'.. 'Articles]]\n'..
hasNonOptionalLinks = true
'! [[:Category:User pages with authority control information|'.. 'User pages]]\n'..
end
'! [[:Category:Miscellaneous pages with authority control information|'.. 'Misc. pages]]\n'..
 
'! [[:Category:PBC articles with faulty authority control information|'..'Faulty IDs]]\n'..
local resourceLabel = renderLabel( params[1] );
'|-\n'
local firstChar = mw.ustring.sub( resourceLabel, 1, 1 );
local separateDesign = firstChar == '[' or firstChar == '<';
local lang = mw.getContentLanguage()
 
for _, conf in pairs( p.conf ) do
local param, link, pidhtml = conf[1], conf[2], conf[3]'';
if ( separateDesign ) then
local category = conf.category or param
html = html .. resourceLabel .. ':&nbsp;';
local args = { id = 'f', pid }
end
local wpl = frame:expandTemplate{ title = 'PBD property link', args = args }
 
--cats
local preitemId
local articleCat = 'PBC articles with '..category..' identifiers'
for index, resourceData in pairs(resourceDatas) do
local userCat = 'User pages with '..category..' identifiers'
local itemId = resourceData.itemId;
local miscCat = 'Miscellaneous pages with '..category..' identifiers'
if index == 2 then
local faultyCat = 'PBC articles with faulty '..category..' identifiers'
--даёт возможность поставить id из одного свойства в разные ссылки
--counts
if itemId == preitemId then
local articleCount = lang:formatNum( mw.site.stats.pagesInCategory(articleCat, 'pages') )
break
local userCount = lang:formatNum( mw.site.stats.pagesInCategory(userCat, 'pages') )
end
local miscCount = lang:formatNum( mw.site.stats.pagesInCategory(miscCat, 'pages') )
end
local faultyCount = lang:formatNum( mw.site.stats.pagesInCategory(faultyCat, 'pages') )
 
--concat
local languages = resourceData.languages;
wikiTable = wikiTable..'\n'..
'|-\n'..local link;
if type( params[3] ) == 'string' then
'||'..param..
link = replace( params[3], '$1', itemId );
'||'..link..
else
'||data-sort-value='..pid..'|'..wpl..
link = params[3] ( itemId );
'||style="text-align: right;"|[[:Category:'..articleCat..'|'..articleCount..']]'..
end
'||style="text-align: right;"|[[:Category:'.. userCat..'|'.. userCount..']]'..
local linkFirstChar;
'||style="text-align: right;"|[[:Category:'.. miscCat..'|'.. miscCount..']]'..
local interwiki;
'||style="text-align: right;"|[[:Category:'.. faultyCat..'|'.. faultyCount..']]'
if ( link ) then
linkFirstChar = mw.ustring.sub( link, 1, 1 );
interwiki = linkFirstChar == ':'
end
if ( separateDesign ) then
if ( index ~= 1 ) then
html = html .. ',&nbsp;'
end
if ( link ) then
if ( interwiki ) then
html = html .. '[[' .. link .. '|' .. itemId .. ']]';
else
html = html .. '[' .. link .. ' ' .. itemId .. ']';
end
else
html = html .. itemId;
end
else
if ( index ~= 1 ) then
html = html .. ' · '
end
if ( link ) then
if ( interwiki ) then
html = html .. '[[' .. link .. '|' .. resourceLabel .. ']]';
else
html = html .. '[' .. link .. ' ' .. resourceLabel .. ']';
end
else
-- it should not happen
html = html .. resourceLabel .. ':&nbsp;' .. itemId;
end
 
if ( languages ~= nil and #languages > 0 ) then
if moduleLanguages ~= false then -- not false, but maybe nil
if ( mw.title.makeTitle( 'Module', 'Languages' ).exists
and mw.title.makeTitle( 'Module', 'Languages/data' ).exists
and mw.title.makeTitle( 'Module', 'PornBaseData/Language-codes' ).exists) then
moduleLanguages = require('Module:Languages');
else
moduleLanguages = false;
end
end
if ( moduleLanguages ) then
for langIndex, language in pairs(languages) do
html = html .. '&nbsp;' .. moduleLanguages.getRefHtml( language )
end
end
end
end
preitemId = resourceData.itemId;
end
if ( #params >= 4 and params[4] ) then
html = html .. '[[Category:' .. params[4] .. ']]'
end
table.insert( elements, html )
end
end
 
if ( not hasNonOptionalLinks ) then
--append derivative WorldCat cats
return {}
local wcd = { 'WorldCat-LCCN', 'WorldCat-VIAF' }
for _, w in pairs(wcd) do
local articleCat = 'PBC articles with '..w..' identifiers'
local articleCount = lang:formatNum( mw.site.stats.pagesInCategory(articleCat, 'pages') )
wikiTable = wikiTable..'\n'..
'|-\n'..
'||'..'—'..
'||'..w..
'||data-sort-value='..w..'|'..'—'..
'||style="text-align: right;"|[[:Category:'..articleCat..'|'..articleCount..']]'..
'||style="text-align: right;"|—'..
'||style="text-align: right;"|—'..
'||style="text-align: right;"|—'
end
 
return wikiTable..'\n|}'elements
end
 
function collectDictionaryLinks( elementId )
--[[==========================================================================]]
--Create rows
--[[ Configuration ]]
local elements = {}
--[[==========================================================================]]
 
local item = mw.wikibase.getEntity( elementId );
-- If a specific "(identifier) redirect" exists for an identifier, please route through this particular redirect rather than linking directly to the target page. This reduces clutter in "What links here" and improves reverse lookup of articles where a manifestation of this particular identifier is used.
if ( item == nil or item.claims == nil) then
return elements
end
 
local sourceToElementLinks = {};
-- Check that the PornBaseData item has this property-->value before adding it
local reqs = {}
 
local claim = item.claims['P68']
--[[==========================================================================]]
if ( claim ) then
--[[ Main ]]
for _, statement in pairs( claim ) do
--[[==========================================================================]]
if (statement ~= nil) then
local rank = statement.rank or 'normal';
if ( rank ~= 'deprecated' ) then
local resourceId = statement.mainsnak.datavalue.value.id;
local languages = getQualifierValues( statement, 'P44' );
 
-- Wikisource link ?
function p.authorityControl( frame )
local entityId = getQualifierSingleValue( statement, 'P250' ) or getQualifierSingleValue( statement, 'P15' );
local resolveEntity = require( "Module:ResolveEntityId" )
if ( entityId ) then
local parentArgs = frame:getParent().args
if (sourceToElementLinks[resourceId] == nil) then
local elements = {} --create/insert rows later
sourceToElementLinks[resourceId] = {};
local worldcatCat = ''
end
local multipleIdCat = ''
table.insert( sourceToElementLinks[resourceId], { entityId = entityId, languages = languages, rank = rank } );
local suppressedIdCat = ''
end
local deprecatedIdCat = ''
 
-- URL to encyclopedia
--Redirect aliases to proper parameter names
local url = getQualifierSingleValue( statement, 'P324' );
for _, a in pairs( p.aliases ) do
local if alias, param(url == a[1],nil) a[2]then
-- no longer recommend, but widely used
if (parentArgs[param] == nil or parentArgs[param] == '') and parentArgs[alias] then
url = getQualifierSingleValue( statement, 'P35' );
parentArgs[param] = parentArgs[alias]
end
if ( url ~= nil ) then
if (sourceToElementLinks[resourceId] == nil) then
sourceToElementLinks[resourceId] = {};
end
table.insert( sourceToElementLinks[resourceId], { url = url, languages = languages, rank = rank } );
end
end
end
end
end
 
for _, description in pairs( data.dictionaries ) do
--Redirect deprecated parameters to proper parameter names, and assign tracking cat
if ( description.linkF ) then
for _, d in pairs( p.deprecated ) do
local dep, paramclaim = ditem.claims[1], d[2description.id ];
if ( claim ) then
if (parentArgs[param] == nil or parentArgs[param] == '') and parentArgs[dep] then
for _, statement in pairs( claim ) do
parentArgs[param] = parentArgs[dep]
local rank = statement.rank or 'normal';
if namespace == 0 then
if ( rank ~= 'deprecated' and statement.mainsnak.datavalue) then
deprecatedIdCat = '[[Category:PBC articles with deprecated authority control identifiers|'..dep..']]'
local value = statement.mainsnak.datavalue.value;
local url;
if type( description.linkF ) == 'string' then
url = replace( description.linkF, '$1', value );
else
url = description.linkF( value );
end
local languages = getQualifierValues( statement, 'P44' );
if ( sourceToElementLinks[description.id] == nil) then
sourceToElementLinks[description.id] = {};
end
table.insert( sourceToElementLinks[description.id], { url = url, languages = languages, rank = rank} );
end
end
end
end
end
 
local html = '';
--Use QID= parameter for testing/example purposes only
for _, description in pairs( data.dictionaries ) do
local itemId = nil
local links = sourceToElementLinks[ description.id ];
if namespace ~= 0 then
if ( links ) then
local qid = parentArgs['qid'] or parentArgs['QID']
for _, link in pairs( links ) do
if qid then
if ( link.url ) then
itemId = 'Q'..mw.ustring.gsub(qid, '^[Qq]', '')
table.insert( elements, '[' .. link.url .. ' ' .. description.title .. ']' );
itemId = resolveEntity._id(itemId) --nil if unresolvable
end
 
else
if ( link.entityId ) then
itemId = mw.wikibase.getEntityIdForCurrentPage()
local sitelink = mw.wikibase.getSitelink( link.entityId, description.project );
end
if ( sitelink ) then
table.insert( elements, '[[' .. description.projectCode .. sitelink .. '|' .. description.title .. ']]' );
--PornBaseData fallback if requested
if itemId then
for _, params in ipairs( p.conf ) do
if params[3] > 0 then
local val = parentArgs[mw.ustring.lower(params[1])] or parentArgs[params[1]]
if val == nil or val == '' then
local canUsePornBaseData = nil
if reqs[params[1]] then
canUsePornBaseData = p.matchesPornBaseDataRequirements( itemId, reqs[params[1]] )
else
canUsePornBaseData = true
end
if canUsePornBaseData then
local wikidataIds = p.getIdsFromPornBaseData( itemId, 'P'..params[3] )
if wikidataIds[1] then
if val == '' and (namespace == 0 or testcases) then
suppressedIdCat = '[[Category:PBC articles with suppressed authority control identifiers|'..params[1]..']]'
else
parentArgs[params[1]] = wikidataIds[1]
end end end end end end end
--Configured rows
local rct = 0
for _, params in ipairs( p.conf ) do
local val = parentArgs[mw.ustring.lower(params[1])] or parentArgs[params[1]]
local tval, tlinks = {}, {}
if val and val ~= '' and type(params[4]) == 'function' then
table.insert( tval, val )
table.insert( tlinks, params[4]( val ) )
end
-- collect other unique vals (IDs) from WD, if present
if itemId and tval[1] then
local wikidataIds = p.getIdsFromPornBaseData( itemId, 'P'..params[3] )
for _, v in pairs( wikidataIds ) do
local bnew = true
for _, w in pairs( tval ) do
if v == w then bnew = false end
end
if bnew then
table.insert( tval, v )
table.insert( tlinks, params[4]( v ) )
end
end
end
end
-- assemble
 
if tval[1] then
return elements
table.insert( elements, p.createRow( params[1], params[2]..':', tval, nil, tlinks, true, params.category ) )
end
rct = rct + 1
 
if tval[2] then
function contains( tableStructure, value )
multipleIdCat = p.getCatForId( 'multiple' )
if ( tableStructure == nil or value == nil) then
end
return true;
end
for index, line in pairs( tableStructure ) do
if ( line == value ) then
return true;
end
end
return false;
end
--WorldCat
 
local worldcatId = parentArgs['worldcatid'] or parentArgs['WORLDCATID']
function filterByRank( resourceDatas )
if worldcatId and worldcatId ~= '' then --if WORLDCATID present & unsuppressed
-- itemId, languages. rank = rank
table.insert( elements, p.createRow( 'WORLDCATID', '', worldcatId, '[[WorldCat Identities (identifier)|WorldCat Identities]]: [https://www.worldcat.org/identities/'..mw.uri.encode(worldcatId, 'PATH')..' '..worldcatId..']', nil, false ) ) --Validation?
 
worldcatCat = p.getCatForId( 'WORLDCATID' )
local hasPreffered = false;
elseif worldcatId == nil then --if WORLDCATID absent but unsuppressed
for index, resourceData in pairs(resourceDatas) do
local viafId = parentArgs['viaf'] or parentArgs['VIAF']
if ( resourceData.rank == 'preferred' ) then
local lccnId = parentArgs['lccn'] or parentArgs['LCCN']
hasPreffered = true;
if viafId and viafId ~= '' and p.viafLink( viafId ) then --VIAF must be present, unsuppressed, & validated
end
table.insert( elements, p.createRow( 'VIAF', '', viafId, '[[WorldCat Identities (identifier)|WorldCat Identities]] (via VIAF): [https://www.worldcat.org/identities/containsVIAFID/'..viafId..' '..viafId..']', nil, false ) )
end
if namespace == 0 then
 
worldcatCat = '[[Category:PBC articles with WorldCat-VIAF identifiers]]'
if (not hasPreffered) then
end
return resourceDatas;
elseif lccnId and lccnId ~= '' and p.lccnLink( lccnId ) then --LCCN must be present, unsuppressed, & validated
end
local lccnParts = p.splitLccn( lccnId )
 
if lccnParts and lccnParts[1] ~= 'sh' then
local result = {};
local lccnIdFmtd = lccnParts[1]..lccnParts[2]..'-'..lccnParts[3]
for index, resourceData in pairs(resourceDatas) do
table.insert( elements, p.createRow( 'LCCN', '', lccnId, '[[WorldCat Identities (identifier)|WorldCat Identities]] (via LCCN): [https://www.worldcat.org/identities/lccn-'..lccnIdFmtd..' '..lccnIdFmtd..']', nil, false ) )
if ( resourceData.rank == 'preferred' or contains(resourceData.languages, preferredLanguage) ) then
if namespace == 0 then
table.insert(result, resourceData);
worldcatCat = '[[Category:PBC articles with WorldCat-LCCN identifiers]]'
end
end
 
return result;
end
 
function p.render( frame )
local colorArg = '';
local elementId = nil;
if ( frame ~= nil ) then
local parentArgs = frame:getParent().args
colorArg = parentArgs[templateColorName] or parentArgs['color'] or parentArgs[1] or '';
if parentArgs['from'] and parentArgs['from'] ~= '' then
elementId = string.upper( parentArgs['from'] );
elseif parentArgs['d'] and parentArgs['d'] ~= '' then
elementId = string.upper( parentArgs['d'] );
end
if ( colorArg ~= '' ) then
local firstChar = mw.ustring.sub( colorArg, 1, 1 );
if ( firstChar ~= '#' ) then
local byTemplate = colorByTitle( frame, colorArg );
if ( byTemplate ) then
colorArg = byTemplate;
end
end
end
elseif worldcatId == '' then --if WORLDCATID suppressed
suppressedIdCat = '[[Category:PBC articles with suppressed authority control identifiers|WORLDCATID]]'
end
 
local NavboxnavboxData = require('Module:Navbox'){
name = 'Authority control',
local elementsCat = ''
navboxclass = 'navbox pbcArticleExternalLinksTable',
if rct == 0 or rct >= 25 then
bodyclass = 'hlist',
local eCat = 'AC with '..rct..' elements'
};
elementsCat = '[[Category:'..eCat..']]'..p.redCatLink(eCat)
if colorArg and colorArg ~= '' then
navboxData.groupstyle = 'background: ' .. colorArg .. ';';
end
 
local outStringrowIndex = ''1;
 
if #elements > 0 then
local socialNetworksElements = collectLinks( data.socialNetworkProperties, elementId );
local args = { pid = 'identifiers' } -- #target the list of identifiers
if ( #socialNetworksElements > 0 ) then
if testcases and itemId then args = { pid = 'identifiers', qid = itemId } end --expensive
navboxData['group' .. rowIndex] = group1Label;
local pencil = frame:expandTemplate{ title = 'EditAtPornBaseData', args = args}
navboxData['list' .. rowIndex] = table.concat( socialNetworksElements , ' · ' );
outString = Navbox._navbox( {
rowIndex = rowIndex + 1;
name = 'Authority control',
navboxclass = 'authority-control',
bodyclass = 'hlist',
group1 = '[[Help:Authority control|Authority control]]'..pencil,
list1 = table.concat( elements )
} )
end
 
local textsElements = collectLinks( data.textsProperties, elementId );
local auxCats = worldcatCat .. elementsCat .. multipleIdCat .. suppressedIdCat .. deprecatedIdCat
if testcases( #textsElements > 0 ) then
navboxData['group' .. rowIndex] = group2Label;
auxCats = mw.ustring.gsub(auxCats, '(%[%[)(Category)', '%1:%2') --for easier checking
navboxData['list' .. rowIndex] = table.concat( textsElements , ' · ' );
rowIndex = rowIndex + 1;
end
 
outString = outString .. auxCats
local contentHostingElements = collectLinks( data.contentHostingProperties, elementId );
if namespace ~= 0 then
if ( #contentHostingElements > 0 ) then
outString = mw.ustring.gsub(outString, '(%[%[)(Category:PBC articles)', '%1:%2') --by definition
navboxData['group' .. rowIndex] = group3Label;
navboxData['list' .. rowIndex] = table.concat( contentHostingElements , ' · ' );
rowIndex = rowIndex + 1;
end
 
local themeProfilesElements = collectLinks( data.themeProfilesProperties, elementId );
if ( #themeProfilesElements > 0 ) then
navboxData['group' .. rowIndex] = group4Label;
navboxData['list' .. rowIndex] = table.concat( themeProfilesElements , ' · ' );
rowIndex = rowIndex + 1;
end
 
local dictionaryElements = collectDictionaryLinks( elementId );
if ( #dictionaryElements > 0 ) then
navboxData['group' .. rowIndex] = group5Label;
navboxData['list' .. rowIndex] = table.concat( dictionaryElements , ' · ' );
rowIndex = rowIndex + 1;
end
 
local geniElements = collectLinks( data.geniGraves, elementId );
if ( #geniElements > 0 ) then
navboxData['group' .. rowIndex] = group6Label;
navboxData['list' .. rowIndex] = table.concat( geniElements , ' · ' );
rowIndex = rowIndex + 1;
end
 
local taxElements = collectLinks( data.taxons, elementId );
if ( #taxElements > 0 ) then
navboxData['group' .. rowIndex] = group7Label;
navboxData['list' .. rowIndex] = table.concat( taxElements , ' · ' );
rowIndex = rowIndex + 1;
end
 
local authorityControlElements = collectLinks( data.authorityControl, elementId );
local authorityControlExtElements = collectLinks( data.authorityControlExt, elementId );
if ( #authorityControlElements > 0 ) then
navboxData['group' .. rowIndex] = group8Label;
if ( #authorityControlExtElements > 0 ) then
navboxData['list' .. rowIndex] = table.concat( authorityControlElements , ' · ' ) .. ' · ' .. table.concat( authorityControlExtElements , ' · ' );
else
navboxData['list' .. rowIndex] = table.concat( authorityControlElements , ' · ' );
end
if ( #authorityControlElements > 5 ) then
navboxData['group' .. rowIndex] = nil;
package.loaded['Module:Navbox'] = nil;
local templateStyles = frame:extensionTag{ name = 'templatestyles', args = { src = 'Navbar-table/styles.css' } };
local collapsibleNavbox = require('Module:Navbox')._navbox( { title = group8Label, list1 = navboxData['list' .. rowIndex],
border = 'subgroup', navbar = 'plain', state = 'collapsed', titleclass = 'ts-navbox-plaintitle', bodyclass = 'authoritycontrol',
titlestyle = navboxData.groupstyle, bodystyle = 'text-align: left;' } );
navboxData['list' .. rowIndex] = templateStyles .. collapsibleNavbox;
end
rowIndex = rowIndex + 1;
end
 
if ( rowIndex == 1 ) then
if ( mw.title.getCurrentTitle().namespace == 0 ) then
return '[[Category:' .. categoryTemplateEmpty .. ']]';
end
else
if navboxData['group1'] then
navboxData['group1'] = '<div style="padding: 0px 18px 0px 0px; width: 100%;"><div style="float: left;">' ..
frame:expandTemplate{ title = 'tnavbar-view', args = { templateLink } } .. '</div>&nbsp;&nbsp;' ..
navboxData['group1'] .. '</div>';
else
navboxData['group1'] = '<div style="padding: 0px 0px 0px 0px; width: 100%;">' ..
frame:expandTemplate{ title = 'tnavbar-view', args = { templateLink } } .. '</div>';
end
end
 
local navbox = moduleNavbox._navbox( navboxData )
return navbox
end
 
function p.renderDocumentation()
local result = ''
result = result .. '|-\n';
result = result .. '! colspan=4 | ' .. group1Label .. '\n';
result = result .. '|-\n';
result = result .. renderDocumentationCategory( data.socialNetworkProperties );
result = result .. '|-\n';
result = result .. '! colspan=4 | ' .. group2Label .. '\n';
result = result .. '|-\n';
result = result .. renderDocumentationCategory( data.textsProperties );
result = result .. '|-\n';
result = result .. '! colspan=4 | ' .. group3Label .. '\n';
result = result .. '|-\n';
result = result .. renderDocumentationCategory( data.contentHostingProperties );
result = result .. '|-\n';
result = result .. '! colspan=4 | ' .. group4Label .. '\n';
result = result .. '|-\n';
result = result .. renderDocumentationCategory( data.themeProfilesProperties );
result = result .. '|-\n';
result = result .. '! colspan=4 | ' .. group5Label .. '\n';
result = result .. '|-\n';
result = result .. renderDocumentationCategory( data.dictionaries );
result = result .. '|-\n';
result = result .. '! colspan=4 | ' .. group6Label .. '\n';
result = result .. '|-\n';
result = result .. renderDocumentationCategory( data.geniGraves );
result = result .. '|-\n';
result = result .. '! colspan=4 | ' .. group7Label .. '\n';
result = result .. '|-\n';
result = result .. renderDocumentationCategory( data.taxons );
result = result .. '|-\n';
result = result .. '! colspan=4 | ' .. group8Label .. '\n';
result = result .. '|-\n';
result = result .. renderDocumentationCategory( data.authorityControl );
return result;
end
 
function renderDocumentationCategory( links )
local result = '';
 
for _, params in pairs( links ) do
local resourceLabel = renderLabel( params[ 1 ] or params.title );
local resourceId = params[ 2 ] or params.id;
local category = params[ 4 ];
local optional;
if ( params[ 5 ] or false ) then
optional = 'TRUE';
else
optional = 'FALSE';
end
result = result .. '| ' .. resourceLabel .. '\n';
return outString
if string.match( resourceId, '^P' ) then
result = result .. '| [[:d:Property:' .. resourceId .. '|' .. resourceId .. ']]\n';
elseif string.match( resourceId, '^Q' ) then
result = result .. '| [[:d:' .. resourceId .. '' .. '|' .. resourceId .. ']]\n';
else
result = result .. '| &nbsp; \n';
end
 
if ( category ~= nil and category ~= false ) then
result = result .. '| [[:Category:' .. category .. '|' .. category .. ']]\n';
else
result = result .. '| &nbsp; \n';
end
result = result .. '| ' .. optional .. '\n';
result = result .. '|-\n';
end
 
return result;
end
 
Retrieved from "https://test1.pbc.xxx/wiki/Special:MobileDiff/1801"