Module:Sandbox/Danmichaelo

tend to interact poorly under Mediawiki's HTML tidy. ]]

if not is_set(str) then

return str;

else

if str:sub(1,1) == "'" then str = "" .. str; end

if str:sub(-1,-1) == "'" then str = str .. ""; end

-- Remove newlines as they break italics.

return str:gsub( '\n', ' ' );

end

end

--[[

Joins a sequence of strings together while checking for duplicate separation characters.

TODO: safejoin() has a flaw where it won't remove the duplicate character from a |title= / |url= combination.

This is because by the time we get here, |title=http://somesite.com and |title=Document Title. have been combined:

[http://somesite.com and Document Title.]

so that now, the last character is not sepc but is ] (unless sepc == ']' which breaks the external link)

]]

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 .. "

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

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

return str;

end

-- Attempts to convert names to initials.

function reducetoinitials(first)

local initials = {}

local i = 0; -- counter for number of initials

for word in string.gmatch(first, "%S+") do

table.insert(initials, string.sub(word,1,1)) -- Vancouver format does not include full stops.

i = i + 1; -- bump the counter

if 2 <= i then break; end -- only two initials allowed in Vancouver system; if 2, quit

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;

if sep:sub(-1,-1) ~= " " then sep = sep .. " " end

if maximum ~= nil and maximum < 1 then return "", 0; end

for i,person in ipairs(people) do

if is_set(person.last) then

local mask = person.mask

local one

local sep_one = sep;

if maximum ~= nil and i > maximum then

etal = true;

break;

elseif (mask ~= nil) then

local n = tonumber(mask)

if (n ~= nil) then

one = string.rep("—",n)

else

one = mask;

sep_one = " ";

end

else

one = person.last

local first = person.first

if is_set(first) then

if ( "vanc" == format ) then first = reducetoinitials(first) end

one = one .. namesep .. first

end

if is_set(person.link) then one = "" .. 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;

end

table.insert( text, one )

table.insert( text, sep_one )

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

