Modul:Wb

Die Dokumentation für dieses Modul kann unter Modul:Wb/Doku erstellt werden

local p = {}; 

p.id = nil;
p.entity = nil;
p.claims = nil;

local statementsTemplate = '\n<table class="statements" border-spacing: 2px;>$var\n</table>'
local statementTemplate = '\n<tr class="statement" style="border-spacing: 2px;" >$var\n</tr>'
local propertyTemplate = '\n<td class="property" style="background-color:Tomato;">$var</td>'
local valuesTemplate = '\n<td class="values">$var\n</td>'
local valueTemplate = '\n<div class="value" style="background-color:LightGrey; border-color:White; border:solid">$var</div>'
local qStatementsTemplate = '<table class="qstatements" style="background-color:MediumSpringGreen;">$var</table>'
local qStatementTemplate = '<tr class="qstatement">$var</tr>'
local qPropertyTemplate = '<td class="qproperty">$var</td>'
local qValuesTemplate = '<td class="qvalues">$var</td>'
local qValueTemplate = '<div class="qvalue">$var</div>'

function p.getFormatedStatements(frame)
   id = frame.args.id
   return p._getFormatedStatements(id)
end

function p._getFormatedStatementsOfProperty(id, propId)

end

function p._getFormatedStatements(id)
  local ret = ""
  local qualifiers = ""
  local prop = ""
  local value = ""
  p.entity = mw.wikibase.getEntity(id)
  
  if not p.entity then
     return "no entity with id found: " .. id
  end
  
  p.claims = p.entity["claims"]
  
  for propId, valueSnaks in pairs(p.claims) do
     local values = ""
     for key, valueSnak in pairs(valueSnaks) do
        qualifiers = p.getFormatedQualifiers(valueSnak["qualifiers"])
        values = values .. p.renderValue(valueSnak["mainsnak"], qualifiers)
     end
     ret = ret .. p.renderStatement(propId, values) 
  end
  ret = string.gsub(statementsTemplate, "$var", ret) 
  return ret
end

function p.getFormatedQualifiers(props)
    if not props then return nil end
    local ret = ""

    for propId, valueSnaks in pairs(props) do
       local values = ""
       for key, valueSnak in pairs(valueSnaks) do   
          values = values .. p.renderQValue(valueSnak)
          
       end
       values = string.gsub(qValuesTemplate, "$var", values)
       ret = ret .. p.renderQStatement(propId, values) 
    end
    return ret
end

function p.renderQStatement(propId, values)
  local propLabel = mw.wikibase.getLabel(propId)
  if not propLabel then propLabel = "" end
  local prop = string.gsub(qPropertyTemplate, "$var", propLabel)
  local val = string.gsub(qValuesTemplate, "$var", values)
  return string.gsub(qStatementTemplate, "$var", prop .. val)  
end

function p.renderStatement(propId, values)
  local propLabel = mw.wikibase.getLabel(propId)
  if not propLabel then propLabel = "" end
  local prop = string.gsub(propertyTemplate, "$var", propLabel)
  local val = string.gsub(valuesTemplate, "$var", values)
  return string.gsub(statementTemplate, "$var", prop .. val)  
end

function p.renderQValue(valueSnak)
  local value = mw.wikibase.renderSnak(valueSnak)
  return string.gsub(qValueTemplate, "$var", value) 
end

function p.renderValue(valueSnak, qualifiers)
  if not qualifiers then 
     qualifiers = "" 
  else
     qualifiers = string.gsub(qStatementsTemplate, "$var", qualifiers)
  end
  local value = mw.wikibase.renderSnak(valueSnak)
  return string.gsub(valueTemplate, "$var", value .. qualifiers) 
end

p.getLabel = function (frame)
 local id = frame.args.id
 if id then 
   return mw.wikibase.getLabel(id)
 end
 return ""
end

-- wird nicht mehr benötigt
function p.nextStatement() 
  p.property = p.keys[p.index]
  mw.log(p.property)
  if p.property then
    claim = p.claims[p.property]
    snak = claim[1]["mainsnak"] 
    p.value = mw.wikibase.renderSnak(snak)
    p.index = p.index + 1
  end
end

-- wird nicht mehr benötigt
function p.initEntity(qid)
  p.entity = mw.wikibase.getEntity(qid)
  p.claims = p.entity["claims"]
  -- p.i, p.v = next(p.claims, nil) 
  -- mw.logObject(p.entity)
  p.keys = {}
  p.index=1
  local i = 1
  for k in pairs(p.claims) do  
     p.keys[i]=k
     i = i + 1
  end
  mw.logObject(p.keys)
end



return p