Difference between pages "Module:Citation/CS1/Date validation" and "Module:Citation/CS1/Date validation/sandbox"
m (1 revision) |
m (1 revision) |
||
Line 1: | Line 1: | ||
+ | --[[ | ||
+ | History of changes since last sync: 2014-03-30 | ||
+ | |||
+ | 2014-04-06 Added code to allow "Winter YYYY–YY"; sequential years separated with unspaced endash | ||
+ | |||
+ | ]] | ||
local p = {} | local p = {} | ||
Line 175: | Line 181: | ||
month = get_month_number (month); | month = get_month_number (month); | ||
month2 = get_month_number (month2); | month2 = get_month_number (month2); | ||
+ | |||
+ | elseif date_string:match("^Winter +[1-9]%d%d%d–%d%d%a?$") then -- special case Winter year-year (YYYY-YY); year separated with unspaced endash | ||
+ | local century; | ||
+ | year, century, anchor_year, year2=date_string:match("Winter +((%d%d)%d%d)–((%d%d)%a?)"); | ||
+ | anchor_year=year..'–'..anchor_year; -- assemble anchor_year from both years | ||
+ | year2 = century..year2; -- add the century to year2 for comparisons | ||
+ | if 1 ~= tonumber(year2) - tonumber(year) then return false; end -- must be sequential years, left to right, earlier to later | ||
+ | if not is_valid_year(year2) then return false; end -- no year farther in the future than next year | ||
elseif date_string:match("^Winter +[1-9]%d%d%d–[1-9]%d%d%d%a?$") then -- special case Winter year-year; year separated with unspaced endash | elseif date_string:match("^Winter +[1-9]%d%d%d–[1-9]%d%d%d%a?$") then -- special case Winter year-year; year separated with unspaced endash |