Module:Citation/CS1: Difference between revisions

Jump to navigation Jump to search
m17
m (1 revision)
 
(m17)
 
(2 intermediate revisions by the same user not shown)
Line 6: Line 6:


-- Include translation message hooks, ID and error handling configuration settings.
-- Include translation message hooks, ID and error handling configuration settings.
--local cfg = mw.loadData( 'Module:Citation/CS1/Configuration/sandbox' );
local cfg = mw.loadData( 'Module:Citation/CS1/Configuration' );


-- Contains a list of all recognized parameters
-- Contains a list of all recognized parameters
--local whitelist = mw.loadData( 'Module:Citation/CS1/Whitelist/sandbox' );
local whitelist = mw.loadData( 'Module:Citation/CS1/Whitelist' );
 
--local dates = require('Module:Citation/CS1/Date_validation/sandbox').dates -- location of date validation code


-- Whether variable is set or not
-- Whether variable is set or not
Line 49: Line 47:
if true ~= Page_in_deprecated_cat then -- if we haven't been here before then set a  
if true ~= Page_in_deprecated_cat then -- if we haven't been here before then set a  
Page_in_deprecated_cat=true; -- sticky flag so that if there are more than one deprecated parameter the category is added only once
Page_in_deprecated_cat=true; -- sticky flag so that if there are more than one deprecated parameter the category is added only once
-- table.insert( z.message_tail, { seterror( 'deprecated_params', {error_message}, true ) } ); -- add error message
table.insert( z.message_tail, { seterror( 'deprecated_params', {error_message}, true ) } ); -- add error message
table.insert( z.message_tail, { seterror( 'deprecated_params', {}, true ) } ); -- add error message
end
end
end
end
Line 263: Line 260:
         label=handler.label , prefix="//www.amazon."..domain.."/dp/",id=id,
         label=handler.label , prefix="//www.amazon."..domain.."/dp/",id=id,
         encode=handler.encode, separator = handler.separator})
         encode=handler.encode, separator = handler.separator})
end
--[[
Format LCCN link and do simple error checking.  LCCN is a character string 8-12 characters long. The length of the LCCN dictates the character type of the first 1-3 characters; the
rightmost eight are always digits. http://info-uri.info/registry/OAIHandler?verb=GetRecord&metadataPrefix=reg&identifier=info:lccn/
length = 8 then all digits
length = 9 then lccn[1] is alpha
length = 10 then lccn[1] and lccn[2] are both alpha or both digits
length = 11 then lccn[1] is alpha, lccn[2] and lccn[3] are both alpha or both digits
length = 12 then lccn[1] and lccn[2] are both alpha
]]
function lccn(id)
local handler = cfg.id_handlers['LCCN'];
local err_cat =  ''; -- presume that LCCN is valid
local len = id:len(); -- get the length of the lccn
if 8 == len then
if id:match("[^%d]") then -- if LCCN has anything but digits (nil if only digits)
err_cat = ' ' .. seterror( 'bad_lccn' ); -- set an error message
end
elseif 9 == len then -- LCCN should be adddddddd
if nil == id:match("%a%d%d%d%d%d%d%d%d") then -- does it match our pattern?
err_cat = ' ' .. seterror( 'bad_lccn' ); -- set an error message
end
elseif 10 == len then -- LCCN should be aadddddddd or dddddddddd
if id:match("[^%d]") then -- if LCCN has anything but digits (nil if only digits) ...
if nil == id:match("^%a%a%d%d%d%d%d%d%d%d") then -- ... see if it matches our pattern
err_cat = ' ' .. seterror( 'bad_lccn' ); -- no match, set an error message
end
end
elseif 11 == len then -- LCCN should be aaadddddddd or adddddddddd
if not (id:match("^%a%a%a%d%d%d%d%d%d%d%d") or id:match("^%a%d%d%d%d%d%d%d%d%d%d")) then -- see if it matches one of our patterns
err_cat = ' ' .. seterror( 'bad_lccn' ); -- no match, set an error message
end
elseif 12 == len then -- LCCN should be aadddddddddd
if not id:match("^%a%a%d%d%d%d%d%d%d%d%d%d") then -- see if it matches our pattern
err_cat = ' ' .. seterror( 'bad_lccn' ); -- no match, set an error message
end
else
err_cat = ' ' .. seterror( 'bad_lccn' ); -- wrong length, set an error message
end
return externallinkid({link = handler.link, label = handler.label,
prefix=handler.prefix,id=id,separator=handler.separator, encode=handler.encode}) .. err_cat;
end
end


Line 353: Line 303:


--[[
--[[
Format a PMC, do simple error checking, and check for embargoed articles.
Formats a PMC and checks for embargoed articles. The embargo parameter takes a date for a value. If the embargo date is in the future
 
The embargo parameter takes a date for a value. If the embargo date is in the future
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 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'].prefix.
the PMC identifier is linked to the article through the link at cfg.id_handlers['PMC'].prefix.
PMCs are sequential numbers beginning at 1 and counting up.  This code checks the PMC to see that it contains only digits and is less
than test_limit; the value in local variable test_limit will need to be updated periodically as more PMCs are issued.
]]
]]
function pmc(id, embargo)
function pmc(id, embargo)
local test_limit = 5000000; -- update this value as PMCs approach
local handler = cfg.id_handlers['PMC'];
local handler = cfg.id_handlers['PMC'];
local err_cat =  ''; -- presume that PMC is valid
      
      
local text;
local text;


if id:match("[^%d]") then -- if PMC has anything but digits
err_cat = ' ' .. seterror( 'bad_pmc' ); -- set an error message
else -- PMC is only digits
local id_num = tonumber(id); -- convert id to a number for range testing
if 1 > id_num or test_limit < id_num then -- if PMC is outside test limit boundaries
err_cat = ' ' .. seterror( 'bad_pmc' ); -- set an error message
end
end
if is_embargoed(embargo) then
if is_embargoed(embargo) then
text="[[" .. handler.link .. "|" .. handler.label .. "]]:" .. handler.separator .. id .. err_cat; --still embargoed so no external link
text="[[" .. handler.link .. "|" .. handler.label .. "]]:" .. handler.separator .. id; --still embargoed so no external link
else
else
text = externallinkid({link = handler.link, label = handler.label, --no embargo date, ok to link to article
text = externallinkid({link = handler.link, label = handler.label, --no embargo date, ok to link to article
prefix=handler.prefix,id=id,separator=handler.separator, encode=handler.encode}) .. err_cat;
prefix=handler.prefix,id=id,separator=handler.separator, encode=handler.encode})
end
end
return text;
return text;
Line 388: Line 322:


-- Formats a DOI and checks for DOI errors.
-- Formats a DOI and checks for DOI errors.
 
function doi(id, inactive)
-- DOI names contain two parts: prefix and suffix separated by a forward slash.
--  Prefix: directory indicator '10.' followed by a registrant code
--  Suffix: character string of any length chosen by the registrant
 
-- This function checks a DOI name for: prefix/suffix.  If the doi name contains spaces or endashes,
-- or, if it ends with a period or a comma, this function will emit a bad_doi error message.
 
-- DOI names are case-insensitive and can incorporate any printable Unicode characters so the test for spaces, endash,
-- and terminal punctuation may not be technically correct but it appears, that in practice these characters are rarely if ever used in doi names.
 
function doi(id, inactive)
     local cat = ""
     local cat = ""
     local handler = cfg.id_handlers['DOI'];
     local handler = cfg.id_handlers['DOI'];
Line 419: Line 342:
end
end


if nil == id:match("^10%.[^%s–]-/[^%s–]-[^%.,]$") then -- doi must begin with '10.', must contain a fwd slash, must not contain spaces or endashes, and must not end with period or comma
if nil == id:match("^10%.[^%s–]-[^%.,]$") then -- doi must begin with '10.', must not contain spaces or endashes, and must not end with period or comma
cat = ' ' .. seterror( 'bad_doi' );
cat = ' ' .. seterror( 'bad_doi' );
end
end
Line 501: Line 424:
end
end


if "AV media notes" == cite_class or "DVD notes" == cite_class then -- if this citation is cite AV media notes or cite DVD notes
if "podcast" == cite_class then -- if this citation is cite podcast
return "Media notes"; -- display AV media notes / DVD media notes annotation
 
elseif "podcast" == cite_class then -- if this citation is cite podcast
return "Podcast"; -- display podcast annotation
return "Podcast"; -- display podcast annotation


Line 518: Line 438:
end
end


--[[
-- returns a number according to the month in a date: 1 for January, etcCapitalization and spelling must be correct. If not a valid month, returns 0
Determines whether a URL string is valid
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};
At present the only check is whether the string appears to
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};
be prefixed with a URI schemeIt is not determined whether
local temp;
the URI scheme is valid or whether the URL is otherwise well
temp=long_months[month];
formed.
if temp then return temp; end -- if month is the long-form name
]]
temp=short_months[month];
function checkurl( url_str )
if temp then return temp; end -- if month is the short-form name
    -- Protocol-relative or URL scheme
return 0; -- misspelled, improper case, or not a month name
    return url_str:sub(1,2) == "//" or url_str:match( "^[^/]*:" ) ~= nil;
end
end


-- Removes irrelevant text and dashes from ISBN number
-- returns a number according to the sequence of seasons in a year: 1 for Winter, etc.  Capitalization and spelling must be correct. If not a valid season, returns 0
-- Similar to that used for Special:BookSources
function get_season_number (season)
function cleanisbn( isbn_str )
local season_list = {['Winter']=1, ['Spring']=2, ['Summer']=3, ['Fall']=4, ['Autumn']=4}
    return isbn_str:gsub( "[^-0-9X]", "" );
local temp;
temp=season_list[season];
if temp then return temp; end -- if season is a valid name return its number
return 0; -- misspelled, improper case, or not a season name
end
end


