Spring til indhold

Modul:Autoritetsdata

Fra Wikisource, det frie bibliotek

Dokumentation for dette modul kan oprettes på Modul:Autoritetsdata/dok 

local function getCatForId( id )
	return ""
end

local function viafLink( id )
    if not string.match( id, '^%d+$' ) then
        return false
    end
    return '[https://viaf.org/viaf/' .. id .. ' ' .. id .. ']' .. getCatForId( 'VIAF' )
end

local function kulturnavLink( id )
    return '[http://kulturnav.org/language/en/' .. id .. ' id]' 
end

local function sikartLink( id )
    return '[http://www.sikart.ch/KuenstlerInnen.aspx?id=' .. id .. '&lng=en ' .. id .. ']' 
end

local function tlsLink( id )
	local id2 = mw.ustring.gsub(id, '%s', function(s) return mw.uri.encode(s, 'WIKI') end)
    return '[http://tls.theaterwissenschaft.ch/wiki/' .. id2 .. ' ' .. id .. ']' 
end


local function ciniiLink( id )
    return '[http://ci.nii.ac.jp/author/' .. id .. '?l=en ' .. id .. ']' 
end

local function bneLink( id )
    return '[http://catalogo.bne.es/uhtbin/authoritybrowse.cgi?action=display&authority_id=' .. id .. ' ' .. id .. ']' 
end


local function uscongressLink( id )
    return '[http://bioguide.congress.gov/scripts/biodisplay.pl?index=' .. id .. ' ' .. id .. ']' 
end

local function narapersonLink( id )
    return '[https://research.archives.gov/person/' .. id .. ' ' .. id .. ']' 
end

local function naraorganizationLink( id )
    return '[https://research.archives.gov/organization/' .. id .. ' ' .. id .. ']' 
end

local function botanistLink( id )
	local id2 = mw.ustring.gsub(id, '%s', function(s) return mw.uri.encode(s, 'PATH') end)
    return '[http://www.ipni.org/ipni/advAuthorSearch.do?find_abbreviation=' .. id2 .. ' ' .. id .. ']' 
end

local function mgpLink( id )
    -- TODO Implement some sanity checking regex
    return '[http://www.genealogy.ams.org/id.php?id=' .. id .. ' ' .. id .. ']' 
end

local function rslLink( id )
    -- TODO Implement some sanity checking regex
    return '[http://aleph.rsl.ru/F?func=find-b&find_code=SYS&adjacent=Y&local_base=RSL11&request=' .. id .. '&CON_LNG=ENG ' .. id .. ']'
end

local function leonoreLink( id )
-- Identifiants allant de LH/1/1 à LH/2794/54 (légionnaires)
-- Identifiants allant de C/0/1 à C/0/84 (84 légionnaires célèbres)
-- Identifiants allant de 19800035/1/1 à 19800035/385/51670 (légionnaires décédés entre 1954 et 1977, et quelques dossiers de légionnaires décédés avant 1954)
    if not string.match( id, '^LH/%d%d?%d?%d?/%d%d?%d?$' ) and
       not string.match( id, '^C/0/%d%d?$' ) and
	   not string.match( id, '^19800035/%d%d?%d?%d?/%d%d?%d?%d?%d?$' ) then
        return false
    end
    return '[//www.culture.gouv.fr/public/mistral/leonore_fr?ACTION=CHERCHER&FIELD_1=COTE&VALUE_1=' .. id .. ' ' .. id .. ']' 
end

local function sbnLink( id )
    if not string.match( id, '^IT\\ICCU\\%d%d%d%d%d%d%d%d%d%d$' ) and not string.match( id, '^IT\\ICCU\\%u%u[%d%u]%u\\%d%d%d%d%d%d$' ) then
        return false
    end
    return '[http://opac.sbn.it/opacsbn/opac/iccu/scheda_authority.jsp?bid=' .. id .. ' ' .. id .. ']' .. getCatForId( 'SBN' )
end

local function nkcLink( id )
	return '[http://aleph.nkp.cz/F/?func=find-c&local_base=aut&ccl_term=ica=' .. id .. '&CON_LNG=ENG ' .. id .. ']' 
end

local function nclLink( id )
    if not string.match( id, '^%d+$' ) then
        return false
    end
    return '[http://aleweb.ncl.edu.tw/F/?func=accref&acc_sequence=' .. id .. '&CON_LNG=ENG ' .. id .. ']' 
end

local function ndlLink( id )
	return '[http://id.ndl.go.jp/auth/ndlna/' .. id .. ' ' .. id .. ']' 
end