text[#text] = nil;

end

local result = table.concat(text) -- construct list

if etal then

local etal_text = cfg.messages['et al'];

result = result .. " " .. etal_text;

end

-- if necessary wrap result in tag to format in Small Caps

if ( "scap" == format ) then result =

'' .. result .. '';

end

return result, count

end

-- Generates a CITEREF anchor ID.

function anchorid( options )

return "CITEREF" .. table.concat( options );

end

--[[

Gets name list from the input arguments

Searches through args in sequential order to find |lastn= and |firstn= parameters (or their aliases), and their matching link and mask parameters.

Stops searching when both |lastn= and |firstn= are not found in args after two sequential attempts: found |last1=, |last2=, and |last3= but doesn't

find |last4= and |last5= then the search is done.

This function emits an error message when there is a |firstn= without a matching |lastn=. When there are 'holes' in the list of last names, |last1= and |last3=

are present but |last2= is missing, an error message is emitted. |lastn= is not required to have a matching |firstn=.

]]

--Original function

function extractnames(args, list_name)

local names = {};

local i = 1;

local last;

while true do

last = selectone( args, cfg.aliases[list_name .. '-Last'], 'redundant_parameters', i );

if not is_set(last) then

-- just in case someone passed in an empty parameter

break;

end

names[i] = {

last = last,

first = selectone( args, cfg.aliases[list_name .. '-First'], 'redundant_parameters', i ),

link = selectone( args, cfg.aliases[list_name .. '-Link'], 'redundant_parameters', i ),

mask = selectone( args, cfg.aliases[list_name .. '-Mask'], 'redundant_parameters', i )

};

i = i + 1;

end

return names;

end

--[[ Broken. Editor CITEREF IDs are broken by this code (no editor list). Author CITEREF ID render correctly

function extractnames(args, list_name)

local names = {}; -- table of names

local i = 1; -- loop counter/indexer

local count = 0; -- used to count the number of times we haven't found a |last= (or alias for authors, |editor-last or alias for editors)

local err_msg_list_name = list_name:match ("(%w+)List") .. 's list'; -- modify AuthorList or EditorList for use in error messages if necessary

while true do

names[i] = -- search through args for name components beginning at 1

{

last = selectone( args, cfg.aliases[list_name .. '-Last'], 'redundant_parameters', i ),

first = selectone( args, cfg.aliases[list_name .. '-First'], 'redundant_parameters', i ),

link = selectone( args, cfg.aliases[list_name .. '-Link'], 'redundant_parameters', i ),

mask = selectone( args, cfg.aliases[list_name .. '-Mask'], 'redundant_parameters', i )

};

if names[i].first and not names[i].last then -- if there is a firstn without a matching lastn

names[i].first = nil; -- set first to nil so we don't confuse the implicit et al message code

table.insert( z.message_tail, { seterror( 'first_missing_last', {err_msg_list_name, i}, true ) } ); -- add this error message

break; -- and done because lastn not found

elseif not names[i].first and not names[i].last then -- if both firstn and lastn aren't found, are we done?

count = count + 1; -- number of times we haven't found last and first

if 2 == count then -- two missing names and we give up

break; -- normal exit or there is a two-name hole in the list; can't tell which

end

else -- last with or without a first

if 1 == count then -- if the previous name was missing

table.insert( z.message_tail, { seterror( 'missing_name', {err_msg_list_name, i-1}, true ) } ); -- add this error message

end

count = 0; -- reset the counter, we're looking for two consecutive missing names

end

i = i + 1; -- bump to the next name

end

return names; -- all done, return our list of 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

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 k, v in pairs( id_list ) do

-- fallback to read-only cfg

handler = setmetatable( { ['id'] = v }, fallback(k) );

if handler.mode == 'external' then

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

elseif handler.mode == 'internal' then

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

elseif handler.mode ~= 'manual' then

error( cfg.messages['unknown_ID_mode'] );

elseif k == 'DOI' then

table.insert( new_list, {handler.label, doi( v, options.DoiBroken ) } );

elseif k == 'ARXIV' then

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

elseif k == 'ASIN' then

table.insert( new_list, {handler.label, amazon( v, options.ASINTLD ) } );

elseif k == 'LCCN' then

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

elseif k == 'OL' then

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

elseif k == 'PMC' then

table.insert( new_list, {handler.label, pmc( v, options.Embargo ) } );

elseif k == 'PMID' then

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

elseif k == 'ISSN' then

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

error( cfg.messages['unknown_manual_ID'] );

end

end

function comp( a, b ) -- used in following table.sort()

return a[1] < b[1];

end

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 = {};

if index ~= nil then index = tostring(index); end

-- Handle special case of "#" replaced by empty string

if index == '1' then

for _, v in ipairs( possible ) do

v = v:gsub( "#", "" );

if is_set(args[v]) then

if value ~= nil and selected ~= v then

table.insert( error_list, v );

else

value = args[v];

selected = v;

end

end

end

end

for _, v in ipairs( possible ) do

if index ~= nil then

v = v:gsub( "#", index );

end

if is_set(args[v]) then

if value ~= nil and selected ~= v then

table.insert( error_list, v );

else

value = args[v];

selected = v;

end

end

end

if #error_list > 0 then

local error_str = "";

for _, k in ipairs( error_list ) do

if error_str ~= "" then error_str = error_str .. cfg.messages['parameter-separator'] end

error_str = error_str .. wrap( 'parameter', k );

end

if #error_list > 1 then

error_str = error_str .. cfg.messages['parameter-final-separator'];

else

error_str = error_str .. cfg.messages['parameter-pair-separator'];

end

error_str = error_str .. wrap( 'parameter', selected );

table.insert( z.message_tail, { seterror( error_condition, {error_str}, true ) } );

end

return value, selected;

end

-- COinS metadata (see ) allows automated tools to parse

-- the citation information.

function COinS(data)

if 'table' ~= type(data) or nil == next(data) then

return '';

end

local ctx_ver = "Z39.88-2004";

-- treat table strictly as an array with only set values.

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

OCinSoutput.rft_val_fmt = "info:ofi/fmt:kev:mtx:book";

OCinSoutput["rft.genre"] = "bookitem";

OCinSoutput["rft.btitle"] = data.Chapter;

OCinSoutput["rft.atitle"] = data.Title;

elseif is_set(data.Periodical) then

OCinSoutput.rft_val_fmt = "info:ofi/fmt:kev:mtx:journal";

OCinSoutput["rft.genre"] = "article";

OCinSoutput["rft.jtitle"] = data.Periodical;

OCinSoutput["rft.atitle"] = data.Title;

else

OCinSoutput.rft_val_fmt = "info:ofi/fmt:kev:mtx:book";

OCinSoutput["rft.genre"] = "book"

OCinSoutput["rft.btitle"] = data.Title;

end

OCinSoutput["rft.place"] = data.PublicationPlace;

OCinSoutput["rft.date"] = data.Date;

OCinSoutput["rft.series"] = data.Series;

OCinSoutput["rft.volume"] = data.Volume;

OCinSoutput["rft.issue"] = data.Issue;

OCinSoutput["rft.pages"] = data.Pages;

OCinSoutput["rft.edition"] = data.Edition;

OCinSoutput["rft.pub"] = data.PublisherName;

for k, v in pairs( data.ID_list ) do

local id, value = cfg.id_handlers[k].COinS;

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

local last, first;

for k, v in ipairs( data.Authors ) do

last, first = v.last, v.first;

if k == 1 then

if is_set(last) then

OCinSoutput["rft.aulast"] = last;

end

if is_set(first) then

OCinSoutput["rft.aufirst"] = first;

end

end

if is_set(last) and is_set(first) then

OCinSoutput["rft.au"] = table.concat{ last, ", ", first };

elseif is_set(last) then

OCinSoutput["rft.au"] = last;

end

end

OCinSoutput.rft_id = data.URL;

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

--[[

This is the main function doing the majority of the citation

formatting.

]]

function citation0( config, args)

--[[

Load Input Parameters

The argument_wrapper facilitates the mapping of multiple

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

-- define different field names for the same underlying things.

local Authors = A['Authors'];

local a = extractnames( args, 'AuthorList' );

local Coauthors = A['Coauthors'];

local Others = A['Others'];

local Editors = A['Editors'];

local e = extractnames( args, 'EditorList' );

local Year = A['Year'];

local PublicationDate = formatIsoDate(A['PublicationDate']);

local OrigYear = A['OrigYear'];

local Date = formatIsoDate(A['Date']);

local LayDate = formatIsoDate(A['LayDate']);

------------------------------------------------- Get title data

local Title = A['Title'];

local BookTitle = A['BookTitle'];

local Conference = A['Conference'];

local TransTitle = A['TransTitle'];

local TitleNote = A['TitleNote'];

local TitleLink = A['TitleLink'];

local Chapter = A['Chapter'];

local ChapterLink = A['ChapterLink'];

local TransChapter = A['TransChapter'];

local TitleType = A['TitleType'];

local Degree = A['Degree'];

local Docket = A['Docket'];

local ArchiveURL = A['ArchiveURL'];

local URL = A['URL']

local URLorigin = A:ORIGIN('URL');

local ChapterURL = A['ChapterURL'];

local ChapterURLorigin = A:ORIGIN('ChapterURL');

local ConferenceURL = A['ConferenceURL'];

local ConferenceURLorigin = A:ORIGIN('ConferenceURL');

local Periodical = A['Periodical'];

local Series = A['Series'];

local Volume = A['Volume'];

local Issue = A['Issue'];

local Position = '';

local Page = A['Page'];

local Pages = hyphentodash( A['Pages'] );

local At = A['At'];

local Edition = A['Edition'];

local PublicationPlace = A['PublicationPlace']

local Place = A['Place'];

local PublisherName = A['PublisherName'];

local RegistrationRequired = A['RegistrationRequired'];

local SubscriptionRequired = A['SubscriptionRequired'];

local Via = A['Via'];

local AccessDate = formatIsoDate(A['AccessDate']);

local ArchiveDate = formatIsoDate(A['ArchiveDate']);

local Agency = A['Agency'];

local DeadURL = A['DeadURL']

local Language = A['Language'];

local Format = A['Format'];

local Ref = A['Ref'];

local DoiBroken = A['DoiBroken'];

local ID = A['ID'];

local ASINTLD = A['ASINTLD'];

local IgnoreISBN = A['IgnoreISBN'];

local Embargo = A['Embargo'];

local ID_list = extractids( args );

--[[ Hide unfinished cite newsgroup code so that long delayed update can take place

-- special case for cite newsgroup which uses |id= for a usenet article or post id

-- |id= is not included in COinS so here we convert it to an ID that will be included in COinS

if ('newsgroup' == config.CitationClass) and (is_set (ID)) then

ID_list['USENETID']=ID; -- add this new 'id' to the list of IDs

ID = ''; -- and unset

end

]]

local Quote = A['Quote'];

local PostScript = A['PostScript'];

local LayURL = A['LayURL'];

local LaySource = A['LaySource'];

local Transcript = A['Transcript'];

local TranscriptURL = A['TranscriptURL']

local TranscriptURLorigin = A:ORIGIN('TranscriptURL');

local sepc = A['Separator'];

local LastAuthorAmp = A['LastAuthorAmp'];

local no_tracking_cats = A['NoTracking'];

--these are used by cite interview

local Callsign = A['Callsign'];

local City = A['City'];

local Cointerviewers = A['Cointerviewers']; -- deprecated

local Interviewer = A['Interviewer']; -- deprecated

local Program = A['Program'];

--local variables that are not cs1 parameters

local page_type; -- is this needed? Doesn't appear to be used anywhere;

local use_lowercase = ( sepc ~= '.' );

local this_page = mw.title.getCurrentTitle(); --Also used for COinS and for language

local anchor_year; -- used in the CITEREF identifier

local COinS_date; -- used in the COinS metadata

-- Set postscript default.

if not is_set (PostScript) then -- if |postscript= has not been set (Postscript is nil which is the default for {{citation}}) and

if (config.CitationClass ~= "citation") then -- this template is not a citation template

PostScript = '.'; -- must be a cite xxx template so set postscript to default (period)

end

else

if PostScript:lower() == 'none' then -- if |postscript=none then

PostScript = ''; -- no postscript

end

end

--check this page to see if it is in one of the namespaces that cs1 is not supposed to add to the error categories.

if not is_set(no_tracking_cats) then -- ignore if we are already not going to categorize this page

for k, v in pairs( cfg.uncategorized_namespaces ) do -- otherwise, spin through the list of namespaces we don't include in error categories

if this_page.nsText == v then -- if we find one

no_tracking_cats = "true"; -- set no_tracking_cats

break; -- and we're done

end

end

end

-- check for extra |page=, |pages= or |at= parameters.

if is_set(Page) then

if is_set(Pages) or is_set(At) then

Page = Page .. " " .. seterror('extra_pages'); -- add error message

Pages = ''; -- unset the others

At = '';

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

All other combinations of |encyclopedia, |title, and |article are not modified

]]

if ( config.CitationClass == "encyclopaedia" ) then

if is_set(Periodical) then -- Periodical is set when |encyclopedia is set

if is_set(Title) then

if not is_set(Chapter) then

Chapter = Title; -- |encyclopedia and |title are set so map |title to |article and |encyclopedia to |title

TransChapter = TransTitle;

Title = Periodical;

Periodical = ''; -- redundant so unset

TransTitle = ''; -- redundant so unset

end

else -- |title not set

Title = Periodical; -- |encyclopedia set and |article set or not set so map |encyclopedia to |title

Periodical = ''; -- redundant so unset

end

end

end

--special cases for citation.

if (config.CitationClass == "citation") then -- for citation templates

if not is_set (Ref) then -- if |ref= is not set

Ref = "harv"; -- set default |ref=harv

end

if not is_set (sepc) then -- if |separator= is not set

sepc = ','; -- set citation separator to its default (comma)

end

else -- not a citation template

if not is_set (sepc) then -- if |separator= has not been set

sepc = '.'; -- set cite xxx separator to its default (period)

end

end

-- check for special case where |separator=none

if 'none' == sepc:lower() then -- if |separator=none

sepc = ''; -- then set it to an empty string

end

-- Special case for cite techreport.

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', '|id= and |number=');

end

end

end

-- special case for cite interview

if (config.CitationClass == "interview") then

if is_set(Program) then

ID = ' ' .. Program;

end

if is_set(Callsign) then

if is_set(ID) then

ID = ID .. sepc .. ' ' .. Callsign;

else

ID = ' ' .. Callsign;

end

end

if is_set(City) then

if is_set(ID) then

ID = ID .. sepc .. ' ' .. City;

else

ID = ' ' .. City;

end

end

if is_set(Interviewer) then

if is_set(TitleType) then

Others = ' ' .. TitleType .. ' with ' .. Interviewer;

TitleType = '';

else

Others = ' ' .. 'Interview with ' .. Interviewer;

end

if is_set(Cointerviewers) then

Others = Others .. sepc .. ' ' .. Cointerviewers;

end

else

Others = '(Interview)';

end

end

--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

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

URLorigin = cfg.id_handlers['PMC'].parameters[1]; -- set URLorigin to parameter name for use in error message if citation is missing a |title=

end

end

-- Account for the oddity that is {{cite conference}}, before generation of COinS data.

--TODO: if this is only for {{cite conference}}, shouldn't we be checking? (if config.CitationClass=='conference' then ...)

if is_set(BookTitle) then

Chapter = Title;

ChapterLink = TitleLink;

TransChapter = TransTitle;

Title = BookTitle;

TitleLink = '';

TransTitle = '';

end

-- Account for the oddity that is {{cite episode}}, before generation of COinS data.

--[[ -- {{cite episode}} is not currently supported by this module

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.

if not is_set(Date) then

Date = Year; -- promote Year to Date

Year = nil; -- make nil so Year as empty string isn't used for CITEREF

if is_set(Date) then

local Month = A['Month'];

if is_set(Month) then

Date = Month .. " " .. Date;

local Day = A['Day']

if is_set(Day) then Date = Day .. " " .. Date end

end

elseif is_set(PublicationDate) then -- use PublicationDate when |date= and |year= are not set

Date = PublicationDate; -- promote PublicationDate to Date

PublicationDate = ''; -- unset, no longer needed

end

end

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. 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

]]

anchor_year, COinS_date, error_message = dates({['accessdate']=AccessDate, ['airdate']=AirDate, ['archivedate']=ArchiveDate, ['date']=Date, ['doi_brokendate']=DoiBroken,

['embargo']=Embargo, ['laydate']=LayDate, ['publicationdate']=PublicationDate, ['year']=Year});

if is_set(error_message) then

table.insert( z.message_tail, { seterror( 'bad_date', {error_message}, true ) } ); -- add this error message

end

-- At this point fields may be nil if they weren't specified in the template use. We can use that fact.

-- COinS metadata (see ) for

-- automated parsing of citation information.

local OCinSoutput = COinS{

['Periodical'] = Periodical,

['Chapter'] = Chapter,

['Title'] = Title,

['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?

['Series'] = Series,

['Volume'] = Volume,

['Issue'] = Issue,

['Pages'] = get_coins_pages (first_set(Page, Pages, At)), -- pages stripped of external links

['Edition'] = Edition,

['PublisherName'] = PublisherName,

['URL'] = first_set( URL, ChapterURL ),

['Authors'] = a,

['ID_list'] = ID_list,

['RawPage'] = this_page.prefixedText,

};

if is_set(Periodical) and not is_set(Chapter) and is_set(Title) then

Chapter = Title;

ChapterLink = TitleLink;

TransChapter = TransTitle;

Title = '';

TitleLink = '';

TransTitle = '';

end

--[[ Hide unfinished cite newsgroup code so that long delayed update can take place

-- special case for cite newsgroup. Do this after COinS because we are modifying Publishername and ID

if 'newsgroup' == config.CitationClass then

if is_set (PublisherName) then

PublisherName = '[Newsgroup]: ' .. externallink( 'news:' .. PublisherName, PublisherName );

end

end

]]

-- Now perform various field substitutions.

-- We also add leading spaces and surrounding markup and punctuation to the

-- various parts of the citation, but only when they are non-nil.

if not is_set(Authors) then

local Maximum = tonumber( A['DisplayAuthors'] );

-- Preserve old-style implicit et al.

if not is_set(Maximum) and #a == 9 then

Maximum = 8;

table.insert( z.message_tail, { seterror('implict_etal_author', {}, true ) } );

elseif not is_set(Maximum) then

Maximum = #a + 1;

end

local control = {

sep = A["AuthorSeparator"] .. " ",

namesep = (first_set(A["AuthorNameSeparator"], A["NameSeparator"]) or "") .. " ",

format = A["AuthorFormat"],

maximum = Maximum,

lastauthoramp = LastAuthorAmp

};

-- If the coauthor field is also used, prevent ampersand and et al. formatting.

if is_set(Coauthors) then

control.lastauthoramp = nil;

control.maximum = #a + 1;

end

Authors = listpeople(control, a)

end

if not is_set(Authors) and is_set(Coauthors) then -- coauthors aren't displayed if one of authors=, authorn=, or lastn= isn't specified

table.insert( z.message_tail, { seterror('coauthors_missing_author', {}, true) } ); -- emit error message

end

local EditorCount

if not is_set(Editors) then

local Maximum = tonumber( A['DisplayEditors'] );

-- Preserve old-style implicit et al.

if not is_set(Maximum) and #e == 4 then

Maximum = 3;

table.insert( z.message_tail, { seterror('implict_etal_editor', {}, true) } );

elseif not is_set(Maximum) then

Maximum = #e + 1;

end

local control = {

sep = A["EditorSeparator"] .. " ",

namesep = (first_set(A["EditorNameSeparator"], A["NameSeparator"]) or "") .. " ",

format = A['EditorFormat'],

maximum = Maximum,

lastauthoramp = LastAuthorAmp

};

Editors, EditorCount = listpeople(control, e);

else

EditorCount = 1;

end

local Cartography = "";

local Scale = "";

if config.CitationClass == "map" then

if not is_set( Authors ) and is_set( PublisherName ) then

Authors = PublisherName;

PublisherName = "";

end

Cartography = A['Cartography'];

if is_set( Cartography ) then

Cartography = sepc .. " " .. wrap( 'cartography', Cartography, use_lowercase );

end

Scale = A['Scale'];

if is_set( Scale ) then

Scale = sepc .. " " .. Scale;

end

end

if not is_set(URL) and

not is_set(ChapterURL) and

not is_set(ArchiveURL) and

not is_set(ConferenceURL) and

not is_set(TranscriptURL) then

-- Test if cite web or cite podcast |url= is missing or empty

if inArray(config.CitationClass, {"web","podcast"}) then

table.insert( z.message_tail, { seterror( 'cite_web_url', {}, true ) } );

end

-- Test if accessdate is given without giving a URL

if is_set(AccessDate) then

table.insert( z.message_tail, { seterror( 'accessdate_missing_url', {}, true ) } );

AccessDate = '';

end

-- Test if format is given without giving a URL

if is_set(Format) then

Format = Format .. seterror( 'format_missing_url' );

end

end

-- Test if citation has no title

if not is_set(Chapter) and

not is_set(Title) and

not is_set(Periodical) and

not is_set(Conference) and

not is_set(TransTitle) and

not is_set(TransChapter) then

table.insert( z.message_tail, { seterror( 'citation_missing_title', {}, true ) } );

end

Format = is_set(Format) and " (" .. Format .. ")" or "";

local OriginalURL = URL

DeadURL = DeadURL:lower();

if is_set( ArchiveURL ) then

if ( DeadURL ~= "no" ) then

URL = ArchiveURL

URLorigin = A:ORIGIN('ArchiveURL')

end

end

-- Format chapter / article title

if is_set(Chapter) and is_set(ChapterLink) then

Chapter = "" .. Chapter .. "";

end

if is_set(Periodical) and is_set(Title) then

Chapter = wrap( 'italic-title', Chapter );

TransChapter = wrap( 'trans-italic-title', TransChapter );

else

Chapter = kern_quotes (Chapter); -- if necessary, separate chapter title's leading and trailing quote marks from Module provided quote marks

Chapter = wrap( 'quoted-title', Chapter );

TransChapter = wrap( 'trans-quoted-title', TransChapter );

end

local TransError = ""

if is_set(TransChapter) then

if not is_set(Chapter) then

TransError = " " .. seterror( 'trans_missing_chapter' );

else

TransChapter = " " .. TransChapter;

end

end

Chapter = Chapter .. TransChapter;

if is_set(Chapter) then

if not is_set(ChapterLink) then

if is_set(ChapterURL) then

Chapter = externallink( ChapterURL, Chapter ) .. TransError;

if not is_set(URL) then

Chapter = Chapter .. Format;

Format = "";

end

elseif is_set(URL) then

Chapter = externallink( URL, Chapter ) .. TransError .. Format;

URL = "";

Format = "";

else

Chapter = Chapter .. TransError;

end

elseif is_set(ChapterURL) then

Chapter = Chapter .. " " .. externallink( ChapterURL, nil, ChapterURLorigin ) ..

TransError;

else

Chapter = Chapter .. TransError;

end

Chapter = Chapter .. sepc .. " " -- with end-space

elseif is_set(ChapterURL) then

Chapter = " " .. externallink( ChapterURL, nil, ChapterURLorigin ) .. sepc .. " ";

end

-- Format main title.

if is_set(TitleLink) and is_set(Title) then

Title = "" .. Title .. ""

end

if is_set(Periodical) then

Title = kern_quotes (Title); -- if necessary, separate title's leading and trailing quote marks from Module provided quote marks

Title = wrap( 'quoted-title', Title );

TransTitle = wrap( 'trans-quoted-title', TransTitle );

--[[ Hide unfinished cite newsgroup code so that long delayed update can take place

elseif inArray(config.CitationClass, {"web","news","pressrelease","conference","podcast","newsgroup"}) and

]] elseif inArray(config.CitationClass, {"web","news","pressrelease","conference","podcast"}) and

not is_set(Chapter) then

Title = kern_quotes (Title); -- if necessary, separate title's leading and trailing quote marks from Module provided quote marks

Title = wrap( 'quoted-title', Title );

TransTitle = wrap( 'trans-quoted-title', TransTitle );

else

Title = wrap( 'italic-title', Title );

TransTitle = wrap( 'trans-italic-title', TransTitle );

end

TransError = "";

if is_set(TransTitle) then

if not is_set(Title) then

TransError = " " .. seterror( 'trans_missing_title' );

else

TransTitle = " " .. TransTitle;

end

end

Title = Title .. TransTitle;

if is_set(Title) then

if not is_set(TitleLink) and is_set(URL) then

Title = externallink( URL, Title ) .. TransError .. Format

URL = "";

Format = "";

else

Title = Title .. TransError;

end

end

if is_set(Place) then

Place = " " .. wrap( 'written', Place, use_lowercase ) .. sepc .. " ";

end

if is_set(Conference) then

if is_set(ConferenceURL) then

Conference = externallink( ConferenceURL, Conference );

end

Conference = sepc .. " " .. Conference

elseif is_set(ConferenceURL) then

Conference = sepc .. " " .. externallink( ConferenceURL, nil, ConferenceURLorigin );

end

if not is_set(Position) then

local Minutes = A['Minutes'];

if is_set(Minutes) then

Position = " " .. Minutes .. " " .. cfg.messages['minutes'];

else

local Time = A['Time'];

if is_set(Time) then

local TimeCaption = A['TimeCaption']

if not is_set(TimeCaption) then

TimeCaption = cfg.messages['event'];

if sepc ~= '.' then

TimeCaption = TimeCaption:lower();

end

end

Position = " " .. TimeCaption .. " " .. Time;

end

end

else

Position = " " .. Position;

At = '';

end

if not is_set(Page) then

if is_set(Pages) then

if is_set(Periodical) and

not inArray(config.CitationClass, {"encyclopaedia","web","book","news","podcast"}) then

Pages = ": " .. Pages;

elseif tonumber(Pages) ~= nil then

Pages = sepc .." " .. PPrefix .. Pages;

else

Pages = sepc .." " .. PPPrefix .. Pages;

end

end

else

if is_set(Periodical) and

not inArray(config.CitationClass, {"encyclopaedia","web","book","news","podcast"}) then

Page = ": " .. Page;

else

Page = sepc .." " .. PPrefix .. Page;

end

end

At = is_set(At) and (sepc .. " " .. At) or "";

Position = is_set(Position) and (sepc .. " " .. Position) or "";

if config.CitationClass == 'map' then

local Section = A['Section'];

local Inset = A['Inset'];

if first_set( Pages, Page, At ) ~= nil or sepc ~= '.' then

if is_set( Section ) then

Section = ", " .. wrap( 'section', Section, true );

end

if is_set( Inset ) then

Inset = ", " .. wrap( 'inset', Inset, true );

end

else

if is_set( Section ) then

Section = sepc .. " " .. wrap( 'section', Section, use_lowercase );

if is_set( Inset ) then

Inset = ", " .. wrap( 'inset', Inset, true );

end

elseif is_set( Inset ) then

Inset = sepc .. " " .. wrap( 'inset', Inset, use_lowercase );

end

end

At = At .. Section .. Inset;

end

--[[Look in the list of iso639-1 language codes to see if the value provided in the language parameter matches one of them. If a match is found,

use that value; if not, then use the value that was provided with the language parameter.

Categories are assigned in a manner similar to the {{xx icon}} templates - categorizes only mainspace citations and only when the language code is not 'en' (English).

]]

if is_set (Language) then

-- local name = mw.language.fetchLanguageName( Language:lower(), "en" ); -- experiment: this seems to return correct ISO 639-1 language names

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

end

else

Language=""; -- language not specified so make sure this is an empty string;

end

Others = is_set(Others) and (sepc .. " " .. Others) or "";

-- 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

TitleType = set_titletype (config.CitationClass, TitleType);

if is_set(Degree) and "Thesis" == TitleType then -- special case for cite thesis

TitleType = Degree .. " thesis";

end

end

if is_set(TitleType) then -- if type parameter is specified

TitleType = " (" .. TitleType .. ")"; -- display it in parentheses

end

TitleNote = is_set(TitleNote) and (sepc .. " " .. TitleNote) or "";

Edition = is_set(Edition) and (" " .. wrap( 'edition', Edition )) or "";

Issue = is_set(Issue) and (" (" .. Issue .. ")") or "";

Series = is_set(Series) and (sepc .. " " .. Series) or "";

OrigYear = is_set(OrigYear) and (" [" .. OrigYear .. "]") or "";

Agency = is_set(Agency) and (sepc .. " " .. Agency) or "";

if is_set(Volume) then

if ( mw.ustring.len(Volume) > 4 )

then Volume = sepc .." " .. Volume;

else Volume = " " .. hyphentodash(Volume) .. "";

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 = " " .. hyphentodash(Volume) .. "";

if is_set(Series) then Volume = sepc .. Volume;

end

end

end

]]

------------------------------------ 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

behind a registration or paywall. So here, we've chosen to decouple via from subscription (via has never been part of the registration required template).

Subscription implies paywall; Registration does not. If both are used in a citation, the subscription required link note is displayed. There are no error messages for this condition.

]]