-- Extract page numbers from external wikilinks in any of the |page=, |pages=, or |at= parameters for use in COinS.
--[[
function get_coins_pages (pages)
Returns true if day is less than or equal to the number of days in month; else returns false.
if not is_set (pages) then return pages; end -- if no page numbers then we're done
    while true do
pattern = pages:match("%[([%w/:\.]+%s+)[%w%d].*%]"); -- pattern is the opening bracket, the url and following space(s): "[url "
if nil == pattern then break; end -- no more urls
pages = pages:gsub(pattern, ""); -- remove as many instances of pattern as possible
end
pages = pages:gsub("[%[%]]", ""); -- remove the brackets
pages = pages:gsub("–", "-" ); -- replace endashes with hyphens
pages = pages:gsub("&%w+;", "-" ); -- and replace html entities (&ndash; etc) with hyphens; do we need to replace numerical entities like &#32; and the like?
return pages;
end


--[[
Assumes Julian calendar prior to year 1582 and Gregorian calendar thereafter. Accounts for Julian calendar leap years before 1582 and Gregorian leap years after 1582.
ISBN-10 and ISSN validator code calculates checksum across all isbn/issn digits including the check digit. ISBN-13 is checked in checkisbn().
Where the two calendars overlap (1582 to approximately 1923) dates are assumed to be Gregorian.
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.
function is_valid_date (year, month, day)
]]
local days_in_month = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
function is_valid_isxn (isxn_str, len)
local month_length;
local temp = 0;
if (2==month) then -- if February
isxn_str = { isxn_str:byte(1, len) }; -- make a table of bytes
month_length = 28; -- then 28 days unless
len = len+1; -- adjust to be a loop counter
if 1582 > tonumber(year) then -- Julian calendar
for i, v in ipairs( isxn_str ) do -- loop through all of the bytes and calculate the checksum
if 0==(year%4) then
if v == string.byte( "X" ) then -- if checkdigit is X
month_length = 29;
temp = temp + 10*( len - i ); -- it represents 10 decimal
end
else
else -- Gregorian calendar
temp = temp + tonumber( string.char(v) )*(len-i);
if (0==(year%4) and (0~=(year%100) or 0==(year%400))) then -- is a leap year?
month_length = 29; -- if leap year then 29 days in February
end
end
end
else
month_length=days_in_month[month];
end
end
return temp % 11 == 0; -- returns true if calculation result is zero
end


-- Determines whether an ISBN string is valid
if tonumber (day) > month_length then
function checkisbn( isbn_str )
if nil ~= isbn_str:match("[^%s-0-9X]") then return false; end -- fail if isbn_str contains anything but digits, hyphens, or the uppercase X
isbn_str = isbn_str:gsub( "-", "" ):gsub( " ", "" ); -- remove hyphens and spaces
local len = isbn_str:len();
if len ~= 10 and len ~= 13 then
return false;
return false;
end
end
return true;
end


if len == 10 then
--[[
if isbn_str:match( "^%d*X?$" ) == nil then return false; end
Check a pair of months or seasons to see if both are valid members of a month or season pair.
return is_valid_isxn(isbn_str, 10);
 
else
Month pairs are expected to be left to right, earliest to latest in time.  Similarly, seasons are also left to right, earliest to latest in time.  There is
local temp = 0;
an oddity with seasons.  Winter is assigned a value of 1, spring 2, ..., fall and autumn 4.  Because winter can follow fall/autumn at the end of a calender year, a special test
if isbn_str:match( "^97[89]%d*$" ) == nil then return false; end -- isbn13 begins with 978 or 979
is made to see if |date=Fall-Winter yyyy (4-1) is the date.
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) );
function is_valid_month_season_range(range_start, range_end)
local range_start_number = get_month_number (range_start);
if 0 == range_start_number then -- is this a month range?
local range_start_number = get_season_number (range_start); -- not a month; is it a season? get start season number
local range_end_number = get_season_number (range_end); -- get end season number
 
if 0 ~= range_start_number then -- is start of range a season?
if range_start_number < range_end_number then -- range_start is a season
return true; -- return true when range_end is also a season and follows start season; else false
end
if 4 == range_start_number and 1 == range_end_number then -- special case when range is Fall-Winter or Autumn-Winter
return true;
end
end
end
return temp % 10 == 0;
return false; -- range_start is not a month or a season; or range_start is a season and range_end is not; or improper season sequence
end
 
local range_end_number = get_month_number (range_end); -- get end month number
if range_start_number < range_end_number then -- range_start is a month; does range_start precede range_end?
return true; -- if yes, return true
end
end
return false; -- range_start month number is greater than or equal to range end number; or range end isn't a month
end
end


-- Gets the display text for a wikilink like [[A|B]] or [[B]] gives B
--[[
function removewikilink( str )
Check date format to see that it is one of the formats approved by MOS:DATE: MMMM D, YYYY; D MMMM YYYY; MMMM YYYY; YYYY-MM-DD; YYYY.
    return (str:gsub( "%[%[([^%[%]]*)%]%]", function(l)
Additionally, check the date to see that it is a real date: no 31 in 30-day months; no 29 February when not a leap year.  Months, both long-form and three
        return l:gsub( "^[^|]*|(.*)$", "%1" ):gsub("^%s*(.-)%s*$", "%1");
character abbreviations, and seasons must be spelled correctly.
    end));
 
end
If the date fails the fomat tests, this function returns false but does not return values for anchor_year and COinS_date. When this happens, the date parameter is
used in the COinS metadata and the CITEREF identifier gets its year from the year parameter if present.
 
Inputs:
date_string - date string from date-holding parameters (date, year, accessdate, embargo, archivedate, etc)


-- Escape sequences for content that will be used for URL descriptions
Returns:
function safeforurl( str )
false if date string is not a real date; else
    if str:match( "%[%[.-%]%]" ) ~= nil then  
true, anchor_year, COinS_date
        table.insert( z.message_tail, { seterror( 'wikilink_in_url', {}, true ) } );
anchor_year can be used in CITEREF anchors
    end
COinS_date is date_string without anchor_year disambiguator if any
   
]]
    return str:gsub( '[%[%]\n]', {   
function check_date (date_string)
        ['['] = '&#91;',
local year;
        [']'] = '&#93;',
local month=0; -- assume that month and day are not used; if either is zero then final year/month/day validation is not necessary
        ['\n'] = ' ' } );
local day=0;
end
local day2=0; -- second day in a day range
local anchor_year;
local coins_date;
 
if date_string:match("^%d%d%d%d%-%d%d%-%d%d$") then -- Year-initial numerical year month day format
year, month, day=string.match(date_string, "(%d%d%d%d)%-(%d%d)%-(%d%d)");
month=tonumber(month);
if 12 < month or 1 > month or 1583 > tonumber(year) then return false; end -- month number not valid or not Gregorian calendar
anchor_year = year;
 
elseif date_string:match("^%a+ +[1-9]%d?, +[1-9]%d%d%d%a?$") then -- month-initial: month day, year
month, day, anchor_year, year=string.match(date_string, "(%a+)%s*(%d%d?),%s*((%d%d%d%d)%a?)");
month = get_month_number (month);
if 0 == month then return false; end -- return false if month text isn't one of the twelve months
elseif date_string:match("^%a+ +[1-9]%d?–[1-9]%d?, +[1-9]%d%d%d%a?$") then -- month-initial day range: month day–day, year; days are separated by endash
month, day, day2, anchor_year, year=string.match(date_string, "(%a+) +(%d%d?)–(%d%d?), +((%d%d%d%d)%a?)");
if tonumber(day) >= tonumber(day2) then return false; end -- date range order is left to right: earlier to later; dates may not be the same;
month = get_month_number (month);
if 0 == month then return false; end -- return false if month text isn't one of the twelve months
 
elseif date_string:match("^[1-9]%d? +%a+ +[1-9]%d%d%d%a?$") then -- day-initial: day month year
day, month, anchor_year, year=string.match(date_string, "(%d%d*)%s*(%a+)%s*((%d%d%d%d)%a?)");
month = get_month_number (month);
if 0 == month then return false; end -- return false if month text isn't one of the twelve months


-- Converts a hyphen to a dash
elseif date_string:match("^[1-9]%d?–[1-9]%d? +%a+ +[1-9]%d%d%d%a?$") then -- day-range-initial: day–day month year; days are separated by endash
function hyphentodash( str )
day, day2, month, anchor_year, year=string.match(date_string, "(%d%d?)–(%d%d?) +(%a+) +((%d%d%d%d)%a?)");
    if not is_set(str) or str:match( "[%[%]{}<>]" ) ~= nil then
if tonumber(day) >= tonumber(day2) then return false; end -- date range order is left to right: earlier to later; dates may not be the same;
        return str;
month = get_month_number (month);
    end  
if 0 == month then return false; end -- return false if month text isn't one of the twelve months
    return str:gsub( '-', '–' );
end


-- Protects a string that will be wrapped in wiki italic markup '' ... ''
elseif mw.ustring.match (date_string, "^%a+–%a+ +[1-9]%d%d%d%a?$") then -- month/season range year; months separated by endash
function safeforitalics( str )
local month2
    --[[ Note: We can not use <i> for italics, as the expected behavior for
month, month2, anchor_year, year=mw.ustring.match (date_string, "(%a+)[%-/–](%a+)%s*((%d%d%d%d)%a?)");
    italics specified by ''...'' in the title is that they will be inverted
if false == is_valid_month_season_range(month, month2) then
    (i.e. unitalicized) in the resulting references.  In addition, <i> and ''
return false;
    tend to interact poorly under Mediawiki's HTML tidy. ]]
end
   
    if not is_set(str) then
elseif date_string:match("^%a+ +%d%d%d%d%a?$") then -- month/season year
        return str;
month, anchor_year, year=string.match(date_string, "(%a+)%s*((%d%d%d%d)%a?)");
    else
if 0 == get_month_number (month) then -- if month text isn't one of the twelve months, might be a season
        if str:sub(1,1) == "'" then str = "<span />" .. str; end
if 0 == get_season_number (month) then -- not a month, is it a season?
        if str:sub(-1,-1) == "'" then str = str .. "<span />"; end
return false; -- return false not a month or one of the five seasons
       
end
        -- Remove newlines as they break italics.
end
        return str:gsub( '\n', ' ' );
 
    end
elseif date_string:match("^[1-9]%d%d%d?%a?$") then -- year; here accept either YYY or YYYY
end
anchor_year, year=string.match(date_string, "((%d%d%d%d?)%a?)");
 
else
return false; -- date format not one of the MOS:DATE approved formats
end
 
if 0~=month and 0~=day then -- check year month day dates for validity
if 0~=day2 then -- If there is a second day (d–d Mmm YYYY or Mmm d–d, YYYY) test the second date
if false==is_valid_date(year,month,day2) then
return false; -- second date in date range string is not a real date return false; unset anchor_year and coins_date
end -- if second date range string is valid, fall through to test the first date range
end
if false==is_valid_date(year,month,day) then
return false; -- date string is not a real date return false; unset anchor_year and coins_date
end
end
 
coins_date= mw.ustring.gsub( date_string, "–", "-" ); -- if here, then date_string is valid; set coins_date and replace any ndash with a hyphen
return true, anchor_year, coins_date; -- format is good and date string represents a real date
end


--[[
--[[
Joins a sequence of strings together while checking for duplicate separation
Cycle the date-holding parameters in passed table date_parameters_list through check_date() to check compliance with MOS:DATE. For all valid dates, check_date() returns
characters.
true and values for anchor_year (used in CITEREF identifiers) and COinS_date (used in the COinS metadata).  The |date= parameter test is unique.  This function only
accepts anchor_year and COinS_date results from the |date= parameter test and |date= is the only date-holding parameter that is allowed to contain the no-date keywords
"n.d." or "nd" (without quotes).
 
Unlike most error messages created in this module, only one error message is created by this function. Because all of the date holding parameters are processed serially,
a single error message is created as the dates are tested.
]]
]]
function safejoin( tbl, duplicate_char )
    --[[
    Note: we use string functions here, rather than ustring functions.
   
    This has considerably faster performance and should work correctly as
    long as the duplicate_char is strict ASCII.  The strings
    in tbl may be ASCII or UTF8.
    ]]
   
    local str = '';
    local comp = '';
    local end_chr = '';
    local trim;
    for _, value in ipairs( tbl ) do
        if value == nil then value = ''; end
       
        if str == '' then
            str = value;
        elseif value ~= '' then
            if value:sub(1,1) == '<' then
                -- Special case of values enclosed in spans and other markup.
                comp = value:gsub( "%b<>", "" );
            else
                comp = value;
            end
           
            if comp:sub(1,1) == duplicate_char then
                trim = false;
                end_chr = str:sub(-1,-1);
                -- str = str .. "<HERE(enchr=" .. end_chr.. ")"
                if end_chr == duplicate_char then
                    str = str:sub(1,-2);
                elseif end_chr == "'" then
                    if str:sub(-3,-1) == duplicate_char .. "''" then
                        str = str:sub(1, -4) .. "''";
                    elseif str:sub(-5,-1) == duplicate_char .. "]]''" then
                        trim = true;
                    elseif str:sub(-4,-1) == duplicate_char .. "]''" then
                        trim = true;
                    end
                elseif end_chr == "]" then
                    if str:sub(-3,-1) == duplicate_char .. "]]" then
                        trim = true;
                    elseif str:sub(-2,-1) == duplicate_char .. "]" then
                        trim = true;
                    end
                elseif end_chr == " " then
                    if str:sub(-2,-1) == duplicate_char .. " " then
                        str = str:sub(1,-3);
                    end
                end


                if trim then
function dates(date_parameters_list)
                    if value ~= comp then
local anchor_year; -- will return as nil if the date being tested is not |date=
                        local dup2 = duplicate_char;
local COinS_date; -- will return as nil if the date being tested is not |date=
                        if dup2:match( "%A" ) then dup2 = "%" .. dup2; end
local error_message ="";
                       
local good_date=false;
                        value = value:gsub( "(%b<>)" .. dup2, "%1", 1 )
                    else
for k, v in pairs(date_parameters_list) do -- for each date-holding parameter in the list
                        value = value:sub( 2, -1 );
if is_set(v) then -- if the parameter has a value
                    end
if v:match("^c%. [1-9]%d%d%d?%a?$") then -- special case for c. year or with or without CITEREF disambiguator - only |date= and |year=
                end
if 'date'==k then
            end
good_date, anchor_year, COinS_date = true, v:match("((c%. [1-9]d%d%d?)%a?)"); -- anchor year and COinS_date only from |date= parameter
            str = str .. value;
elseif 'year'==k then
        end
good_date =  true;
    end
end
    return str;
elseif 'year'==k then -- if the parameter is |year= (but not c. year)
end
if v:match("^[1-9]%d%d%d?%a?$") then -- year with or without CITEREF disambiguator
good_date =  true;
end
elseif 'date'==k then -- if the parameter is |date=
if v:match("n%.d%.%a?") then -- if |date=n.d. with or without a CITEREF disambiguator
good_date, anchor_year, COinS_date = true, v:match("((n%.d%.)%a?)"); --"n.d."; no error when date parameter is set to no date
elseif v:match("nd%a?$") then -- if |date=nd with or without a CITEREF disambiguator
good_date, anchor_year, COinS_date = true, v:match("((nd)%a?)"); --"nd"; no error when date parameter is set to no date
else
good_date, anchor_year, COinS_date = check_date (v); -- go test the date
end
else -- any other date-holding parameter
good_date = check_date (v); -- go test the date
end
if false==good_date then -- assemble one error message so we don't add the tracking category multiple times
if is_set(error_message) then -- once we've added the first portion of the error message ...
error_message=error_message .. ", "; -- ... add a comma space separator
end
error_message=error_message .. "&#124;" .. k .. "="; -- add the failed parameter
end
end
end
if is_set(error_message) then
table.insert( z.message_tail, { seterror( 'bad_date', {error_message}, true ) } ); -- add this error message
end
 
return anchor_year, COinS_date; -- and done
end
 
--[[
Determines whether a URL string is valid
 
At present the only check is whether the string appears to
be prefixed with a URI scheme.  It is not determined whether
the URI scheme is valid or whether the URL is otherwise well
formed.
]]
function checkurl( url_str )
    -- Protocol-relative or URL scheme
    return url_str:sub(1,2) == "//" or url_str:match( "^[^/]*:" ) ~= nil;
end
 
-- Removes irrelevant text and dashes from ISBN number
-- Similar to that used for Special:BookSources
function cleanisbn( isbn_str )
    return isbn_str:gsub( "[^-0-9X]", "" );
end
 
--[[
ISBN-10 and ISSN validator code calculates checksum across all isbn/issn digits including the check digit. ISBN-13 is checked in checkisbn().
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.
]]
function is_valid_isxn (isxn_str, len)
local temp = 0;
isxn_str = { isxn_str:byte(1, len) }; -- make a table of bytes
len = len+1; -- adjust to be a loop counter
for i, v in ipairs( isxn_str ) do -- loop through all of the bytes and calculate the checksum
if v == string.byte( "X" ) then -- if checkdigit is X
temp = temp + 10*( len - i ); -- it represents 10 decimal
else
temp = temp + tonumber( string.char(v) )*(len-i);
end
end
return temp % 11 == 0; -- returns true if calculation result is zero
end


-- Attempts to convert names to initials.
-- Determines whether an ISBN string is valid
function reducetoinitials(first)
function checkisbn( isbn_str )
    local initials = {}
if nil ~= isbn_str:match("[^%s-0-9X]") then return false; end -- fail if isbn_str contains anything but digits, hyphens, or the uppercase X
    for word in string.gmatch(first, "%S+") do
isbn_str = isbn_str:gsub( "-", "" ):gsub( " ", "" ); -- remove hyphens and spaces
        table.insert(initials, string.sub(word,1,1)) -- Vancouver format does not include full stops.
local len = isbn_str:len();
    end
    return table.concat(initials) -- Vancouver format does not include spaces.
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
return is_valid_isxn(isbn_str, 10);
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
end
end


-- Formats a list of people (e.g. authors / editors)  
-- Gets the display text for a wikilink like [[A|B]] or [[B]] gives B
function listpeople(control, people)
function removewikilink( str )
     local sep = control.sep;
    return (str:gsub( "%[%[([^%[%]]*)%]%]", function(l)
     local namesep = control.namesep
        return l:gsub( "^[^|]*|(.*)$", "%1" ):gsub("^%s*(.-)%s*$", "%1");
    local format = control.format
     end));
    local maximum = control.maximum
end
    local lastauthoramp = control.lastauthoramp;
 
    local text = {}
-- Escape sequences for content that will be used for URL descriptions
     local etal = false;
function safeforurl( str )
     if str:match( "%[%[.-%]%]" ) ~= nil then
        table.insert( z.message_tail, { seterror( 'wikilink_in_url', {}, true ) } );
     end
      
      
     if sep:sub(-1,-1) ~= " " then sep = sep .. " " end
     return str:gsub( '[%[%]\n]', {   
    if maximum ~= nil and maximum < 1 then return "", 0; end
        ['['] = '&#91;',
   
         [']'] = '&#93;',
    for i,person in ipairs(people) do
        ['\n'] = ' ' } );
         if is_set(person.last) then
end
            local mask = person.mask
 
            local one
-- Converts a hyphen to a dash
            local sep_one = sep;
function hyphentodash( str )
            if maximum ~= nil and i > maximum then
    if not is_set(str) or str:match( "[%[%]{}<>]" ) ~= nil then
                etal = true;
        return str;
                break;
    end   
            elseif (mask ~= nil) then
    return str:gsub( '-', '–' );
                local n = tonumber(mask)
end
                if (n ~= nil) then
 
                    one = string.rep("&mdash;",n)
-- Protects a string that will be wrapped in wiki italic markup '' ... ''
                else
function safeforitalics( str )
                    one = mask;
    --[[ Note: We can not use <i> for italics, as the expected behavior for
                    sep_one = " ";
    italics specified by ''...'' in the title is that they will be inverted
                end
    (i.e. unitalicized) in the resulting references. In addition, <i> and ''
            else
    tend to interact poorly under Mediawiki's HTML tidy. ]]
                one = person.last
   
                local first = person.first
    if not is_set(str) then
                if is_set(first) then
        return str;
                    if ( "vanc" == format ) then first = reducetoinitials(first) end
    else
                    one = one .. namesep .. first
        if str:sub(1,1) == "'" then str = "<span />" .. str; end
                end
        if str:sub(-1,-1) == "'" then str = str .. "<span />"; end
                if is_set(person.link) then one = "[[" .. person.link .. "|" .. one .. "]]" end
       
                if is_set(person.link) and nil ~= person.link:find("//") then one = one .. " " .. seterror( 'bad_authorlink' ) end -- check for url in author link;
        -- Remove newlines as they break italics.
            end
        return str:gsub( '\n', ' ' );
            table.insert( text, one )
            table.insert( text, sep_one )
        end
     end
     end
end


    local count = #text / 2;
--[[
    if count > 0 then
Joins a sequence of strings together while checking for duplicate separation
        if count > 1 and is_set(lastauthoramp) and not etal then
characters.
            text[#text-2] = " & ";
]]
        end
function safejoin( tbl, duplicate_char )
        text[#text] = nil;
    --[[
     end
     Note: we use string functions here, rather than ustring functions.
      
      
     local result = table.concat(text) -- construct list
     This has considerably faster performance and should work correctly as
     if etal then
     long as the duplicate_char is strict ASCII. The strings
        local etal_text = cfg.messages['et al'];
    in tbl may be ASCII or UTF8.
        result = result .. " " .. etal_text;
     ]]
     end
      
      
     -- if necessary wrap result in <span> tag to format in Small Caps
     local str = '';
    if ( "scap" == format ) then result =  
    local comp = '';
         '<span class="smallcaps" style="font-variant:small-caps">' .. result .. '</span>';
    local end_chr = '';
    end
    local trim;
    return result, count
    for _, value in ipairs( tbl ) do
end
        if value == nil then value = ''; end
 
          
-- Generates a CITEREF anchor ID.
        if str == '' then
function anchorid( options )
            str = value;
    return "CITEREF" .. table.concat( options );
        elseif value ~= '' then
end
            if value:sub(1,1) == '<' then
 
                -- Special case of values enclosed in spans and other markup.
-- Gets name list from the input arguments
                comp = value:gsub( "%b<>", "" );
function extractnames(args, list_name)
            else
    local names = {};
                comp = value;
    local i = 1;
            end
    local last;
           
   
            if comp:sub(1,1) == duplicate_char then
    while true do
                trim = false;
        last = selectone( args, cfg.aliases[list_name .. '-Last'], 'redundant_parameters', i );
                end_chr = str:sub(-1,-1);
        if not is_set(last) then
                -- str = str .. "<HERE(enchr=" .. end_chr.. ")"
            -- just in case someone passed in an empty parameter
                if end_chr == duplicate_char then
            break;
                    str = str:sub(1,-2);
        end
                elseif end_chr == "'" then
        names[i] = {
                    if str:sub(-3,-1) == duplicate_char .. "''" then
            last = last,
                        str = str:sub(1, -4) .. "''";
            first = selectone( args, cfg.aliases[list_name .. '-First'], 'redundant_parameters', i ),
                    elseif str:sub(-5,-1) == duplicate_char .. "]]''" then
            link = selectone( args, cfg.aliases[list_name .. '-Link'], 'redundant_parameters', i ),
                        trim = true;
            mask = selectone( args, cfg.aliases[list_name .. '-Mask'], 'redundant_parameters', i )
                    elseif str:sub(-4,-1) == duplicate_char .. "]''" then
        };
                        trim = true;
        i = i + 1;
                    end
    end
                elseif end_chr == "]" then
    return names;
                    if str:sub(-3,-1) == duplicate_char .. "]]" then
end
                        trim = true;
 
                    elseif str:sub(-2,-1) == duplicate_char .. "]" then
-- Populates ID table from arguments using configuration settings
                        trim = true;
function extractids( args )
                    end
    local id_list = {};
                elseif end_chr == " " then
    for k, v in pairs( cfg.id_handlers ) do   
                    if str:sub(-2,-1) == duplicate_char .. " " then
        v = selectone( args, v.parameters, 'redundant_parameters' );
                        str = str:sub(1,-3);
        if is_set(v) then id_list[k] = v; end
                    end
                end
 
                if trim then
                    if value ~= comp then
                        local dup2 = duplicate_char;
                        if dup2:match( "%A" ) then dup2 = "%" .. dup2; end
                       
                        value = value:gsub( "(%b<>)" .. dup2, "%1", 1 )
                    else
                        value = value:sub( 2, -1 );
                    end
                end
            end
            str = str .. value;
        end
     end
     end
     return id_list;
     return str;
end
end


-- Takes a table of IDs and turns it into a table of formatted ID outputs.
-- Attempts to convert names to initials.
function buildidlist( id_list, options )
function reducetoinitials(first)
     local new_list, handler = {};
    local initials = {}
    for word in string.gmatch(first, "%S+") do
        table.insert(initials, string.sub(word,1,1)) -- Vancouver format does not include full stops.
    end
    return table.concat(initials) -- Vancouver format does not include spaces.
end
 
-- Formats a list of people (e.g. authors / editors)
function listpeople(control, people)
     local sep = control.sep;
    local namesep = control.namesep
    local format = control.format
    local maximum = control.maximum
    local lastauthoramp = control.lastauthoramp;
    local text = {}
    local etal = false;
      
      
     function fallback(k) return { __index = function(t,i) return cfg.id_handlers[k][i] end } end;
     if sep:sub(-1,-1) ~= " " then sep = sep .. " " end
    if maximum ~= nil and maximum < 1 then return "", 0; end
      
      
     for k, v in pairs( id_list ) do
     for i,person in ipairs(people) do
         -- fallback to read-only cfg
         if is_set(person.last) then
        handler = setmetatable( { ['id'] = v }, fallback(k) );
             local mask = person.mask
       
            local one
        if handler.mode == 'external' then
             local sep_one = sep;
             table.insert( new_list, {handler.label, externallinkid( handler ) } );
            if maximum ~= nil and i > maximum then
        elseif handler.mode == 'internal' then
                etal = true;
             table.insert( new_list, {handler.label, internallinkid( handler ) } );
                break;
        elseif handler.mode ~= 'manual' then
            elseif (mask ~= nil) then
            error( cfg.messages['unknown_ID_mode'] );
                local n = tonumber(mask)
        elseif k == 'DOI' then
                if (n ~= nil) then
            table.insert( new_list, {handler.label, doi( v, options.DoiBroken ) } );
                    one = string.rep("&mdash;",n)
        elseif k == 'ASIN' then
                else
            table.insert( new_list, {handler.label, amazon( v, options.ASINTLD ) } );  
                    one = mask;
        elseif k == 'LCCN' then
                    sep_one = " ";
             table.insert( new_list, {handler.label, lccn( v ) } );
                end
        elseif k == 'OL' then
             else
            table.insert( new_list, {handler.label, openlibrary( v ) } );
                one = person.last
        elseif k == 'PMC' then
                local first = person.first
            table.insert( new_list, {handler.label, pmc( v, options.Embargo ) } );
                if is_set(first) then  
        elseif k == 'PMID' then
                    if ( "vanc" == format ) then first = reducetoinitials(first) end
            table.insert( new_list, {handler.label, pmid( v ) } );
                    one = one .. namesep .. first
        elseif k == 'ISSN' then
                end
        table.insert( new_list, {handler.label, issn( v ) } );
                if is_set(person.link) then one = "[[" .. person.link .. "|" .. one .. "]]" end
        elseif k == 'ISBN' then
            local ISBN = internallinkid( handler );
            if not checkisbn( v ) and not is_set(options.IgnoreISBN) then
                ISBN = ISBN .. seterror( 'bad_isbn', {}, false, " ", "" );
             end
             end
             table.insert( new_list, {handler.label, ISBN } );              
             table.insert( text, one )
         else
            table.insert( text, sep_one )
             error( cfg.messages['unknown_manual_ID'] );
        end
    end
 
    local count = #text / 2;
    if count > 0 then
         if count > 1 and is_set(lastauthoramp) and not etal then
             text[#text-2] = " & ";
         end
         end
        text[#text] = nil;
     end
     end
      
      
     function comp( a, b ) -- used in following table.sort()
     local result = table.concat(text) -- construct list
         return a[1] < b[1];
    if etal then
         local etal_text = cfg.messages['et al'];
        result = result .. " " .. etal_text;
     end
     end
      
      
     table.sort( new_list, comp );
     -- if necessary wrap result in <span> tag to format in Small Caps
     for k, v in ipairs( new_list ) do
     if ( "scap" == format ) then result =
         new_list[k] = v[2];
         '<span class="smallcaps" style="font-variant:small-caps">' .. result .. '</span>';
     end
     end  
      
     return result, count
     return new_list;
end
 
-- Generates a CITEREF anchor ID.
function anchorid( options )
     return "CITEREF" .. table.concat( options );
end
end
 
 
-- Chooses one matching parameter from a list of parameters to consider
-- Gets name list from the input arguments
-- Generates an error if more than one match is present.
function extractnames(args, list_name)
function selectone( args, possible, error_condition, index )
     local names = {};
     local value = nil;
     local i = 1;
     local selected = '';
     local last;
     local error_list = {};
      
      
     if index ~= nil then index = tostring(index); end
     while true do
   
        last = selectone( args, cfg.aliases[list_name .. '-Last'], 'redundant_parameters', i );
    -- Handle special case of "#" replaced by empty string
        if not is_set(last) then
    if index == '1' then
            -- just in case someone passed in an empty parameter
        for _, v in ipairs( possible ) do
            break;
             v = v:gsub( "#", "" );
        end
             if is_set(args[v]) then
        names[i] = {
                if value ~= nil and selected ~= v then
            last = last,
                    table.insert( error_list, v );
            first = selectone( args, cfg.aliases[list_name .. '-First'], 'redundant_parameters', i ),
                else
             link = selectone( args, cfg.aliases[list_name .. '-Link'], 'redundant_parameters', i ),
                    value = args[v];
             mask = selectone( args, cfg.aliases[list_name .. '-Mask'], 'redundant_parameters', i )
                    selected = v;
        };
                end
        i = i + 1;
            end
    end
        end      
    return names;
end
 
-- Populates ID table from arguments using configuration settings
function extractids( args )
    local id_list = {};
    for k, v in pairs( cfg.id_handlers ) do   
        v = selectone( args, v.parameters, 'redundant_parameters' );
        if is_set(v) then id_list[k] = v; end
     end
     end
    return id_list;
end
-- Takes a table of IDs and turns it into a table of formatted ID outputs.
function buildidlist( id_list, options )
    local new_list, handler = {};
   
    function fallback(k) return { __index = function(t,i) return cfg.id_handlers[k][i] end } end;
      
      
     for _, v in ipairs( possible ) do
     for k, v in pairs( id_list ) do
         if index ~= nil then
         -- fallback to read-only cfg
            v = v:gsub( "#", index );
        handler = setmetatable( { ['id'] = v }, fallback(k) );
         end
          
         if is_set(args[v]) then
         if handler.mode == 'external' then
            if value ~= nil and selected ~= v then
            table.insert( new_list, {handler.label, externallinkid( handler ) } );
                table.insert( error_list, v );
        elseif handler.mode == 'internal' then
             else
            table.insert( new_list, {handler.label, internallinkid( handler ) } );
                value = args[v];
        elseif handler.mode ~= 'manual' then
                selected = v;
             error( cfg.messages['unknown_ID_mode'] );
            end
        elseif k == 'DOI' then
         end
            table.insert( new_list, {handler.label, doi( v, options.DoiBroken ) } );
    end
         elseif k == 'ASIN' then
   
            table.insert( new_list, {handler.label, amazon( v, options.ASINTLD ) } );
    if #error_list > 0 then
         elseif k == 'OL' then
         local error_str = "";
            table.insert( new_list, {handler.label, openlibrary( v ) } );
        for _, k in ipairs( error_list ) do
        elseif k == 'PMC' then
            if error_str ~= "" then error_str = error_str .. cfg.messages['parameter-separator'] end
            table.insert( new_list, {handler.label, pmc( v, options.Embargo ) } );
             error_str = error_str .. wrap( 'parameter', k );
        elseif k == 'PMID' then
         end
             table.insert( new_list, {handler.label, pmid( v ) } );
        if #error_list > 1 then
        elseif k == 'ISSN' then
            error_str = error_str .. cfg.messages['parameter-final-separator'];
        table.insert( new_list, {handler.label, issn( v ) } );
         elseif k == 'ISBN' then
            local ISBN = internallinkid( handler );
            if not checkisbn( v ) and not is_set(options.IgnoreISBN) then
                ISBN = ISBN .. seterror( 'bad_isbn', {}, false, " ", "" );
            end
            table.insert( new_list, {handler.label, ISBN } );              
         else
         else
             error_str = error_str .. cfg.messages['parameter-pair-separator'];
             error( cfg.messages['unknown_manual_ID'] );
         end
         end
        error_str = error_str .. wrap( 'parameter', selected );
        table.insert( z.message_tail, { seterror( error_condition, {error_str}, true ) } );
     end
     end
      
      
     return value, selected;
     function comp( a, b ) -- used in following table.sort()
end
         return a[1] < b[1];
 
-- COinS metadata (see <http://ocoins.info/>) allows automated tools to parse
-- the citation information.
function COinS(data)
    if 'table' ~= type(data) or nil == next(data) then
         return '';
     end
     end
      
      
     local ctx_ver = "Z39.88-2004";
    table.sort( new_list, comp );
    for k, v in ipairs( new_list ) do
        new_list[k] = v[2];
    end
   
    return new_list;
end
 
-- Chooses one matching parameter from a list of parameters to consider
-- Generates an error if more than one match is present.
function selectone( args, possible, error_condition, index )
     local value = nil;
    local selected = '';
    local error_list = {};
      
      
     -- treat table strictly as an array with only set values.
     if index ~= nil then index = tostring(index); end
    local OCinSoutput = setmetatable( {}, {
        __newindex = function(self, key, value)
            if is_set(value) then
                rawset( self, #self+1, table.concat{ key, '=', mw.uri.encode( removewikilink( value ) ) } );
            end
        end
    });
      
      
     if is_set(data.Chapter) then
     -- Handle special case of "#" replaced by empty string
        OCinSoutput.rft_val_fmt = "info:ofi/fmt:kev:mtx:book";
    if index == '1' then
        OCinSoutput["rft.genre"] = "bookitem";
         for _, v in ipairs( possible ) do
        OCinSoutput["rft.btitle"] = data.Chapter;
            v = v:gsub( "#", "" );
         OCinSoutput["rft.atitle"] = data.Title;
            if is_set(args[v]) then
    elseif is_set(data.Periodical) then
                if value ~= nil and selected ~= v then
        OCinSoutput.rft_val_fmt = "info:ofi/fmt:kev:mtx:journal";
                    table.insert( error_list, v );
        OCinSoutput["rft.genre"] = "article";
                else
        OCinSoutput["rft.jtitle"] = data.Periodical;
                    value = args[v];
        OCinSoutput["rft.atitle"] = data.Title;
                    selected = v;
    else
                end
        OCinSoutput.rft_val_fmt = "info:ofi/fmt:kev:mtx:book";
            end
        OCinSoutput["rft.genre"] = "book"
         end       
         OCinSoutput["rft.btitle"] = data.Title;
     end
     end
      
      
    OCinSoutput["rft.place"] = data.PublicationPlace;
     for _, v in ipairs( possible ) do
    OCinSoutput["rft.date"] = data.Date;
         if index ~= nil then
    OCinSoutput["rft.series"] = data.Series;
            v = v:gsub( "#", index );
    OCinSoutput["rft.volume"] = data.Volume;
        end
    OCinSoutput["rft.issue"] = data.Issue;
         if is_set(args[v]) then
    OCinSoutput["rft.pages"] = data.Pages;
            if value ~= nil and selected ~= v then
    OCinSoutput["rft.edition"] = data.Edition;
                table.insert( error_list, v );
    OCinSoutput["rft.pub"] = data.PublisherName;
            else
   
                value = args[v];
     for k, v in pairs( data.ID_list ) do
                selected = v;
        local id, value = cfg.id_handlers[k].COinS;
            end
         if k == 'ISBN' then value = cleanisbn( v ); else value = v; end
         if string.sub( id or "", 1, 4 ) == 'info' then
            OCinSoutput["rft_id"] = table.concat{ id, "/", v };
        else
            OCinSoutput[ id ] = value;
         end
         end
     end
     end
      
      
     local last, first;
     if #error_list > 0 then
    for k, v in ipairs( data.Authors ) do
        local error_str = "";
        last, first = v.last, v.first;
        for _, k in ipairs( error_list ) do
        if k == 1 then
            if error_str ~= "" then error_str = error_str .. cfg.messages['parameter-separator'] end
            if is_set(last) then
             error_str = error_str .. wrap( 'parameter', k );
                OCinSoutput["rft.aulast"] = last;
            end
             if is_set(first) then
                OCinSoutput["rft.aufirst"] = first;
            end
         end
         end
         if is_set(last) and is_set(first) then
         if #error_list > 1 then
             OCinSoutput["rft.au"] = table.concat{ last, ", ", first };
             error_str = error_str .. cfg.messages['parameter-final-separator'];
         elseif is_set(last) then
         else
             OCinSoutput["rft.au"] = last;
             error_str = error_str .. cfg.messages['parameter-pair-separator'];
         end
         end
        error_str = error_str .. wrap( 'parameter', selected );
        table.insert( z.message_tail, { seterror( error_condition, {error_str}, true ) } );
     end
     end
      
      
    OCinSoutput.rft_id = data.URL;
     return value, selected;
    OCinSoutput.rfr_id = table.concat{ "info:sid/", mw.site.server:match( "[^/]*$" ), ":", data.RawPage };
    OCinSoutput = setmetatable( OCinSoutput, nil );
   
    -- sort with version string always first, and combine.
    table.sort( OCinSoutput );
    table.insert( OCinSoutput, 1, "ctx_ver=" .. ctx_ver );  -- such as "Z39.88-2004"
     return table.concat(OCinSoutput, "&");
end
end


--[[
-- COinS metadata (see <http://ocoins.info/>) allows automated tools to parse
This is the main function doing the majority of the citation
-- the citation information.
formatting.
function COinS(data)
]]
     if 'table' ~= type(data) or nil == next(data) then
function citation0( config, args)
        return '';
     --[[
     end
    Load Input Parameters
      
    The argment_wrapper facillitates the mapping of multiple
     local ctx_ver = "Z39.88-2004";
    aliases to single internal variable.
    ]]
    local A = argument_wrapper( args );
 
     local i
     local PPrefix = A['PPrefix']
     local PPPrefix = A['PPPrefix']
    if is_set( A['NoPP'] ) then PPPrefix = "" PPrefix = "" end
      
      
     -- Pick out the relevant fields from the arguments. Different citation templates
     -- treat table strictly as an array with only set values.
    -- define different field names for the same underlying things.   
     local OCinSoutput = setmetatable( {}, {
     local Authors = A['Authors'];
        __newindex = function(self, key, value)
    local a = extractnames( args, 'AuthorList' );
            if is_set(value) then
 
                rawset( self, #self+1, table.concat{ key, '=', mw.uri.encode( removewikilink( value ) ) } );
    local Coauthors = A['Coauthors'];
            end
     local Others = A['Others'];
        end
     local Editors = A['Editors'];
     });
     local e = extractnames( args, 'EditorList' );
      
 
     if is_set(data.Chapter) then
    local Year = A['Year'];
        OCinSoutput.rft_val_fmt = "info:ofi/fmt:kev:mtx:book";
    local PublicationDate = A['PublicationDate'];
        OCinSoutput["rft.genre"] = "bookitem";
    local OrigYear = A['OrigYear'];
        OCinSoutput["rft.btitle"] = data.Chapter;
    local Date = A['Date'];
        OCinSoutput["rft.atitle"] = data.Title;
    local LayDate = A['LayDate'];
     elseif is_set(data.Periodical) then
     ------------------------------------------------- Get title data
        OCinSoutput.rft_val_fmt = "info:ofi/fmt:kev:mtx:journal";
    local Title = A['Title'];
        OCinSoutput["rft.genre"] = "article";
    local BookTitle = A['BookTitle'];
        OCinSoutput["rft.jtitle"] = data.Periodical;
    local Conference = A['Conference'];
        OCinSoutput["rft.atitle"] = data.Title;
     local TransTitle = A['TransTitle'];
     else
    local TitleNote = A['TitleNote'];
        OCinSoutput.rft_val_fmt = "info:ofi/fmt:kev:mtx:book";
     local TitleLink = A['TitleLink'];
        OCinSoutput["rft.genre"] = "book"
     local Chapter = A['Chapter'];
        OCinSoutput["rft.btitle"] = data.Title;
     local ChapterLink = A['ChapterLink'];
     end
     local TransChapter = A['TransChapter'];
      
     local TitleType = A['TitleType'];
     OCinSoutput["rft.place"] = data.PublicationPlace;
     local Degree = A['Degree'];
     OCinSoutput["rft.date"] = data.Date;
     local Docket = A['Docket'];
     OCinSoutput["rft.series"] = data.Series;
     local ArchiveURL = A['ArchiveURL'];
     OCinSoutput["rft.volume"] = data.Volume;
     local URL = A['URL']
     OCinSoutput["rft.issue"] = data.Issue;
    local URLorigin = A:ORIGIN('URL');
     OCinSoutput["rft.pages"] = data.Pages;
     local ChapterURL = A['ChapterURL'];
     OCinSoutput["rft.edition"] = data.Edition;
    local ChapterURLorigin = A:ORIGIN('ChapterURL');
     OCinSoutput["rft.pub"] = data.PublisherName;
     local ConferenceURL = A['ConferenceURL'];
      
     local ConferenceURLorigin = A:ORIGIN('ConferenceURL');
     for k, v in pairs( data.ID_list ) do
    local Periodical = A['Periodical'];
        local id, value = cfg.id_handlers[k].COinS;
 
        if k == 'ISBN' then value = cleanisbn( v ); else value = v; end
local Series = A['Series'];
        if string.sub( id or "", 1, 4 ) == 'info' then
    local Volume = A['Volume'];
            OCinSoutput["rft_id"] = table.concat{ id, "/", v };
    local Issue = A['Issue'];
        else
    local Position = '';
            OCinSoutput[ id ] = value;
    local Page = A['Page'];
        end
    local Pages = hyphentodash( A['Pages'] );
     end
    local At = A['At'];
 
    local Edition = A['Edition'];
    local PublicationPlace = A['PublicationPlace']
     local Place = A['Place'];
      
      
     local PublisherName = A['PublisherName'];
     local last, first;
     local RegistrationRequired = A['RegistrationRequired'];
     for k, v in ipairs( data.Authors ) do
    local SubscriptionRequired = A['SubscriptionRequired'];
        last, first = v.last, v.first;
    local Via = A['Via'];
        if k == 1 then
    local AccessDate = A['AccessDate'];
            if is_set(last) then
    local ArchiveDate = A['ArchiveDate'];
                OCinSoutput["rft.aulast"] = last;
    local Agency = A['Agency'];
            end
    local DeadURL = A['DeadURL']
            if is_set(first) then
    local Language = A['Language'];
                OCinSoutput["rft.aufirst"] = first;
    local Format = A['Format'];
            end
    local Ref = A['Ref'];
        end
local DoiBroken = A['DoiBroken'];
        if is_set(last) and is_set(first) then
local ID = A['ID'];
            OCinSoutput["rft.au"] = table.concat{ last, ", ", first };
    local ASINTLD = A['ASINTLD'];
        elseif is_set(last) then
    local IgnoreISBN = A['IgnoreISBN'];
            OCinSoutput["rft.au"] = last;
    local Embargo = A['Embargo'];
        end
 
     end
     local ID_list = extractids( args );
      
      
     local Quote = A['Quote'];
     OCinSoutput.rft_id = data.URL;
     local PostScript = A['PostScript'];
    OCinSoutput.rfr_id = table.concat{ "info:sid/", mw.site.server:match( "[^/]*$" ), ":", data.RawPage };
     OCinSoutput = setmetatable( OCinSoutput, nil );
   
    -- sort with version string always first, and combine.
    table.sort( OCinSoutput );
    table.insert( OCinSoutput, 1, "ctx_ver=" .. ctx_ver );  -- such as "Z39.88-2004"
    return table.concat(OCinSoutput, "&");
end


    local LayURL = A['LayURL'];
--[[
     local LaySource = A['LaySource'];
This is the main function doing the majority of the citation
     local Transcript = A['Transcript'];
formatting.
     local TranscriptURL = A['TranscriptURL']  
]]
     local TranscriptURLorigin = A:ORIGIN('TranscriptURL');
function citation0( config, args)
    local sepc = A['Separator'];
     --[[  
     Load Input Parameters
    The argment_wrapper facillitates the mapping of multiple
    aliases to single internal variable.
     ]]
     local A = argument_wrapper( args );


     local LastAuthorAmp = A['LastAuthorAmp'];
     local i
     local no_tracking_cats = A['NoTracking'];
    local PPrefix = A['PPrefix']
    local PPPrefix = A['PPPrefix']
    if is_set( A['NoPP'] ) then PPPrefix = "" PPrefix = "" end
   
    -- Pick out the relevant fields from the arguments.  Different citation templates
    -- define different field names for the same underlying things.   
     local Authors = A['Authors'];
    local a = extractnames( args, 'AuthorList' );


--these are used by cite interview
    local Coauthors = A['Coauthors'];
local Callsign = A['Callsign'];
    local Others = A['Others'];
local City = A['City'];
    local Editors = A['Editors'];
local Cointerviewers = A['Cointerviewers']; -- deprecated
    local e = extractnames( args, 'EditorList' );
local Interviewer = A['Interviewer']; -- deprecated
local Program = A['Program'];


--local variables that are not cs1 parameters
    local Year = A['Year'];
     local page_type; -- is this needed?  Doesn't appear to be used anywhere;
     local PublicationDate = A['PublicationDate'];
     local use_lowercase = ( sepc ~= '.' );
    local OrigYear = A['OrigYear'];
     local this_page = mw.title.getCurrentTitle(); --Also used for COinS and for language
     local Date = A['Date'];
local anchor_year; -- used in the CITEREF identifier
     local LayDate = A['LayDate'];
local COinS_date; -- used in the COinS metadata
    ------------------------------------------------- Get title data
 
    local Title = A['Title'];
-- Set postscript default.
    local BookTitle = A['BookTitle'];
if not is_set (PostScript) then -- if |postscript= has not been set (Postscript is nil which is the default for {{citation}}) and
    local Conference = A['Conference'];
if (config.CitationClass ~= "citation") then -- this template is not a citation template
    local TransTitle = A['TransTitle'];
PostScript = '.'; -- must be a cite xxx template so set postscript to default (period)
    local TitleNote = A['TitleNote'];
end
    local TitleLink = A['TitleLink'];
else
    local Chapter = A['Chapter'];
if PostScript:lower() == 'none' then -- if |postscript=none then
    local ChapterLink = A['ChapterLink'];
PostScript = ''; -- no postscript
    local TransChapter = A['TransChapter'];
end
    local TitleType = A['TitleType'];
end
    local Degree = A['Degree'];
 
    local Docket = A['Docket'];
--check this page to see if it is in one of the namespaces that cs1 is not supposed to add to the error categories.
    local ArchiveURL = A['ArchiveURL'];
if not is_set(no_tracking_cats) then -- ignore if we are already not going to categorize this page
    local URL = A['URL']
for k, v in pairs( cfg.uncategorized_namespaces ) do -- otherwise, spin through the list of namespaces we don't include in error categories
    local URLorigin = A:ORIGIN('URL');
if this_page.nsText == v then -- if we find one
    local ChapterURL = A['ChapterURL'];
no_tracking_cats = "true"; -- set no_trackin_cats
    local ChapterURLorigin = A:ORIGIN('ChapterURL');
break; -- and we're done
    local ConferenceURL = A['ConferenceURL'];
            end
    local ConferenceURLorigin = A:ORIGIN('ConferenceURL');
        end
     local Periodical = A['Periodical'];
     end


-- check for extra |page=, |pages= or |at= parameters.
--[[
    if is_set(Page) then
Parameter remapping for cite encyclopedia:
        if is_set(Pages) or is_set(At) then
When the citation has these parameters:
            Page = Page .. " " .. seterror('extra_pages'); -- add error message
|encyclopedia and |title then map |title to |article and |encyclopedia to |title
            Pages = ''; -- unset the others
|encyclopedia and |article then map |encyclopedia to |title
            At = '';
|encyclopedia then map |encyclopedia to |title
        end
    elseif is_set(Pages) then
        if is_set(At) then
            Pages = Pages .. " " .. seterror('extra_pages'); -- add error messages
            At = ''; -- unset
        end
    end   
 
-- both |publication-place= and |place= (|location=) allowed if different
    if not is_set(PublicationPlace) and is_set(Place) then
        PublicationPlace = Place; -- promote |place= (|location=) to |publication-place
    end
   
    if PublicationPlace == Place then Place = ''; end -- don't need both if they are the same
   
--[[
Parameter remapping for cite encyclopedia:
When the citation has these parameters:
|encyclopedia and |title then map |title to |article and |encyclopedia to |title
|encyclopedia and |article then map |encyclopedia to |title
|encyclopedia then map |encyclopedia to |title


|trans_title maps to |trans_chapter when |title is re-mapped
|trans_title maps to |trans_chapter when |title is re-mapped
Line 1,197: Line 1,228:
end
end


--special cases for citation.
local Series = A['Series'];
if (config.CitationClass == "citation") then -- for citation templates
    local Volume = A['Volume'];
if not is_set (Ref) then -- if |ref= is not set
    local Issue = A['Issue'];
Ref = "harv"; -- set default |ref=harv
    local Position = '';
end
    local Page, Pages, At, page_type;
if not is_set (sepc) then -- if |separator= is not set
   
sepc = ','; -- set citation separator to its default (comma)
    Page = A['Page'];
end
    Pages = hyphentodash( A['Pages'] );
else -- not a citation template
    At = A['At'];
if not is_set (sepc) then -- if |separator= has not been set
   
sepc = '.'; -- set cite xxx separator to its default (period)
    if is_set(Page) then
end
        if is_set(Pages) or is_set(At) then
end
            Page = Page .. " " .. seterror('extra_pages');
 
            Pages = '';
-- check for specital case where |separator=none
            At = '';
if 'none' == sepc:lower() then -- if |separator=none
        end
sepc = ''; -- then set it to a empty string
    elseif is_set(Pages) then
end
        if is_set(At) then
 
            Pages = Pages .. " " .. seterror('extra_pages');
-- Special case for cite techreport.
            At = '';
if (config.CitationClass == "techreport") then -- special case for cite techreport
        end
if is_set(Issue) then -- cite techreport uses 'number', which other citations aliase to 'issue'
    end  
if not is_set(ID) then -- can we use ID for the "number"?
   
ID = Issue; -- yes, use it
    local Edition = A['Edition'];
Issue = ""; -- unset Issue so that "number" isn't duplicated in the rendered citation or COinS metadata
    local PublicationPlace = A['PublicationPlace']
else -- can't use ID so emit error message
    local Place = A['Place'];
ID = ID .. " " .. seterror('redundant_parameters', '<code>&#124;id=</code> and <code>&#124;number=</code>');
   
end
    if not is_set(PublicationPlace) and is_set(Place) then
end
        PublicationPlace = Place;
end
    end
 
   
-- special case for cite interview
    if PublicationPlace == Place then Place = ''; end
if (config.CitationClass == "interview") then
   
if is_set(Program) then
    local PublisherName = A['PublisherName'];
ID = ' ' .. Program;
    local RegistrationRequired = A['RegistrationRequired'];
end
    local SubscriptionRequired = A['SubscriptionRequired'];
if is_set(Callsign) then
    local Via = A['Via'];
if is_set(ID) then
    local AccessDate = A['AccessDate'];
ID = ID .. sepc .. ' ' .. Callsign;
    local ArchiveDate = A['ArchiveDate'];
else
    local Agency = A['Agency'];
ID = ' ' .. Callsign;
    local DeadURL = A['DeadURL']
end
    local Language = A['Language'];
end
    local Format = A['Format'];
if is_set(City) then
    local Ref = A['Ref'];
if is_set(ID) then
   
ID = ID .. sepc .. ' ' .. City;
    local DoiBroken = A['DoiBroken'];
else
ID = ' ' .. City;
-- Special case for cite techreport.
local ID = A['ID'];
if (config.CitationClass == "techreport") then -- special case for cite techreport
if is_set(Issue) then -- cite techreport uses 'number', which other citations aliase to 'issue'
if not is_set(ID) then -- can we use ID for the "number"?
ID = Issue; -- yes, use it
Issue = ""; -- unset Issue so that "number" isn't duplicated in the rendered citation or COinS metadata
else -- can't use ID so emit error message
ID = ID .. " " .. seterror('redundant_parameters', '<code>&#124;id=</code> and <code>&#124;number=</code>');
end
end
end
end
end
    local ASINTLD = A['ASINTLD'];
    local IgnoreISBN = A['IgnoreISBN'];
    local Embargo = A['Embargo'];


if is_set(Interviewer) then
    local ID_list = extractids( args );
if is_set(TitleType) then
   
Others = ' ' .. TitleType .. ' with ' .. Interviewer;
    local Quote = A['Quote'];
TitleType = '';
    local PostScript = A['PostScript'];
else
    local LayURL = A['LayURL'];
Others = ' ' .. 'Interview with ' .. Interviewer;
    local LaySource = A['LaySource'];
end
    local Transcript = A['Transcript'];
if is_set(Cointerviewers) then
    local TranscriptURL = A['TranscriptURL']
Others = Others .. sepc .. ' ' .. Cointerviewers;
    local TranscriptURLorigin = A:ORIGIN('TranscriptURL');
end
    local sepc = A['Separator'];
else
    local LastAuthorAmp = A['LastAuthorAmp'];
Others = '(Interview)';
    local no_tracking_cats = A['NoTracking'];
end
end


--Account for the oddity that is {{cite journal}} with |pmc= set and |url= not set
    local use_lowercase = ( sepc ~= '.' );
if config.CitationClass == "journal" and not is_set(URL) and is_set(ID_list['PMC']) then
    local this_page = mw.title.getCurrentTitle(); --Also used for COinS and for language
if not is_embargoed(Embargo) then
   
URL=cfg.id_handlers['PMC'].prefix .. ID_list['PMC']; -- set url to be the same as the PMC external link if not embargoed
    if not is_set(no_tracking_cats) then
URLorigin = cfg.id_handlers['PMC'].parameters[1]; -- set URLorigin to parameter name for use in error message if citation is missing a |title=
        for k, v in pairs( cfg.uncategorized_namespaces ) do
end
            if this_page.nsText == v then
end
                no_tracking_cats = "true";
 
                break;
-- Account for the oddity that is {{cite conference}}, before generation of COinS data.
            end
--TODO: if this is only for {{cite conference}}, shouldn't we be checking? (if config.CitationClass=='conference' then ...)
        end
if is_set(BookTitle) then
    end
Chapter = Title;
ChapterLink = TitleLink;
TransChapter = TransTitle;
Title = BookTitle;
TitleLink = '';
TransTitle = '';
end


-- Account for the oddity that is {{cite episode}}, before generation of COinS data.
local anchor_year; -- used in the CITEREF identifier
--[[ -- {{cite episode}} is not currently supported by this module
local COinS_date; -- used in the COinS metadata
if config.CitationClass == "episode" then
local AirDate = A['AirDate'];
local SeriesLink = A['SeriesLink'];
local Season = A['Season'];
local SeriesNumber = A['SeriesNumber'];
local Network = A['Network'];
local Station = A['Station'];
local s, n = {}, {};
local Sep = (first_set(A["SeriesSeparator"], A["Separator"]) or "") .. " ";
if is_set(Issue) then table.insert(s, cfg.messages["episode"] .. " " .. Issue); Issue = ''; end
if is_set(Season) then table.insert(s, cfg.messages["season"] .. " " .. Season); end
if is_set(SeriesNumber) then table.insert(s, cfg.messages["series"] .. " " .. SeriesNumber); end
if is_set(Network) then table.insert(n, Network); end
if is_set(Station) then table.insert(n, Station); end
Date = Date or AirDate;
Chapter = Title;
ChapterLink = TitleLink;
TransChapter = TransTitle;
Title = Series;
TitleLink = SeriesLink;
TransTitle = '';
Series = table.concat(s, Sep);
ID = table.concat(n, Sep);
end
-- end of {{cite episode}} stuff]]


-- legacy: promote concatenation of |day=, |month=, and |year= to Date if Date not set; or, promote PublicationDate to Date if neither Date nor Year are set.
-- legacy: promote concatenation of |day=, |month=, and |year= to Date if Date not set; or, promote PublicationDate to Date if neither Date nor Year are set.
Line 1,332: Line 1,339:
if PublicationDate == Date then PublicationDate = ''; end -- if PublicationDate is same as Date, don't display in rendered citation
if PublicationDate == Date then PublicationDate = ''; end -- if PublicationDate is same as Date, don't display in rendered citation


-- Go test all of the date-holding parameters for valid MOS:DATE format and make sure that dates are real dates.
-- TODO: 2013-10-27: AirDate is nil when dates() is called because it hasn't been set yet.  Move the call to dates() or set AirDate earlier.
anchor_year, COinS_date = dates({['accessdate']=AccessDate, ['airdate']=AirDate, ['archivedate']=ArchiveDate, ['date']=Date, ['doi_brokendate']=DoiBroken,
['embargo']=Embargo, ['laydate']=LayDate, ['publicationdate']=PublicationDate, ['year']=Year});


--[[
-- At this point fields may be nil if they weren't specified in the template use.  We can use that fact.
Go test all of the date-holding parameters for valid MOS:DATE format and make sure that dates are real dates. This must be done before we do COinS because here is where
we get the date used in the metadata.


Date validation supporting code is in Module:Citation/CS1/Date_validation
--Account for the oddity that is {{cite journal}} with |pmc= set and |url= not set
]]
if config.CitationClass == "journal" and not is_set(URL) and is_set(ID_list['PMC']) then
anchor_year, COinS_date, error_message = dates({['accessdate']=AccessDate, ['airdate']=AirDate, ['archivedate']=ArchiveDate, ['date']=Date, ['doi_brokendate']=DoiBroken,
if not is_embargoed(Embargo) then
['embargo']=Embargo, ['laydate']=LayDate, ['publicationdate']=PublicationDate, ['year']=Year});
URL=cfg.id_handlers['PMC'].prefix .. ID_list['PMC']; -- set url to be the same as the PMC external link if not embargoed
if is_set(error_message) then
URLorigin = cfg.id_handlers['PMC'].parameters[1]; -- set URLorigin to parameter name for use in error message if citation is missing a |title=
table.insert( z.message_tail, { seterror( 'bad_date', {error_message}, true ) } ); -- add this error message
end
end
end


-- At this point fields may be nil if they weren't specified in the template use. We can use that fact.
    -- Account for the oddity that is {{cite conference}}, before generation of COinS data.
 
    if is_set(BookTitle) then
     -- COinS metadata (see <http://ocoins.info/>) for
        Chapter = Title;
     -- automated parsing of citation information.
        ChapterLink = TitleLink;
     local OCinSoutput = COinS{
        TransChapter = TransTitle;
         ['Periodical'] = Periodical,
        Title = BookTitle;
         ['Chapter'] = Chapter,
        TitleLink = '';
         ['Title'] = Title,
        TransTitle = '';
    end
    -- Account for the oddity that is {{cite episode}}, before generation of COinS data.
    if config.CitationClass == "episode" then
        local AirDate = A['AirDate'];
        local SeriesLink = A['SeriesLink'];
        local Season = A['Season'];
        local SeriesNumber = A['SeriesNumber'];
        local Network = A['Network'];
        local Station = A['Station'];
        local s, n = {}, {};
        local Sep = (first_set(A["SeriesSeparator"], A["Separator"]) or "") .. " ";
       
        if is_set(Issue) then table.insert(s, cfg.messages["episode"] .. " " .. Issue); Issue = ''; end
        if is_set(Season) then table.insert(s, cfg.messages["season"] .. " " .. Season); end
        if is_set(SeriesNumber) then table.insert(s, cfg.messages["series"] .. " " .. SeriesNumber); end
        if is_set(Network) then table.insert(n, Network); end
        if is_set(Station) then table.insert(n, Station); end
       
        Date = Date or AirDate;
        Chapter = Title;
        ChapterLink = TitleLink;
        TransChapter = TransTitle;
        Title = Series;
        TitleLink = SeriesLink;
        TransTitle = '';
       
        Series = table.concat(s, Sep);
        ID = table.concat(n, Sep);
    end
   
     -- COinS metadata (see <http://ocoins.info/>) for
     -- automated parsing of citation information.
     local OCinSoutput = COinS{
         ['Periodical'] = Periodical,
         ['Chapter'] = Chapter,
         ['Title'] = Title,
         ['PublicationPlace'] = PublicationPlace,
         ['PublicationPlace'] = PublicationPlace,
         ['Date'] = first_set(COinS_date, Date), -- COinS_date has correctly formatted date if Date is valid; any reason to keep Date here?  Should we be including invalid dates in metadata?
         ['Date'] = first_set(COinS_date, Date), -- COinS_date has correctly formatted date if Date is valid; any reason to keep Date here?  Should we be including invalid dates in metadata?
Line 1,358: Line 1,403:
         ['Volume'] = Volume,
         ['Volume'] = Volume,
         ['Issue'] = Issue,
         ['Issue'] = Issue,
         ['Pages'] = get_coins_pages (first_set(Page, Pages, At)), -- pages stripped of external links
         ['Pages'] = first_set(Page, Pages, At),
         ['Edition'] = Edition,
         ['Edition'] = Edition,
         ['PublisherName'] = PublisherName,
         ['PublisherName'] = PublisherName,
Line 1,691: Line 1,736:
-- handle type parameter for those CS1 citations that have default values
-- handle type parameter for those CS1 citations that have default values


if inArray(config.CitationClass, {"AV media notes", "DVD notes", "podcast", "pressrelease", "techreport", "thesis"}) then
if inArray(config.CitationClass, {"podcast","pressrelease","techreport","thesis"}) then
TitleType = set_titletype (config.CitationClass, TitleType);
TitleType = set_titletype (config.CitationClass, TitleType);
if is_set(Degree) and "Thesis" == TitleType then -- special case for cite thesis
if is_set(Degree) and "Thesis" == TitleType then -- special case for cite thesis
Line 1,708: Line 1,753:
     OrigYear = is_set(OrigYear) and (" [" .. OrigYear .. "]") or "";
     OrigYear = is_set(OrigYear) and (" [" .. OrigYear .. "]") or "";
     Agency = is_set(Agency) and (sepc .. " " .. Agency) or "";
     Agency = is_set(Agency) and (sepc .. " " .. Agency) or "";
 
   
     if is_set(Volume) then
     if is_set(Volume) then
         if ( mw.ustring.len(Volume) > 4 )
         if ( mw.ustring.len(Volume) > 4 )
Line 1,715: Line 1,760:
         end
         end
     end
     end
 
      
--[[ This code commented out while discussion continues until after week of 2014-03-23 live module update;
     if is_set(Volume) then
        if ( mw.ustring.len(Volume) > 4 )
          then Volume = sepc .. " " .. Volume;
          else
              Volume = " <b>" .. hyphentodash(Volume) .. "</b>";
              if is_set(Series) then Volume = sepc .. Volume;
              end
        end
    end
]]   
     ------------------------------------ totally unrelated data
     ------------------------------------ totally unrelated data
     --[[ Loosely mimic {{subscription required}} template; Via parameter identifies a delivery source that is not the publisher; these sources often, but not always, exist
     --[[ Loosely mimic {{subscription required}} template; Via parameter identifies a delivery source that is not the publisher; these sources often, but not always, exist
Line 1,767: Line 1,801:
         end
         end
         Quote = sepc .." " .. wrap( 'quoted-text', Quote );  
         Quote = sepc .." " .. wrap( 'quoted-text', Quote );  
         PostScript = ""; -- CS1 does not supply terminal punctuation when |quote= is set
         PostScript = "";
    elseif PostScript:lower() == "none" then
        PostScript = "";
     end
     end
      
      
Line 1,946: Line 1,982:
             else
             else
                 Editors = Editors .. ", " .. cfg.messages['editors'];
                 Editors = Editors .. ", " .. cfg.messages['editors'];
             end
             end
             Date = " (" .. Date ..")" .. OrigYear .. sepc .. " "
             Date = " (" .. Date ..")" .. OrigYear .. sepc .. " "
         else
         else
             if EditorCount <= 1 then
             if EditorCount <= 1 then
                 Editors = Editors .. " (" .. cfg.messages['editor'] .. ")" .. sepc .. " "
                 Editors = Editors .. " (" .. cfg.messages['editor'] .. ")" .. sepc .. " "
             else
             else
                 Editors = Editors .. " (" .. cfg.messages['editors'] .. ")" .. sepc .. " "
                 Editors = Editors .. " (" .. cfg.messages['editors'] .. ")" .. sepc .. " "
             end
             end
         end
         end
         text = safejoin( {Editors, Date, Chapter, Place, tcommon}, sepc );
         text = safejoin( {Editors, Date, Chapter, Place, tcommon}, sepc );
         text = safejoin( {text, pgtext, idcommon}, sepc );
         text = safejoin( {text, pgtext, idcommon}, sepc );
     else
     else
         if is_set(Date) then
         if is_set(Date) then
             if ( string.sub(tcommon,-1,-1) ~= sepc )
             if ( string.sub(tcommon,-1,-1) ~= sepc )
               then Date = sepc .." " .. Date .. OrigYear
               then Date = sepc .." " .. Date .. OrigYear
               else Date = " " .. Date .. OrigYear
               else Date = " " .. Date .. OrigYear
             end
             end
         end
         end
         if config.CitationClass=="journal" and is_set(Periodical) then
         if config.CitationClass=="journal" and is_set(Periodical) then
             text = safejoin( {Chapter, Place, tcommon}, sepc );
             text = safejoin( {Chapter, Place, tcommon}, sepc );
             text = safejoin( {text, pgtext, Date, idcommon}, sepc );
             text = safejoin( {text, pgtext, Date, idcommon}, sepc );
         else
         else
             text = safejoin( {Chapter, Place, tcommon, Date}, sepc );
             text = safejoin( {Chapter, Place, tcommon, Date}, sepc );
             text = safejoin( {text, pgtext, idcommon}, sepc );
             text = safejoin( {text, pgtext, idcommon}, sepc );
         end
         end
     end
     end
      
      
if is_set(PostScript) and PostScript ~= sepc then
    if is_set(PostScript) and PostScript ~= sepc then
text = safejoin( {text, sepc}, sepc );  --Deals with italics, spaces, etc.
        text = safejoin( {text, sepc}, sepc );  --Deals with italics, spaces, etc.
text = text:sub(1,-sepc:len()-1);
        text = text:sub(1,-2); --Remove final seperator   
-- text = text:sub(1,-2); --Remove final separator (assumes that sepc is only one character)
    end     
end     
      
      
     text = safejoin( {text, PostScript}, sepc );
     text = safejoin( {text, PostScript}, sepc );
Line 2,056: Line 2,091:
     local pframe = frame:getParent()
     local pframe = frame:getParent()
      
      
    if nil ~= string.find( frame:getTitle(), 'sandbox', 1, true ) then -- did the {{#invoke:}} use sandbox version?
    cfg = mw.loadData( 'Module:Citation/CS1/Configuration/sandbox' ); -- load sandbox versions of Configuration and Whitelist and ...
    whitelist = mw.loadData( 'Module:Citation/CS1/Whitelist/sandbox' );
    dates = require('Module:Citation/CS1/Date_validation/sandbox').dates -- ... sandbox version of date validation code
    else -- otherwise
    cfg = mw.loadData( 'Module:Citation/CS1/Configuration' ); -- load live versions of Configuration and Whitelist and ...
    whitelist = mw.loadData( 'Module:Citation/CS1/Whitelist' );
    dates = require('Module:Citation/CS1/Date_validation').dates -- ... live version of date validation code
end
     local args = {};
     local args = {};
     local suggestions = {};
     local suggestions = {};
14,061

edits

Navigation menu