-- Subfunctions for this module that are called from the style modules
local ppp = {}

function ppp.colhead(ttt,width,text)
	-- For individual column headers
	local head_string
	if width=='auto' then
		head_string = '! scope="col" |'..text..'\n'
	else
		head_string = '! scope="col" width='..width..'|'..text..'\n'
	end

	ttt.count = ttt.count+1
	table.insert(ttt.tab_text,head_string)
	
	return ttt
end

function ppp.hth(frame,Args,full_table,hth_id_list,hth_local,notes_exist,team_list,team_code_ii,ii_start,ii_end,rand_val)
	-- For head-to-head notes
	local hth_string,hth_local_num, hth_id
	
	-- Check whether there is a head-to-head note or not, if so get text ready for it the same way as for the notes
	if hth_local and full_table then
		-- Set global check for notes to true
		notes_exist = true
		if not Args['hth_'..hth_local] then
			-- Option 1
			-- Now define the identifier for this
			hth_id = '"table_hth_'..team_code_ii..rand_val..'"' -- Add random end for unique ID if more tables are present on article (which might otherwise share an ID)
			hth_id_list[team_code_ii] = hth_id
			-- Call refn template
			hth_string = frame:expandTemplate{ title = 'efn', args = { group='Table_notes',  name=hth_id, hth_local} }
		else 
			-- Option 2
			hth_local_num = team_list[hth_local]
			if hth_id_list[hth_local] or ((hth_local_num >= ii_start) and (hth_local_num <= ii_end)) then
				-- Option 2a
				hth_id = '"table_hth_'..hth_local..rand_val..'"'
				hth_string = frame:extensionTag{ name = 'ref', args = { group = 'lower-alpha', name = hth_id} }
			else
				-- Option 2b
				hth_id = '"table_hth_'..hth_local..rand_val..'"' -- Add random end for unique ID
				hth_id_list[hth_local] = hth_id
				-- Call refn template
				hth_string = frame:expandTemplate{ title = 'efn', args = { group='Table_notes',  name=hth_id, Args['hth_'..hth_local]} }
			end
		end
	else
		hth_string = '';
	end
	
	return {str=hth_string, list=hth_id_list, notes_exist=notes_exist}
end

return ppp