Module:Citation/CS1/Identifiers: Difference between revisions
EnWikiAdmin (talk | contribs) m 1 revision imported |
sync from sandbox; |
||
Line 555: | Line 555: | ||
local err_flag; | local err_flag; | ||
local function is_extended_free (registrant, | 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 | 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- | '^[^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, | 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 |