local function sudocLink( id )
    if not string.match( id, '^%d%d%d%d%d%d%d%d[%dxX]$' ) then
        return false
    end
    return '[http://www.idref.fr/' .. id .. ' ' .. id .. ']' 
end

local function hlsLink( id )
    if not string.match( id, '^%d+$' ) then
        return false
    end
    return '[http://www.hls-dhs-dss.ch/textes/f/F' .. id .. '.php ' .. id .. ']'
end

local function lirLink( id )
    if not string.match( id, '^%d+$' ) then
        return false
    end
    return '[http://www.e-lir.ch/e-LIR___Lexicon.' .. id .. '.450.0.html ' .. 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

local function append(str, c, length)
    while str:len() < length do
        str = c .. str
    end
    return str
end

local function lccnLink( id )
    local parts = splitLccn( id )
    if not parts then
        return false
    end
    local lccnType = parts[1] ~= 'sh' and 'names' or 'subjects'
    id = parts[1] .. parts[2] .. append( parts[3], '0', 6 )
    return '[http://id.loc.gov/authorities/' .. lccnType .. '/' .. id .. ' ' .. id .. ']' .. getCatForId( 'LCCN' )
end

local function mbLink( id )
    -- TODO Implement some sanity checking regex
    return '[//musicbrainz.org/artist/' .. id .. ' ' .. id .. ']' .. getCatForId( 'MusicBrainz' )
end

--Returns the ISNI check digit isni must be a string where the 15 first elements are digits
local function getIsniCheckDigit( isni )
    local total = 0
    for i = 1, 15 do
        local digit = isni:byte( i ) - 48 --Get integer value
        total = (total + digit) * 2
    end
    local remainder = total % 11
    local result = (12 - remainder) % 11
    if result == 10 then
        return "X"
    end
    return tostring( result )
end

--Validate ISNI (and ORCID) and retuns 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
local function validateIsni( id )
    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
        return false
    end
    if getIsniCheckDigit( id ) ~= string.char( id:byte( 16 ) ) then
        return false
    end
    return id
end

local function isniLink( id )
    id = validateIsni( id )
    if not id then
        return false
    end
    return '[http://isni.org/isni/' .. id .. ' ' .. id:sub( 1, 4 ) .. ' ' .. id:sub( 5, 8 ) .. ' '  .. id:sub( 9, 12 ) .. ' '  .. id:sub( 13, 16 ) .. ']' .. getCatForId( 'ISNI' )
end

local function orcidLink( id )
    id = validateIsni( id )
    if not id then
        return false
    end
    id = id:sub( 1, 4 ) .. '-' .. id:sub( 5, 8 ) .. '-'  .. id:sub( 9, 12 ) .. '-'  .. id:sub( 13, 16 )
    return '[https://orcid.org/' .. id .. ' ' .. id .. ']' .. getCatForId( 'ORCID' )
end

local function gndLink( id )
    return '[http://d-nb.info/gnd/' .. id .. ' ' .. id .. ']' .. getCatForId( 'GND' )
end

local function selibrLink( id )
	if not string.match( id, '^%d+$' ) then
        return false
    end
    return '[//libris.kb.se/auth/' .. id .. ' ' .. id .. ']' .. getCatForId( 'SELIBR' )
end

local function bnfLink( id )
    --Add cb prefix if it has been removed
    if not string.match( id, '^cb.+$' ) then
        id = 'cb' .. id
    end

    return '[http://catalogue.bnf.fr/ark:/12148/' .. id .. ' ' .. id .. '] [http://data.bnf.fr/ark:/12148/' .. id .. ' (data)]' .. getCatForId( 'BNF' )
end

local function bpnLink( id )
    if not string.match( id, '^%d+$' ) then
        return false
    end
    return '[http://www.biografischportaal.nl/en/persoon/' .. id .. ' ' .. id .. ']' .. getCatForId( 'BPN' )
end

local function ridLink( id )
    return '[http://www.researcherid.com/rid/' .. id .. ' ' .. id .. ']' .. getCatForId( 'RID' )
end

local function bibsysLink( id )
	return '[https://authority.bibsys.no/authority/rest/authorities/html/' .. id .. ' ' .. id .. ']' .. getCatForId( 'BIBSYS' )
end

local function ulanLink( id )
    return '[//www.getty.edu/vow/ULANFullDisplay?find=&role=&nation=&subjectid=' .. id .. ' ' .. id .. ']' .. getCatForId( 'ULAN' )
end

local function nlaLink( id )
	return '[//nla.gov.au/anbd.aut-an' .. id .. ' ' .. id .. ']' .. getCatForId( 'NLA' )
