Redigerer Modul:WikidataListe

local p = {}

function dump( out )
    if type( out ) == 'table' then
        local s = '{ '
        for k,v in pairs( out ) do
                if type( k ) ~= 'number' then k = '"'..k..'"' end
                s = s .. '['..k..'] = ' .. dump( v ) .. ','
        end
        return s .. '} '
    else
        return tostring( out )
    end
end

function getclaims(frame)
   if not mw.wikibase then
        return resten
    end
    local artikkel = mw.wikibase.getEntityObject()
    if not artikkel then
        return resten
    end
    return artikkel.claims	
end

function enkeltverdi(pv)
	lang = mw.language.getContentLanguage()
	local qv = 'Q' .. pv.mainsnak.datavalue.value["numeric-id"]
    local label = mw.wikibase.label(qv)
    local sitelink = mw.wikibase.sitelink(qv)
    if label and sitelink then
        return '[[' .. sitelink .. '|' .. lang:ucfirst(label) .. ']]'
    end
    if label and not sitelink then
    	return lang:ucfirst(label)
	end
	if sitelink and not label then
		return '[[' .. sitelink .. ']]'
	end
	return ""
end

function p.liste(frame,prop)
    local claims = getclaims(frame)
    if not claims then
        return resten
    end
	local pid =  mw.wikibase.resolvePropertyId(prop)
	if not pid then
		return ""
	end
	
    local pv = claims[pid]
    if not pv then
        return ""
    end
    if not pv[1].mainsnak then return "" end
    if not pv[1].mainsnak.datavalue then return "" end
    
    local i = 1
    local resultat = enkeltverdi(pv[i])
    
    while i < #pv do
    	i = i+1
    	local lres = enkeltverdi(pv[i])
    	if string.len(lres) > 0 then
    	    resultat = resultat .. ', ' .. lres
    	end
    end
    
    return resultat


end

function frameverdi(frame,param)
    local args = frame.args
    if args[1] == nil then
        local pFrame = frame:getParent();
        args = pFrame.args;
        for k,v in pairs( frame.args ) do
            args[k] = v;
        end
     end
     if args[param] then
        return args[param]
     end
     return ""
end

function p.grenserTil(frame)
	return p.liste(frame,"grenser til")
end

function p.yrker(frame)
	return p.liste(frame,"yrke")
end

function velg(frame,prop,param)
	return frameverdi(frame,param)
end

function p.velgyrke(frame)
	return velg(frame,'yrke','yrke')
end

return p