Module:Citation/CS1: Difference between revisions
Jump to navigation
Jump to search
m (1 revision) |
(M17) |
||
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' ); | |||
-- Contains a list of all recognized parameters | -- Contains a list of all recognized parameters | ||
local whitelist = mw.loadData( 'Module:Citation/CS1/Whitelist' ); | |||
-- 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 | |||
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 | end | ||
Line 353: | Line 303: | ||
--[[ | --[[ | ||
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. | ||
]] | ]] | ||
function pmc(id, embargo) | function pmc(id, embargo) | ||
local handler = cfg.id_handlers['PMC']; | local handler = cfg.id_handlers['PMC']; | ||
local text; | local text; | ||
if is_embargoed(embargo) then | if is_embargoed(embargo) then | ||
text="[[" .. handler.link .. "|" .. handler.label .. "]]:" .. handler.separator .. id | 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}) | 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) | |||
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%. | 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 | if "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, etc. Capitalization and spelling must be correct. If not a valid month, returns 0 | ||
function get_month_number (month) | |||
local long_months = {['January']=1, ['February']=2, ['March']=3, ['April']=4, ['May']=5, ['June']=6, ['July']=7, ['August']=8, ['September']=9, ['October']=10, ['November']=11, ['December']=12}; | |||
local short_months = {['Jan']=1, ['Feb']=2, ['Mar']=3, ['Apr']=4, ['May']=5, ['Jun']=6, ['Jul']=7, ['Aug']=8, ['Sep']=9, ['Oct']=10, ['Nov']=11, ['Dec']=12}; | |||
local temp; | |||
temp=long_months[month]; | |||
if temp then return temp; end -- if month is the long-form name | |||
temp=short_months[month]; | |||
function | if temp then return temp; end -- if month is the short-form name | ||
return 0; -- misspelled, improper case, or not a month name | |||
end | end | ||
-- | -- 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 | ||
function get_season_number (season) | |||
function | local season_list = {['Winter']=1, ['Spring']=2, ['Summer']=3, ['Fall']=4, ['Autumn']=4} | ||
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 | ||
-- | --[[ | ||
Returns true if day is less than or equal to the number of days in month; else returns false. | |||
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. | |||
Where the two calendars overlap (1582 to approximately 1923) dates are assumed to be Gregorian. | |||
]] | |||
function is_valid_date (year, month, day) | |||
]] | local days_in_month = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}; | ||
function | local month_length; | ||
if (2==month) then -- if February | |||
month_length = 28; -- then 28 days unless | |||
if 1582 > tonumber(year) then -- Julian calendar | |||
if 0==(year%4) then | |||
month_length = 29; | |||
end | |||
else | else -- Gregorian calendar | ||
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 | ||
if tonumber (day) > month_length then | |||
if | |||
return false; | return false; | ||
end | end | ||
return true; | |||
end | |||
--[[ | |||
Check a pair of months or seasons to see if both are valid members of a month or season pair. | |||
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 | |||
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 | |||
is made to see if |date=Fall-Winter yyyy (4-1) is the date. | |||
]] | |||
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 | 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 | ||
-- | --[[ | ||
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. | |||
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 | |||
character abbreviations, and seasons must be spelled correctly. | |||
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) | |||
-- | Returns: | ||
false if date string is not a real date; else | |||
true, anchor_year, COinS_date | |||
anchor_year can be used in CITEREF anchors | |||
COinS_date is date_string without anchor_year disambiguator if any | |||
]] | |||
function check_date (date_string) | |||
local year; | |||
local month=0; -- assume that month and day are not used; if either is zero then final year/month/day validation is not necessary | |||
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 | |||
-- | 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 | ||
day, day2, month, anchor_year, year=string.match(date_string, "(%d%d?)–(%d%d?) +(%a+) +((%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 | |||
end | |||
elseif mw.ustring.match (date_string, "^%a+–%a+ +[1-9]%d%d%d%a?$") then -- month/season range year; months separated by endash | |||
local month2 | |||
month, month2, anchor_year, year=mw.ustring.match (date_string, "(%a+)[%-/–](%a+)%s*((%d%d%d%d)%a?)"); | |||
if false == is_valid_month_season_range(month, month2) then | |||
return false; | |||
end | |||
elseif date_string:match("^%a+ +%d%d%d%d%a?$") then -- month/season year | |||
month, anchor_year, year=string.match(date_string, "(%a+)%s*((%d%d%d%d)%a?)"); | |||
if 0 == get_month_number (month) then -- if month text isn't one of the twelve months, might be a season | |||
if 0 == get_season_number (month) then -- not a month, is it a season? | |||
return false; -- return false not a month or one of the five seasons | |||
end | |||
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 | |||
--[[ | --[[ | ||
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 | |||
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 dates(date_parameters_list) | |||
local anchor_year; -- will return as nil if the date being tested is not |date= | |||
local COinS_date; -- will return as nil if the date being tested is not |date= | |||
local error_message =""; | |||
local good_date=false; | |||
for k, v in pairs(date_parameters_list) do -- for each date-holding parameter in the list | |||
if is_set(v) then -- if the parameter has a value | |||
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= | |||
if 'date'==k then | |||
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 | |||
elseif 'year'==k then | |||
good_date = true; | |||
end | |||
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 .. "|" .. 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 | |||
-- | -- Determines whether an ISBN string is valid | ||
function | 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; | |||
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 | ||
-- | -- Gets the display text for a wikilink like [[A|B]] or [[B]] gives B | ||
function | function removewikilink( str ) | ||
return (str:gsub( "%[%[([^%[%]]*)%]%]", function(l) | |||
return l:gsub( "^[^|]*|(.*)$", "%1" ):gsub("^%s*(.-)%s*$", "%1"); | |||
end)); | |||
end | |||
-- Escape sequences for content that will be used for URL descriptions | |||
function safeforurl( str ) | |||
if str:match( "%[%[.-%]%]" ) ~= nil then | |||
table.insert( z.message_tail, { seterror( 'wikilink_in_url', {}, true ) } ); | |||
end | |||
return str:gsub( '[%[%]\n]', { | |||
['['] = '[', | |||
[']'] = ']', | |||
['\n'] = ' ' } ); | |||
end | |||
-- Converts a hyphen to a dash | |||
function hyphentodash( str ) | |||
if not is_set(str) or str:match( "[%[%]{}<>]" ) ~= nil then | |||
return str; | |||
end | |||
return str:gsub( '-', '–' ); | |||
end | |||
-- Protects a string that will be wrapped in wiki italic markup '' ... '' | |||
function safeforitalics( str ) | |||
--[[ Note: We can not use <i> for italics, as the expected behavior for | |||
italics specified by ''...'' in the title is that they will be inverted | |||
(i.e. unitalicized) in the resulting references. In addition, <i> and '' | |||
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 = "<span />" .. str; end | |||
if str:sub(-1,-1) == "'" then str = str .. "<span />"; end | |||
-- Remove newlines as they break italics. | |||
return str:gsub( '\n', ' ' ); | |||
end | end | ||
end | |||
--[[ | |||
Joins a sequence of strings together while checking for duplicate separation | |||
characters. | |||
]] | |||
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 | |||
end | 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 | |||
end | 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 | end | ||
return | return str; | ||
end | end | ||
-- | -- Attempts to convert names to initials. | ||
function | function reducetoinitials(first) | ||
local | 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; | |||
if sep:sub(-1,-1) ~= " " then sep = sep .. " " end | |||
if maximum ~= nil and maximum < 1 then return "", 0; end | |||
for | 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 = "[[" .. person.link .. "|" .. one .. "]]" end | |||
end | end | ||
table.insert( | 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 | end | ||
text[#text] = nil; | |||
end | end | ||
local result = table.concat(text) -- construct list | |||
if etal then | |||
local etal_text = cfg.messages['et al']; | |||
result = result .. " " .. etal_text; | |||
end | end | ||
-- if necessary wrap result in <span> tag to format in Small Caps | |||
if ( "scap" == format ) then result = | |||
'<span class="smallcaps" style="font-variant:small-caps">' .. result .. '</span>'; | |||
end | end | ||
return result, count | |||
return | end | ||
-- Generates a CITEREF anchor ID. | |||
function anchorid( options ) | |||
return "CITEREF" .. table.concat( options ); | |||
end | end | ||
-- | -- Gets name list from the input arguments | ||
function extractnames(args, list_name) | |||
function | local names = {}; | ||
local | local i = 1; | ||
local | local last; | ||
local | |||
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 | |||
-- 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 | for k, v in pairs( id_list ) do | ||
-- fallback to read-only cfg | |||
handler = setmetatable( { ['id'] = v }, fallback(k) ); | |||
if | 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 == 'ASIN' then | |||
table.insert( new_list, {handler.label, amazon( v, options.ASINTLD ) } ); | |||
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 | else | ||
error( cfg.messages['unknown_manual_ID'] ); | |||
end | end | ||
end | end | ||
function comp( a, b ) -- used in following table.sort() | |||
return a[1] < b[1]; | |||
-- | |||
return | |||
end | end | ||
local | 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 | 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]; | |||
for | selected = v; | ||
end | |||
if | |||
if | |||
end | end | ||
end | end | ||
local | 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 | end | ||
if | 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 | end | ||
error_str = error_str .. wrap( 'parameter', selected ); | |||
table.insert( z.message_tail, { seterror( error_condition, {error_str}, true ) } ); | |||
end | end | ||
return value, selected; | |||
return | |||
end | end | ||
-- | -- 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 | |||
function | return ''; | ||
end | |||
local ctx_ver = "Z39.88-2004"; | |||
local | |||
-- | -- treat table strictly as an array with only set values. | ||
local OCinSoutput = setmetatable( {}, { | |||
local | __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 | 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. | |||
]] | |||
local | function citation0( config, args) | ||
--[[ | |||
Load Input Parameters | |||
The argment_wrapper facillitates the mapping of multiple | |||
aliases to single internal variable. | |||
]] | |||
local A = argument_wrapper( args ); | |||
local | local i | ||
local | 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 | local PublicationDate = A['PublicationDate']; | ||
local | local OrigYear = A['OrigYear']; | ||
local | local Date = A['Date']; | ||
local LayDate = 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']; | |||
--[[ | |||
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 | |||
--[[ | |||
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 | ||
local Series = A['Series']; | |||
local Volume = A['Volume']; | |||
local Issue = A['Issue']; | |||
local Position = ''; | |||
local Page, Pages, At, page_type; | |||
Page = A['Page']; | |||
Pages = hyphentodash( A['Pages'] ); | |||
At = A['At']; | |||
if is_set(Page) then | |||
if is_set(Pages) or is_set(At) then | |||
Page = Page .. " " .. seterror('extra_pages'); | |||
Pages = ''; | |||
At = ''; | |||
end | |||
elseif is_set(Pages) then | |||
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>|id=</code> and <code>|number=</code>') | |||
if not is_set(PublicationPlace) and is_set(Place) then | |||
PublicationPlace = Place; | |||
end | |||
if PublicationPlace == Place then Place = ''; end | |||
local PublisherName = A['PublisherName']; | |||
local RegistrationRequired = A['RegistrationRequired']; | |||
local SubscriptionRequired = A['SubscriptionRequired']; | |||
local Via = A['Via']; | |||
local AccessDate = A['AccessDate']; | |||
local ArchiveDate = 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']; | |||
-- 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>|id=</code> and <code>|number=</code>'); | |||
end | end | ||
end | end | ||
end | |||
local ASINTLD = A['ASINTLD']; | |||
local IgnoreISBN = A['IgnoreISBN']; | |||
local Embargo = A['Embargo']; | |||
local ID_list = extractids( args ); | |||
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']; | |||
local use_lowercase = ( sepc ~= '.' ); | |||
local this_page = mw.title.getCurrentTitle(); --Also used for COinS and for language | |||
if not is_set(no_tracking_cats) then | |||
for k, v in pairs( cfg.uncategorized_namespaces ) do | |||
if this_page.nsText == v then | |||
no_tracking_cats = "true"; | |||
break; | |||
end | |||
end | |||
end | |||
-- | local anchor_year; -- used in the CITEREF identifier | ||
local COinS_date; -- used in the COinS metadata | |||
-- | |||
-- 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. | ||
--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 | end | ||
-- | -- 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'] = | ['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, { | 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 | ||
------------------------------------ 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 = ""; | 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 | |||
text = safejoin( {text, sepc}, sepc ); --Deals with italics, spaces, etc. | |||
text = text:sub(1,-2); --Remove final seperator | |||
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() | ||
local args = {}; | local args = {}; | ||
local suggestions = {}; | local suggestions = {}; |