end

local function rkdartistsLink( id )
	return '[https://rkd.nl/en/explore/artists/' .. id .. ' ' .. id .. ']' .. getCatForId( 'RKDartists' )
end

local function calisLink( id )
	return '[http://opac.calis.edu.cn/aopac/ajsp/detail.jsp?actionfrom=1&actl=CAL++' .. id .. ' ' .. id .. ']' .. getCatForId( 'CALIS' )
end

local function cbdbLink( id )
	return '[http://db1.ihp.sinica.edu.tw/cbdbc/cbdbkmeng?~~AAA' .. id .. ' ' .. id .. ']' .. getCatForId( 'CBDB' )
end

local function dbnlLink( id )
	return '[http://www.dbnl.org/auteurs/auteur.php?id=' .. id .. ' ' .. id .. ']' .. getCatForId( 'DBNL' )
end

local function ptbnpLink( id )
	return '[http://purl.pt/index/geral/aut/PT/' .. id .. '.html ' .. id .. ']' .. getCatForId( 'PTBNP' )
end

local function ntaLink( id )
	-- Nationale Thesaurus Auteursnamen
	return '[http://data.bibliotheken.nl/doc/thes/p' .. id .. ' ' .. id .. ']' .. getCatForId( 'NTA' )
end

local function bavLink( id )
	return id .. getCatForId( 'BAV' )
	-- there may not be an online catalogue for the Vatican Library (Wikidata is not currently linking to anything)
end

local function nliLink( id )
	return '[http://a20.libnet.ac.il/F?func=find-b&REQUEST=' .. id .. '&find_code=SYS&local_base=NNL10 ' .. id .. ']' .. getCatForId( 'NLI' )
end

local function nlcLink( id )
	return '[http://opac.nlc.gov.cn/F/?func=accref&acc_sequence=' .. id .. ' ' .. id .. ']' .. getCatForId( 'NLC' )
end

local function nukatLink( id )
	return id .. getCatForId( 'NUKAT' )
	-- linking format not currently available on Wikidata and cannot find anything suitable as http://www.nukat.edu.pl/
end

local function ibdbLink( id )
	return '[http://www.ibdb.com/person.php?id=' .. id .. ' ' .. id .. ']' .. getCatForId( 'IBDB' )
end

local function isfdbIdLink( id )
	return '[http://www.isfdb.org/cgi-bin/ea.cgi?' .. id .. ' ' .. id .. ']' .. getCatForId( 'ISFDB' )
end

local function libriVoxAuthorLink( id )
        return '[https://librivox.org/author/' .. id .. ' ' .. id .. ']' .. getCatForId( 'LVA' )
end

local function GutenbergLink( id )
	return '[https://www.gutenberg.org/ebooks/author/' .. id .. ' ' .. id .. ']' .. getCatForId( 'Gutenberg' )
end

local function findGraveLink( id )
	return '[http://www.findagrave.com/cgi-bin/fg.cgi?page=gr&GRid=' .. id .. ' ' .. id .. ']' .. getCatForId( 'Find a Grave' )
end

local function mgpLink( id )
	return '[http://genealogy.math.ndsu.nodak.edu/id.php?id=' .. id .. ' ' .. id .. ']' .. getCatForId( 'MGP' )
end

local function rkdLink( id )
	return '[http://explore.rkd.nl/nl/artists/' .. id .. ' ' .. id .. ']' .. getCatForId( 'RKD' )
end

local function bneLink( id )
	return '[http://catalogo.bne.es/uhtbin/authoritybrowse.cgi?action=display&authority_id=' .. id .. ' ' .. id .. ']' .. getCatForId( 'BNE' )
end

local function nlrLink( id )
	return '[http://alephnew.bibnat.ro:8991/F?func=find-b&request=' .. id .. '&find_code=SYS&adjacent=Y&local_base=NLR10 ' .. id .. ']' .. getCatForId( 'NLR' )
end

local function sycomoreLink( id )
	return '[http://www.assemblee-nationale.fr/sycomore/fiche.asp?num_dept=' .. id .. ' ' .. id .. ']' .. getCatForId( 'Sycomore' )
end

local function chLink( id )
	-- Catholic Hierarchy (database of bishops)
	return '[http://www.catholic-hierarchy.org/bishop/b' .. id .. '.html ' .. id .. ']' .. getCatForId( 'Catholic Hierarchy' )
end

local function lccnBibliographicLink( id )
	return '[http://lccn.loc.gov/' .. id .. ' ' .. id .. ']' .. getCatForId( 'LCCN (bibliographic)' )
