Modul:Taxonbar/candidate

Dokumentacija modula

About

This template is designed to be called from {{Taxobox/core}} or a related template, and tracks pages which may be candidates for a {{Taxonbar}}.

If no {{Taxonbar}} exists on the transcluded page, the page's Wikidata item is checked against this whitelist of acceptable primerek od (P31)s/podpomenka od (P279)s, and this blacklist of unacceptable properties.

If an acceptable instance/subclass is found, then the page is categorized as:

• Kategorija:Taksonomski članki z manjkajočim taxonbar (1)

If no acceptables nor unacceptables are found, then it is categorized as:

• Kategorija:Taksonomski članki z verjetno manjkajočim taxonbar (0)

If no acceptables & at least 1 unacceptable is found, then no categorization is performed.

Usage

{{Taxonbar/candidate}}

Associated lists

Whitelist

1. takson (Q16521)
2. monotipski takson (Q310890)
3. monotipski fosilni takson (Q47487597)
4. ihnotakson (Q2568288)
5. fosilni takson (Q23038290)
6. ootakson (Q59278506)
7. izumrl takson (Q98961713)
8. parafiletska skupina (Q58051350)
9. križanec (Q42621)
10. incertae sedis (Q235536)
11. klad (Q713623)
12. serotip (Q848328)
13. Candidatus (Q857968)
14. nerazpoložljiva kombinacija (Q17487588)
15. taxon hypothesis (Q124477390)

Blacklist

1. trivialno ime (Q913170)
2. organizem, znan po določenem običajnem imenu (Q55983715)
3. lastnost (Q937228)
4. koščičasti plod (Q14712)
5. sestavljeni pečkati plod (Q163233)
6. sestavljeni plod (Q747463)

local p = {}

function p.check(frame)
	local taxonbarExists = require('Module:Taxonbar/exists').check
	if taxonbarExists(frame) == true then
		return ''
	else
		local resolveEntity = require( 'Module:ResolveEntityId' )
		local currentTitle = mw.title.getCurrentTitle()
		local currentItem = nil
		local categories = {
			'[[Kategorija:Taksonomski članki z verjetno manjkajočim 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 *definitely* missing, *possibly* missing, or not missing at all
			local whitelist = require( 'Module:Taxonbar/whitelist' ).whitelist
			local blacklist = require( 'Module:Taxonbar/blacklist' ).blacklist
			local acceptableInstanceOf_All = whitelist{ args = { 'all' } }
			local unacceptableInstanceOf = blacklist{ args = {} }
			
			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] = '[[Kategorija:Taksonomski članki z manjkajočim taxonbar]]'
			elseif unacceptableCount > 0 then
				categories[1] = ''
				categories[2] = ''
			end
			
			return table.concat(categories)
			
		else
			return ''
		end
	end
end

return p