Module:Infobox/Cycliste

 Documentation[voir] [modifier] [historique] [purger]

Cette page définit un module d'infobox. Pour les conseils sur l'usage de ce module, voyez Modèle:Infobox Cycliste.

La documentation de ce module est générée par le modèle {{Documentation module}}.
Elle est incluse depuis la page Modèle:Documentation module d'infobox. Veuillez placer les catégories sur cette page-là.
Les éditeurs peuvent travailler dans le bac à sable (créer).
Voir les statistiques d'appel depuis le wikicode sur l'outil wstat et les appels depuis d'autres modules.

local person = require "Module:Infobox/Fonctions/Personne"
local Wikidata = require "Module:Wikidata"
local wikibase = mw.wikibase
local Complexedate = require "Module:Date complexe"
local wikidataON=true
local wikidataManagedON=true
local finalYear=2030
local initialYear=1900
local onlyRoad=true
local presentTeamLabel

local available, translations = pcall(require, "Module:Cycling race/lang")
local available_lang_priority = available == true and type(translations.lang_priority) == "table"
local wiki="fr"
-- lazy-filled by listofTeamTable(), on first call of amateurTeamTable() or proTeamTable()
local teamAmateur, teamPro, teamMountainBike, teamCycloCross, teamTrack, nationalTeam,managedTeam
local itemID

-- ##### Functions from Cycling race module copied #####
--[[ Iterator to get all statements for an entity and property which are not deprecated and have a value]]
local function nextStatement(state, i)
	local s
	repeat
		i = i + 1
		local s = state[i]
		if s and s.rank ~= 'deprecated' and s.mainsnak.snaktype == 'value' then
			return i, s
		end
	until s == nil
end
local function statements(QID, PID)
	return nextStatement, wikibase.getAllStatements(QID, PID), 0
end

--[[ Get any value for a property which is not deprecated ]]
local function firstValue(QID, PID, field)
	local ss = wikibase.getAllStatements(QID, PID)
	for _, s in pairs(ss) do
		if s.rank ~= 'deprecated' and s.mainsnak.snaktype == 'value' then
			return field and s.mainsnak.datavalue.value[field] or s.mainsnak.datavalue.value
		end
	end
end

--[[ Go from season of a team to the team ]]
local function getParentID(teamID)
	return firstValue(teamID, 'P361', 'id') -- P361 is 'part of'
		or firstValue(teamID, 'P5138', 'id') -- P5138 is 'season of club or team'
end

--[[ Get sitelink with no wiki no formating ]]
local function getRawTeamLink(teamID)
	local sitelink
	local parentID = getParentID(teamID)
	if parentID then -- try parent team first
		sitelink = mw.wikibase.getSitelink(parentID)
	end
	if not sitelink then
		sitelink = mw.wikibase.getSitelink(teamID)
	end
	return sitelink
end

--[[ Get a Wikidata statement for an entity and property valid at the given timevalue ]]
local function checkTime(s, time)
	local start, startPrecision, END, endPrecision
	local q = s.qualifiers
	if q then
		if q.P580 and q.P580[1] and	q.P580[1].snaktype == 'value' then -- P580 is start time
			start = q.P580[1].datavalue.value.time
			startPrecision = q.P580[1].datavalue.value.precision
			if startPrecision == 9 then -- precision is years
				start = string.sub(start, 1, 5) -- Cut of everything after year
			elseif startPrecision == 10 then -- precision is months
				start = string.sub(start, 1, 8) -- Cut of everything after month
			end
		end
		if q.P582 and q.P582[1] and q.P582[1].snaktype == 'value' then -- P582 is end time
			END = q.P582[1].datavalue.value.time
			endPrecision = q.P582[1].datavalue.value.precision
		end
	end
	if not start or start <= time then
		if not END then
			return s
		end
		if endPrecision == 9 then -- precision 9 is 'years'
			END = string.sub(END, 1, 6) .. '13' -- Set month to 13
		elseif endPrecision == 10 then -- precision 10 is 'months'
			END = string.sub(END, 1, 9) .. '32' -- Set day to 32
		end
		if END >= time then
			return s
		end
	end
	return nil
end

