Module:Citation/CS1: Difference between revisions

-- Add this page to the deprecated parameter tracking category

table.insert( z.error_categories, "Pages containing cite templates with deprecated parameters" ); -- add page to category

-- Checks that parameter name is valid using the whitelist

    name = tostring( name );

    -- Normal arguments

    if whitelist.basic_arguments[ name ] then

        return true;

    end

    -- Arguments with numbers in them

    name = name:gsub( "%d+", "#" );

    if whitelist.numbered_arguments[ name ] then

        return true;

    end

    -- Not found, argument not supported.

Formats a PMC and checks for embargoed articles. The embargo parameter takes a date for a value. If the embargo date is in the futue

the PMC identifier will not be linked to the article.  If the embargo specifies a date in the past, or if it is empty or omitted, then

the PMC identifier is linked to the article through the link at cfg.id_handlers['PMC'].link.

 

The {{citation/core}} version of {{cite journal}} links the citation title (if url parameter is empty) when embargo date is in the past

or when embargo parameter is missing or empty. That behavior is inconsistent with the behavior of other identifiers used in CS1 and is

not supported here.

function pmc(id, embargo)

if good1 and good2 and tonumber( embargo_date ) < tonumber( todays_date ) then --if embargo date is in the past then

text = externallinkid({link = handler.link, label = handler.label, --ok to link to article

prefix=handler.prefix,id=id,separator=handler.separator, encode=handler.encode})

else

text="[[" .. handler.link .. "|" .. handler.label .. "]]:" .. handler.separator .. id; --still embargoed so no external link

return text

    if is_set(inactive) then

        text = "[[" .. handler.link .. "|" .. handler.label .. "]]:" .. id;

        table.insert( z.error_categories, "Pages with DOIs inactive since " .. selectyear(inactive) );      

        inactive = " (" .. cfg.messages['inactive'] .. " " .. inactive .. ")"  

    else  

        text = externallinkid({link = handler.link, label = handler.label,

            prefix=handler.prefix,id=id,separator=handler.separator, encode=handler.encode})

        inactive = ""  

    end

    if ( string.sub(id,1,3) ~= "10." ) then       

        cat = seterror( 'bad_doi' );

    end

    return text .. inactive .. cat  

-- returns a number according to the month in a date 1 for January, etc.  If not a valid month, returns 0

function get_month_number (month)

local long_months = {['january']=1, ['february']=2, ['march']=3, ['april']=4, ['may']=5, ['june']=6, ['july']=7, ['august']=8, ['september']=9, ['october']=10, ['november']=11, ['december']=12};

local short_months = {['jan']=1, ['feb']=2, ['mar']=3, ['apr']=4, ['may']=5, ['jun']=6, ['jul']=7, ['aug']=8, ['sep']=9, ['oct']=10, ['nov']=11, ['dec']=12};

if temp then return temp; end -- if month is the long-form name

if temp then return temp; end -- if month is the short-form name

return 0; -- misspelled or not a month name

if (2==month) then -- if February

month_length = 28; -- then 28 days unless

if 1582 > tonumber(year) then -- Julian calendar

else -- Gregorian calendar

if (0==(year%4) and (0~=(year%100) or 0==(year%400))) then -- date specifies a leap year

month_length = 29; -- if leap year then 29 days in February

COinS_date is date_string without anchor_year disambiguators if any

elseif date_string:match("^%a+%s*%d%d%d%d%a?$") then -- month/season year

if v:match("^c%.%s%d%d%d%d?%a?$") then -- special case for c. year or with or without CITEREF disambiguator - only |date= and |year=

elseif 'date'==k then -- if the parameter is |date=

good_date, anchor_year, COinS_date = true, v:match("((n%.d%.)%a?)"); --"n.d."; -- no error when date parameter is set to no date

good_date, anchor_year, COinS_date = true, v:match("((nd)%a?)"); --"nd"; -- no error when date parameter is set to no date

if false==good_date then -- assemble one error message so we don't add the tracking category multiple times

Determines whether an URL string is valid

ISBN-10 and ISSN validator code calculates checksum across all isbn/issn digits including the check digit. If the number is valid the result will be 0.

Before calling this function, issbn/issn must be checked for length and stripped of dashes, spaces and other non-isxn characters.

for i, v in ipairs( isxn_str ) do -- loop through all of the byte an calculate the checksum

    isbn_str = cleanisbn( isbn_str ):gsub( "-", "" );

    local len = isbn_str:len();

    if len ~= 10 and len ~= 13 then

        return false;

    end

    if len == 10 then

        if isbn_str:match( "^%d*X?$" ) == nil then return false; end

    else

    local temp = 0;

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

        isbn_str = { isbn_str:byte(1, len) };

        for i, v in ipairs( isbn_str ) do

            temp = temp + (3 - 2*(i % 2)) * tonumber( string.char(v) );

        end

        return temp % 10 == 0;

    end

 

 

-- Attempts to convert names to initials.

function reducetoinitials(first)

     local initials = {}

     function comp( a, b )

This is the main function foing the majority of the citation

    local Series = A['Series'];

if is_set(Issue) then -- cite techreport uses 'number', which everything else aliases to 'issue'

if not is_set(Year) then -- prevent Year from being set from DateIn  TODO: eliminate the need for this?

if is_set(anchor_year) then

Year = anchor_year;

         ['Date'] = first_set(COinS_date, Date, Year, PublicationDate),

local name = cfg.iso639_1[Language:lower()]; -- get the language name if Language parameter has a valid iso 639-1 code

if nil == name then

Language=" " .. wrap( 'language', Language ); -- no match, use parameter's value

else

if 0 == this_page.namespace and 'en' ~= Language:lower() then --found a match; is this page main / article space and English not the language?

Language=" " .. wrap( 'language', name .. '[[Category:Articles with ' .. name .. '-language external links]]' ); -- in main space and not English: categorize

else

Language=" " .. wrap( 'language', name ); --not in mainspace or language is English so don't categorize

end