Module:Citation/CS1/Identifiers/sandbox - Revision history

Trappist the monk: reset changes list;

2025-04-12T20:00:13Z

reset changes list;

← Previous revision		Revision as of 20:00, 12 April 2025
Line 1:		Line 1:
	--[[		--[[
	History of changes since last sync: ~~2024~~-12-28		History of changes since last sync: 2025-04-12

	2025-02-28: emit error message when isbn present for pre-1965 pub date; see Help_talk:Citation_Style_1#isbn_and_pre-isbn_publication_dates

	]]		]]

Trappist the monk at 13:56, 12 April 2025

2025-04-12T13:56:37Z

← Previous revision		Revision as of 13:56, 12 April 2025
Line 741:		Line 741:

	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 1965 > tonumber(year) then		if 1965 > tonumber(year) then
	set_message ('err_invalid_isbn_date'); -- set an error message		set_message ('err_invalid_isbn_date'); -- set an error message

Trappist the monk at 23:37, 5 April 2025

2025-04-05T23:37:30Z

← Previous revision		Revision as of 23:37, 5 April 2025
Line 300:		Line 300:

	return lccn;		return lccn;
	end		end

Trappist the monk at 16:12, 14 March 2025

2025-03-14T16:12:03Z

← Previous revision		Revision as of 16:12, 14 March 2025
Line 744:		Line 744:
	if 1965 > tonumber(year) then		if 1965 > tonumber(year) then
	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 isbn_str; -- return id text
			prefix = handler.prefix, id = isbn_str, separator = handler.separator});
	end		end
	end		end

Trappist the monk at 20:08, 3 March 2025

2025-03-03T20:08:46Z

← Previous revision		Revision as of 20:08, 3 March 2025
Line 1:		Line 1:
	--[[		--[[
	History of changes since last sync: 2024-12-28		History of changes since last sync: 2024-12-28

			2025-02-28: emit error message when isbn present for pre-1965 pub date; see Help_talk:Citation_Style_1#isbn_and_pre-isbn_publication_dates

	]]		]]

Trappist the monk at 00:24, 28 February 2025

2025-02-28T00:24:29Z

← Previous revision		Revision as of 00:24, 28 February 2025
Line 717:		Line 717:
	]]		]]

	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 729:		Line 730:
	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 735:		Line 736:
	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 1965 > tonumber(year) then
			set_message ('err_invalid_isbn_date'); -- set an error message
			return isbn_str; -- return id text
			end
	end		end

Trappist the monk: reset changes list;

2025-01-04T14:41:50Z

reset changes list;

← Previous revision		Revision as of 14:41, 4 January 2025
Line 1:		Line 1:
	--[[		--[[
	History of changes since last sync: 2024-08-17		History of changes since last sync: 2024-12-28

	2024-08-19: fix extended free doi bug; see Help_talk:Citation_Style_1#module_suite_update_17–18_August_2024
	2024-12-19: bump 5-digit doi prefix limit; see Help_talk:Citation_Style_1#DOI_prefix_limits_should_be_bumped.

	]]		]]

Trappist the monk at 20:07, 19 December 2024

2024-12-19T20:07:45Z

← Previous revision		Revision as of 20:07, 19 December 2024
Line 3:		Line 3:

	2024-08-19: fix extended free doi bug; see Help_talk:Citation_Style_1#module_suite_update_17–18_August_2024		2024-08-19: fix extended free doi bug; see Help_talk:Citation_Style_1#module_suite_update_17–18_August_2024
			2024-12-19: bump 5-digit doi prefix limit; see Help_talk:Citation_Style_1#DOI_prefix_limits_should_be_bumped.

	]]		]]

Trappist the monk at 20:04, 19 December 2024

2024-12-19T20:04:27Z

← Previous revision		Revision as of 20:04, 19 December 2024
Line 603:		Line 603:
	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

Trappist the monk at 17:43, 19 August 2024

2024-08-19T17:43:23Z

← Previous revision		Revision as of 17:43, 19 August 2024
Line 2:		Line 2:
	History of changes since last sync: 2024-08-17		History of changes since last sync: 2024-08-17

			2024-08-19: fix extended free doi bug; see Help_talk:Citation_Style_1#module_suite_update_17–18_August_2024

	]]		]]
Line 562:		Line 563:
	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 597:		Line 598:
	end		end

			local suffix;
	local registrant = mw.ustring.match (id, '^10%.([^/]+)/[^%s–]-[^%.,]$'); -- registrant set when DOI has the proper basic form		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
Line 629:		Line 631:
	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