end

local function oclcLink( id )
	return '[http://www.worldcat.org/oclc/' .. id .. '?lang=en ' .. id .. ']' .. getCatForId( 'OCLC' )
end

local function isbnLink( id )
	return '[[Special:BookSources/' .. id .. '|' .. id .. ']]' .. getCatForId( 'ISBN' )
	-- ISBN currently only reads ISBN-13 numbers from Wikidata and ignores ISBN-10 numbers
end

local function ndlBibliographicLink( id )
	return '[http://iss.ndl.go.jp/books?op_id=1&any=' .. id .. ' ' .. id .. ']' .. getCatForId( 'NDL (bibliographic)' )
end

local function issnLink( id )
	return '[http://www.worldcat.org/search?fq=x0:jrnl&q=n2:' .. id .. ' ' .. id .. ']' .. getCatForId( 'ISSN' )
end

local function doiLink( id )
	return '[http://dx.doi.org/' .. id .. ' ' .. id .. ']' .. getCatForId( 'DOI' )
end

local function eraLink( id )
	return '[http://lamp.infosys.deakin.edu.au/era/?page=jnamedet12f&eraid=' .. id .. ' ' .. id .. ']' .. getCatForId( 'ERA' )
end

local function ismnLink( id )
	return id .. getCatForId( 'ISMN' )
	-- no link currently available for ISMN on Wikidata and none found elsewhere
end

local function sudocBibliographicLink( id )
	return '[http://www.sudoc.fr/' .. id .. ' ' .. id .. ']' .. getCatForId( 'SUDOC' )
end

local function swbLink( id )
	-- South-West German Library Network
	return '[http://swb.bsz-bw.de/DB=2.1/PPNSET?PPN=' .. id .. '&INDEXSET=1 ' .. id .. ']' .. getCatForId( 'SWB' )
end

local function zdbLink( id )
	-- Zeitschriftendatenbank
	return '[http://dispatch.opac.d-nb.de/DB=1.1/CMD?ACT=SRCHA&IKT=8506&TRM=' .. id .. ' ' .. id .. ']' .. getCatForId( 'ZDB' )
end

local function nlmLink( id )
	return '[http://locatorplus.gov/cgi-bin/Pwebrecon.cgi?DB=local&v1=1&ti=1,1&Search_Arg=' .. id .. '&Search_Code=0359&CNT=20&SID=1 ' ..id .. ']' .. getCatForId( 'NLM' )
end

local function selibrBibliographicLink( id )
	return '[http://libris.kb.se/bib/' .. id .. ' ' .. id .. ']' .. getCatForId( 'SELIBR' )
end

local function isfdbSerLink( id )
	return '[http://www.isfdb.org/cgi-bin/pe.cgi?' .. id .. ' ' .. id .. ']' .. getCatForId( 'ISFDB' )
end

local function isfdbConLink( id )
	return '[http://www.isfdb.org/cgi-bin/pl.cgi?' .. id .. ' ' .. id .. ']' .. getCatForId( 'ISFDB' )
end

local function openLibLink( id )
	return '[http://openlibrary.org/books/' .. id .. ' ' .. id .. ']' .. getCatForId( 'Open Library' )
end

local function archiveLink( id )
	return '[http://www.archive.org/details/' .. id .. ' ' .. id .. ']' .. getCatForId( 'Internet Archive' )
end

local function dliLink( id )
	return '[http://dli.gov.in/cgi-bin/DBscripts/allmetainfo.cgi?barcode=' .. id .. ' ' .. id .. ']' .. getCatForId( 'DLI' )
end

local function hathitrustLink( id )
	return '[http://catalog.hathitrust.org/Record/' .. id .. ' ' .. id .. ']' .. getCatForId( 'HathiTrust' )
end

local function googleBooksLink( id )
	return '[http://books.google.com/books?id=' .. id .. ' ' .. id .. ']' .. getCatForId( 'Google Books' )
end

local function europeanaLink( id )
	return '[http://www.europeana.eu/portal/record/' .. id .. '.html ' .. id .. ']' .. getCatForId( 'Europeana' )
end

local function libraryThingLink( id )
	return '[http://www.librarything.com/work/' .. id .. ' ' .. id .. ']' .. getCatForId( 'LibraryThing' )
end

local function ddcLink( id )
	return '[http://dewey.info/class/' .. id .. '/about ' .. id .. ']' .. getCatForId( 'DDC' )
end

