پودمان:Taxonbar

صفحه اصلی: الگو:Taxonbar

This module contains the code of {{Taxonbar}}. To use Taxonbar, follow instructions at الگو:Taxonbar/توضیحات.

پیکربندی

Parameters and databases are set by پودمان:Taxonbar/conf.

استفاده

{{#invoke:Taxonbar|function_name}}

At this time we request this module/template not be implemented on taxon pages until links are cleaned up and the module fulfills the needs of the community. Parameters will be added with time in Module:Taxonbar/conf. The goal is to eventually update and implement this Lua code to replace the existing {{Taxonbar}} template.

For testcases use: {{Taxonbar/sandbox2 | from=QID}} View testcases at الگو:Taxonbar/testcases2

Taxon Example:

Scarlet macaw (Ara macao)

{{Taxonbar/sandbox2 | from=Q243761}}

Result:

Testcases

نوشتار(های) وابسته: الگو:Taxonbar/testcases2

Rhododendron maximum Asclepias syriaca هلو (Prunus persica) شیر کوهی (سرده) سگ (Canis lupus familiaris) کبودمرغ شرقی (Sialia sialis) زنبور عسل (Apis) زنبور عسل اروپایی (Apis mellifera) Clipper butterfly (Parthenos sylvia) Turkey tail (ورسیکالر) Button/portobello mushroom (Agaricus bisporus)

Wikidata taxon identifiers

Parameter	Database	Property ID
APDB	APDB	p2036
AlgeaBase	AlgaeBase	p1348
Araneae	Araneae	p2594
ARKive	ARKive	p2833
Avibase	Avibase	p2026
BacDive	BacDive	p2946
BHL	BHL	p287
BioLib	BioLib	p838
BugGuide	BugGuide	p2464
ButMoth	ButMoth	p3060
Conifers	Conifers.org	1940
eBird	eBird	p3444
EoL	EoL	p830
EPPO	EPPO	p3031
FaunaEuropaea	Fauna Europaea	p1895
FishBase	پایگاه داده ماهی	p938
FloraBase	FloraBase	p3101
Fossilworks	Fossilworks	p842
FNA	FNA	p1727
FoAO	FoAO	p3100
FoC	FoC	p1747
Fungorum	Fungorum	p1391
GBIF	GBIF	p846
GrassBase	GrassBase	p1832
GRIN	GRIN	p1421
IBC	IBC	p3099
ICTV	ICTV	p1076
iNaturalist	iNaturalist	p3151
IPNI	IPNI	p961
IPNI2	IPNI author	p586
ITIS	ITIS	p815
IUCN	IUCN	p227
LepIndex	LepIndex	p3064
LPSN	LPSN	p1991
MSW	MSW	p956
MycoBank	MycoBank	p962
NBN	NBN	p3240
NCBI	NCBI	p685
Panartic	Panartic Flora	p2434
Plantarium	Plantarium	p3102
PlantList	Plant List	p1070
PLANTS	PLANTS	p1772
Plazi	Plazi	p1992
Species+	Species+	p2040
SPRAT	SPRAT	p2455
Tropicos	Tropicos	p960
USDAPLANTS	PLANTS	p1772
VASCAN	VASCAN	p1745
Watson	Watson & Dallwitz	p1761
WCSP	WCSP	p3591
WoRMS	WoRMS	p850
WSC	WSC	p3288
Xeno-canto	Xeno-canto	p2426
ZooBank	ZooBank	p1746

Parameter	Database	Property URL/Interwiki link
eMonocot	eMonocot	http://e-monocot.org/taxon/urn:kew.org:wcs:taxon:$1
emonocotfamily	eMonocot	http://e-monocot.org/taxon/urn:kew.org:wcs:family:$1
uBio	uBio	http://www.ubio.org/browser/details.php?namebankID=$1
WSC species	World Spider Catalog	http://www.wsc.nmbe.ch/search?sFamily=&fMt=begin&sGenus=&gMt=begin&sSpecies=&sMt=begin&mMt=exact&multiPurpose=slsid&sMulti=$1
WSC genus	World Spider Catalog	http://www.wsc.nmbe.ch/search?sFamily=&fMt=begin&sGenus=&gMt=begin&sSpecies=&sMt=begin&mMt=exact&multiPurpose=glsid&sMulti=$1
WSC family	World Spider Catalog	http://www.wsc.nmbe.ch/search?sFamily=&fMt=begin&sGenus=&gMt=begin&sSpecies=&sMt=begin&mMt=exact&multiPurpose=flsid&sMulti=$1
Wikispecies	ویکی‌گونه	Wikispecies:$1

Module editing — to-do list

• Improve documentation
• Add parameters to remove individual identifiers from taxonbar. This could help the box from becoming two lines when one line is desired. Can be suppressed by setting equal to no (e.g. |eol=no). Should we suppress if set to blank (e.g. |eol=)?
• Pull the formatter URLs from Wikidata.
• Add ability to add identifiers not listed on Wikidata.
• Add support for from= to show taxonbox as an example on pages without data, such as template documentation and userpages.
• Hide taxonbar if empty.
• Add support for parameters currently supported by {{Taxonbar}}. Someone want to double-check Module:Taxonbar/conf that we got them all?
  • See {{Taxonbar/testcases}}.
    • Add support for entering missing data with listed parameters above. Add documentation.
    • Add support for wcsp= Add documentation.
    • Add support for namebank= aka uBio Add documentation?
    • Add support for emonocot= Add documentation.
    • Add support for others=?
    • Disable certain non research-grade databases by default? EOL?
    • Add support for grin and grinurl= Add documentation that a URL must be entered for GRIN rather than ID.
• Add tracking for entries not on Wikidata. Suggest differences be resolved.

جستارهای وابسته

• {{Taxonbar}} الگوی اصلی.
• Template_talk:Taxonbar, Taxonbar discussion.
• پودمان:Authority control.
• gl:Módulo:Taxonbar, original code source for this template.

---

require('Module:No globals')

local conf = require( "Module:Taxonbar/conf" )

local function getIdsFromWikidata( item, property )
	local ids = {}
	if not item.claims[property] then
		return ids
	end
	for _, statement in pairs( item.claims[property] ) do
		if statement.mainsnak.datavalue then
			table.insert( ids, statement.mainsnak.datavalue.value )
		end
	end
	return ids
end

local function getLink( property, val )
	local link = ''
	if mw.ustring.lower(mw.ustring.sub(val, 1, 4)) == 'http' then
		link = val
		val = mw.ustring.match(val, '.*=(.-)$') or val
	else
		if type(property) == 'number' then
			link = mw.wikibase.getEntityObject('P'..property).claims.P1630[1].mainsnak.datavalue.value
		elseif type(property) == 'string' then
			link = property
		end
		link = mw.ustring.gsub(link, '$1', val)
	end
	link = mw.ustring.gsub(link, '^[Hh][Tt][Tt][Pp]([Ss]?)://', 'http%1://')
	if mw.ustring.find( link, '//' ) then 
		return '['..link..' '..val..']'
	else
		return '<span class="external">[['..link..'|'..val..']]</span>'
	end
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 '* <span class="error">The identifier ' .. id .. ' ' .. rawValue .. ' is not valid.</span>\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 outTable[copyTable(key)] = copyTable(value) end
	return outTable
end

local p = {}

function p.authorityControlTaxon( frame )
	local parentArgs = frame:getParent().args
	local stringArgs = false
	--Make args case insensitive
	local tempArgs = copyTable(parentArgs)
	for para, value in pairs( tempArgs ) do
		if type(para) == 'string' then
			local lpara = mw.ustring.lower(para)
			if not parentArgs[lpara] or parentArgs[lpara] == '' then
				parentArgs[lpara] = value
				parentArgs[para] = nil
			end
			if value and value ~= '' and lpara ~= 'from' then stringArgs = true end
		end
	end
	--remap aliases
	for _, a in pairs( conf.aliases ) do
		local k, v = mw.ustring.lower(a[1]), mw.ustring.lower(a[2])
		if parentArgs[k] and not parentArgs[v] then
			parentArgs[v] = parentArgs[k]
			parentArgs[k] = nil
		end
	end
	--Create rows
	local elements, title = {}, {}
	local item = mw.wikibase.getEntityObject(parentArgs['from'])
	if parentArgs['from'] ~= nil then title = mw.title.new(item:getLabel()) else
		title = mw.title.getCurrentTitle()
		if not parentArgs['wikidata'] or not parentArgs['wikidata'] == '' then parentArgs['wikidata'] = mw.wikibase.getEntityIdForCurrentPage() end
	end
	if title.namespace == 0 or stringArgs then --Only in the main namespace or if there are manual overrides
		--local rct = 0
		for _, params in pairs( conf.databases ) do
			params[1] = mw.ustring.lower(params[1])
			--Wikidata fallback if requested
			if (item ~= nil and item.claims ~= nil) and params[3] ~= 0 and (not parentArgs[params[1]] or parentArgs[params[1]] == '') then
				local wikidataIds = getIdsFromWikidata( item, 'P' .. params[3] )
				if wikidataIds[1] then
					parentArgs[params[1]] = wikidataIds[1]
				end
			end
			local val = parentArgs[params[1]]
			if val and val ~= '' and mw.ustring.lower(val) ~= 'no' then
				table.insert( elements, createRow( params[1], params[2] .. ':', val, getLink( params[3], val ), true ) )
				--rct = rct + 1
			end
		end
		
		local Navbox = require('Module:Navbox')
		--local elementscats = ''
		--if rct > 13 then
		--	elementscats  = '[[Category:AC with ' .. rct .. ' elements]]'
		--end
	
		if #elements ~= 0 then
			return Navbox._navbox( {
				name  = 'Taxonbar',
				bodyclass = 'hlist',
				listclass = '',
				group1 = '[[Help:Taxon identifiers|Taxon Identifiers]]', --.. elementscats,
				list1 = table.concat( elements )
				} )
		else
			return ""
		end
	end
end

return p

This module "Taxonbar" is from Wikipedia if otherwise notified