Module:Citation/CS1: Difference between revisions

--[[

|coauthor=, and |coauthors=) aren't related to each other and because these parameters may be concatenated into the variables used by |date= and |author#= (and aliases)

details of which parameter caused the error message are not provided.  Only one error message is emitted regardless of the number of deprecated parameters in the citation.

-- Populates numbered arguments in a message string using an argument table.

function substitute( msg, args )

return args and mw.message.newRawMessage( msg, args ):plain() or msg;

end

Apply kerning to open the space between the quote mark provided by the Module and a leading or trailing quote mark contained in a |title= or |chapter= parameter's value.

"'Unkerned title with leading and trailing single quote marks'"

" 'Kerned title with leading and trailing single quote marks' " (in real life the kerning isn't as wide as this example)

]]

function kern_quotes (str)

end

end

return str;

if is_set (name) then -- is prefix a proper ISO 639-1 language code?

script_value = script_value:gsub ('^%l%l%s*:%s*', ''); -- strip prefix from script

table.insert( z.properties_cats, 'CS1 uses ' .. name .. '-language script ('..lang..')'); -- categorize in language-specific categories

else

end

end

return script_value;

end

if not is_set( str ) then

return "";

str = safeforitalics( str );

end

else

return substitute( cfg.messages[key], {str} );

end

]]

local origin = {};

end

function errorcomment( content, hidden )

end

label = URL;

if is_set( source ) then

else

error( cfg.messages["bare_url_no_origin"] );

end

end

elseif inArray (domain, {'au', 'br', 'mx'}) then -- Australia, Brazil, Mexico

domain = "com." .. domain;

return externallinkid({link = handler.link,

label=handler.label , prefix="//www.amazon."..domain.."/dp/",id=id,

end

return text

end

--[[

end

end  

return result, count

end

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;

end

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

else

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

for _, k in ipairs( error_list ) do

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

end

if #error_list > 1 then

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

end

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

end

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

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

elseif is_set(data.Periodical) then

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

the page is a mainspace page and the ISO639-1 code is not 'en'.  Similarly, if the  parameter is |language=Norwegian, it will be categorized in the same way.

]]

if is_set (code) then

if 'no' == code then name = 'Norwegian' end; -- override wikimedia when code is 'no'

end

end

local TitleLink = A['TitleLink'];

local Chapter = A['Chapter'];

local TransChapter = A['TransChapter'];

local TitleType = A['TitleType'];

local Language = A['Language'];

local Format = A['Format'];

local Ref = A['Ref'];

local DoiBroken = A['DoiBroken'];

local ID_list = extractids( args );

local Quote = A['Quote'];

local PostScript = A['PostScript'];

local Callsign = A['Callsign'];

local City = A['City'];

local Program = A['Program'];

--local variables that are not cs1 parameters

local anchor_year; -- used in the CITEREF identifier

local COinS_date; -- used in the COinS metadata

|trans_title maps to |trans_chapter when |title is re-mapped

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

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

end

end

-- check for special case where |separator=none

end

if is_set(TitleType) then

TitleType = '';

else

end

else

-- end of {{cite episode}} stuff]]

Date = Year; -- promote Year to Date

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

if is_set(Month) then

Date = Month .. " " .. Date;

end

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

end

]]

if 'newsgroup' == config.CitationClass then

if is_set (PublisherName) then

end

end

if not is_set(Authors) then

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

end

local control = {  

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

maximum = Maximum,

lastauthoramp = LastAuthorAmp,

};

Cartography = A['Cartography'];

if is_set( Cartography ) then

end

Scale = A['Scale'];

end

if  not is_set(URL) and

not is_set(ArchiveURL) and

not is_set(ConferenceURL) and

-- Test if accessdate is given without giving a URL

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

AccessDate = '';

-- Test if format is given without giving a URL

if is_set(Format) then

end

end

-- Test if citation has no title

if not is_set(Title) and

end

if is_set( ArchiveURL ) then

end

end

end

end

-- Format main title.

if is_set(TitleLink) and is_set(Title) then

end

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

Title = script_concatenate (Title, ScriptTitle); -- <bdi> tags, lang atribute, categorization, etc; must be done after title is wrapped

else

Title = script_concatenate (Title, ScriptTitle); -- <bdi> tags, lang atribute, categorization, etc; must be done after title is wrapped

end

if is_set(Place) then

end

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

if is_set( Section ) then

end

if is_set( Inset ) then

end

else

if is_set( Section ) then

if is_set( Inset ) then

end

elseif is_set( Inset ) then

end

end

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

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

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

end

------------------------------------ totally unrelated data

if is_set(Via) then

end

if is_set(SubscriptionRequired) then

elseif is_set(RegistrationRequired) then

end

if is_set(AccessDate) then

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

end

end

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

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

end

end

if is_set(PublicationDate) then

if is_set(Publisher) then

else

Publisher = PublicationDate;

else

if is_set(PublicationDate) then

end

if is_set(PublisherName) then

if is_set(Periodical) then

if is_set(Title) or is_set(TitleNote) then  

else  

end

end