local function getStatementForTime(ID, property, time)
	local temp
	for _, s in statements(ID, property) do
		temp =checkTime(s, time)
		if temp then return temp end
	end
	return nil
end

local function getOfficialName(teamID, timeOfRace,season,strict) -- for team
	--return officialName, isLocal
	local strictLang = {mk = true} 
	local cyrillic = {mk = true, ru = true}
	local strictLangBool= strictLang[wiki] or strict
    local correcttime, best, name, nametemp 
    local wantedLanguages = {}
    
   	if available_lang_priority then
		for i, lang in ipairs(translations.lang_priority) do --from Module:Cycling_race/lang
			wantedLanguages[lang] = i
		end
	end
    --case one, one official name / period overloaded with other languages as qualifier
    --for instance https://www.wikidata.org/wiki/Q195833
	for _, p1448 in statements(teamID, 'P1448') do
		correcttime=true
		if timeOfRace then
			correcttime =checkTime(p1448, timeOfRace)
		end
		if correcttime then 
			if available_lang_priority and p1448.qualifiers and p1448.qualifiers.P1448 then
				local q = p1448.qualifiers.P1448
			    best = 999
				for _, l in pairs(q) do
					if l.snaktype == 'value' then
						local lang = l.datavalue.value.language
						if wantedLanguages[lang] and wantedLanguages[lang] < best then
							best = wantedLanguages[lang]
							name = l.datavalue.value.text
						end
					end
				end
				if name then return name, true end
			end
			--p1448 and correct time, look in the not qualifier part
		
			lang=p1448.mainsnak.datavalue.value.language
			best = 999
			if available_lang_priority and not strictLangBool and wantedLanguages[lang] and wantedLanguages[lang] < best then
				best = wantedLanguages[lang]
				name = p1448.mainsnak.datavalue.value.text
			elseif strictLangBool then
				if wiki==lang then
					name = p1448.mainsnak.datavalue.value.text
				end
			else
				if cyrillic[lang]==nil then --don't display cyrillic for latin wiki
					nametemp = p1448.mainsnak.datavalue.value.text
				end
			end
		end
	end
    if name then 
    	return name, true
    elseif not strictLangBool then
    	return nametemp, false
    end

    --no official name, get label
	local label=wikibase.getLabel(teamID)
	if season and season==true then
		if label then return string.sub(label,1,label:len()-5),true end -- 
	else
		return label, true -- No official name, try label
	end
end

local function getCountryName(countryID)
	local name = ''
	local available, translations = pcall(require, "Module:Cycling race/lang")
	local available_list = available and type(translations.list) == "function"
	
	if available_list then
		name = translations.list(countryID)
	end
	if name == '' then
		local label, lang = wikibase.getLabelWithLang(countryID)
		--[[ Uses standard language fallback. Should not return nil, nil, as all countries have English labels. ]]
		if lang == wikilang then
			name = label
		elseif lang then
			name = label .. ' (' .. lang .. ')'
		end
	end
	return name
end

