Module:Citation/CS1/Identifiers - Revision history

Sushoff: 1 revision imported

2025-10-29T13:59:56Z

1 revision imported

← Older revision	Revision as of 13:59, 29 October 2025
(No difference)

en>Trappist the monk: ignore |year=n.d. or |year=nd when looking for a date/isbn mismatch;

2025-08-30T22:34:43Z

ignore |year=n.d. or |year=nd when looking for a date/isbn mismatch;

← Older revision		Revision as of 22:34, 30 August 2025
Line 25:		Line 25:
	as an aid to internationalizing identifier-label wikilinks, gets identifier article names from Wikidata.		as an aid to internationalizing identifier-label wikilinks, gets identifier article names from Wikidata.

	returns :<lang code>:<article title> when <q> has an <article title> for <lang code>; nil else		returns w:<lang code>:<article title> when <q> has an <article title> for <lang code>; nil else. 'w:<lang code>'
			ensures that sister project (like wiktionary) will link to the <lang code>.wikipedia article.

	for identifiers that do not have q, returns nil		for identifiers that do not have <q>, returns nil

	for wikis that do not have mw.wikibase installed, returns nil		for wikis that do not have mw.wikibase installed, returns nil
Line 44:		Line 45:

	if wd_article then		if wd_article then
	wd_article = table.concat ({':', this_wiki_code, ':', wd_article}); -- interwiki-style link without brackets if taken from WD; leading ~~colon~~ required		wd_article = table.concat ({'w:', this_wiki_code, ':', wd_article}); -- interwiki-style link without brackets if taken from WD; leading 'w:' required
	end		end