local function naraOrgLink( id )
	return '[http://research.archives.gov/organization/' .. id .. ' ' .. id .. ']' .. getCatForId( 'NARA' )
end

local function naraGeoLink( id )
	return '[http://research.archives.gov/geographic-reference/' .. id .. ' ' .. id .. ']' .. getCatForId( 'NARA' )
end

local function naraSubLink( id )
	return '[http://research.archives.gov/topical-subject/' .. id .. ' ' .. id .. ']' .. getCatForId( 'NARA' )
end

local function naraTypeLink( id )
	return '[http://research.archives.gov/specific-records-type/' .. id .. ' ' .. id .. ']' .. getCatForId( 'NARA' )
end

local function isfdbPubLink( id )
	return '[http://www.isfdb.org/cgi-bin/publisher.cgi?' .. id .. ' ' .. id .. ']' .. getCatForId( 'ISFDB' )
end

local function lembpLink( id )
	--Lista de Encabezamientos de materia para las Bibliotecas Públicas = List of Subject Headings for Public Libraries (Spanish)
	return '[http://id.sgcb.mcu.es/lem/ver/Autoridades/' .. id .. '/concept ' .. id .. ']' .. getCatForId( 'LEMBP' )
end

local function imdbLink( id )
	return '[http://www.imdb.com/Name?' .. id .. ' ' .. id .. ']' .. getCatForId( 'IMDB' )
end

local function freebaseLink( id )
	return '[http://www.freebase.com' .. id .. ' ' .. id .. ']' .. getCatForId( 'Freebase' )
end

local function PrdlLink( id )
	return '[http://prdl.org/author_view.php?a_id=' .. id .. ' ' .. id .. ']' 
end

local function NupillALink( id )
	return '[http://www.literaturabrasileira.ufsc.br/autores/?id=' .. id .. ' ' .. id .. ']' 
end

local function MacTutorBLink( id )
	return '[http://www-history.mcs.st-andrews.ac.uk/Biographies/' .. id .. '.html ' .. id .. ']' 
end

local function AtclLink( id )
	return '[http://www.victorianresearch.org/atcl/show_author.php?aid=' .. id .. ' ' .. id .. ']' 
end

local function ElemLink( id )
	return '[http://www.elem.mx/autor/datos/' .. id .. ' ' .. id .. ']' 
end

local function ImslpLink( id )
	id2 = mw.ustring.gsub(id, '%s', function(s) return mw.uri.encode(s, 'WIKI') end)
    return '[http://imslp.org/wiki/' .. id2 .. ' ' .. id .. ']' 
end

local function OdnbLink( id )
	return '[http://www.oxforddnb.com/index/' .. id .. '/ ' .. id .. ']' 
end

local function GecLink( id )
	return '[http://www.enciclopedia.cat/enciclop%C3%A8dies/gran-enciclop%C3%A8dia-catalana/EC-GEC-' .. id .. '.xml ' .. id .. ']' 
end

local function kunstindeksdanmarkLink( id )
	return '[https://www.kulturarv.dk/kid/VisKunstner.do?kunstnerId=' .. id .. ' ' .. id .. ']'
end

local function filmdatabasenLink (id)
	return '[https://www.dfi.dk/viden-om-film/filmdatabasen/person/' .. id .. ' ' .. id .. ']'
end

local function runebergforfatterLink (id)
	return '[http://runeberg.org/authors/' .. id .. '.html ' .. id .. ']'
end

local function dansketalerLink (id)
	return '[https://dansketaler.dk/taler/' .. id .. ' ' .. id .. ']'
end

local function cerlthesaurusLink (id)
	return '[https://data.cerl.org/thesaurus/' .. id .. ' ' .. id .. ']'
end	

local function danskbiografiskleksikonLink (id)
	return '[https://biografiskleksikon.lex.dk/' .. id .. ' ' .. id .. ']'
end

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

local function matchesWikidataRequirements( item, reqs )
    for _, group in pairs( reqs ) do
        local property = 'p' .. group[1]
        local qid = group[2]
        if item.claims[property] ~= nil then
            for _, statement in pairs ( item.claims[property] ) do
            	if statement.mainsnak.datavalue ~= nil then
	                if statement.mainsnak.datavalue.value['numeric-id'] == qid then
    	                return true
        	        end
        	    end
            end
        end
    end
    return false
end

local function createRow( id, label, rawValue, link, withUid )
    if link then
        if withUid then
            return '* ' .. label .. ' <span class="uid">' .. link .. '</span>\n'
        else
            return '* ' .. label .. ' ' .. link .. '\n'
        end
    else
        return '* <span class="error">' .. id .. '-værdien ' .. rawValue .. ' er ugyldig.</span>[[Kategori:Sider med fejl i autoritetsdata]]\n'
    end
