Module:Taxonbar/sandbox
 | This is the module sandbox page for Module:Taxonbar (diff). |
{{Taxonbar}} (edit talk history links # /subpages /doc /doc edit /sbox /sbox diff /test)
 | This Lua module is used on approximately 469,000 pages, or roughly 1% of all pages. To avoid major disruption and server load, any changes should be tested in the module's /sandbox or /testcases subpages, or in your own module sandbox. The tested changes can be added to this page in a single edit. Consider discussing changes on the talk page before implementing them. |
 | This module is subject to page protection. It is a highly visible module in use by a very large number of pages, or is substituted very frequently. Because vandalism or mistakes would affect many pages, and even trivial editing might cause substantial load on the servers, it is protected from editing. |
This module uses one or more Wikidata properties; see § Taxon identifiers for details.
 | This module depends on the following other modules: |
| Related pages |
|---|
This module contains the code of {{Taxonbar}}. To use Taxonbar, follow instructions at Template:Taxonbar/doc.
Configuration
[edit]Parameters and databases are set by Module:Taxonbar/conf.
Taxon identifiers
[edit]Testcases
[edit]For testcases use: {{Taxonbar | from=QID}}
Peach (Prunus persica)
Dog (Canis lupus familiaris)
Eastern bluebird (Sialia sialis)
Honey bee (Apis)
Western honey bee (Apis mellifera)
Clipper butterfly (Parthenos sylvia)
Turkey tail (Trametes versicolor)
Button/portobello mushroom (Agaricus bisporus)
Module editing — to-do list
[edit]See also
[edit]- Module:Taxonbar/conf – the configuration module to add/remove/edit sources
- {{Taxonbar/exists}} – tests for {{Taxonbar}} existence
- {{Taxonbar/candidate}} – categorize highly-likely and potentially-likely {{Taxonbar}} candidates
- Module:Authority control – a {{Taxonbar}}-like module for unique subjects
- gl:Módulo:Taxonbar – original code source for this module
require('strict')
local conf = require( 'Module:Taxonbar/conf' ) --configuration module
local TaxonItalics = require( 'Module:TaxonItalics' ) --use a function to conditionally italicize taxon names
--[[==========================================================================]]
--[[ Local functions ]]
--[[==========================================================================]]
local function isNilOrEmpty( thing )
if thing == nil or thing == '' then
return true
end
return nil
end
local function getIdFromWikidata( item, property )
local id = nil
if property == 'PWikispecies:$1' then
local siteLinks = item.sitelinks
if siteLinks then
local speciesWiki = item.sitelinks.specieswiki
if speciesWiki then
id = speciesWiki.title
end
end
return id
elseif item.claims[property] == nil then
return id
end
--[[ this code picks up deprecated values on wikidata; better to use getBestStatements
for _, statement in pairs( item.claims[property] ) do
if statement.mainsnak.datavalue then
id = statement.mainsnak.datavalue.value
break
end
end
]]
local statements = item:getBestStatements(property)[1]
if statements and
statements.mainsnak and
statements.mainsnak.datavalue and
statements.mainsnak.datavalue.value
then
id = statements.mainsnak.datavalue.value
end
return id
end
local function getLink( property, db, val )
local link, returnVal = '', {}
returnVal.isError = false
if mw.ustring.find( val, '//' ) then
link = val
else
if type(property) == 'number' and property > 0 then
local entityObject = mw.wikibase.getEntity('P'..property)
local dataType
if entityObject then dataType = entityObject.datatype
else returnVal.isError = true end
if dataType == 'external-id' then
local formatterURL = nil
if property == 3746 or --Wildflowers of Israel
property == 3795 or --Flora of Israel Online
property == 5397 --Tierstimmenarchiv
then
formatterURL = entityObject:getBestStatements('P1630')[2] --use 2nd formatterURL for English version
end
if formatterURL == nil then formatterURL = entityObject:getBestStatements('P1630')[1] end --default to [1]
if formatterURL then
if formatterURL.mainsnak.datavalue and formatterURL.mainsnak.datavalue.value then --nil check for ABA
link = formatterURL.mainsnak.datavalue.value
end
end
if db == 'bow' then -- for birds of world which uses eBird identifier
link = 'https://birdsoftheworld.org/bow/species/$1'
elseif db == 'fossilworks' then
link = 'https://paleobiodb.org/classic/basicTaxonInfo?taxon_no=$1'
end
elseif dataType == 'url' then
local subjectItem = entityObject:getBestStatements('P1629')[1]
if subjectItem then
local officialWebsite = mw.wikibase.getEntity(subjectItem.mainsnak.datavalue.value.id):getBestStatements('P856')[1]
if officialWebsite then link = officialWebsite.mainsnak.datavalue.value end
end
elseif dataType == 'string' then
local formatterURL = entityObject:getBestStatements('P1630')[1]
if formatterURL then
link = formatterURL.mainsnak.datavalue.value
else
local subjectItem = entityObject:getBestStatements('P1629')[1]
if subjectItem then
local officialWebsite = mw.wikibase.getEntity(subjectItem.mainsnak.datavalue.value.id):getBestStatements('P856')[1]
if officialWebsite then link = officialWebsite.mainsnak.datavalue.value end
end
end
else
returnVal.isError = true
end
elseif type(property) == 'string' then
link = property
end
--local valurl = val
local valurl = mw.uri.encode( val, 'PATH' )
valurl = string.gsub (valurl, '%%2F', '/') --escape '/' (e.g. issue with P5354); see wikidata T128078 and https://gerrit.wikimedia.org/r/c/mediawiki/extensions/Wikibase/+/664820/3/lib/includes/PropertyInfoSnakUrlExpander.php
if type(property) == 'number' then
--doublecheck language for Wildflowers of Israel ID
if property == 3746 then link = mw.ustring.gsub(link, '/hebrew/', '/english/') end
--format spaces in PfaF binomials, e.g. "Elaeagnus x ebbingei"
if property == 4301 then valurl = mw.ustring.gsub(valurl, '%%20', '+') end
end
valurl = mw.ustring.gsub(valurl,'%%','%%%%')
link = mw.ustring.gsub(link, '$1', valurl)
end
link = mw.ustring.gsub(link, '^[Hh][Tt][Tt][Pp]([Ss]?)://', 'http%1://') --fix wikidata URL
val = mw.ustring.match(val, '([^=/]*)/?$') --get display name from end of URL
if mw.ustring.find( link, '//' ) then
returnVal.text = '['..link..' '..mw.text.encode(mw.uri.decode(val, 'PATH'),'%[%]')..']'
elseif link == '' then
returnVal.text = val
else
returnVal.text = '<span class="external">[['..link..'|'..val..']]</span>'
end
return returnVal
end
local function createRow( id, label, rawValue, link, withUid )
if link then
local outStr = '*<span style="white-space:nowrap;">'..label..' <span'
if withUid then outStr = outStr..' class="uid"' end
return outStr..'>'..link..'</span></span>\n'
else
return '* '..mw.text.tag('span', {class='error'}, 'The identifier '..id..' '..rawValue..' is not valid.')..'\n'
end
end
local function copyTable(inTable)
if type(inTable) ~= 'table' then return inTable end
local outTable = setmetatable({}, getmetatable(inTable))
for key, value in pairs (inTable) do
if string.sub( key, 1, 3 ) == 'qid' then
local newkey = string.gsub( key, 'qid', 'from')
mw.addWarning(key.."="..value.." (newkey="..newkey..")")
outTable[copyTable(newkey)] = copyTable(value)
else
outTable[copyTable(key)] = copyTable(value)
end
end
outTable['from2']='Q17276457'
return outTable
end
local p = {}
--[[==========================================================================]]
--[[ Main ]]
--[[==========================================================================]]
function p.authorityControlTaxon( frame )
local resolveEntity = require( 'Module:ResolveEntityId' )
local whitelist = require( 'Module:Taxonbar/whitelist' ).whitelist --to create acceptableInstanceOf_Strict & acceptableInstanceOf_All
local parentArgs = copyTable(frame:getParent().args)
local currentTitle = mw.title.getCurrentTitle()
local currentEntityId = mw.wikibase.getEntityIdForCurrentPage()
local stringArgs = false
local fromTitleCount, firstRow, rowCount = 1, 0, 0
local outString, errors = '', ''
local iFroms = 0 --integer size of tFroms, b/c Lua
local tFroms = {} --non-sequential table of unique froms
local tCats = {
'[[Category:Taxonbars without from parameter]]',
'[[Category:Taxonbars desynced from Wikidata]]',
'', -- [3] placeholder for [[Category:Taxonbar pages requiring a Wikidata item]]
'', -- [4] placeholder for [[Category:Taxonbars on possible non-taxon pages]]
'', -- [5] placeholder for [[Category:Taxonbars with invalid from parameters]]
'', -- [6] placeholder for [[Category:Taxonbars with duplicate from parameters]]
'', -- [7] placeholder for [[Category:Taxonbars with from2 matching article title]]
'', -- [8] placeholder for [[Category:Taxonbars with from2 matching article title & QID]]
'', -- [9] placeholder for [[Category:Taxonbars with manual taxon IDs]]
'', --[10] placeholder for [[Category:Taxonbars with manual taxon IDs identical to Wikidata]]
'', --[11] placeholder for [[Category:Taxonbars with manual taxon IDs differing from Wikidata]]
'', --[12] placeholder for [[Category:Taxonbars with unknown parameters]]
'', --[13] placeholder for [[Category:Taxonbars with unnamed parameters]]
'', --[14] placeholder for [[Category:Taxonbars with multiple manual Wikidata items]]
'', --[15] placeholder for [[Category:Taxonbars with automatically added basionyms]]
'', --[16] placeholder for [[Category:Taxonbars with automatically added original combinations]]
'', --[17] placeholder for [[Category:Taxonbars with automatically added monotypic species]]
'', --[18] placeholder for [[Category:Taxonbars with automatically added monotypic genera]]
'', --[19] placeholder for [[Category:Taxonbars of monotypic species missing genera]]
'', --[20] placeholder for [[Category:Taxonbars of monotypic genera missing species]]
'', --[21] placeholder for [[Category:Taxonbars without primary Wikidata taxon IDs]]
'', --[22] placeholder for [[Category:Taxonbars without secondary Wikidata taxon IDs]]
'', --[23] placeholder for [[Category:Taxonbars with 20–24 taxon IDs]]
'', --[24] placeholder for [[Category:Taxonbars with 25–29 taxon IDs]]
'', --[25] placeholder for [[Category:Taxonbars with 30–34 taxon IDs]]
'', --[26] placeholder for [[Category:Taxonbars with 35–39 taxon IDs]]
'', --[27] placeholder for [[Category:Taxonbars with 40–44 taxon IDs]]
'', --[28] placeholder for [[Category:Taxonbars with 45+ taxon IDs]]
}
local acceptableInstanceOf_Strict = whitelist{ args = { 'strict' } }
local acceptableInstanceOf_All = whitelist{ args = { 'all' } }
--Assess the page's relationship with Wikidata
local currentItem = nil
if currentTitle.namespace == 10 then --i.e. Module:Taxonbar/sandbox, Template:Taxonbar/doc, etc.
if resolveEntity._id(parentArgs['from']) then
currentItem = mw.wikibase.getEntity(parentArgs['from'])
end
if currentItem == nil then
if resolveEntity._id(parentArgs['from1']) then
currentItem = mw.wikibase.getEntity(parentArgs['from1'])
end
end
elseif resolveEntity._id(currentEntityId) then
currentItem = mw.wikibase.getEntity(currentEntityId)
else --currentEntityId == nil/unresolvable
tCats[3] = '[[Category:Taxonbar pages requiring a Wikidata item]]'
end
if currentItem then
tCats[4] = '[[Category:Taxonbars on possible non-taxon pages]]' --unset if acceptable found
for _, instanceOfState in pairs ( currentItem:getBestStatements('P31') ) do --instance of
local instanceOf = instanceOfState.mainsnak.datavalue.value.id
if acceptableInstanceOf_All[instanceOf] then
tCats[4] = ''
break
end
end
end
--Cleanup args
for k, v in pairs( frame:getParent().args ) do
if type(k) == 'string' then
--make args case insensitive
local lowerk = mw.ustring.lower(k)
if isNilOrEmpty( parentArgs[lowerk] ) then
parentArgs[k] = nil
parentArgs[lowerk] = v
end
--remap abc to abc1
if mw.ustring.find(lowerk,'%d$') == nil then --if no number at end of param
if isNilOrEmpty( parentArgs[lowerk..'1'] ) then
parentArgs[lowerk] = nil
lowerk = lowerk..'1'
parentArgs[lowerk] = v
end
end
if v and v ~= '' then
--remap 'for' to 'title'
if mw.ustring.sub(lowerk,1,3) == 'for' then
local forTitle = mw.ustring.gsub(lowerk,'^for','title',1)
if isNilOrEmpty( parentArgs[forTitle] ) then
parentArgs[lowerk] = nil
lowerk = forTitle
parentArgs[lowerk] = v
end
end
--find highest from or title param
if mw.ustring.sub(lowerk,1,4) == 'from' then
local fromNumber = tonumber(mw.ustring.sub(lowerk,5,-1))
if fromNumber and fromNumber >= fromTitleCount then fromTitleCount = fromNumber end
--look for duplicate froms while we're here
if mw.ustring.find(v, '^Q%d') then
if tFroms[v] then
tCats[6] = '[[Category:Taxonbars with duplicate from parameters]]'
tFroms[v] = tFroms[v] + 1
else
tFroms[v] = 1
iFroms = iFroms + 1
end
if iFroms == 2 then
tCats[14] = '[[Category:Taxonbars with multiple manual Wikidata items]]'
end
end
elseif mw.ustring.sub(lowerk,1,5) == 'title' then
local titleNumber = tonumber(mw.ustring.sub(lowerk,4,-1))
if titleNumber and titleNumber >= fromTitleCount then fromTitleCount = titleNumber end
elseif mw.ustring.lower(v) ~= 'no' and mw.ustring.lower(v) ~= 'yes' then
stringArgs = true
tCats[9] = '[[Category:Taxonbars with manual taxon IDs]]'
end
end
end --if type(k) == 'string'
end --for
--Check for unknown parameters
--create knowns list
--local acceptableArgs = { from = true, } --master list of l/c acceptable args
local acceptableArgs = { from = true, format=true} --master list of l/c acceptable args (adding format for alternative outputs)
for _, d in pairs( conf.databases ) do
if d[1] ~= 'Wikidata' then --made obsolete by from
acceptableArgs[mw.ustring.lower(d[1])] = true
end
end
for _, a in pairs( conf.aliases ) do
acceptableArgs[mw.ustring.lower(a[1])] = true
end
--create trimmed parents list
local baseParentArgs = {} --condensed list of l/c parent args w/o trailing #s
for k, _ in pairs( parentArgs ) do
if type(k) == 'string' then
local lowerk = mw.ustring.lower(k)
local base = mw.ustring.gsub(lowerk, '[%d]*$', '')
baseParentArgs[base] = true
elseif type(k) == 'number' then
tCats[13] = '[[Category:Taxonbars with unnamed parameters|'..k..']]'
end
end
--compare lists and spit out unknowns
local unknownParams = {}
for k, _ in pairs( baseParentArgs ) do
if acceptableArgs[k] == nil then
tCats[12] = '[[Category:Taxonbars with unknown parameters|'..k..']]'
unknownParams[#unknownParams + 1] = k
end
end
--warn if unknown(s) present
if #unknownParams > 0 then
local plural = 's'
local itthem = 'them'
if #unknownParams == 1 then
plural = ''
itthem = 'it'
end
errors = errors..require('Module:If preview')._warning({
mw.ustring.format(
'Unknown parameter%s <code>%s</code>. Please correct %s or consider adding %s to Wikidata.',
plural,
table.concat(unknownParams, '</code>, <code>'),
itthem,
itthem
)
})
end
--Append basionym to arg list, if not already provided
if currentItem then
local currentBasState = currentItem:getBestStatements('P566')[1] --basionym
if currentBasState then
local basionymId = currentBasState.mainsnak.datavalue.value.id
if basionymId and resolveEntity._id(basionymId) and tFroms[basionymId] == nil then
--check that basionym is a strict instance of taxon
local basionymItem = mw.wikibase.getEntity(basionymId)
if basionymItem then
for _, instanceOfState in pairs ( basionymItem:getBestStatements('P31') ) do --instance of
local instanceOf = instanceOfState.mainsnak.datavalue.value.id
if acceptableInstanceOf_Strict[instanceOf] then
--housekeeping
tFroms[basionymId] = 1
iFroms = iFroms + 1
fromTitleCount = fromTitleCount + 1
--append basionym & track
parentArgs['from'..fromTitleCount] = basionymId
tCats[15] = '[[Category:Taxonbars with automatically added basionyms]]'
break
end end end end end end
--Append original combination to arg list, if not already provided
if currentItem then
local currentOCState = currentItem:getBestStatements('P1403')[1] --original combination
if currentOCState then
local orcoId = currentOCState.mainsnak.datavalue.value.id
if orcoId and resolveEntity._id(orcoId) and tFroms[orcoId] == nil then
--check that orco is a strict instance of taxon
local orcoItem = mw.wikibase.getEntity(orcoId)
if orcoItem then
for _, instanceOfState in pairs ( orcoItem:getBestStatements('P31') ) do --instance of
local instanceOf = instanceOfState.mainsnak.datavalue.value.id
if acceptableInstanceOf_Strict[instanceOf] then
--housekeeping
tFroms[orcoId] = 1
iFroms = iFroms + 1
fromTitleCount = fromTitleCount + 1
--append orco & track
parentArgs['from'..fromTitleCount] = orcoId
tCats[16] = '[[Category:Taxonbars with automatically added original combinations]]'
break
end end end end end end
--Append monotypic genus/species to arg list of monotypic species/genus, if not already provided
if currentItem then
for _, instanceOfState in pairs ( currentItem:getBestStatements('P31') ) do --instance of
local taxonRank = nil
local parentItem = nil
local parentTaxon = nil
local parentTaxonRank = nil
local parentMonoGenus = nil --holy grail/tbd
local childItem = nil
local childTaxon = nil
local childTaxonRank = nil
local childMonoSpecies = nil --holy grail/tbd
local instanceOf = instanceOfState.mainsnak.datavalue.value.id
if instanceOf and (instanceOf == 'Q310890' or instanceOf == 'Q47487597') then --monotypic/fossil taxon
local taxonRankState = currentItem:getBestStatements('P105')[1] --taxon rank
if taxonRankState then taxonRank = taxonRankState.mainsnak.datavalue.value.id end
if taxonRank and taxonRank == 'Q7432' then --species
--is monotypic species; add genus
local parentTaxonState = currentItem:getBestStatements('P171')[1] --parent taxon
if parentTaxonState then parentTaxon = parentTaxonState.mainsnak.datavalue.value.id end
--confirm parent taxon rank == genus & monotypic
if parentTaxon and resolveEntity._id(parentTaxon) then
parentItem = mw.wikibase.getEntity(parentTaxon)
if parentItem then
local parentTaxonRankState = parentItem:getBestStatements('P105')[1] --taxon rank
if parentTaxonRankState then parentTaxonRank = parentTaxonRankState.mainsnak.datavalue.value.id end
if parentTaxonRank and parentTaxonRank == 'Q34740' then --parent == genus
for _, parentInstanceOfState in pairs ( parentItem:getBestStatements('P31') ) do --instance of
local parentInstanceOf = parentInstanceOfState.mainsnak.datavalue.value.id
if parentInstanceOf and
(parentInstanceOf == 'Q310890' or parentInstanceOf == 'Q47487597') then --monotypic/fossil taxon
parentMonoGenus = parentTaxon --confirmed
break
end
end
if parentMonoGenus and tFroms[parentMonoGenus] == nil then
--housekeeping
tFroms[parentMonoGenus] = 1
iFroms = iFroms + 1
fromTitleCount = fromTitleCount + 1
--append monotypic genus & track
parentArgs['from'..fromTitleCount] = parentMonoGenus
tCats[18] = '[[Category:Taxonbars with automatically added monotypic genera]]'
break
end end end end
if parentMonoGenus == nil or tFroms[parentMonoGenus] == nil then
tCats[19] = '[[Category:Taxonbars of monotypic species missing genera]]'
break
end
elseif taxonRank and taxonRank == 'Q34740' then --genus
--is monotypic genus; add species
--(https://www.wikidata.org/wiki/Wikidata:Property_proposal/child_monotypic_taxon unnecessary thanks to P427!)
local childTaxonState = currentItem:getBestStatements('P427')[1] --taxonomic type
if childTaxonState then childTaxon = childTaxonState.mainsnak.datavalue.value.id end
--confirm child taxon rank == species & monotypic
if childTaxon and resolveEntity._id(childTaxon) then
childItem = mw.wikibase.getEntity(childTaxon)
if childItem then
local childTaxonRankState = childItem:getBestStatements('P105')[1] --taxon rank
if childTaxonRankState then childTaxonRank = childTaxonRankState.mainsnak.datavalue.value.id end
if childTaxonRank and childTaxonRank == 'Q7432' then --child == species
for _, childInstanceOfState in pairs ( childItem:getBestStatements('P31') ) do --instance of
local childInstanceOf = childInstanceOfState.mainsnak.datavalue.value.id
if childInstanceOf and
(childInstanceOf == 'Q310890' or childInstanceOf == 'Q47487597') then --monotypic/fossil taxon
childMonoSpecies = childTaxon --confirmed
break
end
end
if childMonoSpecies and tFroms[childMonoSpecies] == nil then
--housekeeping
tFroms[childMonoSpecies] = 1
iFroms = iFroms + 1
fromTitleCount = fromTitleCount + 1
--append monotypic species & track
parentArgs['from'..fromTitleCount] = childMonoSpecies
tCats[17] = '[[Category:Taxonbars with automatically added monotypic species]]'
break
end end end end
if childMonoSpecies == nil or tFroms[childMonoSpecies] == nil then
tCats[20] = '[[Category:Taxonbars of monotypic genera missing species]]'
break
end
end --monotype searches
end --monotype handling
end --for
end --if currentItem
--Setup navbox
local navboxParams = {
name = 'Taxonbar',
bodyclass = 'hlist',
listclass = '',
groupstyle = 'text-align: left;',
}
for f = 1, fromTitleCount, 1
do
local elements, title = {}, nil
--cleanup parameters
if parentArgs['from'..f] == '' then parentArgs['from'..f] = nil end
if parentArgs['title'..f] == '' then parentArgs['title'..f] = nil end
--remap aliases
for _, a in pairs( conf.aliases ) do
local alias, name = mw.ustring.lower(a[1]), mw.ustring.lower(a[2])
if parentArgs[alias..f] and parentArgs[name..f] == nil then
parentArgs[name..f] = parentArgs[alias..f]
parentArgs[alias..f] = nil
end
end
--Fetch Wikidata item
local from = resolveEntity._id(parentArgs['from'..f])
local item = mw.wikibase.getEntity(from)
local label = nil
if type(item) == 'table' then
local statements = item:getBestStatements('P225')[1] --taxon name
if statements then
local datavalue = statements.mainsnak.datavalue
if datavalue then
label = datavalue.value
end
end
label = label or item:getLabel()
else
if parentArgs['from'..f] then
tCats[1] = ''
tCats[5] = '[[Category:Taxonbars with invalid from parameters]]'
errors = errors..mw.text.tag('strong', {class='error'}, 'Error: "'..
parentArgs['from'..f]..'" is not a valid Wikidata entity ID.<br />')
end
end
if label and label ~= '' then
title = mw.title.new(label)
end
if title == nil and parentArgs['title'..f] then
title = mw.title.new(parentArgs['title'..f])
end
if title == nil and f == 1 then
title = currentTitle
end
if title then
if isNilOrEmpty( parentArgs['wikidata'..f] ) and
(title.namespace == 0) then
if parentArgs['from'..f] then
parentArgs['wikidata'..f] = parentArgs['from'..f]
elseif item then
parentArgs['wikidata'..f] = item.id
end
end
if title.namespace == 0 or stringArgs then --only in mainspace or if manual overrides exist
local sourceCount = 0
for _, params in pairs( conf.databases ) do
params[1] = mw.ustring.lower(params[1])
local propId = params[3]
--Wikidata fallback if requested
if (item and item.claims) and
(type(propId) == 'string' or (type(propId) == 'number' and propId > 0)) then
local wikidataId = getIdFromWikidata( item, 'P'..propId )
local v = parentArgs[params[1]..f]
if wikidataId then
if isNilOrEmpty(v) then
parentArgs[params[1]..f] = wikidataId
else
if v and v ~= 'no' and v ~= wikidataId then
tCats[11] = '[[Category:Taxonbars with manual taxon IDs differing from Wikidata]]'
elseif v and v == wikidataId then
tCats[10] = '[[Category:Taxonbars with manual taxon IDs identical to Wikidata]]'
end
end
end
end
if (item and item.claims) and
( (type(propId) == 'number' and propId < 0)) then
local wikidataId = getIdFromWikidata( item, 'P'..-propId )
--mw.addWarning ("propId=" .. tostring(propId) .. "; wikidata=" .. tostring(wikidataId))
local v = parentArgs[params[1]..f]
if v == 'yes' then
if wikidataId then
parentArgs[params[1]..f] = wikidataId
else
parentArgs[params[1]..f] = nil -- don't want to use 'yes' as id
end
end
end
local val = parentArgs[params[1]..f]
if val and val ~= '' and mw.ustring.lower(val) ~= 'no' then
if type(propId) == 'number' then
if propId < 0 then propId = -propId end --allow link
if propId > 0 then --link
table.insert( elements, createRow( params[1], params[2]..':', val, getLink( propId, params[1], val ).text, true ) )
if params[1] == 'fossilworks' then -- fossilworks being use to link to PBDB
if (elements[#elements] == elements[#elements-1]) then -- check if identical PBDB entry already set
--mw.addWarning("item has both Fossilworks and PBDB identifers:" .. val)
elements[#elements] = nil
end
end
else --propId == 0; no link
table.insert( elements, createRow( params[1], params[2]..':', val, val, true ) )
end
else
table.insert( elements, createRow( params[1], params[2]..':', val, getLink( propId, params[1], val ).text, true ) )
end
if params[1] ~= 'wikidata' and params[1] ~= 'wikispecies' then
sourceCount = sourceCount + 1
end
end
end --for
if sourceCount >= 45 then tCats[28] = '[[Category:Taxonbars with 45+ taxon IDs]]'
elseif sourceCount >= 40 then tCats[27] = '[[Category:Taxonbars with 40–44 taxon IDs]]' --endashes
elseif sourceCount >= 35 then tCats[26] = '[[Category:Taxonbars with 35–39 taxon IDs]]'
elseif sourceCount >= 30 then tCats[25] = '[[Category:Taxonbars with 30–34 taxon IDs]]'
elseif sourceCount >= 25 then tCats[24] = '[[Category:Taxonbars with 25–29 taxon IDs]]'
elseif sourceCount >= 20 then tCats[23] = '[[Category:Taxonbars with 20–24 taxon IDs]]'
end
--Generate navbox title
if sourceCount > 0 then
rowCount = rowCount + 1
if firstRow == 0 then firstRow = f end
--set title from wikidata if it doesn't exist
if isNilOrEmpty( parentArgs['title'..f] ) then
parentArgs['noTitle'..f] = true
parentArgs['title'..f] = title.text
end
--if it exists now, set row heading to title
if not isNilOrEmpty( parentArgs['title'..f] ) then
navboxParams['group'..f] = TaxonItalics.italicizeTaxonName(parentArgs['title'..f], false)
else
navboxParams['group'..f] = ''
end
navboxParams['list'..f] = table.concat( elements )
elseif currentEntityId and (currentEntityId == parentArgs['from'..f] or fromTitleCount == 1) then
tCats[21] = '[[Category:Taxonbars without primary Wikidata taxon IDs]]'
else
tCats[22] = '[[Category:Taxonbars without secondary Wikidata taxon IDs]]'
end
--Categorize
if not isNilOrEmpty( parentArgs['from'..f] ) then
tCats[1] = '' --blank "missing from" if 'from' exists
if parentArgs['from'..f] == currentEntityId then
tCats[2] = '' --blank "desynced" if 'from' matches current page
end
end
if tCats[1] ~= '' then
tCats[2] = '' --cannot be "desynced" if no 'from' params
end
end --if title.namespace == 0 or stringArgs
end --if title
-- BEGIN test sitelinks
if frame:getParent().args.sitelinks then
local siteLinks = item.sitelinks
if siteLinks then
local langlinks = {}
local output = "output: "
for i,v in pairs (siteLinks) do -- handle wikispecies and commons first
if string.match( v.site, "specieswiki") or string.match( v.site, "commonswiki") then
output = output .. " | " .. v.site .. ": [[:" .. string.gsub( v.site, "wiki", "") .. ":" .. v.title .. "]]"
table.insert( langlinks, "\n* " .. v.site .. ": [[:" .. string.gsub( v.site, "wiki", "") .. ":" .. v.title .. "]]")
end
end
for i,v in pairs (siteLinks) do
if 1==2 then -- suppress the non-language wiki matches below
elseif string.match( v.site, "species") then --output = output .. "| SPECIES"
elseif string.match( v.site, "commons") then --output = output .. "| COMMONS"
elseif string.match( v.site, "news") then --output = output .. "| NEWS" -- also ruwikinews, etc
elseif string.match( v.site, "quote") then --output = output .. "| QUOTE" -- also ruwikiquote, plwikiquote, etc
elseif string.match( v.site, "source") then --output = output .. "| SOURCE" -- also sawikisource
else -- only use language wikipedias
output = output .. " | " .. v.site .. ": [[:" .. string.gsub( v.site, "wiki", "") .. ":" .. v.title .. "]]"
table.insert( langlinks, "\n* " .. v.site .. ": [[:" .. string.gsub( v.site, "wiki", "") .. ":" .. v.title .. "]]")
end
end
--mw.addWarning( table.concat( langlinks ) )
navboxParams['list1'] = table.concat( langlinks )
end
end
-- END test sitelinks
end --for f = 1, fromTitleCount, 1
if rowCount > 0 then
local Navbox = require('Module:Navbox')
if rowCount > 1 then
--remove duplicates and don't bother moving page title to top
local rowIDs = {}
for f = 1, fromTitleCount, 1
do
if not isNilOrEmpty( parentArgs['title'..f] ) then
if rowIDs[parentArgs['wikidata'..f]] then --remove duplicate
navboxParams['group'..f] = nil
navboxParams['list'..f] = nil
else
rowIDs[parentArgs['wikidata'..f]] = true
end
end
end
if parentArgs['title'..2] and parentArgs['title'..2] == currentTitle.text then
if currentItem and parentArgs['from'..2] == currentItem['id'] then
tCats[8] = '[[Category:Taxonbars with from2 matching article title & QID]]'
else
tCats[7] = '[[Category:Taxonbars with from2 matching article title]]'
end
end
--adjust navbox for number of rows
navboxParams['title'] = '[[Help:Taxon identifiers|Taxon identifiers]]'
if rowCount >= 4 then
navboxParams['navbar'] = 'plain'
else
navboxParams['state'] = 'off'
navboxParams['navbar'] = 'off'
end
elseif parentArgs['noTitle'..firstRow] then --show title & taxon for 1-row taxonbars, per talk
--BEGIN sitelist test
if frame:getParent().args.sitelinks then -- if using test sitelinks output
--navboxParams['group'..firstRow] = 'Interlanguage links'
navboxParams['title'] = 'Interlanguage links'
navboxParams['state'] = 'off'
navboxParams['navbar'] = 'off'
else --END sitelist test code
--navboxParams['group'..firstRow] = '[[Help:Taxon identifiers|Taxon identifiers]]' --old version
navboxParams['title'] = '[[Help:Taxon identifiers|Taxon identifiers]]'
navboxParams['state'] = 'off'
navboxParams['navbar'] = 'off'
end
else
navboxParams['group'..firstRow] = '[[Help:Taxon identifiers|Taxon identifiers]]<br />'..navboxParams['group'..firstRow]
end
-- return alternative output if format set to valid value
if parentArgs.format then
local alternativeOutput = p.alternativeOutputs (frame, parentArgs, navboxParams, fromTitleCount)
if alternativeOutput then
return alternativeOutput -- return the alternative output and done
end
end -- otherwusee proceed as normal to navbox
--return navbox
outString = Navbox._navbox(navboxParams)
end --if rowCount > 0
--Add categories
if string.sub(currentTitle.subpageText,1,9) == 'testcases' then parentArgs['demo'] = true end
if not isNilOrEmpty( parentArgs['demo'] ) then
outString = outString..mw.text.nowiki(table.concat(tCats))..'<br />'
elseif currentTitle.namespace == 0 then
outString = outString..table.concat(tCats)
end
return outString..errors
end
--[[ experimental function to output identifier links without using Navbox
not using outstring and categories/errors
--]]
function p.alternativeOutputs (frame, parentArgs, navboxParams, fromTitleCount)
local output = ""
local format = parentArgs.format
for f = 1, fromTitleCount, 1 do
if format == "collapsible" then
output = output .. frame:expandTemplate{title="Collapsible list", args= {title=navboxParams["group"..f], [f]="\n" .. navboxParams['list'..f]}}
elseif format == "efn" then
local styles = frame:extensionTag{name = 'templatestyles', args = { src = 'Template:Hlist/styles.css' } }
output = output .. frame:expandTemplate{title="efn",args={ styles .. navboxParams["group"..f] .. ":<div class='hlist inline'>\n" .. navboxParams["list"..f] .. '</div>'}}
elseif format == "ref" then
local styles = frame:extensionTag{name = 'templatestyles', args = { src = 'Template:Hlist/styles.css' } }
local groupname = parentArgs.group or ""
output = output .. frame:extensionTag { name="ref", content = styles .. navboxParams["group"..f] .. ":<div class='hlist inline'>\n" .. navboxParams["list"..f] .. '</div>' , args = { group = groupname } }
elseif format == "list-horizontal" then
--local styles = frame:extensionTag{name = 'templatestyles', args = { src = 'Template:Hlist/styles.css' } }
output = output .. navboxParams["group"..f] .. ':<div class="hlist inline">\n' .. navboxParams["list"..f] .. '</div>'
elseif format == "raw" then
output = output .. "\n"..navboxParams["list"..f]
elseif format == "list" then
output = output .. frame:expandTemplate{title="collapsable list",args= { framestyle = "width:40em;", title="Taxon identifiers for " .. navboxParams["group"..f], [f]= "\n"..navboxParams["list"..f] } }
elseif format == "list-h" then
output = output .. frame:expandTemplate{title="collapsable list",args= { expand='true', framestyle = "", title=navboxParams["group"..f], '<div style="display:inline;" class="hlist inline">\n' .. navboxParams["list"..f] .. '</div>' } }
elseif format == "hidden" then -- doesn't work in mobile
output = output .. frame:expandTemplate{title="hidden",args= { style = "width:25em;", header = "Taxon identifiers", [2]= navboxParams["list"..f] } }
elseif format == "pseudo-taxonbar" then
--local styles = frame:extensionTag{name = 'templatestyles', args = { src = 'Template:Hlist/styles.css' } }
output = output .. '<tr><th class="navbox-group" style="width:100px; text-align: left;">' .. navboxParams["group"..f] .. '</th>'
.. '<td style="text-align:left;><div class="hlist inline">\n' .. navboxParams["list"..f] .. '</div></td></tr>'
elseif format == "grid-taxonbar" then
output = output .. '<div class="taxonbar-group" style="">' -- using templatestyles
.. navboxParams["group"..f] .. '</div>'
.. '<div class="hlist inline taxonbar-list" style="text-align:left;margin:2px 1px;background-color:rgb(247, 247, 247);" >\n' .. navboxParams["list"..f] .. '</div>'
--- backgrond colors: odd= rgb(253, 253, 253) even=rgb(247, 247, 247)
else
return false -- if no valid format
end
end
-- now box the pseudo-taxonbar
if format == "pseudo-taxonbar" then -- first step prototype for non-navbox taxonbar
local box = '<div class="xnavbox" style="clear:both;font-size: 88%;padding:1px;margin:1em 0; border: 1px solid rgb(162, 169, 177);">'
box = box .. '<table style="margin:0"><tr><th class="navbox-title" colspan="2" style="margin:0;">'
..'<div id="Taxon_identifiers" style="font-size:114%;margin:0 4em">'
.. '[[Help:Taxon_identifiers|Taxon identifiers]]'
.. '</div></th></tr>'
output = box .. output .. '</table></div>'
end
if format == "grid-taxonbar" then
local box = '<div class="taxonbar" style="" >'
box = box .. '<div class="taxonbar-title" styleXXX="margin:0;">'
.. '<div id="Taxon_identifiers" style="">' --
.. '[[Help:Taxon_identifiers|Taxon identifiers]]'
.. '</div></div>'
.. '<div class="taxonbar-grid" styleXX="display:grid;grid-template-columns: auto auto;">'
output = box .. output .. '</div></div>'
end
return output .. frame:extensionTag('templatestyles', '', { src="Module:Taxonbar/styles.css" })
end
function p.taxonbar(frame) return p.authorityControlTaxon( frame:newChild{title = frame:getTitle()} ) end
return p