Module:Authority control/auxiliary - Revision history

MSGJ: remove unnecessary spans and add some spacing

2024-08-27T06:19:50Z

remove unnecessary spans and add some spacing

← Previous revision		Revision as of 06:19, 27 August 2024
Line 83:		Line 83:
	return false		return false
	end		end
	for _,prefix in ipairs({'AT','AU','BE','CA','CH','DE','FI','FR','IT','KR','NZ','US','ZDB'}) do		for _, prefix in ipairs({'AT', 'AU', 'BE', 'CA', 'CH', 'DE', 'FI', 'FR', 'IT', 'KR', 'NZ', 'US', 'ZDB'}) do
	if id:match('^'..prefix..'%-') then		if id:match('^'..prefix..'%-') then
	return '~~<span class="uid">~~[https://w3id.org/isil/'..id..' ' .. (label or 'ISIL') .. ']~~</span>~~'		return '[https://w3id.org/isil/'..id..' ' .. (label or 'ISIL') .. ']'
	end		end
	end		end
	return '[[International Standard Identifier for Libraries and Related Organizations\|ISIL]]~~\n**<span~~ ~~class="uid">~~' .. id ~~.. '</span>'~~		return '[[International Standard Identifier for Libraries and Related Organizations\|ISIL]]: ' .. id
	end		end

Line 94:		Line 94:
	local id2 = id:match( '^[1-7]%-%d%d?%d?%d?%d?$' ) or id:match( '^[1-7]%-%d%d?%d?%d?%d?%.%d*[1-9]$' )		local id2 = id:match( '^[1-7]%-%d%d?%d?%d?%d?$' ) or id:match( '^[1-7]%-%d%d?%d?%d?%d?%.%d*[1-9]$' )
	if id2 then		if id2 then
	return '~~<span class="uid">~~[https://www.navcen.uscg.gov/pdf/lightlists/LightList%20V'..mw.ustring.sub(id2,1,1)..'.pdf '..id2..']~~</span>~~'		return '[https://www.navcen.uscg.gov/pdf/lightlists/LightList%20V'..mw.ustring.sub(id2,1,1)..'.pdf '..id2..']'
	else		else
	return false		return false
Line 109:		Line 109:
	local v		local v
	if prefix=='N' then		if prefix=='N' then
	local int = interval({1,7.5,14.4,100,121,173,211,235,269.99,326,396,450.1,471.7,499,n=suffix})		local int = interval({1, 7.5, 14.4, 100, 121, 173, 211, 235, 269.99, 326, 396, 450.1, 471.7, 499, n=suffix})
	if int=='1-2' then v = 1		if int=='1-2' then v = 1
	elseif int=='2-3' then v = 75		elseif int=='2-3' then v = 75
Line 127:		Line 127:
	link = link .. 'publications/list-lights/newfoundland/n' .. v .. '-en'		link = link .. 'publications/list-lights/newfoundland/n' .. v .. '-en'
	elseif prefix=='A' then		elseif prefix=='A' then
	local int = interval({5,114.5,145,163,268,271,301.5,327,686.5,704.85,883.2,942,1085,1169.1,1584.5,1773,1823.55,2190,2369,2389,n=suffix})		local int = interval({5, 114.5, 145, 163, 268, 271, 301.5, 327, 686.5, 704.85, 883.2, 942, 1085, 1169.1, 1584.5, 1773, 1823.55, 2190, 2369, 2389, n=suffix})
	if int=='1-2' then v = 5		if int=='1-2' then v = 5
	elseif int=='2-3' then v = 1145		elseif int=='2-3' then v = 1145