--[[ Get sitelink, categoryID and maybe country for a team.
	Returns sitelink, team category ID, countryID (only countryID if country arg is true ]]
local function getTeamLinkCat(teamID, timeOfRace, country)
	--countryID is not used in this module
	local name, sitelink, parentID, catID
	-- Find team category
	local teamCats = {
		Q6154783 = true, Q20638319 = true, Q382927 = true, Q1756006 = true, Q23726798 = true,
		Q20738667 = true, Q28492441 = true, Q20639848 = true, Q20639847 = true, Q20652655 = true,
		Q20653563 = true, Q20653564 = true, Q20653566 = true, Q2466826 = true, Q26849121 = true,
		Q78464255 = true, Q80425135=true
	}
	for _, p31 in statements(teamID, 'P31') do
		if checkTime(p31, timeOfRace) then
			local natureID = p31.mainsnak.datavalue.value.id
			if teamCats[natureID] then
				catID = natureID
				break
			end
		end
	end
	--main team
	-- Find country if needed
	local countryID
	if country or catID == 'Q23726798' or catID == 'Q20738667' then
		countryID = firstValue(teamID, 'P1532', 'id') -- P17 is country for sport
		if countryID == nil then
			countryID = firstValue(teamID, 'P17', 'id') -- P17 is country
		end
	end
	if countryID and (catID == 'Q23726798' or catID == 'Q20738667') then
		-- It is a national cycling team
		name = getCountryName(countryID)
		if catID == 'Q20738667' then -- national cycling team U23
			local s
			if wiki == 'fr' then s = ' espoirs'	end
			name = name .. s
		end
		sitelink = getRawTeamLink(teamID)
	else
		-- It is not a national cycling team
		local isLocal
		parentID = getParentID(teamID)
		if parentID then -- try parent team first
			sitelink = wikibase.getSitelink(parentID)
			name, isLocal = getOfficialName(parentID, timeOfRace)
		end
		if not sitelink then
			sitelink = wikibase.getSitelink(teamID)
		end

		if not name or (not isLocal and available_lang_priority) then
			local partName, partIsLocal = getOfficialName(teamID, timeOfRace)
			if partName and (not name or partIsLocal) then
				name = partName
			end
		end
	end
	if sitelink then
		if name then
			sitelink = '[[' .. sitelink .. '|' .. name .. ']]'
		else
			sitelink = '[[' .. sitelink .. ']]'
		end
	else
		if name then
			sitelink = name
		else
			sitelink = (parentID and wikibase.getLabel(parentID)) or
				wikibase.getLabel(teamID) or 'No name'
		end
	end
	return sitelink, catID
end

-- ##### Functions for the Infobox #####
--For the case with direct input of the parameters
local function teamValue( teamParam, dateParam )
	return function( localdata )
		local names, periods = localdata[ teamParam ], localdata[ dateParam ]
		if not names then
			return nil
		end
		if names then
			names =  mw.text.split(names, '<br />')
			periods = mw.text.split(periods or '', '<br />')
		end
		local tab =  mw.html.create('table')
		for i, name in pairs(names) do
			local row = mw.html.create('tr')
				:tag('td'):wikitext(periods[i] or ''):done()
				:tag('td'):wikitext(name):done()
			tab:node(row):done()
		end
		tab:done()
		return tostring(tab)
	end
end

local function checkDis(q)
	dis="road"
	if q and q.P642 and q.P642[1] and q.P642[1].snaktype == 'value' then
		if q.P642[1].datavalue.value.id == 'Q520611' or q.P642[1].datavalue.value.id =='Q1031445' then
			onlyRoad=false
			dis="mountainBike"
		elseif  q.P642[1].datavalue.value.id == 'Q335638' then
			onlyRoad=false
			dis="cycloCross"
		elseif q.P642[1].datavalue.value.id == 'Q221635' then
			onlyRoad=false
			dis="track"			
		end
	end
	return dis
end

local function presentTeam(item)
	local tToday=os.date("*t")  
	local teamId, result, teamLink, teamLinkRoad, row
	local plural=false
	if mw.ustring.len(tToday["month"])==1 then tToday["month"]='0'..tToday["month"] end
	if mw.ustring.len(tToday["day"])==1 then tToday["day"]='0'..tToday["day"] end	
	local today='+'..tToday["year"].."-"..tToday["month"].."-"..tToday["day"].."T00:00:00Z"
	finalYear=tonumber(tToday["year"])+10 --global
		
	itemID=item
	local temp=firstValue(itemID, 'P569','time') 
	if temp then
		_, _, initialYear,_,_ = string.find(temp, "(%d+)-(%d+)-(%d+)")
	end

	for _, s in statements(itemID, 'P54') do
		p54 =checkTime(s, today) --present Team
		if p54 then
			teamId= p54.mainsnak.datavalue.value.id
			teamLink=getTeamLinkCat(teamId, today)
		    dis=checkDis(p54.qualifiers)
		    row=nil
		    if dis=='road' then
		    	teamLinkRoad=teamLink
		    elseif dis=='mountainBike' then
		    	row=teamLink..' (VTT)'
		    elseif dis=='cycloCross' then
		    	row=teamLink..' (cyclo-cross)'
		    else 
		    	row=teamLink..' (piste)'
		    end
		    
		    if row then
			    if not result then
			    	result = row
			    else
			    	result= result..'<br/>'..row
			    	plural = true
			    end
		    end
		end
	end
	if teamLinkRoad and result then --put road first
		result = teamLinkRoad..' (route)<br/>'..result
		plural= true
	elseif teamLinkRoad then
		result = teamLinkRoad
	end
	
	if plural then
		presentTeamLabel="Équipes actuelles"
	else
		presentTeamLabel="Équipe actuelle"
	end
	return result
end

local function convertDate(date1, beginOrEnd)
	if date1==0 then
		if beginOrEnd==0 then --begin
			y1=tostring(initialYear)
			m1="01"
			d1="01"
		else
			y1=tostring(finalYear)
			m1="12"
			d1="31"
		end
	else
		_, _, y1,m1,d1 = string.find(date1, "(%d+)-(%d+)-(%d+)")
		if m1 ==nil or m1=="00" then
			if beginOrEnd==0 then --begin
				m1="01"
				d1="01"
			else--end
				m1="12"
				d1="31"
			end
		end
	end
	return '+'..y1.."-"..m1.."-"..d1.."T00:00:00Z"
end

local function getStartendTime(q)
	-- look for start and end time of team by the riders
	local startTime, endTime, stagiaire, dis

	if q then
		if q.P580 and q.P580[1] and	q.P580[1].snaktype == 'value' then -- P580 is start time
			startTime =q.P580[1].datavalue.value.time
		elseif q.P585 and q.P585[1] and	q.P585[1].snaktype == 'value' then
			startTime =q.P585[1].datavalue.value.time
		else
			startTime =0
		end
		startTime=convertDate(startTime, 0)
		
		if q.P582 and q.P582[1] and q.P582[1].snaktype == 'value' then
			endTime =q.P582[1].datavalue.value.time
		elseif q.P585 and q.P585[1] and	q.P585[1].snaktype == 'value' then
			endTime =q.P585[1].datavalue.value.time
		else
			endTime=0
		end
		endTime=convertDate(endTime, 1)
		
		if q.P39 and q.P39[1] and	q.P39[1].snaktype == 'value' then
			stagiaire = q.P39[1].datavalue.value
		else
			stagiaire = nil
		end
		dis=checkDis(q)
	end
	return startTime, endTime, stagiaire, dis
end

local function listofTeam(item, PID) 
	--first we have to read P54 of the rider
	local riderteam={}
	if not itemID then itemID=item end
	
	for ii, p54 in statements(itemID, PID) do --itemID loaded in presentTeam
		if p54 then
			teamId=p54.mainsnak.datavalue.value.id
		else
			teamId=nil
		end
		local q = p54.qualifiers
		if q then
			local startTime, endTime, stagiaire, dis=getStartendTime(q)
			table.insert(riderteam,{teamId=teamId, startTime=startTime, endTime=endTime, stagiaire=stagiaire, dis=dis})
		end
	end
	return riderteam
end

local function formatDate(thisDate)
	if thisDate=='' then
		return ''
	else
		local month=math.ceil(thisDate['month']/2)
		if month==12 or month==1 then
			return thisDate['year']
		else
			local date1='+'..thisDate['year'].."-"..month.."-".."01".."T00:00:00Z"
			local newobj = Complexedate.splitDate(date1)  
			if newobj.month == 0 or newobj.month==nil then
				return newobj.year
			else
				return newobj.month..'.'..newobj.year
			end
		end
	end
end

local function getTeamInfo(teamId,mm,yy,dd,managedTeam)
	--get the nature and name of the team for the date mm,yy
	mm=tostring(mm)
	yy=tostring(yy)
	dd=tostring(dd)
	if mw.ustring.len(mm)==1 then mm='0'..mm end
	if mw.ustring.len(dd)==1 then dd='0'..dd end
	
	thistime='+'..yy.."-"..mm.."-"..dd.."T00:00:00Z"
	local sitelink, teamNature=getTeamLinkCat(teamId, thistime, false) 
	local cat, boolean
	local amateurcat={Q20639848=true,Q20652655=true,Q26849121=true}
	local nationalcat={Q23726798=true, Q20738667=true, Q54660600=true, Q54555994=true, Q99658502=true}
	
	if managedTeam then
	   cat=nationalcat
	else
	   cat=amateurcat
	end

	if cat[teamNature] then --club
		boolean=true--amateur / national selection 
	else
		boolean=false--pro  / not national selection
	end
	return boolean, sitelink
end

--for managed team, the table should be splat, as we can be national trainer and team trainer at the same time
local function analyzeManagedTeam(teamRider)
	local natTeamOut, managedTeamOut={},{}
	local dis="road"
	local managedTeam=true
	
	for i=1,24 do --init table
		natTeamOut[i]={}
		managedTeamOut[i]={}
		for j=initialYear,finalYear do
			natTeamOut[i][j]={ amateurTeam, link, stagiaire=nil}
			managedTeamOut[i][j]={amateurTeam,link, stagiaire=nil}
		end
	end

	local teamId, natTeam, sitelink
	local sYear, sMonth,eYear, eMonth, sDay, eDay

	if teamRider==nil then return nil end
	
	for _, v in pairs(teamRider) do --for each team where was the rider
		if v['dis']==dis then 
			--exception managed at the reading
			_, _, sYear,sMonth,sDay = string.find(v['startTime'], "(%d+)-(%d+)-(%d+)")
			_, _, eYear,eMonth,eDay = string.find(v['endTime'], "(%d+)-(%d+)-(%d+)")
	
			sYear=tonumber(sYear)
			sMonth=tonumber(sMonth)
			eYear=tonumber(eYear)
			eMonth=tonumber(eMonth)
	
			if sYear<=eYear then --test of congruence
				for yy=sYear,eYear do 
					for mm=1,12 do
						local mmindex=(mm-1)*2+1
						--avoid reading info where the team is not the one of the rider
						getinfo=true
						if (yy==sYear and mm<sMonth) or (yy==eYear and mm>eMonth) then
							getinfo=false
						end
	
						if getinfo then
							if (yy==sYear) and (mm==sMonth) and (sDay~='01' and sDay~='00' and sDay~=nil)then 
								natTeam, sitelink=getTeamInfo(v['teamId'],mm,yy,sDay, managedTeam)
								if natTeam then
									natTeamOut[mmindex+1][yy]['amateurTeam']=true
									natTeamOut[mmindex+1][yy]['link']=sitelink
								else
									managedTeamOut[mmindex+1][yy]['amateurTeam']=false
									managedTeamOut[mmindex+1][yy]['link']=sitelink
								end	
							else
								natTeam, sitelink=getTeamInfo(v['teamId'],mm,yy,'01', managedTeam)
								if natTeam then
									natTeamOut[mmindex][yy]['amateurTeam']=true
									natTeamOut[mmindex][yy]['link']=sitelink
									if natTeamOut[mmindex+1][yy]['amateurTeam']==nil or v['stagiaire'] then --to avoid problem with team name change during the month
										natTeam, sitelink=getTeamInfo(v['teamId'],mm,yy,'28',managedTeam)
										natTeamOut[mmindex+1][yy]['amateurTeam']=true --a nat team stays a nat team
										natTeamOut[mmindex+1][yy]['link']=sitelink
									end
								else
									managedTeamOut[mmindex][yy]['amateurTeam']=false
									managedTeamOut[mmindex][yy]['link']=sitelink
									if managedTeamOut[mmindex+1][yy]['amateurTeam']==nil or v['stagiaire'] then --to avoid problem with team name change during the month
										natTeam, sitelink=getTeamInfo(v['teamId'],mm,yy,'28',managedTeam)
										managedTeamOut[mmindex+1][yy]['amateurTeam']=false --a nat team stays a nat team
										managedTeamOut[mmindex+1][yy]['link']=sitelink
									end
								end
							end
						end
					end
				end
			end
		end
	end
	return natTeamOut, managedTeamOut --a filled matrix with the link and nature of the teams
end


local function analyzeTeam(teamRider, dis)
	local teamOut={} --as there can be a supposition
	for i=1,24 do --init table
		teamOut[i]={}
		for j=initialYear,finalYear do
			teamOut[i][j]={ amateurTeam, link, stagiaire, dis}
		end
	end
	
	local managedTeam=false
	local teamId, amateurTeam, sitelink
	local sYear, sMonth,eYear, eMonth, sDay, eDay

	if teamRider==nil then return nil end
	
	for _, v in pairs(teamRider) do --for each team where was the rider
		if v['dis']==dis then 
			--exception managed at the reading
			_, _, sYear,sMonth,sDay = string.find(v['startTime'], "(%d+)-(%d+)-(%d+)")
			_, _, eYear,eMonth,eDay = string.find(v['endTime'], "(%d+)-(%d+)-(%d+)")
	
			sYear=tonumber(sYear)
			sMonth=tonumber(sMonth)
			eYear=tonumber(eYear)
			eMonth=tonumber(eMonth)
	
			if sYear<=eYear then --test of congruence
				for yy=sYear,eYear do 
					for mm=1,12 do
						local mmindex=(mm-1)*2+1
						--avoid reading info where the team is not the one of the rider
						getinfo=true
						if (yy==sYear and mm<sMonth) or (yy==eYear and mm>eMonth) then
							getinfo=false
						end
	
						if getinfo then
							if (yy==sYear) and (mm==sMonth) and (sDay~='01' and sDay~='00' and sDay~=nil)then 
								amateurTeam, sitelink=getTeamInfo(v['teamId'],mm,yy,sDay, managedTeam)
								teamOut[mmindex+1][yy]['amateurTeam']=amateurTeam
								teamOut[mmindex+1][yy]['link']=sitelink
								teamOut[mmindex+1][yy]['stagiaire']=v['stagiaire']
								teamOut[mmindex+1][yy]['dis']=v['dis']
							else
								amateurTeam, sitelink=getTeamInfo(v['teamId'],mm,yy,'01', managedTeam)
								teamOut[mmindex][yy]['amateurTeam']=amateurTeam
								teamOut[mmindex][yy]['link']=sitelink
								teamOut[mmindex][yy]['stagiaire']=v['stagiaire']
								teamOut[mmindex][yy]['dis']=v['dis']
								if teamOut[mmindex+1][yy]['amateurTeam']==nil or v['stagiaire'] then --to avoid problem with team name change during the month
									amateurTeam, sitelink=getTeamInfo(v['teamId'],mm,yy,'28', managedTeam)
									teamOut[mmindex+1][yy]['amateurTeam']=amateurTeam
									teamOut[mmindex+1][yy]['link']=sitelink
									teamOut[mmindex+1][yy]['stagiaire']=v['stagiaire']
									teamOut[mmindex+1][yy]['dis']=v['dis']
								end
							end
						end
					end
				end
			end
		end
	end
	return teamOut --a filled matrix with the link and nature of the teams
end

--local function insertTeam(teamAmateur,teamPro,teamMountainBike, teamCycloCross, teamTrack, sDate,eDate,v)
local function insertTeam(teamAmateur,teamPro, sDate,eDate,v)
	local sDate2=formatDate(sDate)
	local eDate2=formatDate(eDate)
    local ins = {link=v['link'], sDate=sDate2,eDate=eDate2,stagiaire=v['stagiaire']}

	if v['amateurTeam']  then
		table.insert(teamAmateur,ins)
	else 
		table.insert(teamPro,ins)
	end
	return teamAmateur,teamPro
end

local function synthetizeTable(analyzedTeam)
	local teamPro, teamAmateur, tempTeam, tempsDate, tempeDate={}, {},{},{},{}
	local empty=true
	local active=false

	for yy=initialYear,finalYear do
		for mm=1,24 do
			local v=analyzedTeam[mm][yy]
			if v['amateurTeam']~=nil then
				if empty then --first line
					active=true
					empty=false
					tempTeam=v
					tempsDate['month']=mm
					tempsDate['year']=yy
				else
					if tempTeam['amateurTeam']==v['amateurTeam'] and tempTeam['link']==v['link']
					and tempTeam['stagiaire']==v['stagiaire'] then --no change, the case of same team but different disciplines is not considered
						if yy==finalYear and mm==24 then--present team
						teamAmateur,teamPro=insertTeam(teamAmateur,teamPro,tempsDate,'',tempTeam)
						end
					else--change
						--save the old
						if active then --if active false then it was already saved
							if mm==1 then
								tempeDate['year']=yy-1
								tempeDate['month']=24
							else
								tempeDate['year']=yy
								tempeDate['month']=mm-1
							end
							teamAmateur,teamPro=insertTeam(teamAmateur,teamPro,tempsDate,tempeDate,tempTeam)
						end
						--save the new
						active=true
						tempTeam=v
						tempsDate['month']=mm
						tempsDate['year']=yy
					end --change
				end--first line
			elseif active then --there was a team and now there is an empty period
				active=false
				--save the old
				if mm==1 then
					tempeDate['year']=yy-1
					tempeDate['month']=24
				else
					tempeDate['year']=yy
					tempeDate['month']=mm-1
				end

				teamAmateur,teamPro=insertTeam(teamAmateur,teamPro,tempsDate,tempeDate,tempTeam)
				tempTeam['link']=nil --avoid problem if the rider comes back in the same team
			end  
		end-- for mm
	end--for yy
	return teamAmateur,teamPro 
end

local function listOfManagedTeamTable(itemID)
	local managedTeamRider = listofTeam(itemID, 'P6087')--raw list of team
	if not managedTeamRider then
		return nil, nil
	end
	
	local natTeamOut, managedTeamOut=analyzeManagedTeam(managedTeamRider) --table with links and nature of teams
	--global
	nationalTeam,_=synthetizeTable(natTeamOut)
	_,managedTeam=synthetizeTable(managedTeamOut)
end

local function listofTeamTable(item)
	local teamRider = listofTeam(item, 'P54')--raw list of team
	if not teamRider then
		return nil
	end
	local analyzedTeam1=analyzeTeam(teamRider, "road") --table with links and nature of teams
	teamAmateur,teamPro=synthetizeTable(analyzedTeam1) --table formated, global
	local analyzedTeam2=analyzeTeam(teamRider, "mountainBike")
    _, teamMountainBike=synthetizeTable(analyzedTeam2)
    local analyzedTeam3=analyzeTeam(teamRider, "cycloCross")
	_, teamCycloCross=synthetizeTable(analyzedTeam3)
	local analyzedTeam4=analyzeTeam(teamRider, "track")
	_, teamTrack=synthetizeTable(analyzedTeam4)	
end	

local function TeamTable(teamRider, titlesing, titleplural)
	local temprows=nil
	local title = titleplural
	if teamRider and #teamRider~=0 then
		local nametemp, periodtemp
		local rows =  mw.html.create('table')
		for _, v in pairs(teamRider) do 
			nametemp=v['link']
			if v['sDate']==v['eDate'] then
				periodtemp=v['sDate']
			else
				periodtemp=v['sDate']..'-'..v['eDate']
			end
			if v['stagiaire'] then
				nametemp=nametemp..' (stagiaire)'
			end
			local row = rows:tag('tr')
			row:tag('td'):wikitext(periodtemp or '')
			row:tag('td'):wikitext(nametemp)
		end
		temprows=tostring(rows)
		if #teamRider == 1 then
			title = titlesing
		end
	else
		temprows=nil
	end
	return {type = 'table', title = title, rows = {{type = 'row', value = function () return temprows end}}}
end

local function managedTeamTable(localdata)
	local teamManagednames= localdata['équipes dirigées']
	local teamManagedperiods=localdata['années direction']
	
	if teamManagednames then
	   wikidataManagedON=false
	end
	
	if wikidataManagedON then
		if managedTeam==nil and localdata.item then
			listOfManagedTeamTable(localdata.item)
		end	
		return TeamTable(managedTeam, 'Équipe dirigée','Équipes dirigées')
	else
		return {type = 'table', title = 'Équipes dirigées', rows = {{type = 'row', value = teamValue( 'équipes dirigées', 'années direction' )}}}
	end	
end

local function nationalTeamTable(localdata)
	if wikidataManagedON then --only with wikidata
		if nationalTeam==nil and localdata.item then
			listOfManagedTeamTable(localdata.item)
		end	
		return TeamTable(nationalTeam, 'Sélection nationale dirigée','Sélections nationales dirigées')
	else
		return {type = 'table', title = nil, rows = {{type = 'row', value = nil}}}
	end
end

local function amateurTeamTable(localdata)
	-- teamAmateur called before
	local NotUCInames = localdata['équipes non-UCI']
    local AmateurNames = localdata['équipes amateur']
    local suffix =''

	if NotUCInames or AmateurNames or localdata['équipes UCI'] or localdata['équipes pro'] then
	   wikidataON=false
	end

	if wikidataON then
		if teamAmateur==nil and localdata.item then
			listofTeamTable(localdata.item)
		end
		if not onlyRoad then
			suffix=' en cyclisme sur route'
		end

		return TeamTable(teamAmateur, 'Équipe non-UCI'..suffix,'Équipes non-UCI'..suffix)
	else
		if NotUCInames then
		    return {type = 'table', title = 'Équipes non-UCI', rows = {{type = 'row', value = teamValue( 'équipes non-UCI', 'années non-UCI' )}}}
		else
			return {type = 'table', title = 'Équipes amateurs', rows = {{type = 'row', value = teamValue( 'équipes amateur', 'années amateur' )}}}
		end
	end
end		

local function proTeamTable(localdata)
    local UCInames = localdata['équipes UCI']
    local ProNames = localdata['équipes pro']
    local suffix =''
    
	if wikidataON then
		if teamPro==nil and localdata.item then
			listofTeamTable(localdata.item)
		end
		if not onlyRoad then
			suffix=' en cyclisme sur route'
		end
	
		return TeamTable(teamPro, 'Équipe UCI'..suffix,'Équipes UCI'..suffix)
	else
		if UCInames then
		    return {type = 'table', title = 'Équipes UCI', rows = {{type = 'row', value = teamValue( 'équipes UCI', 'années UCI' )}}}
		else
			return {type = 'table', title = 'Équipes professionnelles', rows = {{type = 'row', value = teamValue( 'équipes pro', 'années pro' )}}}
		end
	end
end

local function mountainBikeTeamTable(localdata)
	--amateur or pro Team Table were already called
	if wikidataON and teamMountainBike~=nil then
		return TeamTable(teamMountainBike, 'Équipe VTT','Équipes VTT')
	else 
		return {type = 'table', title = nil, rows = {{type = 'row', value = nil}}}
	end
end


local function cycloCrossTeamTable(localdata)
    --amateur or pro Team Table were already called
	if wikidataON and teamCycloCross~=nil then
		return TeamTable(teamCycloCross, 'Équipe cyclo-cross','Équipes cyclo-cross')
	else 
		return {type = 'table', title = nil, rows = {{type = 'row', value = nil}}}
	end
end

local function trackTeamTable(localdata)
	--amateur or pro Team Table were already called
	if wikidataON and teamTrack~=nil then
		return TeamTable(teamTrack, 'Équipe piste','Équipes piste')
	else 
		return {type = 'table', title = nil, rows = {{type = 'row', value = nil}}}
	end
end

return 
	{
		maincolor = '#FFDF80',
		parts = {
			person.title('cyclisme'),
			person.mainimage('Article à illustrer Cycliste'),
			{type = 'table', title = 'Informations', rows = {
				person.othernames(),
				person.birth(),
				person.death(),
				person.placeofburial(),
				person.nationality(),
				{type = 'row', label = function ( item )
					return presentTeamLabel or 'Équipe actuelle' --plural or not, or not called
					end
				, value = 'équipe',
				wikidata = function ( item )
					return presentTeam(item)
					end,
				},
				{
					type = 'row',
					label = 'Spécialité',
					singularlabel = 'Spécialité',
					plurallabel = 'Spécialités',
					value = 'type coureur',
					property = 'P413'
				},
				{type = 'row', label = 'Latéralisation', property = 'P552'},
				--person.appearance(),
				{type = 'row', label = 'Groupe sanguin', property = 'P1853'},
				--person.family(),
				person.awards(),
				},
			},
			amateurTeamTable,
			proTeamTable,
			mountainBikeTeamTable,
			cycloCrossTeamTable,
			trackTeamTable,
			managedTeamTable,
			nationalTeamTable,
			{type = 'table', title = 'Principales victoires', rows = {
				{type = 'row', value = 'victoires principales'},
			}},
		person.signature(),
		person.plaque(),
        person.tombe(),
		}
	}