Module:Person date

Module documentation[view] [edit] [history] [purge]

This module is intended to aid in calculating/formatting birth dates and death dates in {{Infobox person}} and other People and person infobox templates.

This module generates errors when it encounters invalid input. Error descriptions and how to fix them are listed at Category:Pages using age template with invalid date.

Usage

• {{#invoke:person date|birth}}
• {{#invoke:person date|death}}

In infoboxes

{{Infobox
...
| label# = Born
| data#  = {{#invoke:person date|birth}}

| label# = Died
| data#  = {{#invoke:person date|death}}
...
}}

Or

{{Infobox
...
| label#    = Born
| data#     = {{br separated entries
   |1={{#if:{{{birth_name|}}}|<div style="display:inline" class="nickname">{{{birth_name|}}}</div>}}
   |2={{#invoke:person date|birth}}
   |3={{#if:{{{birth_place|}}}|<div class="birthplace">{{{birth_place|}}}</div>}}
}}

| label#    = Died
| data#     = {{br separated entries
  |1={{#invoke:person date|death}}
  |2={{#if:{{{death_place|}}}|<div class="deathplace">{{{death_place|}}}</div>}}
}}
...
}}

Areas for improvement

1. Currently the module does not handle anything that is not a simple date. So anything with a reference tag is not evaluated by the code.
2. If |birth_date={{bda|1993|11|7}} (for example) then |death_date= will not be parsed. It will just be returned as the original string. Thus no age is calculated.

Tracking categories

• Category:Pages where birth or death is being automatically determined (77,265)
• Category:Pages using age template with invalid date (0)
• Category:Pages with invalid birth or death dates (4,548)

The above documentation is transcluded from Module:Person date/doc. (edit | history)
Editors can experiment in this module's sandbox (edit | diff) and testcases (edit | run) pages.
Subpages of this module.

local p = {}
local MAX_AGE = 130
local error_text = 'Error: Invalid birth_date in [[Module:Person date]], violates MAX_AGE of '.. MAX_AGE
local category_text = '[[Category:Articles using module person date older than 130]]'


function is_valid_month (str)
	str = string.upper(mw.ustring.sub(str,1,1))..string.lower(mw.ustring.sub(str,2))

	local months = {'Jan','Jan.','January','Feb','Feb.','February','Mar','March','Apr','Apr.','April','May','Jun','Jun.','June','Jul','Jul.','July','Aug','Aug.','August','Sep','Sept','Sep.','Sept.','September','Oct','Oct.','October','Nov','Nov','November','Dec','Dec.','December'}
    for index, value in ipairs(months) do
        if value == str then
            return true
        end
    end
    return false
end
function is_valid_date(str)
	local month = mw.ustring.match (str, '^%d+%s*(%a+)%s*%d%d%d%d$') or mw.ustring.match(str, '^(%a+)%s+%d+,%s*%d%d%d%d$') or mw.ustring.match(str, '^(%a+)%s+%d%d%d%d$')
	if month == nil then
		return false
	else
		return is_valid_month(month) 
	end
end

function is_year_only(str)
	return mw.ustring.match(str, '^%d%d%d%d$')
end

function already_has_template(str)
	str = mw.ustring.gsub(str, '&[Nn][Bb][Ss][Pp];', ' ')
	return mw.ustring.match(str, '<span') or mw.ustring.match(str, '<time') or mw.ustring.match(str,'%(aged%s*%d+') or mw.ustring.match(str,'%(age%s*%d+')
end

function parse_birth(frame, args)
	local birth_date = args[1] or ''
	local death_date = args[2] or ''
	local original = birth_date
	
	-- Sanatize leading & trailing whitespace (this caused an issue before it was implemented)
	birth_date = mw.ustring.gsub(birth_date,'^%s*','')
	birth_date = mw.ustring.gsub(birth_date,'%s*$','')
	death_date = mw.ustring.gsub(death_date,'^%s*','')
	death_date = mw.ustring.gsub(death_date,'%s*$','')
	
	if already_has_template(birth_date) then
		return original
	end
	
	if is_valid_date(birth_date) then
		local location = mw.ustring.find(birth_date, '%d%d%d%d')
		local date = mw.ustring.sub(birth_date, 1,location+3)
		local extra = mw.ustring.sub(birth_date, location+4)
		if death_date == '' then
			return frame:expandTemplate{ title = 'Birth date and age text', args = {date}} .. extra
		elseif is_year_only(death_date) or is_valid_date(death_date) then
			return frame:expandTemplate{ title = 'Birth date text', args = {date}} .. extra
		else 
			return original
		end
	end
	if is_year_only(birth_date) then
		local date = mw.ustring.sub(birth_date, 1, 5)
		local extra = mw.ustring.sub(birth_date, 5)
		if death_date == '' then
			return frame:expandTemplate{ title = 'bya', args = {date}} .. extra
		elseif is_year_only(death_date) or is_valid_date(death_date) then
			return frame:expandTemplate{ title = 'birth year', args = {date}} .. extra
		else
			-- death_date is not a valid string (example: 'unknown')
			return original
		end
	end
	
	return original
end

function parse_death(frame, args)
	local birth_date = args[1] or ''
	local death_date = args[2] or ''
	local original = death_date
	
	-- Sanatize leading & trailing whitespace (this caused an issue before it was implemented)
	birth_date = mw.ustring.gsub(birth_date,'^%s*','')
	birth_date = mw.ustring.gsub(birth_date,'%s*$','')
	death_date = mw.ustring.gsub(death_date,'^%s*','')
	death_date = mw.ustring.gsub(death_date,'%s*$','')
	
	if already_has_template(death_date) then
		return original
	end
	
	if is_valid_date(death_date) then
		local location = mw.ustring.find(death_date, '%d%d%d%d')
		local date = mw.ustring.sub(death_date, 1,location+3)
		local extra = mw.ustring.sub(death_date, location+4)
			
		if birth_date == '' then
			return frame:expandTemplate{ title = 'green', args = {date}} .. extra .. 'valid DATE, no birth_date'
			-- return frame:expandTemplate{ title = 'death date text', args = {date}} .. extra
		else
			if is_year_only(birth_date) then
				location =  mw.ustring.find(birth_date, '%d%d%d%d')
				bd = mw.ustring.sub(birth_date, 1,location+3)
			
				return frame:expandTemplate{ title = 'Death date and age text', args = {date, bd}} .. extra
			else
				if is_valid_date(birth_date) then
					location =  mw.ustring.find(birth_date, '%d%d%d%d')
					bd = mw.ustring.sub(birth_date, 1,location+3)
					
					return frame:expandTemplate{ title = 'Death date and age text', args = {date, bd}} .. extra	
				end	
			end
		end
	end
	if is_year_only(death_date) then
		if birth_date == '' then
			return frame:expandTemplate{ title = 'red', args = {mw.ustring.sub(death_date, 1, 5)}} .. mw.ustring.sub(death_date, 5)..' valid YEAR, no birth_date'
			-- return frame:expandTemplate{ title = 'death year', args = {mw.ustring.sub(death_date, 1, 5)}} .. mw.ustring.sub(death_date, 5)
		else
			if is_year_only(birth_date) then
				return frame:expandTemplate{ title = 'Death year and age', args = {mw.ustring.sub(death_date, 1, 5), mw.ustring.sub(birth_date, 1, 5)}} .. mw.ustring.sub(death_date, 5)	
			else
				if is_valid_date(birth_date) then
					local location = mw.ustring.find(death_date, '%d%d%d%d')
					local date = mw.ustring.sub(death_date, 1,location+3)
					local extra = mw.ustring.sub(death_date, location+4)
					
					location =  mw.ustring.find(birth_date, '%d%d%d%d')
					bd = mw.ustring.sub(birth_date, 1,location+3)
					
					return frame:expandTemplate{ title = 'Death date and age text', args = {date, bd}} .. extra	
				end	
			end
		end
	end
	
	return original
end

-- function check_for_max_date_birth(frame, text)
-- 	original_text = text
-- 	-- Sanatize text
-- 	text = mw.ustring.gsub(text, '&[Nn][Bb][Ss][Pp];', ' ')
-- 	text = mw.ustring.gsub(text, '<span class="currentage"></span>', '')

-- 	-- Locate '(age #'
-- 	local start, stop = mw.ustring.find(text, '%(age%s%d+')
	
-- 	if start == nil or stop == nil then
-- 		return original_text
-- 	end
	
-- 	-- Isolate the digits and compare to MAX_AGE
-- 	local age = mw.ustring.sub(text, start+5, stop)
-- 	if tonumber(age) > MAX_AGE then
-- 		local error_msg = frame:expandTemplate{ title = 'error', args = {error_text}}
-- 		local category = frame:expandTemplate{ title = 'user other', args = {category_text}}
	
-- 		return original_text..error_msg..category
-- 	end
-- 	return original_text
-- end

-- function check_for_max_date_death(frame, text)
-- 	original_text = text
-- 	mw.log('------')
-- 	mw.log('original_text: '..text)
-- 	-- Sanatize text
-- 	text = mw.ustring.gsub(text, '&[Nn][Bb][Ss][Pp];', ' ')
-- 	text = mw.ustring.gsub(text, '<span class="currentage"></span>', '')
	
	
-- 	mw.log('Sanatized text:'..text)
-- 	-- Locate '(aged #'
-- 	local start, stop = mw.ustring.find(text, '%(aged*%s%d+')
-- 	mw.log(start)
-- 	mw.log(stop)
	
-- 	if start == nil or stop == nil then
-- 		return text
-- 	end
-- 	local age = mw.ustring.sub(text, start+7, stop)
-- 	mw.log(age)
-- 	if tonumber(age) > MAX_AGE then
-- 		local error_msg = frame:expandTemplate{ title = 'error', args = {error_text}}
-- 		local category = frame:expandTemplate{ title = 'main other', args = {category_text}}
-- 		return text..error_msg..category
-- 	end
-- 	return text
-- end
function check_for_max_date(frame, text, regex)
	original_text = text
	-- Sanatize text
	text = mw.ustring.gsub(text, '&[Nn][Bb][Ss][Pp];', ' ')
	text = mw.ustring.gsub(text, '<span class="currentage"></span>', '')
	
	-- Locate numbers '(aged #'
	local start, stop = mw.ustring.find(text, regex)
	
	if start == nil or stop == nil then
		return text
	end
	local age = mw.ustring.sub(text, start+mw.ustring.len(regex)-6, stop)
	mw.log('Age is: '..age)
	if tonumber(age) > MAX_AGE then
		local error_msg = frame:expandTemplate{ title = 'error', args = {error_text}}
		local category = frame:expandTemplate{ title = 'main other', args = {category_text}}
		return text..error_msg..category
	end
	return text
end

function p.birth(frame)
	text = parse_birth(frame, frame.args[1] and frame.args or frame:getParent().args)
	return check_for_max_date(frame, text, '%(age%s%d+')
end

function p.death(frame)
	text = parse_death(frame, frame.args[1] and frame.args or frame:getParent().args)
	return check_for_max_date(frame, text, '%(aged*%s%d+')
end

return p