Module:Citation/CS1/Date validation: Difference between revisions
Jump to navigation
Jump to search
Content deleted Content added
Synch from sandbox; |
Synch from sandbox; |
||
Line 21: | Line 21: | ||
adding 24 hours gives 2015-01-03T00:00:00 – one second more than tomorrow |
adding 24 hours gives 2015-01-03T00:00:00 – one second more than tomorrow |
||
This function does not work for languages other than English. Wikimedia #time: parser |
This function does not work if it is fed month names for languages other than English. Wikimedia #time: parser |
||
non-Engish date month names. This function will always return false when the date |
apparently doesn't understand non-Engish date month names. This function will always return false when the date |
||
because good1 is false after the call to lang.formatDate. |
contains a non-English month name because good1 is false after the call to lang.formatDate(). To get around that |
||
⚫ | |||
⚫ | |||
[[bs:Modul:Citation/CS1/Date validation/igralište]] for one possible solution. |
|||
]=] |
]=] |
||
Line 44: | Line 42: | ||
return false; -- one or both failed to convert to unix time stamp |
return false; -- one or both failed to convert to unix time stamp |
||
end |
end |
||
if 979516800 <= access_ts and access_ts < tomorrow_ts then -- Wikipedia start date <= accessdate < tomorrow's date |
if 979516800 <= access_ts and access_ts < tomorrow_ts then -- Wikipedia start date <= accessdate < tomorrow's date |
||
return true; |
return true; |
||
Line 354: | Line 352: | ||
]] |
]] |
||
local function check_date (date_string, tCOinS_date) |
local function check_date (date_string, tCOinS_date, test_accessdate) |
||
local year; -- assume that year2, months, and days are not used; |
local year; -- assume that year2, months, and days are not used; |
||
local year2=0; -- second year in a year range |
local year2=0; -- second year in a year range |
||
Line 441: | Line 439: | ||
month = get_season_number (month); -- for metadata |
month = get_season_number (month); -- for metadata |
||
elseif mw.ustring.match(date_string, "^%a+ +[1-9]%d%d%d |
elseif mw.ustring.match(date_string, "^%a+ +[1-9]%d%d%d +[%-–] +%a+ +[1-9]%d%d%d%a?$") then -- month/season year - month/season year; separated by spaced endash |
||
month, year, month2, anchor_year, year2=mw.ustring.match(date_string, "(%a+) +(%d%d%d%d) [%-–] (%a+) +((%d%d%d%d)%a?)"); |
month, year, month2, anchor_year, year2=mw.ustring.match(date_string, "(%a+) +(%d%d%d%d) +[%-–] +(%a+) +((%d%d%d%d)%a?)"); |
||
anchor_year=year..'–'..anchor_year; -- assemble anchor_year from both years |
anchor_year=year..'–'..anchor_year; -- assemble anchor_year from both years |
||
if tonumber(year) >= tonumber(year2) then return false; end -- left to right, earlier to later, not the same |
if tonumber(year) >= tonumber(year2) then return false; end -- left to right, earlier to later, not the same |
||
Line 503: | Line 501: | ||
else |
else |
||
return false; -- date format not one of the MOS:DATE approved formats |
return false; -- date format not one of the MOS:DATE approved formats |
||
end |
|||
if test_accessdate then -- test accessdate here because we have numerical date parts |
|||
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 |
|||
if not is_valid_accessdate (year..'-'..month..'-'..day) then |
|||
return false; -- return false when accessdate out of bounds |
|||
⚫ | |||
else |
|||
return false; -- return false when accessdate is a range of two dates |
|||
end |
|||
end |
end |
||
Line 561: | Line 570: | ||
end |
end |
||
elseif 'date'==k then -- if the parameter is |date= |
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 |
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 |
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 |
elseif v:match("^nd%a?$") then -- if |date=nd with or without a CITEREF disambiguator |
||
Line 568: | Line 577: | ||
good_date, anchor_year, COinS_date = check_date (v, tCOinS_date); -- go test the date |
good_date, anchor_year, COinS_date = check_date (v, tCOinS_date); -- go test the date |
||
end |
end |
||
elseif ' |
elseif 'year'==k then -- if the parameter is |year= it should hold only a year value |
||
if v:match("^[1-9]%d%d%d?%a?$") then -- if |year= 3 or 4 digits only with or without a CITEREF disambiguator |
|||
⚫ | |||
good_date, anchor_year, COinS_date = true, v:match("((%d+)%a?)"); |
|||
good_date = is_valid_accessdate (v); -- is Wikipedia start date < accessdate < tomorrow's date? |
|||
end |
end |
||
elseif 'access-date'==k then -- if the parameter is |date= |
|||
⚫ | |||
elseif 'embargo'==k then -- if the parameter is |embargo= |
elseif 'embargo'==k then -- if the parameter is |embargo= |
||
good_date = check_date (v); -- go test the date |
good_date = check_date (v); -- go test the date |
||
Line 750: | Line 760: | ||
format_str = long_formats[format]; |
format_str = long_formats[format]; |
||
end |
end |
||
-- convert date and save; |
|||
⚫ | |||
date_parameters_list[param_name] = os.date (format_str, os.time(source_date)); -- |
date_parameters_list[param_name] = mw.text.trim (os.date (format_str, os.time(source_date))); -- strip leading space when single digit day and %e is first format |
||
end |
end |
||
end |
end |