if is_set(Via) then

Via = " " .. wrap( 'via', Via );

end

if is_set(SubscriptionRequired) then

SubscriptionRequired = sepc .. " " .. cfg.messages['subscription']; --here when 'via' parameter not used but 'subscription' is

elseif is_set(RegistrationRequired) then

SubscriptionRequired = sepc .. " " .. cfg.messages['registration']; --here when 'via' and 'subscription' parameters not used but 'registration' is

end

if is_set(AccessDate) then

local retrv_text = " " .. cfg.messages['retrieved']

if (sepc ~= ".") then retrv_text = retrv_text:lower() end

AccessDate = '' .. sepc

.. substitute( retrv_text, {AccessDate} ) .. ''

end

if is_set(ID) then ID = sepc .." ".. ID; end

if "thesis" == config.CitationClass and is_set(Docket) then

ID = sepc .." Docket ".. Docket .. ID;

end

ID_list = buildidlist( ID_list, {DoiBroken = DoiBroken, ASINTLD = ASINTLD, IgnoreISBN = IgnoreISBN, Embargo=Embargo} );

if is_set(URL) then

URL = " " .. externallink( URL, nil, URLorigin );

end

if is_set(Quote) then

if Quote:sub(1,1) == '"' and Quote:sub(-1,-1) == '"' then

