p = {}
local wd = require( 'Modul:Referencer' )
local sd = require( 'Modul:Sportdata' )
p.iRefcounter=0
function isempty(foo)
return foo==nil or foo=='' or foo==0
end
p.club = function(myframe)
if (myframe.args['qid']) then
entityid=myframe.args['qid'] else
entityid=mw.wikibase.getEntityIdForCurrentPage()
end
if not (entityid==nil) then
--Start with all possible arguments
if (myframe.args[txtHideable]==txtYes) then
bHideable=true
else
bHideable=false
end
if (myframe.args['condensed']=='yes') then
bCondensed=true
else
bCondensed=false
end
if myframe.args['txtFoundedDate']~=nil then
txtFoundedDate=myframe.args.txtFoundedDate
end
if myframe.args['txtDissolvedDate']~=nil then
txtDissolvedDate=myframe.args.txtDissolvedDate
end
if myframe.args['txtSeat']~=nil then
txtSeat=myframe.args.txtSeat
end
if myframe.args['txtHomeVenue']~=nil then
txtHomeVenue=myframe.args.txtHomeVenue
end
if myframe.args['txtWebsite']~=nil then
txtHomeVenue=myframe.args.txtHomeVenue
end
if myframe.args['txtClubTeamResultHeader']~=nil then
txtClubTeamResultHeader=myframe.args.txtClubTeamResultHeader
end
if myframe.args['txtClubCoachesHeader']~=nil then
txtClubCoachesHeader=myframe.args.txtClubCoachesHeader
end
if myframe.args['txtNamesHeader']~=nil then
txtNamesHeader=myframe.args.txtNamesHeader
end
if myframe.args['txtNamesDescription']~=nil then
txtNamesDescription=myframe.args.txtNamesDescription
end
if myframe.args['txtCompetitionHeader']~=nil then
txtCompetitionHeader=myframe.args.txtCompetitionHeader
end
if myframe.args['txtNameHeader']~=nil then
txtNameHeader=myframe.args.txtNameHeader
end
if myframe.args['txtSeasonHeader']~=nil then
txtSeasonHeader=myframe.args.txtSeasonHeader
end
if myframe.args['txtPositionHeader']~=nil then
txtPositionHeader=myframe.args.txtPositionHeader
end
if myframe.args['txtInfoboxTemplate']~=nil then
txtInfoboxTemplate=myframe.args.txtInfoboxTemplate
end
if myframe.args['txtFlagIconTemplate']~=nil then
txtFlagIconTemplate=myframe.args.txtFlagIconTemplate
end
if myframe.args['txtHeader']~=nil then
txtHeader=myframe.args.txtHeader
end
if myframe.args['txtLabel']~=nil then
txtLabel=myframe.args.txtLabel
end
if myframe.args['txtContent']~=nil then
txtContent=myframe.args.txtContent
end
if myframe.args['txtTeamHeaderStyle']~=nil then
txtTeamHeaderStyle=myframe.args.txtTeamHeaderStyle
end
if myframe.args['txtLanguageCode']~=nil then
txtLanguageCode=myframe.args.txtLanguageCode
end
if myframe.args['txtEditComment']~=nil then
txtEditComment=myframe.args.txtEditComment
end
if myframe.args['txtStyleMain']~=nil then
txtStyleMain=myframe.args.txtStyleMain
end
if myframe.args['txtStyleLevel2']~=nil then
txtStyleLevel2=myframe.args.txtStyleLevel2
end
if (myframe.args['txtWidth_px']~=nil) and not (myframe.args['txtWidth_px']=='') then
txtWidth_px=myframe.args.txtWidth_px
end
myframe['id']=entityid
-- entity=mw.wikibase.getEntity(entityid)
wdTitle=getLabelByEntity( entityid )
myArgs={titel=wdTitle,grundstil="width:" .. txtWidth_px}
img=mw.wikibase.getBestStatements(entityid, 'P18' )
if (next(img)) then
myArgs=addImage(entityid,'P18',img,myArgs)
else
img=mw.wikibase.getBestStatements(entityid, 'P154' )
if (next(img)) then
myArgs=addImage(entityid,'P154',img,myArgs)
end
end
myArgs[txtHeaderStyle] = txtStyleMain
iCounter=0
claimFoundedDate=mw.wikibase.getBestStatements(entityid, 'P571' )
if next(claimFoundedDate) then
iCounter=iCounter+1
myArgs[txtLabel .. iCounter]=txtFoundedDate
myArgs[txtContent .. iCounter]=mw.wikibase.formatValue(claimFoundedDate[1].mainsnak) .. txtUnpackReference(myframe,tblProcessAllRefsForItemWD(myframe,claimFoundedDate[1].references,entityid,'P571'))
end
claimDissolvedDate=mw.wikibase.getBestStatements(entityid, 'P576' )
if next(claimDissolvedDate) then
iCounter=iCounter+1
myArgs[txtLabel .. iCounter]=txtDissolvedDate
myArgs[txtContent .. iCounter]=mw.wikibase.formatValue(claimDissolvedDate[1].mainsnak) .. txtUnpackReference(myframe,tblProcessAllRefsForItemWD(myframe,claimDissolvedDate[1].references,entityid,'P576'))
end
claimPlace=mw.wikibase.getBestStatements(entityid, 'P159' )
wdPlace=''
iPlaces=0
for key, value in pairs( claimPlace ) do
iPlaces=iPlaces+1
idPlace=value.mainsnak.datavalue.value.id
wdCountry = readFirstStatement(idPlace,'P17')
if (iPlaces>1) then
wdPlace = wdPlace .. ' och '
end
wdPlace = wdPlace .. txtWikilink(idPlace) .. ', ' .. myframe:expandTemplate{ title = txtTemplate .. ':' .. txtFlagIconTemplate , args={wdCountry}} .. ' [[' .. wdCountry .. ']]' .. txtUnpackReference(myframe,tblProcessAllRefsForItemWD(myframe,value.references,entityid,'P159'))
txtYearfrom,txtYearTo = years(value)
if ((not isempty(txtYearfrom)) or not (isempty(txtYearTo))) then
wdPlace=wdPlace .. ' (' .. txtYears(txtYearfrom,txtYearTo) .. ')'
end
wdPlace=wdPlace.. txtEditPen(entityid,value.id)
end
if not (wdPlace=='') then
iCounter=iCounter+1
myArgs[txtLabel .. iCounter]=txtSeat
myArgs[txtContent .. iCounter]=wdPlace
end
claimHomeVenue=mw.wikibase.getAllStatements(entityid, 'P115' )
wdHomeVenue=''
for key, value in pairs( claimHomeVenue ) do
idHomeVenue=value.mainsnak.datavalue.value.id
wdHomeVenue = wdHomeVenue .. txtWikilink(idHomeVenue)
claimCapacity=mw.wikibase.getBestStatements(idHomeVenue,'P1083')
wdCapacity=read(claimCapacity, 'value' ) --['value']
if not (isempty(wdCapacity)) then
wdHomeVenue=wdHomeVenue .. ' (' .. wdCapacity .. ' ' .. txtSeats .. ')'
end
wdHomeVenue=wdHomeVenue .. txtUnpackReference(myframe,tblProcessAllRefsForItemWD(myframe,value.references,entityid,'P115')) .. txtEditPen(entityid,value.id)
end
if not (wdHomeVenue=='') then
iCounter=iCounter+1
myArgs[txtLabel .. iCounter]=txtHomeVenue
myArgs[txtContent .. iCounter]=wdHomeVenue
end
claimWebsite=mw.wikibase.getBestStatements(entityid, 'P856' )
if next(claimWebsite) then
wdWebsite = claimWebsite[1].mainsnak.datavalue.value
if (#wdWebsite>30) then
wdWebsite='[' .. wdWebsite .. ' ' .. txtOfficialWebsite .. ']'
end
iCounter=iCounter+1
myArgs[txtLabel .. iCounter]=txtWebsite
myArgs[txtContent .. iCounter]=wdWebsite .. txtEditPen(entityid,'P856')
end
if myframe.args['width_px']~=nil then
txtWidth_px=myframe.args.width_px
end
claimNickName=mw.wikibase.getBestStatements(entityid, 'P1449' )
if next(claimNickName) then
iCounter=iCounter+1
myArgs[txtLabel .. iCounter]=txtNickName
myArgs[txtContent .. iCounter]=mw.wikibase.formatValue(claimNickName[1].mainsnak) .. txtUnpackReference(myframe,tblProcessAllRefsForItemWD(myframe,claimNickName[1].references,entityid,'P1449'))
end
if ((myframe.args['body1']~=nil and myframe.args['body1']~='') or (myframe.args['pattern_b1']~=nil and myframe.args['pattern_b1']~='')) then
arrayKit1={pattern_la =myframe.args['pattern_la1'], pattern_b=myframe.args['pattern_b1'], pattern_ra =myframe.args['pattern_ra1'], leftarm =myframe.args['leftarm1'],body= myframe.args['body1'], rightarm =myframe.args['rightarm1'],shorts=myframe.args['shorts1'],socks =myframe.args['socks1'], titel = 'Hemmaställ'}
kit1 = myframe:expandTemplate{ title = txtTemplate .. ':' .. txtKitTemplate , args =arrayKit1}
else
kit1=''
end
if ((myframe.args['body2']~=nil and myframe.args['body2']~='') or (myframe.args['pattern_b2']~=nil and myframe.args['pattern_b2']~='')) then
arrayKit2={pattern_la =myframe.args['pattern_la2'], pattern_b=myframe.args['pattern_b2'], pattern_ra =myframe.args['pattern_ra2'], leftarm =myframe.args['leftarm2'],body= myframe.args['body2'], rightarm =myframe.args['rightarm2'],shorts=myframe.args['shorts2'],socks =myframe.args['socks2'], titel = 'Bortaställ'}
kit2 = myframe:expandTemplate{ title = txtTemplate .. ':' .. txtKitTemplate , args =arrayKit2}
else
kit2=''
end
if ((myframe.args['body3']~=nil and myframe.args['body3']~='') or (myframe.args['pattern_b3']~=nil and myframe.args['pattern_b3']~='')) then
arrayKit2={pattern_la =myframe.args['pattern_la3'], pattern_b=myframe.args['pattern_b3'], pattern_ra =myframe.args['pattern_ra3'], leftarm =myframe.args['leftarm3'],body= myframe.args['body3'], rightarm =myframe.args['rightarm3'],shorts=myframe.args['shorts3'],socks =myframe.args['socks3'], titel = 'Libero'}
kit3 = myframe:expandTemplate{ title = txtTemplate .. ':' .. txtKitTemplate , args =arrayKit2}
else
kit3=''
end
iCounter=iCounter+1
myArgs[txtContent .. iCounter]='<table bgcolor=#ffffff><tr><td>' ..kit1 .. '</td><td>' .. kit2 .. '</td><td>' .. kit3 .. '</td></tr></table>'
myArgs[txtContent .. iCounter .. 'stil']='background:#ffffff'
bHasResults,txtTeamresults=teamresults(myframe,entityid)
if (bHasResults) then
iCounter=iCounter+1
myArgs[txtHeader .. iCounter]=txtClubTeamResultHeader
iCounter=iCounter+1
myArgs[txtContent .. iCounter]=txtTeamresults
end
bHasCoaches,txtCoaches=teamcoaches(myframe,entityid)
if (bHasCoaches) then
iCounter=iCounter+1
myArgs[txtHeader .. iCounter]=txtClubCoachesHeader
iCounter=iCounter+1
myArgs[txtContent .. iCounter]=txtCoaches
end
local claimsPlayersCategory = mw.wikibase.getBestStatements(entityid, 'P6112' )
if next(claimsPlayersCategory) then
txtPlayerCategorySitelink=mw.wikibase.getSitelink(read(claimsPlayersCategory[1],'id'))
if txtPlayerCategorySitelink~=nil then
iCounter=iCounter+1
myArgs[txtHeader .. iCounter]=txtPlayersHeaders
iCounter=iCounter+1
myArgs[txtContent .. iCounter]='[[:' .. txtPlayerCategorySitelink .. '|' .. txtPlayersDescription .. ']]'
end
end
bHasNames,txtNames=teamnames(myframe,entityid)
if (bHasNames) then
iCounter=iCounter+1
myArgs[txtHeader .. iCounter]=txtNamesHeader
iCounter=iCounter+1
myArgs[txtContent .. iCounter]='\'\''..txtNamesDescription..'\'\''
iCounter=iCounter+1
myArgs[txtContent .. iCounter]=txtNames
end
--[=====[
--]=====]
myArgs['under']='[https://www.wikidata.org/wiki/' .. entityid .. ' '.. txtEditComment .. ']'
tmp = myframe:expandTemplate{ title = txtTemplate .. ':' .. txtInfoboxTemplate , args =myArgs}
return tmp
end
end
function teamresults (myframe,iTeam)
local out = {}
local all={}
local d={}
local t={}
local claimsCompetition = mw.wikibase.getBestStatements(iTeam, 'P1344' )
for key, value in pairs( claimsCompetition ) do
local tmp={}
local id = read(value,'id')
tmp.iSeason=id
tmp.iTeam=iTeam
tmp=tblSeasonData(myframe,tmp,value,iTeam)
if (tmp.iPosition=='') then
tmp.iPosition=999999
end
tmp.iPosition=tonumber(tmp.iPosition)
tmp.txtCompetition=txtWikilinkWOsitelink(read(value,'id'))
table.insert(all,tmp)
end
all,txt=showresults(myframe,all,"club")
return #all>0,txt
end
function teamcoaches (myframe,iTeam)
local out = {}
local all={}
local txt=''
local claimsCompetition = mw.wikibase.getBestStatements(iTeam, 'P286' )
for key, value in pairs( claimsCompetition ) do
local tmp={}
local id = read(value,'id')
local tmp=tblTeamInfo(myframe,value,iTeam,'P286')
tmp.txtCompetition=txtWikilinkWOsitelink(read(value,'id'))
table.insert(all,tmp)
end
if (myframe.args['oldestfirst']) then
table.sort(all, function(a, b) return a.datefrom < b.datefrom end)
else
table.sort(all, function(a, b) return a.datefrom > b.datefrom end)
end
txt=txt .. '<table style="class: biography vcard" width="100%"><tr><th>' .. txtNameHeader .. '</th><th>' .. txtSeasonHeader .. '</th></tr>'
txtCompetitionOld=''
for i = 1,#all do
txt=txt .. '<tr>'
txt=txt .. '<td style="text-align:left;">' .. all[i].txtCompetition .. '</td>'
txt=txt .. '<td style="text-align:left;">' .. txtYears(all[i].yearfrom,all[i].yearto) .. txtUnpackReference(myframe,all[i].hasref,all[i].ref) .. all[i].edit .. '</td></tr>'
end
txt=txt .. '</table>'
return #all>0,txt
end
function teamnames (myframe,iTeam)
local out = {}
local all={}
local txt=''
local claimsNames = mw.wikibase.getBestStatements(iTeam,'P2561' )
for key, value in pairs( claimsNames ) do
local tmp=tblTeamInfo(myframe,value,iTeam,'P286')
tmp.txtName = read(value,'text')
table.insert(all,tmp)
end
table.sort(all, function(a, b) return a.datefrom > b.datefrom end)
txt=txt .. '<table style="class: biography vcard" width="100%"><tr><th>' .. txtNameHeader .. '</th><th width="80px">' .. txtSeasonHeader .. '</th></tr>'
txtCompetitionOld=''
for i = 1,#all do
txt=txt .. '<tr>'
txt=txt .. '<td>' .. all[i].txtName .. '</td>'
txt=txt .. '<td>' .. txtYears(all[i].yearfrom,all[i].yearto) .. txtUnpackReference(myframe,all[i].hasref,all[i].ref) .. all[i].edit .. '</td></tr>'
end
txt=txt .. '</table>'
return #all>0,txt
end
local function getSnakValue(snak, parameter)
if snak.snaktype == "value" then
-- call the respective snak parser
if snak.datavalue.type == "string" then return snak.datavalue.value
elseif snak.datavalue.type == "globecoordinate" then return printDatavalueCoordinate(snak.datavalue.value, parameter)
elseif snak.datavalue.type == "quantity" then return printDatavalueQuantity(snak.datavalue.value, parameter)
elseif snak.datavalue.type == "time" then return printDatavalueTime(snak.datavalue.value, parameter)
elseif snak.datavalue.type == "wikibase-entityid" then return printDatavalueEntity(snak.datavalue.value, parameter)
elseif snak.datavalue.type == "monolingualtext" then return printDatavalueMonolingualText(snak.datavalue.value, parameter)
end
end
return mw.wikibase.renderSnak(snak)
end
-- from: https://stackoverflow.com/questions/2421695/first-character-uppercase-lua
function firstToUpper(str)
if (str) then
return (str:gsub("^%l", string.upper))
else
return ''
end
end
return p