Line 151:		Line 151:
	link = link .. 'publications/list-lights/atl/a' .. v .. '-en'		link = link .. 'publications/list-lights/atl/a' .. v .. '-en'
	elseif prefix=='I' then		elseif prefix=='I' then
	local int = interval({0.05,401.1,403.4,551.06,552,624,708,731.2,768,814,983,1046,1059.6,1082,1162,1204.7,1233.3,1328,1330,1346.2,1377.8,1408,1410,1420,1445,1470,1520,1534,1540.6,1554,1557.7,1558.8,1563.1,1625.5,1671.7,1716.96,2545,n=suffix})		local int = interval({0.05, 401.1, 403.4, 551.06, 552, 624, 708, 731.2, 768, 814, 983, 1046, 1059.6, 1082, 1162, 1204.7, 1233.3, 1328, 1330, 1346.2, 1377.8, 1408, 1410, 1420, 1445, 1470, 1520, 1534, 1540.6, 1554, 1557.7, 1558.8, 1563.1, 1625.5, 1671.7, 1716.96, 2545, n=suffix})
	if int=='1-2' then v = '01'		if int=='1-2' then v = '01'
	elseif int=='2-3' then v = 4011		elseif int=='2-3' then v = 4011
Line 196:		Line 196:
	link = link .. 'list-lights'		link = link .. 'list-lights'
	end		end
	return '[[CCG (identifier)\|CCG]] ~~<span class="uid">~~[' .. link .. ' ' .. id .. ']~~</span>~~'		return '[[CCG (identifier)\|CCG]]: [' .. link .. ' ' .. id .. ']'
	end		end

Uzume: package function syntax

2024-03-30T14:38:28Z

package function syntax

← Previous revision		Revision as of 14:38, 30 March 2024
Line 4:		Line 4:
	--[[ Format validation functions ]]		--[[ Format validation functions ]]
	--[[======================================================]]		--[[======================================================]]
	p.botanistV ~~= function~~(id)		function p.botanistV(id)
	return mw.ustring.match(id,"^[%u%l%d%. '-]+$")		return mw.ustring.match(id,"^[%u%l%d%. '-]+$")
	end		end
Line 31:		Line 31:
	end		end

	p.validateIsni ~~= function~~(id) --Validate ISNI (and ORCID) and returns it as a 16 characters string or returns false if it's invalid. See http://support.orcid.org/knowledgebase/articles/116780-structure-of-the-orcid-identifier		function p.validateIsni(id) --Validate ISNI (and ORCID) and returns it as a 16 characters string or returns false if it's invalid. See http://support.orcid.org/knowledgebase/articles/116780-structure-of-the-orcid-identifier
	id = id:gsub( '[ %-]', '' ):upper()		id = id:gsub( '[ %-]', '' ):upper()
	if not id:match( '^%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d[%dX]$' ) then		if not id:match( '^%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d[%dX]$' ) then
Line 55:		Line 55:
	end		end

	p.orcidV ~~= function~~(id)		function p.orcidV(id)
	id = p.validateIsni(id)		id = p.validateIsni(id)
	if not id then		if not id then
Line 63:		Line 63:
	end		end

	p.tlsV ~~= function~~(id)		function p.tlsV(id)
	id = id:gsub(' +', '_')		id = id:gsub(' +', '_')
	local idlen = mw.ustring.len(id)		local idlen = mw.ustring.len(id)
Line 79:		Line 79:
	--[[ Custom link functions ]]		--[[ Custom link functions ]]
	--[[======================================================]]		--[[======================================================]]
	p.ISILlink ~~= function~~(id,label)		function p.ISILlink(id,label)
	if not id:match('^%D%D?%D?%D?%-.+$') then		if not id:match('^%D%D?%D?%D?%-.+$') then
	return false		return false
Line 91:		Line 91:
	end		end

	p.uscgLink ~~= function~~(id)		function p.uscgLink(id)
	local id2 = id:match( '^[1-7]%-%d%d?%d?%d?%d?$' ) or id:match( '^[1-7]%-%d%d?%d?%d?%d?%.%d*[1-9]$' )		local id2 = id:match( '^[1-7]%-%d%d?%d?%d?%d?$' ) or id:match( '^[1-7]%-%d%d?%d?%d?%d?%.%d*[1-9]$' )
	if id2 then		if id2 then