Quote = Quote:sub(2,-2);

end

Quote = sepc .." " .. wrap( 'quoted-text', Quote );

PostScript = ""; -- CS1 does not supply terminal punctuation when |quote= is set

end

local Archived

if is_set(ArchiveURL) then

if not is_set(ArchiveDate) then

ArchiveDate = seterror('archive_missing_date');

end

if "no" == DeadURL then

local arch_text = cfg.messages['archived'];

if sepc ~= "." then arch_text = arch_text:lower() end

Archived = sepc .. " " .. substitute( cfg.messages['archived-not-dead'],

{ externallink( ArchiveURL, arch_text ), ArchiveDate } );

if not is_set(OriginalURL) then

Archived = Archived .. " " .. seterror('archive_missing_url');

end

elseif is_set(OriginalURL) then

local arch_text = cfg.messages['archived-dead'];

if sepc ~= "." then arch_text = arch_text:lower() end

Archived = sepc .. " " .. substitute( arch_text,

{ externallink( OriginalURL, cfg.messages['original'] ), ArchiveDate } );

else

local arch_text = cfg.messages['archived-missing'];

if sepc ~= "." then arch_text = arch_text:lower() end

Archived = sepc .. " " .. substitute( arch_text,

{ seterror('archive_missing_url'), ArchiveDate } );