Line 51:		Line 52:


	--[[--------------------------< ~~L I N K _~~ L A B E L _ M A K E >------------------------------------------------		--[[--------------------------< L A B E L _ L I N K _ M A K E >------------------------------------------------

	common function to create identifier ~~link~~ label from handler table or from Wikidata		common function to create a link for an identifier label from handler table or from Wikidata

	returns the first available of		returns the first available of:
	1. redirect from local wiki's handler table (if enabled)		1. redirect from local wiki's handler table (if enabled)
	2. Wikidata (if there is a Wikidata entry for this identifier in the local ~~wiki's~~ language)		2. Wikidata sitelink to the local language wikipedia article (if there is a Wikidata entry for this identifier in the local language)
	3. ~~label~~ specified in the local wiki's handler table		3. link to wikipedia article specified in the local wiki's handler table

	]]		]]

	local function ~~link_label_make~~ (handler)		local function label_link_make (handler)
	local wd_article;		local wd_article;

Line 99:		Line 100:

	return table.concat ({		return table.concat ({
	make_wikilink (~~link_label_make~~ (options), options.label), -- redirect, Wikidata link, or locally specified link (in that order)		make_wikilink (label_link_make (options), options.label), -- redirect, Wikidata link, or locally specified link (in that order)
	options.separator or ' ',		options.separator or ' ',
	ext_link		ext_link
Line 121:		Line 122:
	return table.concat (		return table.concat (
	{		{
	make_wikilink (~~link_label_make~~ (options), options.label), -- wiki-link the identifier label		make_wikilink (label_link_make (options), options.label), -- wiki-link the identifier label
	options.separator or ' ', -- add the separator		options.separator or ' ', -- add the separator
	make_wikilink (		make_wikilink (
Line 381:		Line 382:
	else		else
	set_message ('err_class_ignored');		set_message ('err_class_ignored');
			end
			else -- class not set
			if id:match ('^%d+') and options.CitationClass == 'arxiv' then -- new (post 2007) format; {{cite arxiv}} only
			set_message ('maint_missing_class'); -- add maint cat
	end		end
	end		end
Line 733:		Line 738:
	if year and not ignore_invalid then --		if year and not ignore_invalid then --
	year = year:match ('%d%d%d%d?'); -- strip disambiguator if present		year = year:match ('%d%d%d%d?'); -- strip disambiguator if present
	if year and (1965 > tonumber(year)) then		if year and (1965 > tonumber(year)) then -- <year> will be nil here when \|year=n.d. or \|year=nd
	set_message ('err_invalid_isbn_date'); -- set an error message		set_message ('err_invalid_isbn_date'); -- set an error message
	return internal_link_id ({link = handler.link, label = handler.label, redirect = handler.redirect,		return internal_link_id ({link = handler.link, label = handler.label, redirect = handler.redirect,
Line 870:		Line 875:
	text = table.concat ( -- because no place to link to yet		text = table.concat ( -- because no place to link to yet
	{		{
	make_wikilink (~~link_label_make~~ (handler), handler.label),		make_wikilink (label_link_make (handler), handler.label),
	handler.separator,		handler.separator,
	id_copy		id_copy
Line 1,068:		Line 1,073:

	local patterns = {		local patterns = {
	'%d%d%d%d%d%d%d%d$', -- simple 8-digit identifier; these should be relatively rare		'^%d%d%d%d%d%d%d%d$', -- simple 8-digit identifier; these should be relatively rare
	'^10%.1101/(20%d%d)%.(%d%d)%.(%d%d)%.%d%d%d%d%d%d%d%dv%d+$', -- y.m.d. date + 8-digit identifier + version (2020-01-01 and later)		'^10%.1101/(20%d%d)%.(%d%d)%.(%d%d)%.%d%d%d%d%d%d%d%dv%d+$', -- y.m.d. date + 8-digit identifier + version (2020-01-01 and later)
	'^10%.1101/(20%d%d)%.(%d%d)%.(%d%d)%.%d%d%d%d%d%d%d%d$', -- y.m.d. date + 8-digit identifier (2020-01-01 and later)		'^10%.1101/(20%d%d)%.(%d%d)%.(%d%d)%.%d%d%d%d%d%d%d%d$', -- y.m.d. date + 8-digit identifier (2020-01-01 and later)
Line 1,289:		Line 1,294:
	text = table.concat ( -- still embargoed so no external link		text = table.concat ( -- still embargoed so no external link
	{		{
	make_wikilink (~~link_label_make~~ (handler), handler.label),		make_wikilink (label_link_make (handler), handler.label),
	handler.separator,		handler.separator,
	id,		id,

imported>Trappist the monk at 14:06, 12 April 2025

2025-04-12T14:06:45Z

← Older revision		Revision as of 14:06, 12 April 2025
Line 291:		Line 291:

	return lccn;		return lccn;
	end		end


Line 710:		Line 710:
	]]		]]

	local function isbn (~~options~~)		local function isbn (options_t)
	local isbn_str = ~~options~~.id;		local isbn_str = options_t.id;
	local ignore_invalid = ~~options~~.accept;		local ignore_invalid = options_t.accept;
	local handler = ~~options~~.handler;		local handler = options_t.handler;
			local year = options_t.Year; -- when set, valid anchor_year; may have a disambiguator which must be removed

	local function return_result (check, err_type) -- local function to handle the various returns		local function return_result (check, err_type) -- local function to handle the various returns
Line 722:		Line 723:
	else -- here when not ignoring		else -- here when not ignoring
	if not check then -- and there is an error		if not check then -- and there is an error
	~~options~~.coins_list_t['ISBN'] = nil; -- when error, unset so not included in COinS		options_t.coins_list_t['ISBN'] = nil; -- when error, unset so not included in COinS
	set_message ('err_bad_isbn', err_type); -- set an error message		set_message ('err_bad_isbn', err_type); -- set an error message
	return ISBN; -- return id text		return ISBN; -- return id text
Line 728:		Line 729:
	end		end
	return ISBN; -- return id text		return ISBN; -- return id text
			end

			if year and not ignore_invalid then --
			year = year:match ('%d%d%d%d?'); -- strip disambiguator if present
			if year and (1965 > tonumber(year)) then
			set_message ('err_invalid_isbn_date'); -- set an error message
			return internal_link_id ({link = handler.link, label = handler.label, redirect = handler.redirect,
			prefix = handler.prefix, id = isbn_str, separator = handler.separator});
			end
	end		end

Sushoff: Created page with "----------------------------< F O R W A R D D E C L A R A T I O N S >-------------------------------------- local has_accept_as_written, is_set, in_array, set_message, select_one, -- functions in Module:Citation/CS1/Utilities substitute, make_wikilink; local z; -- table of tables defined in Module:Citation/CS1/Utilities local cfg; -- table of configuration tables that are defined in Module:Citation/CS1/Configuration --[[-..."

2025-02-01T12:36:36Z

Created page with "--[[--------------------------< F O R W A R D D E C L A R A T I O N S >-------------------------------------- ]] local has_accept_as_written, is_set, in_array, set_message, select_one, -- functions in Module:Citation/CS1/Utilities substitute, make_wikilink; local z; -- table of tables defined in Module:Citation/CS1/Utilities local cfg; -- table of configuration tables that are defined in Module:Citation/CS1/Configuration --[[-..."

← Older revision	Revision as of 12:36, 1 February 2025
(No difference)

imported>Trappist the monk: sync from sandbox;

2024-12-28T15:31:47Z

sync from sandbox;

← Older revision		Revision as of 15:31, 28 December 2024
Line 555:		Line 555:
	local err_flag;		local err_flag;

	local function is_extended_free (registrant, id) -- local function to check those few registrants that are mixed; identifiable by the doi suffix <incipit>		local function is_extended_free (registrant, suffix) -- local function to check those few registrants that are mixed; identifiable by the doi suffix <incipit>
	if cfg.extended_registrants_t[registrant] then -- if this registrant has known free-to-read extentions		if cfg.extended_registrants_t[registrant] then -- if this registrant has known free-to-read extentions
	for _, incipit in ipairs (cfg.extended_registrants_t[registrant]) do -- loop through the registrant's incipits		for _, incipit in ipairs (cfg.extended_registrants_t[registrant]) do -- loop through the registrant's incipits
	if ~~string~~.find (id, incipit~~, 1, true~~) then -- if found		if mw.ustring.find (suffix, '^' .. incipit) then -- if found
	return true;		return true;
	end		end
Line 590:		Line 590:
	end		end

	local registrant = mw.ustring.match (id, '^10%.([^/]+)/[^%s–]-[^%.,]$'); -- registrant set when DOI has the proper basic form		local suffix;
			local registrant, suffix = mw.ustring.match (id, '^10%.([^/]+)/([^%s–]-[^%.,])$'); -- registrant and suffix set when DOI has the proper basic form

	local registrant_err_patterns = { -- these patterns are for code ranges that are not supported		local registrant_err_patterns = { -- these patterns are for code ranges that are not supported
	'^[^1-3]%d%d%d%d%.%d+$', -- 5 digits with subcode (0xxxx, 40000+); accepts: 10000–39999		'^[^1-3]%d%d%d%d%.%d+$', -- 5 digits with subcode (0xxxx, 40000+); accepts: 10000–39999
	'^[^1-6]%d%d%d%d$', -- 5 digits without subcode (0xxxx, 60000+); accepts: 10000–69999		'^[^1-7]%d%d%d%d$', -- 5 digits without subcode (0xxxx, 60000+); accepts: 10000–69999
	'^[^1-9]%d%d%d%.%d+$', -- 4 digits with subcode (0xxx); accepts: 1000–9999		'^[^1-9]%d%d%d%.%d+$', -- 4 digits with subcode (0xxx); accepts: 1000–9999
	'^[^1-9]%d%d%d$', -- 4 digits without subcode (0xxx); accepts: 1000–9999		'^[^1-9]%d%d%d$', -- 4 digits without subcode (0xxx); accepts: 1000–9999
Line 622:		Line 623:
	options.coins_list_t['DOI'] = nil; -- when error, unset so not included in COinS		options.coins_list_t['DOI'] = nil; -- when error, unset so not included in COinS
	else		else
	if not access and (cfg.known_free_doi_registrants_t[registrant] or is_extended_free (registrant, id)) then -- \|doi-access=free not set and <registrant> is known to be free		if not access and (cfg.known_free_doi_registrants_t[registrant] or is_extended_free (registrant, suffix)) then -- \|doi-access=free not set and <registrant> is known to be free
	set_message ('maint_doi_unflagged_free'); -- set a maint cat		set_message ('maint_doi_unflagged_free'); -- set a maint cat
	end		end

imported>Trappist the monk: sync from sandbox;

2024-08-17T18:39:06Z

sync from sandbox;

← Older revision		Revision as of 18:39, 17 August 2024
Line 554:		Line 554:
	local handler = options.handler;		local handler = options.handler;
	local err_flag;		local err_flag;

			local function is_extended_free (registrant, id) -- local function to check those few registrants that are mixed; identifiable by the doi suffix <incipit>
			if cfg.extended_registrants_t[registrant] then -- if this registrant has known free-to-read extentions
			for _, incipit in ipairs (cfg.extended_registrants_t[registrant]) do -- loop through the registrant's incipits
			if string.find (id, incipit, 1, true) then -- if found
			return true;
			end
			end
			end
			end

	local text;		local text;
Line 612:		Line 622:
	options.coins_list_t['DOI'] = nil; -- when error, unset so not included in COinS		options.coins_list_t['DOI'] = nil; -- when error, unset so not included in COinS
	else		else
	if not access and cfg.known_free_doi_registrants_t[registrant] then -- \|doi-access=free not set and <registrant> is known to be free		if not access and (cfg.known_free_doi_registrants_t[registrant] or is_extended_free (registrant, id)) then -- \|doi-access=free not set and <registrant> is known to be free
	set_message ('maint_doi_unflagged_free'); -- set a maint cat		set_message ('maint_doi_unflagged_free'); -- set a maint cat
	end		end

imported>Trappist the monk: sync from sandbox;

2023-11-25T16:42:08Z

sync from sandbox;

← Older revision		Revision as of 16:42, 25 November 2023
Line 611:		Line 611:
	if err_flag then		if err_flag then
	options.coins_list_t['DOI'] = nil; -- when error, unset so not included in COinS		options.coins_list_t['DOI'] = nil; -- when error, unset so not included in COinS
			else
			if not access and cfg.known_free_doi_registrants_t[registrant] then -- \|doi-access=free not set and <registrant> is known to be free
			set_message ('maint_doi_unflagged_free'); -- set a maint cat
			end
	end		end

imported>Trappist the monk: tweak to support new oclc limit;

2023-09-20T15:12:36Z

tweak to support new oclc limit;

← Older revision		Revision as of 15:12, 20 September 2023
Line 1,131:		Line 1,131:
	elseif id:match('^%d+$') then -- no prefix		elseif id:match('^%d+$') then -- no prefix
	number = id; -- get the number		number = id; -- get the number
	if ~~10 < number:len~~() then		if tonumber (id) > handler.id_limit then
	number = nil; -- ~~constrain to 1 to 10 digits; change this~~ when ~~OCLC issues 11-digit numbers~~		number = nil; -- unset when id value exceeds the limit
	end		end
	end		end

imported>Trappist the monk: rare 8-digit medrxiv without date;

2023-08-12T22:15:16Z

rare 8-digit medrxiv without date;

← Older revision		Revision as of 22:15, 12 August 2023
Line 1,043:		Line 1,043:

	local patterns = {		local patterns = {
			'%d%d%d%d%d%d%d%d$', -- simple 8-digit identifier; these should be relatively rare
	'^10%.1101/(20%d%d)%.(%d%d)%.(%d%d)%.%d%d%d%d%d%d%d%dv%d+$', -- y.m.d. date + 8-digit identifier + version (2020-01-01 and later)		'^10%.1101/(20%d%d)%.(%d%d)%.(%d%d)%.%d%d%d%d%d%d%d%dv%d+$', -- y.m.d. date + 8-digit identifier + version (2020-01-01 and later)
	'^10%.1101/(20%d%d)%.(%d%d)%.(%d%d)%.%d%d%d%d%d%d%d%d$', -- y.m.d. date + 8-digit identifier (2020-01-01 and later)		'^10%.1101/(20%d%d)%.(%d%d)%.(%d%d)%.%d%d%d%d%d%d%d%d$', -- y.m.d. date + 8-digit identifier (2020-01-01 and later)
Line 1,048:		Line 1,049:

	for _, pattern in ipairs (patterns) do -- spin through the patterns looking for a match		for _, pattern in ipairs (patterns) do -- spin through the patterns looking for a match
	local y, m, d = id:match (pattern); -- attempt to get year, month and date from the identifier		if id:match (pattern) then
			local y, m, d = id:match (pattern); -- found a match, attempt to get year, month and date from the identifier

	if m then -- m is nil when ~~no match~~		if m then -- m is nil when id is the 8-digit form
	if not is_valid_rxiv_date (y, m, d, 'm') then -- validate the encoded date; 'm' for medrxiv limit		if not is_valid_rxiv_date (y, m, d, 'b') then -- validate the encoded date; 'b' for medrxiv limit
	break; -- date fail; break out early so we don't unset the ~~err_msg_flag~~		break; -- date fail; break out early so we don't unset the error message
			end
	end		end
			err_msg_flag = nil; -- we found a match so unset the error message
			break; -- and done
	end		end
	~~err_msg_flag = nil; -- we found a match and date is valid so unset the err_msg_flag~~		end -- <err_msg_flag> remains set here when no match
	~~break; -- and done~~
	end -- ~~err_msg flag~~ remains set here when no match

	if err_msg_flag then		if err_msg_flag then

imported>Trappist the monk: sync from sandbox;

2023-08-12T19:19:04Z

sync from sandbox;

Show changes