Line 100:		Line 100:
	end		end

	p.ccg ~~= function~~(id)		function p.ccg(id)
	id = id:match('^[NAIP]?[1-9]%d$') or id:match('^[NAIP]?[1-9]%d%.%d+$')		id = id:match('^[NAIP]?[1-9]%d$') or id:match('^[NAIP]?[1-9]%d%.%d+$')
	if not id then return false end		if not id then return false end

Uzume: +validateBNF via NCDA=NOID Check Digit Algorithm

2024-03-30T14:16:19Z

+validateBNF via NCDA=NOID Check Digit Algorithm

@@ Line 8: / Line 8: @@
 end
 	id = id:gsub( '[ %-]', '' ):upper()
 	if not id:match( '^%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d[%dX]$' ) then

MSGJ: fix CCG code, and remove some unneeded functions

2023-04-27T20:09:01Z

fix CCG code, and remove some unneeded functions

← Previous revision		Revision as of 20:09, 27 April 2023
Line 30:		Line 30:
	end		end
	return id		return id
	end

	local function splitLccn(id)
	if id:match( '^%l%l?%l?%d%d%d%d%d%d%d%d%d?%d?$' ) then
	id = id:gsub( '^(%l+)(%d+)(%d%d%d%d%d%d)$', '%1/%2/%3' )
	end
	if id:match( '^%l%l?%l?/%d%d%d?%d?/%d+$' ) then
	return mw.text.split( id, '/' )
	end
	return false
	end

	p.lccnV = function(id)
	local function append(str, c, length)
	while str:len() < length do
	str = c..str
	end
	return str
	end
	local parts = splitLccn(id) --e.g. n78039510
	if not parts then
	return false
	end
	local lccnType = parts[1] ~= 'sh' and 'names' or 'subjects'
	return lccnType .. '/' .. parts[1] .. parts[2] .. append( parts[3], '0', 6 )
	end		end

Line 76:		Line 51:
	end		end
	return id		return id
	end

	p.worldcatidV = function(id)
	if not id:match( '^viaf%-%d+$' ) and
	not id:match( '^lccn%-n[a-z]?[0-9%-]+$' ) and
	not id:match( '^n[cps]%-.+$' ) then
	return false
	end
	return mw.uri.encode(id, 'PATH')
	end

	p.zbmathV = function(id)
	local ps = {'%l[%l%-]', '%.%l[%l%-]', '%.%d*'}
	return id:match( '^'..ps[1]..'$' ) -- prefix with no capture options
	or id:match( '^'..ps[1]..ps[2]..'$' ) -- prefix with first capture option
	or id:match( '^'..ps[1]..ps[3]..'$' ) -- prefix with second capture option
	or id:match( '^'..ps[1]..ps[2]..ps[3]..'$' ) -- prefix and both capture options
	end		end

Line 151:		Line 109:
	elseif int=='3-4' then v = 145		elseif int=='3-4' then v = 145
	elseif int=='4-5' then v = 162		elseif int=='4-5' then v = 162
	elseif int=='5-6' then v = ~~271~~		elseif int=='5-6' then v = 268
	elseif int=='6-7' then v = ~~3015~~		elseif int=='6-7' then v = 271
	elseif int=='7-8' then v = ~~327~~		elseif int=='7-8' then v = 3015
	elseif int=='8-9' then v = ~~6865~~		elseif int=='8-9' then v = 327
	elseif int=='9-10' then v = ~~7048~~		elseif int=='9-10' then v = 6865
	elseif int=='10-11' then v = ~~883~~		elseif int=='10-11' then v = 7048
	elseif int=='11-12' then v = ~~942~~		elseif int=='11-12' then v = 883
	elseif int=='12-13' then v = ~~1085~~		elseif int=='12-13' then v = 942
	elseif int=='13-14' then v = ~~11691~~		elseif int=='13-14' then v = 1085
	elseif int=='14-15' then v = ~~15845~~		elseif int=='14-15' then v = 11691
	elseif int=='15-16' then v = ~~1773~~		elseif int=='15-16' then v = 15845
	elseif int=='16-17' then v = ~~182355~~		elseif int=='16-17' then v = 1773
	elseif int=='17-18' then v = ~~2190~~		elseif int=='17-18' then v = 182355
	elseif int=='18-19' then v = ~~2369~~		elseif int=='18-19' then v = 2190
	elseif int=='19-20' then v = ~~2389~~		elseif int=='19-20' then v = 2369
			elseif int=='20-21' then v = 2389
	end		end
	link = link .. 'publications/list-lights/atl/a' .. v .. '-en'		link = link .. 'publications/list-lights/atl/a' .. v .. '-en'

