Module:Grand Slam Track

p = {}

local P_POINTINTIME = 'P585'
local P_PARTICIPANTOF = 'P1344'
local P_SPORTSDISCIPLINE = 'P2416'
local P_COMPETITIONCLASS = 'P2094'
local P_RANK = 'P1352'
local P_RACETIME = 'P2781'

local Q_KINGSTON25 = 'Q133804597'

p.gst = function(frame)
  local qid = frame.args[1]
  local ent = mw.wikibase.getEntity(qid)
  local participantOfClaims = ent['claims'][P_PARTICIPANTOF]
  local output = ''
  output = output .. '{| class="wikitable mw-collapsible" border="1" style="border-collapse: collapse; font-size: 90%;"\n'
  output = output .. '!colspan=5| [[Grand Slam Track]] results for Usain Bolt\n'
  output = output .. '|-\n'
  output = output .. '!scope="col" | Slam !!scope="col" | Race group !!scope="col" | Evt. !!scope="col" | Pl. !!scope="col" | Time\n'
  for i, pc in ipairs(participantOfClaims) do
    mw.logObject(mw.wikibase.renderSnak(pc['mainsnak']))
    if pc['qualifiers'] then
      local qs = pc['qualifiers']
      output = output .. '|-\n'
      output = output .. '| '

      -- Slam
      output = output .. '[[' .. mw.wikibase.renderSnak(pc['mainsnak']) .. ']]'
      output = output .. ' || '

      -- Race group
      output = output .. mw.wikibase.renderSnak(qs[P_COMPETITIONCLASS][1])
      output = output .. ' || '

      -- Evt.
      output = output .. mw.wikibase.renderSnak(qs[P_SPORTSDISCIPLINE][1])
      output = output .. ' || '

      -- Pl.
      output = output .. mw.wikibase.renderSnak(qs[P_RANK][1])
      output = output .. ' || '
      
      -- Time
      if qs[P_RACETIME] then
        output = output .. mw.wikibase.renderSnak(qs[P_RACETIME][1])
      end
      output = output .. '\n'
    end
  end
  output = output .. '|}\n'
  return output
end
return p