end

-- *** List of displayed authority control IDs ***
-- Authority controls will appear in the same order as the list below
--In this order: name of the parameter, label, propertyId in Wikidata, formatting function
local conf = {
    { 'VIAF', '[[w:Virtual International Authority File|VIAF]]', 214, viafLink },
    { 'Runeberg', '[[w:Projekt Runeberg|Runeberg]]', 3154, runebergforfatterLink },
    { 'LCCN', '[[w:Library of Congress Control Number|LCCN]]', 244, lccnLink },
    { 'ISNI', '[[w:International Standard Name Identifier|ISNI]]', 213, isniLink },
    { 'KID', '[[w:Kunstindeks Danmark|KID]]', 1138, kunstindeksdanmarkLink },
    { 'DNF', '[[w:Filmdatabasen|DNF]]', 2626, filmdatabasenLink },
    { 'Dansketaler', 'Danske Taler', 6232, dansketalerLink },
    { 'ORCID', '[[w:ORCID|ORCID]]', 496, orcidLink },
    { 'GND', '[[w:Integrated Authority File|GND]]', 227, gndLink },
    { 'SELIBR', '[[w:LIBRIS|SELIBR]]', 906, selibrLink },
    { 'SUDOC', '[[w:Système universitaire de documentation|SUDOC]]', 269, sudocLink },    
    { 'BNF', '[[w:Bibliothèque nationale de France|BNF]]', 268, bnfLink },
    { 'BPN', '[[w:Biografisch Portaal|BPN]]', 651, bpnLink },
    { 'RID', '[[w:ResearcherID|ResearcherID]]', 1053, ridLink },
    { 'BIBSYS', '[[w:BIBSYS|BIBSYS]]', 1015, bibsysLink },
    { 'ULAN', '[[w:Union List of Artist Names|ULAN]]', 245, ulanLink },
    { 'HDS', '[[w:Historical Dictionary of Switzerland|HDS]]', 902, hlsLink },
    { 'LIR', '[[w:Historical Dictionary of Switzerland#Lexicon_Istoric_Retic|LIR]]', 886, lirLink },
    { 'MBA', '[[w:MusicBrainz|MusicBrainz]]', 434, mbLink },
    { 'MGP', '[[w:Mathematics Genealogy Project|MGP]]', 549, mgpLink },    
    { 'NLA', '[[w:National Library of Australia|NLA]]', 409, nlaLink },
    { 'NDL', '[[w:National Diet Library|NDL]]', 349, ndlLink },
    { 'NCL', '[[w:National Central Library|NCL]]', 1048, nclLink },
    { 'NKC', '[[w:National Library of the Czech Republic|NKC]]', 691, nkcLink },
    { 'Léonore', '[[w:fr:Base Léonore|Léonore]]', 640, leonoreLink }, 
    { 'SBN', '[[w:Istituto Centrale per il Catalogo Unico|ICCU]]', 396, sbnLink },     
    { 'RLS', '[[w:Russian State Library|RLS]]', 947, rslLink },
    { 'Botanist', '[[w:Author citation (botany)|Botanist]]', 428, botanistLink },
    { 'NARA-person', '[[w:National Archives and Records Administration|NARA]]', 1222, narapersonLink },
    { 'NARA-organization', '[[w:National Archives and Records Administration|NARA]]', 1223, naraorganizationLink },
    { 'USCongress', '[[w:Biographical Directory of the United States Congress|US Congress]]', 1157, uscongressLink },
    { 'BNE', '[[w:Biblioteca Nacional de España|BNE]]', 950, bneLink },
    { 'CINII', '[[w:CiNii|CiNii]]', 271, ciniiLink },
    { 'TLS', '[[w:Theaterlexikon der Schweiz|TLS]]', 1362, tlsLink },
    { 'SIKART', '[[w:SIKART|SIKART]]', 781, sikartLink },
    { 'KULTURNAV', '[[w:KulturNav|KulturNav]]', 1248, kulturnavLink },
    { 'RKDartists', '[[w:Netherlands Institute for Art History#Online artist pages|RKD]]', 650, rkdartistsLink },
    { 'CALIS', 'CALIS', 270, calisLink },
    { 'CBDB', 'CBDB', 497, cbdbLink },
    { 'DBNL', '[[w:Digital Library for Dutch Literature|DBNL]]', 723, dbnlLink },
    { 'PTBNP', '[[w:Biblioteca Nacional de Portugal|PTBNP]]', 1005, ptbnpLink },
    { 'NTA', 'NTA', 1006, ntaLink },
    { 'BAV', '[[w:Vatican Library|BAV]]', 1017, bavLink },
    { 'NLI', '[[w:National Library of Israel|NLI]]', 949, nliLink },
    { 'IBDB', '[[w:Internet Broadway Database|IBDB]]', 1220, ibdbLink },
    { 'ISFDB', '[[w:Internet Speculative Fiction Database|ISFDB]]', 1233, isfdbIdLink },
    { 'LibriVoxAuth', '[[w:LibriVox|LibriVox]]', 1899, libriVoxAuthorLink },
    { 'Gutenberg', '[[w:Project Gutenberg|Project Gutenberg]]', 1938, GutenbergLink },
    { 'DBL3', '[[w:Dansk Biografisk Leksikon|DBL3]]', 8341, danskbiografiskleksikonLink },
    { 'Grave', '[[w:Find a Grave|Find a Grave]]', 535, findGraveLink },
    { 'MGP', '[[w:Mathematics Genealogy Project|MGP]]', 549, mgpLink },
    { 'RKD', '[[w:Netherlands Institute for Art History|RKD]]', 650, rkdLink },
    { 'BNE', '[[w:Biblioteca Nacional de España|BNE]]', 950, bneLink },
    { 'NLR', '[[w:National Library of Romania|NLR]]', 1003, nlrLink },
    { 'CH', '[[w:Hierarchy of the Catholic Church|CH]]', 1047, chLink },
    { 'LCCNbook', '[[w:Library of Congress Control Number|LCCN]]', 1144, lccnBibliographicLink },
    { 'OCLC', '[[w:OCLC|OCLC]]', 243, oclcLink },
    { 'ISBN', '[[w:International Standard Book Number|ISBN]]', 212, isbnLink },
    { 'NDLbook', '[[w:National Diet Library|NDL]]', 1054, ndlBibliographicLink },
    { 'ISSN', '[[w:International Standard Serial Number|ISSN]]', 236, issnLink },
    { 'DOI', '[[w:Digital object identifier|DOI]]', 356, doiLink },
    { 'ERA', 'ERA', 1058, eraLink },
    { 'ISMN', '[[w:International Standard Music Number|ISMN]]', 1208, ismnLink },
    { 'SUDOCbook', '[[w:Système universitaire de documentation|SUDOC]]', 1025, sudocBibliographicLink },
    { 'ZDB', 'ZDB', 1042, zdbLink },
    { 'SWB', 'SWB', 1044, swbLink },
    { 'NLM', '[[w:United States National Library of Medicine|NLM]]', 1055, nlmLink },
    { 'SELIBRbook', '[[w:LIBRIS|SELIBR]]', 1182, selibrBibliographicLink },
    { 'ISFDBser', '[[w:Internet Speculative Fiction Database|ISFDB]]', 1235, isfdbSerLink },
    { 'ISFDBcon', '[[w:Internet Speculative Fiction Database|ISFDB]]', 1234, isfdbConLink },
    { 'OL', '[[w:Open Library|Open Library]]', 648, openLibLink },
    { 'ARCHIVE', '[[w:Internet Archive|Internet Archive]]', 724, archiveLink },
    { 'DLI', '[[w:Digital Library of India|Digital Library of India]]', 2185, dliLink },
    { 'HathiTrust', '[[w:HathiTrust|HathiTrust]]', 1844, hathitrustLink },
    { 'Google', '[[w:Google Books|Google]]', 675, googleBooksLink },
    { 'Europeana', '[[w:Europeana|Europeana]]', 727, europeanaLink },
    { 'LT', '[[w:LibraryThing|LibraryThing]]', 1085, libraryThingLink },
    { 'NARAorg', '[[w:National Archives and Records Administration|NARA]]', 1223, naraOrgLink },
    { 'NARAgeo', '[[w:National Archives and Records Administration|NARA]]', 1224, naraGeoLink },
    { 'NARAsub', '[[w:National Archives and Records Administration|NARA]]', 1225, naraSubLink },
    { 'NARAtype', '[[w:National Archives and Records Administration|NARA]]', 1226, naraTypeLink },
    { 'ISFDBpub', '[[w:Internet Speculative Fiction Database|ISFDB]]', 1239, isfdbPubLink },
    { 'LEMBP', 'LEMBP', 920, lembpLink },
    { 'IMDB', '[[w:Internet Movie Database|IMDB]]', 345, imdbLink },
    { 'Freebase', '[[w:Freebase|Freebase]]', 646, freebaseLink },
    { 'PRDL', '[[w:Post-Reformation Digital Library|PRDL]]', 1463, PrdlLink },
    { 'NUPILL-A', 'NUPILL', 1473, NupillALink },
    { 'MacTutorB', '[[w:MacTutor History of Mathematics archive|MacTutor]]', 1563, MacTutorBLink },
    { 'ATCL', 'ATCL', 1564, AtclLink },
    { 'ELeM', 'ELeM', 1565, ElemLink },
    { 'Imslp', '[[w:International Music Score Library Project|IMSLP]]', 839, ImslpLink },
	{ 'Odnb', '[[w:Oxford Dictionary of National Biography|ODNB]]', 1415, OdnbLink },
    { 'Gec', '[[w:Gran Enciclopèdia Catalana|GEC]]', 1296, GecLink },
    { 'CERL', 'CERL', 1871, cerlthesaurusLink },
}