end

else

Archived = ""

end

local Lay

if is_set(LayURL) then

if is_set(LayDate) then LayDate = " (" .. LayDate .. ")" end

if is_set(LaySource) then

LaySource = " – " .. safeforitalics(LaySource) .. "";

else

LaySource = "";

end

if sepc == '.' then

Lay = sepc .. " " .. externallink( LayURL, cfg.messages['lay summary'] ) .. LaySource .. LayDate

else

Lay = sepc .. " " .. externallink( LayURL, cfg.messages['lay summary']:lower() ) .. LaySource .. LayDate

end

else

Lay = "";

end

if is_set(Transcript) then

if is_set(TranscriptURL) then Transcript = externallink( TranscriptURL, Transcript ); end

elseif is_set(TranscriptURL) then

Transcript = externallink( TranscriptURL, nil, TranscriptURLorigin );

end

local Publisher;

if is_set(Periodical) and

not inArray(config.CitationClass, {"encyclopaedia","web","pressrelease","podcast"}) then

if is_set(PublisherName) then

if is_set(PublicationPlace) then

Publisher = PublicationPlace .. ": " .. PublisherName;

else

Publisher = PublisherName;

end

elseif is_set(PublicationPlace) then

Publisher= PublicationPlace;

else

Publisher = "";

