Module:Citation/CS1/Identifiers: Difference between revisions

Revision as of 12:23, 20 February 2016

Revision as of 10:52, 16 April 2016

Line 1:

local identifiers = {};

Line 97 ⟶ 98:

local function check_isbn( isbn_str )

if nil ~= isbn_str:match("[^%s-0-9X]") then
return false;, end'invalid character'; -- fail if isbn_str contains anything but digits, hyphens, or the uppercase X

end

isbn_str = isbn_str:gsub( "-", "" ):gsub( " ", "" ); -- remove hyphens and spaces

local len = isbn_str:len();

if len ~= 10 and len ~= 13 then

return false, 'length'; -- fail if incorrect length

end

if len == 10 then

if isbn_str:match( "^%d*X?$" ) == nil then -- returnfail false;if endisbn_str has 'X' anywhere but last position

return is_valid_isxn(isbn_strfalse, 10)'invalid form';

end

return is_valid_isxn(isbn_str, 10), 'checksum';

else

if isbn_str:match( "^%d+$" ) == nil then

local temp = 0;

return false, 'invalid character'; -- fail if isbn13 is not all digits

if isbn_str:match( "^97[89]%d*$" ) == nil then return false; end -- isbn13 begins with 978 or 979; ismn begins with 979

end

return is_valid_isxn_13 (isbn_str);

if isbn_str:match( "^97[89]%d*$" ) == nil then

return false, 'invalid prefix'; -- fail when isbn13 does not begin with 978 or 979

end

return is_valid_isxn_13 (isbn_str), 'checksum';

end

end

Line 723 ⟶ 732:

elseif k == 'ISBN' then

local ISBN = internal_link_id( handler );

local check;

if not check_isbn( v ) and not is_set(options.IgnoreISBN) then

local temperr_type = 0'';

ISBN = ISBN .. set_error( 'bad_isbn', {}, false, " ", "" );

-- if not check_isbn( v ) and not is_set(options.IgnoreISBN) then

-- ISBN = ISBN .. set_error( 'bad_isbn', {}, false, " ", "" );

-- end

check, err_type = check_isbn( v );

if not check then

if is_set(options.IgnoreISBN) then -- ISBN is invalid; if |ignore-isbn-error= set

add_maint_cat ('ignore_isbn_err'); -- ad a maint category

else

ISBN = ISBN .. set_error( 'bad_isbn', {err_type}, false, " ", "" ); -- else display an error message

end

elseif is_set(options.IgnoreISBN) then -- ISBN is OK; if |ignore-isbn-error= set

add_maint_cat ('ignore_isbn_err'); -- because |ignore-isbn-error= unnecessary

end

table.insert( new_list, {handler.label, ISBN } );