-- Check that the Wikidata item has this property-->value before adding it
local reqs = {}

local p = {}

function p.authorityControl( frame )
    local parentArgs = frame:getParent().args
    --Create rows
    local elements = {}

    --redirect PND to GND
    if (parentArgs.GND == nil or parentArgs.GND == '') and parentArgs.PND ~= nil and parentArgs.PND ~= '' then
        parentArgs.GND = parentArgs.PND
    end

    --Wikidata fallback if requested
    local item = mw.wikibase.getEntityObject()
    if item ~= nil and item.claims ~= nil then
        for _, params in pairs( conf ) do
            if params[3] ~= 0 then
                local val = parentArgs[params[1]]
                if not val or val == '' then
                	local canUseWikidata = nil
                    if reqs[params[1]] ~= nil then
                        canUseWikidata = matchesWikidataRequirements( item, reqs[params[1]] )
                    else
                        canUseWikidata = true
                    end
                    if canUseWikidata then
                        local wikidataIds = getIdsFromWikidata( item, 'P' .. params[3] )
                        if wikidataIds[1] then
                            parentArgs[params[1]] = wikidataIds[1]
                        end
                    end
                end
            end
        end
    end

    --Worldcat
    if parentArgs['WORLDCATID'] and parentArgs['WORLDCATID'] ~= '' then
        table.insert( elements, createRow( 'WORLDCATID', '', parentArgs['WORLDCATID'], '[//www.worldcat.org/identities/' .. parentArgs['WORLDCATID'] .. ' WorldCat]', false ) ) --Validation?
    elseif parentArgs['LCCN'] and parentArgs['LCCN'] ~= '' then
        local lccnParts = splitLccn( parentArgs['LCCN'] )
        if lccnParts and lccnParts[1] ~= 'sh' then
            table.insert( elements, createRow( 'LCCN', '', parentArgs['LCCN'], '[//www.worldcat.org/identities/lccn-' .. lccnParts[1] .. lccnParts[2] .. '-' .. lccnParts[3] .. ' WorldCat]', false ) )
        end
    end

    --Configured rows
    local rct = 0
    for k, params in pairs( conf ) do
        local val = parentArgs[params[1]]
        if val and val ~= '' then
            table.insert( elements, createRow( params[1], params[2] .. ':', val, params[4]( val ), true ) )
            rct = rct + 1
        end
    end
	local title = mw.title.getCurrentTitle()
	local namespace = title.namespace
	if #elements ~= 0 then
		if namespace == 102 then
			if #elements <= 2 then
				return "{| style=\"width:13em;\"\n" .. "| align=center|<small>Autoritetsdata</small>\n" .. "|-\n" .. "|<small>\n" .. table.concat( elements ) .. "\n</small>\n|}"
			end
			if #elements <= 5 then
				return "{| class=\"mw-collapsible\" style=\"width:13em;\"\n" .. "| align=center|<small>Autoritetsdata</small>\n" .. "|-\n" .. "|<small>\n" .. table.concat( elements ) .. "\n</small>\n|}"
			end
			return "{| class=\"mw-collapsible mw-collapsed\" style=\"width:13em;\"\n" .. "| align=center|<small>Autoritetsdata</small>\n" .. "|-\n" .. "|<small>\n" .. table.concat( elements ) .. "\n</small>\n|}"
		else
			return table.concat( elements )
		end
	else
		if namespace == 102 then
        	return "[[Kategori:Forfattersider uden autoritetsdata]]"
        else
        	return ""
        end
	end
end

return p
Hentet fra "https://da.wikisource.org/w/index.php?title=Modul:Autoritetsdata&oldid=67729"