end

if is_set(PublicationDate) then

if is_set(Publisher) then

Publisher = Publisher .. ", " .. wrap( 'published', PublicationDate );

else

Publisher = PublicationDate;

end

end

if is_set(Publisher) then

Publisher = " (" .. Publisher .. ")";

end

else

if is_set(PublicationDate) then

PublicationDate = " (" .. wrap( 'published', PublicationDate ) .. ")";

end

if is_set(PublisherName) then

if is_set(PublicationPlace) then

Publisher = sepc .. " " .. PublicationPlace .. ": " .. PublisherName .. PublicationDate;

else

Publisher = sepc .. " " .. PublisherName .. PublicationDate;

end

elseif is_set(PublicationPlace) then

Publisher= sepc .. " " .. PublicationPlace .. PublicationDate;

else

Publisher = PublicationDate;

end

end

-- Several of the above rely upon detecting this as nil, so do it last.

if is_set(Periodical) then

if is_set(Title) or is_set(TitleNote) then

Periodical = sepc .. " " .. wrap( 'italic-title', Periodical )

else

Periodical = wrap( 'italic-title', Periodical )

end

end

--[[

Handle the oddity that is cite speech. This code overrides whatever may be the value assigned to TitleNote (through |department=) and forces it to be " (Speech)" so that

the annotation directly follows the |title= parameter value in the citation rather than the |event= parameter value (if provided).

]]

