FANDOM


local p = {}
 
local getArgs
local yesno = require('Module:Yesno')
local mm = require('Module:Math')
 
function p.sublist(frame)
	return main(frame)
end
 
function main(frame)
	if not getArgs then
		getArgs = require('Module:Arguments').getArgs
	end
	local args
 
	-- Most parameters should still display when blank, so don't remove blanks
	args = getArgs(frame, {removeBlanks = false, wrappers = 'Template:Doctor Who episode list'})
 
	local title = mw.title.getCurrentTitle()
	local page_title = mw.title.getCurrentTitle().text
	local mainlist ='List of Doctor Who serials'
 
	-- Is this list on the same page as the page directly calling the template?
	local on_main_page
 
	-- Only sublist had anything about hiding, so only it needs to even check
	on_main_page = mw.uri.anchorEncode(page_title) == mw.uri.anchorEncode(mainlist)
 
	-- Declare all the possible <td>/<th> tags here, and the return string
	local EpisodeNumber,EpisodeNumber2,Title,Aux1,DirectedBy,WrittenBy,
			DirectedBy,Aux2,Aux3,OriginalAirDate,AltDate,ProdCode,
			Viewers,Aux4,return_table
 
	-- Need just this parameter removed if blank, no others
	if args.ShortSummary then
		if not args.ShortSummary:find('%S') then
			args.ShortSummary = nil
		end
	end
 
	-- Default color to light blue
	-- Hash (#) left out because it was left out in the original wikicode, so we can add it later
	local line_color = args.LineColor or 'CCCCFF'
 
	-- Give EpisodeNumber a rowspan if the story is multi-episode, border included.
	if not args.PartsWithSummaries then
		args.PartsWithSummaries = 0
	end
	if not args.MultiPart then
		args.MultiPart = 0
	end
 
	local EpisodeNumberRowspan = 1
	if not on_main_page then 
		if args.MultiPart ~= 0 then
			EpisodeNumberRowspan = args.MultiPart+args.PartsWithSummaries
		elseif args.ShortSummary then
			EpisodeNumberRowspan = 2
		end
	else
		EpisodeNumberRowspan = args.MultiPart
	end
	if not EpisodeNumberRowspan or EpisodeNumberRowspan == 0 then
		EpisodeNumberRowspan = 1
	end
 
	local EpisodeNumberBorder = ''
	if args.PartsWithSummaries == args.MultiPart and args.ShortSummary and not on_main_page then
		EpisodeNumberBorder = 'solid 3px #'..line_color
	end
 
	-- List of parameter names to test
	-- Keep this order as is
	local cell_names = {
		'EpisodeNumber2',
		'Title',
		'Aux1',
		'DirectedBy',
		'WrittenBy',
		'Aux2',
		'Aux3',
		'OriginalAirDate',
		'AltDate',
		'ProdCode',
		'Viewers',
		'Aux4'
	}
 
	-- Is there a way to call a variable by its name stored as a string? Doubt it
	-- This list matches strings with the table cell variables
	local td_tags = {
		['EpisodeNumber2'] = EpisodeNumber2,
		['Title'] = Title,
		['Aux1'] = Aux1,
		['DirectedBy'] = DirectedBy,
		['WrittenBy'] = WrittenBy,
		['DirectedBy'] = DirectedBy,
		['Aux2'] = Aux2,
		['Aux3'] = Aux3,
		['OriginalAirDate'] = OriginalAirDate,
		['AltDate'] = AltDate,
		['ProdCode'] = ProdCode,
		['Viewers'] = Viewers,
		['Aux4'] = Aux4,
	}
 
	local table_row = mw.html.create('tr')
				:addClass('vevent')
				:css('text-align','center')
 
	local row_color = yesno(args.RowColor, false)
	if args.RowColor and string.lower(args.RowColor) == 'on' then
		row_color = true
	end
 
	local top_color
	local epn = mm._cleanNumber(args.EpisodeNumber) or 1
	if args.TopColor then
		top_color = '#'..args.TopColor
	elseif row_color and not on_main_page and mm._mod(epn,2) == 0 then
		top_color = '#E9E9E9'
	elseif not on_main_page and args.ShortSummary then
		top_color = '#F2F2F2'
	else
		top_color = 'inherit'
	end
 
	table_row:css('background',top_color)
 
	-- This will decide the colspan= of the summary cell
	-- Start as 1 because EpisodeNumber is always created
	local nonnil_params = 1
 
	-- Created separately because it is the only <th> tag
 
	if args.EpisodeNumber then
		EpisodeNumber = mw.html.create('th')
				:attr('scope','row')
				:attr('id','ep'..args.EpisodeNumber)
				:css('text-align','center')
				:wikitext(args.EpisodeNumber)
				:css('border-bottom',EpisodeNumberBorder)
				:attr('rowspan',EpisodeNumberRowspan)
		table_row:css('background',top_color)
		table_row:node(EpisodeNumber)
	end
 
	-- The wikitext in the Title cell is a little more involved than the others
	local function add_title()
		local title_string = ''
 
		-- Surround the Title with quotes; no quotes if empty
		if args.Title and args.Title:find('%S') then
			title_string = title_string..'"'..args.Title..'"'
		end
 
		if args.RTitle then
			title_string = title_string..args.RTitle
		end
 
		-- Surround the AltTitle with quotes; no quotes if empty
		if args.AltTitle and args.AltTitle:find('%S') then
			title_string = title_string..'<br>"'..args.AltTitle..'"'
		end
 
		if args.RAltTitle then
			title_string = title_string..args.RAltTitle
		end
		return title_string
	end
 
	for _,v in ipairs(cell_names) do
		-- Title is in the middle, so it's probably better to just switch back and again instead of doing 2 nodes
		-- and then title, and then the rest in a loop
		if v == 'Title' then
			nonnil_params = nonnil_params + 1
			local title_text = add_title()
			td_tags[v] = mw.html.create('td')
			td_tags[v]:wikitext(title_text)
					:addClass('summary')
					:css('text-align','left')
			table_row:node(td_tags[v])
		elseif args[v] then
			nonnil_params = nonnil_params + 1
			td_tags[v] = mw.html.create('td')
			td_tags[v]:wikitext(args[v])
			table_row:node(td_tags[v])
		end
	end
 
	-- Production code also has an additional attribute, so add it separately here
	if ProdCode and args.ProdCode then
		ProdCode:attr('id','pc'..args.ProdCode)
	end
 
	local categories = ''
 
	-- add these categories only in the mainspace and only if they are on the page where the template is used
	if not args.LineColor and not on_main_page and title.nsText == '' then
		categories = categories..'[[Category:Doctor Who episode list using the default LineColor]]'
	end
 
	if args.TopColor and not on_main_page and title.nsText == '' then
		categories = categories..'[[Category:Doctor Who episode lists with row deviations]]'
	end
 
	-- Do not show the summary if this is being transcluded on the mainlist page
	-- Do include it on all other lists
	if not on_main_page and args.ShortSummary then
		local bottom_wrapper = mw.html.create('tr')
		-- fix for lists in the Short Summary
		local ss = args.ShortSummary
		if ss:match('^[*:;#]') or ss:match('^{|') then
			ss = '<span></span>\n' .. ss
		end
		if ss:match('\n[*:;#]') then
			ss = ss .. '\n<span></span>'
		end
		local ShortSummary = mw.html.create('td')
					:addClass('description')
					:css('border-bottom','solid 3px #'..line_color)
					:attr('colspan',nonnil_params)
					:newline()
					:wikitext(ss)
		bottom_wrapper:node(ShortSummary)
		return tostring(table_row)..tostring(bottom_wrapper)..categories
	else
		return tostring(table_row)..categories
	end
end
 
return p

Ad blocker interference detected!


Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.