Module:Taxon authority

local p = {} -- exposed functions local l = {} -- local functions

local botanicalAuthorites = require( "Module:Taxon_authority/data" ).botanicalAuthorites -- get list from submodule local names = { ["L."]     = "Carl Linnaeus", ["Schldl."] = "Diederich Franz Leonhard von Schlechtendal", ["Cham."]  = "Adelbert von Chamisso", } ---   main entry point p.main = function(frame) local option = mw.getCurrentFrame:getParent.args['option'] if option == "wikidata" then return p.misc(frame) else return p.linkBotanicalAuthorites(frame:getParent.args[1]) end end

-- -		function to adds wikilinks for valid botanical authorities   	this version uses the keyed table at the top of this module    	the name in the key needs to be escaped for the lua expression wildcard "." p.linkBotanicalAuthorites = function(name) if names[name] then name = l.wikilinkName(names[name], name) -- if the passed authority matches a single authority name else for k, v in pairs( names ) do	    	                                          -- if the passed authority contains the authority name if string.find( name, k, 1, false) then     -- plain=true as  don't want to treat. as wildcard

name = string.gsub( name, l.escape(k), l.wikilinkName(v,k) ) -- is the wildcard. a potential problem? end end end return ' ' .. name .. ' ' end -- --		function to adds wikilinks for valid botanical authorities   	- this version uses simple unkeyed table in the data submodule (Module:Taxon authority/data)        - note: for some reason, the wild card "." doesn't need to be escaped p.linkBotanicalAuthorites2 = function(frame) local name = mw.getCurrentFrame:getParent.args[1] for k, v in pairs( botanicalAuthorites ) do    	if name == v[1] then                     -- if the passed authority matches a single authority name name = l.wikilinkName(v[2],v[1]) else                                    -- if the passed authority contains the authority name if string.find( name, v[1], 1, true) then  -- don't want to treat. as wildcard name = string.gsub( name, v[1], l.wikilinkName(v[2],v[1]) ) end end end return ' ' .. name .. ' ' end --		function to add wikilink to formal authority names l.wikilinkName = function(targetPage, displayedName) return  .. displayedName ..  end -- --		function to escape the lua expression wildcardd "." in the authority names (e.g. "L.") l.escape = function(str) if string.find( str, ".", 1, false) then -- need to esc the. local s = mw.text.split( str, "%.", plain ) return s[1] .. "%." .. s[2]               -- escaped version of string end return str -- unaltered str end

---          general purpose function to experiment with wikidata etc p.misc = function (frame) local output = "" --get arguments from calling templates local parent = mw.getCurrentFrame:getParent local name = parent.args[1] -- first check the module list --p.linkBotanicalAuthorites2(frame)

-- if name not found so try wikidata if output == "" then local wdName, err = l.getBotanicalAuthorityFromWikiData(name) if not err then --output = wdName output =  .. wdName ..  else output = l.errmsg("wikidata item not found")       -- return error message output = name                                      -- return unlinked name end end return ' ' .. output .. ' ' end

l.errmsg = function(text) return ' ' .. text .. ' ' end l.getBotanicalAuthorityFromWikiData=function(name) if (2==1) then return "" end

local WikidataId = mw.wikibase.getEntityIdForTitle(name)

if not (WikidataId and mw.wikibase.isValidEntityId( WikidataId )) then local titleObj = mw.title.new( name ).redirectTarget if titleObj and titleObj.text ~= nil then name = titleObj.text end WikidataId = mw.wikibase.getEntityIdForTitle(name) end

if WikidataId and mw.wikibase.isValidEntityId( WikidataId ) then -- valid wikidata id   	local value = "authority not found" local item = mw.wikibase.getEntity(WikidataId) local statements = item:getBestStatements('P428')[1] --botany authority if statements ~= nil then -- value = statements.mainsnak.datavalue.value end return value end --return l.errmsg("wikidata item not found for " .. name), true -- return error message return name, true                                        -- return unlinked name, true to indicate error end

return p