if "speech" == config.CitationClass then -- cite speech only

TitleNote = " (Speech)"; -- annotate the citation

if is_set (Periodical) then -- if Periodical, perhaps because of an included |website= or |journal= parameter

if is_set (Conference) then -- and if |event= is set

Conference = Conference .. sepc .. " "; -- then add appropriate punctuation to the end of the Conference variable before rendering

end

end

end

-- Piece all bits together at last. Here, all should be non-nil.

-- We build things this way because it is more efficient in LUA

-- not to keep reassigning to the same string variable over and over.

local tcommon

if inArray(config.CitationClass, {"journal","citation"}) and is_set(Periodical) then

if is_set(Others) then Others = Others .. sepc .. " " end

tcommon = safejoin( {Others, Title, TitleNote, Conference, Periodical, Format, TitleType, Scale, Series,

Language, Cartography, Edition, Publisher, Agency, Volume, Issue}, sepc );

else

tcommon = safejoin( {Title, TitleNote, Conference, Periodical, Format, TitleType, Scale, Series, Language,

Volume, Issue, Others, Cartography, Edition, Publisher, Agency}, sepc );

end

if #ID_list > 0 then

ID_list = safejoin( { sepc .. " ", table.concat( ID_list, sepc .. " " ), ID }, sepc );

else

ID_list = ID;

end

local idcommon = safejoin( { ID_list, URL, Archived, AccessDate, Via, SubscriptionRequired, Lay, Quote }, sepc );

local text;

local pgtext = Position .. Page .. Pages .. At;

if is_set(Authors) then

if is_set(Coauthors) then

Authors = Authors .. A['AuthorSeparator'] .. " " .. Coauthors

end

if is_set(Date) then

Date = " ("..Date..")" .. OrigYear .. sepc .. " "

