Module:Citation/CS1/Date validation: Difference between revisions

return false; -- accessdate out of range

end

end

end

return false, '9999'; -- if here not good date so return false and set embargo date to long time in future

end

--[[--------------------------< G E T _ S E A S O N _ N U M B E R >--------------------------------------------

These additional divisions not currently supported:

]]

return cfg.date_names['local'].season[season] or -- look for local names first

cfg.date_names['en'].season[season] or -- failing that, look for English names

]]

return cfg.date_names['local'].named[name] or -- look for local names dates first

cfg.date_names['en'].named[name] or -- failing that, look for English names

]]

end

end

end

--[[--------------------------< I S _ V A L I D _ Y E A R >----------------------------------------------------

]]

if not is_set(year_limit) then

year_limit = tonumber(os.date("%Y"))+1; -- global variable so we only have to fetch it once

--[[--------------------------< I S _ V A L I D _ D A T E >----------------------------------------------------

Returns true if day is less than or equal to the number of days in month and year is no farther into the future

than next year; else returns false.

the output table receives:

rftdate: an IS8601 formatted date

rftssn: one of four season keywords: winter, spring, summer, fall (lowercase)

]]

date = string.format ('%.4d/%.4d', tonumber(input.year), tonumber(input.year2)) -- assemble the date range

end

if 0 == input.month2 then -- single season date

else

tCOinS_date.rftssn = season[input.month]; -- seasons

-- month/season range year; months separated by endash

['M-My'] = {'^(%D-)[%-–](%D-) +((%d%d%d%d)%a?)$', 'm', 'm2', 'a', 'y'},

['My'] = {'^([^%d–]-) +((%d%d%d%d)%a?)$', 'm', 'a', 'y'}, -- this way because endash is a member of %D; %D- will match January–March 2019 when it shouldn't

-- these date formats cannot be converted

['Sy4-y2'] = {'^(%D-) +((%d%d)%d%d)[%-–]((%d%d)%a?)$'}, -- special case Winter/Summer year-year (YYYY-YY); year separated with unspaced endash

['Sy-y'] = {'^(%D-) +(%d%d%d%d)[%-–]((%d%d%d%d)%a?)$'}, -- special case Winter/Summer year-year; year separated with unspaced endash

]]

local year; -- assume that year2, months, and days are not used;

local year2=0; -- second year in a year range

anchor_year = year;

elseif mw.ustring.match(date_string, patterns['Mdy'][1]) then -- month-initial: month day, year

month, day, anchor_year, year=mw.ustring.match(date_string, patterns['Mdy'][1]);

year2=year;

month, anchor_year, year=mw.ustring.match(date_string, patterns['My'][1]);

if not is_valid_year(year) then return false; end

elseif mw.ustring.match(date_string, patterns['y-y'][1]) then -- Year range: YYY-YYY or YYY-YYYY or YYYY–YYYY; separated by unspaced endash; 100-9999

end

if 0 ~= year and 0 ~= month and 0 ~= day and -- all parts of a single date required

0 == year2 and 0 == month2 and 0 == day2 then -- none of these; accessdate must not be a range

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

else

end

elseif 'year'==k then -- if the parameter is |year= it should hold only a year value

good_date, anchor_year, COinS_date = true, v.val:match("((%d+)%a?)");

end

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

good_date = check_date (v.val); -- go test the date

end

else -- any other date-holding parameter

end

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

[patterns[pattern_idx][8] or 'x'] = c7;

};

if tonumber(t.m) then -- if raw month is a number (converting from ymd)