Redigerer Modul:SpeedSkatingStats

local p = {}
 
function p.skatingdata(frame)
	local profiletype = frame.args[1]
	local id = frame.args[2]
	local name = frame.args[3]
	local gender;
		if frame.args[4] == "herrer" or frame.args[4] == "h" or frame.args[4] == "menn" or frame.args[4] == "m" then
			gender_en = "m"
			gender_nl = "m"
		elseif frame.args[4] == "kvinner" or frame.args[4] == "k" or frame.args[4] == "damer" or  frame.args[4] == "d" then
			gender_en = "w"
			gender_nl = "v"
		end
	local year = frame.args[5]
	local event = frame.args[6]
	local note;
		if frame.args[7] == "" then
			note = ""
		else
			note = ". ''" .. frame.args[7] .. "''"
		end
	local championship;
		if id == "wchall" or id == "wkall" then
			championship_en = "wchall"
			championship_nl = "wkall"
		elseif id == "wchsd" or id == "wkafs" then
			championship_en = "wchsd"
			championship_nl = "wkafs"
		elseif id == "wchsp" or id == "wkspr" then
			championship_en = "wchspr"
			championship_nl = "wkspr"
		elseif id == "wchjun" or id == "wkjun" then
			championship_en = "wchjun"
			championship_nl = "wkjun"
		elseif id == "og" or id == "os" then
			championship_en = "og"
			championship_nl = "os"
		elseif id == "echall" or id == "ekall" then
			championship_en = "echall"
			championship_nl = "ekall"
		elseif id == "wc_sdall" or id == "wk_afsall" then
			championship_en = "class"
			championship_nl = "klassement"
			timeid = ""
				if tonumber(event) > 9999 then
					event = event
				elseif tonumber(event) >= 999 then
					event = "0" .. event
				else
					event = "00" .. event
				end
		elseif id == "wc_season" or id == "wk_seizoen" then
			championship_en = "results&wc="
			championship_nl = "uitslagen&wc="
			timeid = tostring(frame.args[8])
		elseif id == "wc_sd" or id == "wk_afs" then
			championship_en = "results&wc="
			championship_nl = "uitslagen&wc="
			timeid = tostring(frame.args[8])
				if tonumber(event) > 9999 then
					event = event
				elseif tonumber(event) >= 999 then
					event = "0" .. event
				else
					event = "00" .. event
				end
				if frame.args[9] == "" then
					racenumber = ""
				else
					racenumber = "-" .. frame.args[9]
				end
		end
	local speedskating_begin = "http://www.speedskatingstats.com/index.php?file="
	local schaats_begin = "http://www.schaatsstatistieken.nl/index.php?file="
 
	if profiletype == 'løper' or profiletype == 'utøver' then
		link_res = "Profil og resultatoversikt på ''SpeedSkatingStats.com'' [" .. speedskating_begin .. "skater&code=" .. id ..   
				" en] [" .. schaats_begin .. "schaatser&code=" .. id .. " nl]"
	elseif profiletype == 'bane' or profiletype == 'stadion' then
		link_res = "Profil og resultatoversikt på ''SpeedSkatingStats.com'' [" .. speedskating_begin .. 'rinks&rink=' .. id ..
				" en] [" .. schaats_begin .. "ijsbanen&track=" .. id .. " nl]"
	elseif profiletype == 'resultat' or profiletype == 'stevne' then
		if id == "nkall" or id == "nkspr" then
			link_res = mw.getCurrentFrame():expandTemplate{ title = 'Språkikon', args = { 'nl', 'nederlandsk' } } ..
				" [" .. schaats_begin .. "kampioenschappen&g=" .. gender_nl .. "&type=" .. id .. "&jaar=" .. 
				year .. " Resultatoversikt]" .. " på ''SpeedSkatingStats.com''"
		elseif id == "nkafs" then
			link_res = mw.getCurrentFrame():expandTemplate{ title = 'Språkikon', args = { 'nl', 'nederlandsk' } } ..
				" [" .. schaats_begin .. "kampioenschappen&type=nkafs&g=" .. gender_nl .. "&event=" .. event ..
				" Resultatoversikt]" .. " på ''SpeedSkatingStats.com''"
		elseif id == "wc_sd" or is == "wk_afs" then
			link_res = "Resultatoversikt på ''SpeedSkatingStats.com'' [" ..speedskating_begin .. "worldcup&type=" .. championship_en ..
				timeid .. "&event=" .. event .. racenumber .. "&g=" .. gender_en .. " en] [" .. schaats_begin .. "worldcup&type=" .. 
				championship_nl .. timeid .. "&event=" .. event .. racenumber .. "&g=" .. gender_en .. " nl]"
		elseif id == "wc_sdall" or is == "wk_afsall" then
			link_res = "Resultatoversikt på ''SpeedSkatingStats.com'' [" ..speedskating_begin .. "worldcup&type=" .. championship_en ..
				timeid .. "&event=" .. event .. "&g=" .. gender_en .. " en] [" .. schaats_begin .. "worldcup&type=" .. 
				championship_nl .. timeid .. "&event=" .. event .. "&g=" .. gender_en .. " nl]"
		elseif id == "wc_season" or is == "wk_seizoen" then
			link_res = "Resultatoversikt på ''SpeedSkatingStats.com'' [" ..speedskating_begin .. "worldcup&type=" .. championship_en ..
				timeid .. " en] [" .. schaats_begin .. "worldcup&type=" .. championship_nl .. timeid .. " nl]"
		else
			link_res = "Resultatoversikt på ''SpeedSkatingStats.com'' [" .. speedskating_begin .. "championships&g=" .. gender_en ..
				'&type=' .. championship_en .. "&year=" .. year ..  "&event=" .. event .. " en] [" .. schaats_begin ..
				"kampioenschappen&g=" .. gender_nl .. "&type=" .. championship_nl .. "&jaar=" .. year ..
				"&event=" .. event .. " nl]"
		end
	end
 
	return link_res .. note
end
 
return p