elseif string.sub(Authors,-1,-1) == sepc then

Authors = Authors .. " "

else

Authors = Authors .. sepc .. " "

end

if is_set(Editors) then

local in_text = " ";

local post_text = "";

if is_set(Chapter) then

in_text = in_text .. cfg.messages['in'] .. " "

else

if EditorCount <= 1 then

post_text = ", " .. cfg.messages['editor'];

else

post_text = ", " .. cfg.messages['editors'];

end

end

if (sepc ~= '.') then in_text = in_text:lower() end

Editors = in_text .. Editors .. post_text;

if (string.sub(Editors,-1,-1) == sepc)

then Editors = Editors .. " "

else Editors = Editors .. sepc .. " "

end

end

text = safejoin( {Authors, Date, Chapter, Place, Editors, tcommon }, sepc );

text = safejoin( {text, pgtext, idcommon}, sepc );

elseif is_set(Editors) then

if is_set(Date) then

if EditorCount <= 1 then

Editors = Editors .. ", " .. cfg.messages['editor'];

else

Editors = Editors .. ", " .. cfg.messages['editors'];

end

Date = " (" .. Date ..")" .. OrigYear .. sepc .. " "

else

if EditorCount <= 1 then

Editors = Editors .. " (" .. cfg.messages['editor'] .. ")" .. sepc .. " "

else

Editors = Editors .. " (" .. cfg.messages['editors'] .. ")" .. sepc .. " "

end

end

text = safejoin( {Editors, Date, Chapter, Place, tcommon}, sepc );

text = safejoin( {text, pgtext, idcommon}, sepc );

else

if is_set(Date) then

if ( string.sub(tcommon,-1,-1) ~= sepc )

then Date = sepc .." " .. Date .. OrigYear

else Date = " " .. Date .. OrigYear

end

end

if config.CitationClass=="journal" and is_set(Periodical) then

text = safejoin( {Chapter, Place, tcommon}, sepc );

text = safejoin( {text, pgtext, Date, idcommon}, sepc );

else

text = safejoin( {Chapter, Place, tcommon, Date}, sepc );

text = safejoin( {text, pgtext, idcommon}, sepc );

end

end

if is_set(PostScript) and PostScript ~= sepc then

text = safejoin( {text, sepc}, sepc ); --Deals with italics, spaces, etc.

text = text:sub(1,-sepc:len()-1);

-- text = text:sub(1,-2); --Remove final separator (assumes that sepc is only one character)

end

text = safejoin( {text, PostScript}, sepc );

-- Now enclose the whole thing in a element

local options = {};

if is_set(config.CitationClass) and config.CitationClass ~= "citation" then

options.class = "citation " .. config.CitationClass;

else

options.class = "citation";

end

if is_set(Ref) and Ref:lower() ~= "none" then

local id = Ref

if ( "harv" == Ref ) then

local names = {} --table of last names & year

if #a > 0 then

for i,v in ipairs(a) do

names[i] = v.last

if i == 4 then break end

end

elseif #e > 0 then

for i,v in ipairs(e) do

names[i] = v.last

if i == 4 then break end

end

end

names[ #names + 1 ] = first_set(Year, anchor_year); -- Year first for legacy citations

id = anchorid(names)

end

options.id = id;

end

if string.len(text:gsub("/]*>.-", ""):gsub("%b<>","")) <= 2 then

z.error_categories = {};

text = seterror('empty_citation');

z.message_tail = {};

end

if is_set(options.id) then

text = '' .. text .. "";

else

text = '' .. text .. "";

end

local empty_span = ' ';

-- Note: Using display: none on then COinS span breaks some clients.

local OCinS = '' .. empty_span .. '';

text = text .. OCinS;

if #z.message_tail ~= 0 then

text = text .. " ";

for i,v in ipairs( z.message_tail ) do

if is_set(v[1]) then

if i == #z.message_tail then

text = text .. errorcomment( v[1], v[2] );

else

text = text .. errorcomment( v[1] .. "; ", v[2] );

end

end

end

end

no_tracking_cats = no_tracking_cats:lower();

if inArray(no_tracking_cats, {"", "no", "false", "n"}) then

for _, v in ipairs( z.error_categories ) do

text = text .. 'Category:' .. v ..'';

end

end

return text

end

-- This is used by templates such as {{cite book}} to create the actual citation text.

function z.citation(frame)

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 suggestions = {};

local error_text, error_state;

local config = {};

for k, v in pairs( frame.args ) do

config[k] = v;

args[k] = v;

end

for k, v in pairs( pframe.args ) do

if v ~= '' then

if not validate( k ) then

error_text = "";

if type( k ) ~= 'string' then

-- Exclude empty numbered parameters

if v:match("%S+") ~= nil then

error_text, error_state = seterror( 'text_ignored', {v}, true );

end

elseif validate( k:lower() ) then

error_text, error_state = seterror( 'parameter_ignored_suggest', {k, k:lower()}, true );

else

if #suggestions == 0 then

suggestions = mw.loadData( 'Module:Citation/CS1/Suggestions' );

end

if suggestions[ k:lower() ] ~= nil then

error_text, error_state = seterror( 'parameter_ignored_suggest', {k, suggestions[ k:lower() ]}, true );

else

error_text, error_state = seterror( 'parameter_ignored', {k}, true );

end

end

if error_text ~= '' then

table.insert( z.message_tail, {error_text, error_state} );

end

end

args[k] = v;

elseif args[k] ~= nil or (k == 'postscript') then

args[k] = v;

end

end

return citation0( config, args)

end

return z