MSGJ: add customlink function for ccg

2023-03-24T23:17:20Z

add customlink function for ccg

@@ Line 55: / Line 55: @@
 	local lccnType = parts[1] ~= 'sh' and 'names' or 'subjects'
 	return lccnType .. '/' .. parts[1] .. parts[2] .. append( parts[3], '0', 6 )
 end
@@ Line 126: / Line 117: @@
 		return false
 	end
 end

MSGJ: rearrange functions, remove BNF, add label to ISIL

2023-03-06T10:50:14Z

rearrange functions, remove BNF, add label to ISIL

@@ Line 1: / Line 1: @@
 require('strict')
 local p = {}
 p.botanistV = function(id)
 	return mw.ustring.match(id,"^[%u%l%d%. '-]+$")
 end
@@ Line 105: / Line 85: @@
 	end
 	return id
 end
@@ Line 131: / Line 102: @@
 	   or id:match( '^'..ps[1]..ps[3]..'$' ) -- prefix with second capture option
 	   or id:match( '^'..ps[1]..ps[2]..ps[3]..'$' ) -- prefix and both capture options
 end

MSGJ: Protected "Module:Authority control/auxiliary": Highly visible template ([Edit=Require template editor access] (indefinite) [Move=Require template editor access] (indefinite))

2023-02-26T09:37:33Z

Protected "Module:Authority control/auxiliary": Highly visible template ([Edit=Require template editor access] (indefinite) [Move=Require template editor access] (indefinite))

← Previous revision	Revision as of 09:37, 26 February 2023
(No difference)

MSGJ: rmv label

2023-02-25T12:48:34Z

rmv label

← Previous revision		Revision as of 12:48, 25 February 2023
Line 13:		Line 13:
	id = 'cb'..id		id = 'cb'..id
	end		end
	return '<span class="uid">[https://catalogue.bnf.fr/ark:/12148/'..id..' ~~'..(label or '~~France~~')..'~~] [https://data.bnf.fr/ark:/12148/'..id..' (data)]</span>'		return '<span class="uid">[https://catalogue.bnf.fr/ark:/12148/'..id..' France] [https://data.bnf.fr/ark:/12148/'..id..' (data)]</span>'
	end		end

MSGJ: +botanistV

2023-02-25T12:45:21Z

+botanistV

← Previous revision		Revision as of 12:45, 25 February 2023
Line 1:		Line 1:
	require('strict')		require('strict')
	local p = {}		local p = {}

			p.botanistV = function(id)
			return mw.ustring.match(id,"^[%u%l%d%. '-]+$")
			end

	p.bnfLink = function(id)		p.bnfLink = function(id)

MSGJ: +ISILlink

2023-02-25T12:41:21Z

+ISILlink

@@ Line 10: / Line 10: @@
 	end
 	return '<span class="uid">[https://catalogue.bnf.fr/ark:/12148/'..id..' '..(label or 'France')..'] [https://data.bnf.fr/ark:/12148/'..id..' (data)]</span>'
 end