WikiDwarf at 15:00, 9 July 2021

2021-07-09T15:00:12Z

@@ Line 17: / Line 17: @@
 			return ''
 		end
 				if currentItem then --currentItem should not be nil here, but check just in case
 			--determine if {{Taxonbar}} is *possibly* missing, or *definitely* missing
 			local acceptableInstanceOf_All = { --copied from [[Module:Taxonbar]]

WikiDwarf: Created page with "local p = {} function p.check(frame) local taxonbarExists = require('Module:Taxonbar/exists').check if taxonbarExists(frame) then return '' else local resolveEntity =..."

2021-07-09T14:50:23Z

Created page with "local p = {} function p.check(frame) local taxonbarExists = require('Module:Taxonbar/exists').check if taxonbarExists(frame) then return '' else local resolveEntity =..."

New page

local p = {}

function p.check(frame)
local taxonbarExists = require('Module:Taxonbar/exists').check
if taxonbarExists(frame) then
return ''
else
local resolveEntity = require( 'Module:ResolveEntityId' )
local currentTitle = mw.title.getCurrentTitle()
local currentItem = nil
local categories = {
'[[Category:Taxobox articles possibly missing a taxonbar]]' --unset if acceptable or unacceptable found
}

--preliminary exclusion criteria
if string.match( currentTitle.text, '^List of ') then
return ''
end

--find Wikidata item
if currentTitle.namespace == 0 then --mainspace
local currentEntityId = mw.wikibase.getEntityIdForCurrentPage()
if resolveEntity._id(currentEntityId) then
currentItem = mw.wikibase.getEntity(currentEntityId)
else --currentEntityId == nil/unresolvable
return categories[1]
end
else
return ''
end

if currentItem then --currentItem should not be nil here, but check just in case
--determine if {{Taxonbar}} is *possibly* missing, or *definitely* missing
local acceptableInstanceOf_All = { --copied from [[Module:Taxonbar]]
['Q16521'] = 'taxon', --strict
['Q310890'] = 'monotypic taxon', --strict
['Q2568288'] = 'ichnotaxon', --strict
['Q23038290'] = 'fossil taxon', --strict
['Q47487597'] = 'monotypic fossil taxon', --strict
['Q42621'] = 'hybrid', --lax
['Q235536'] = 'incertae sedis', --lax
['Q713623'] = 'clade', --lax
['Q848328'] = 'serotype', --lax
['Q857968'] = 'candidatus', --lax
['Q17487588'] = 'unavailable combination', --lax
}
local unacceptableInstanceOf = {
['Q913170'] = 'trivial name',
['Q55983715'] = 'group of organisms known by one particular common name',
['Q937228'] = 'property',
['Q14712'] = 'drupe',
['Q163233'] = 'compound drupe',
['Q747463'] = 'compound fruit',
}

local acceptableCount = 0
local unacceptableCount = 0
for _, instanceOfState in pairs ( currentItem:getBestStatements('P31') ) do --instance of
local instanceOf = instanceOfState.mainsnak.datavalue.value.id
if acceptableInstanceOf_All[instanceOf] then
acceptableCount = acceptableCount + 1
elseif unacceptableInstanceOf[instanceOf] then
unacceptableCount = unacceptableCount + 1
end
end
for _, subclassOfState in pairs ( currentItem:getBestStatements('P279') ) do --subclass of
local subclassOf = subclassOfState.mainsnak.datavalue.value.id
if acceptableInstanceOf_All[subclassOf] then
acceptableCount = acceptableCount + 1
elseif unacceptableInstanceOf[subclassOf] then
unacceptableCount = unacceptableCount + 1
end
end

if acceptableCount > 0 then
categories[1] = ''
categories[2] = '[[Category:Taxobox articles missing a taxonbar]]'
elseif unacceptableCount > 0 then
categories[1] = ''
categories[2] = ''
end

return table.concat(categories)

else
return ''
end
end
end

return p

Module:Taxonbar/candidate - Revision history

WikiDwarf at 15:00, 9 July 2021

WikiDwarf: Created page with "local p = {} function p.check(frame) local taxonbarExists = require('Module:Taxonbar/exists').check if taxonbarExists(frame) then return '' else local resolveEntity =..."