Modul:WikidataBilde

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

-- Return bilde til artikkelen function p.wikidatabilde(frame)

   if not mw.wikibase then
       return ""
   end
   local artikkel = mw.wikibase.getEntityObject()
   if not artikkel then
       return ""
   end
   local claims = artikkel.claims
   if not claims then
       return ""
   end
   local p18 = claims.P18
   if not p18 then
       return ""
   end

   return p18[1].mainsnak.datavalue.value

end

function p.framebilde(frame)

   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['bilde'] then
       return args['bilde']
    end
    return ""

end

function p.velgbilde(frame)

   local bilde = p.framebilde(frame)
   if bilde then
       if bilde == "" then

-- return ""

       else
          return bilde
       end
   else
       return ""
   end

   return p.wikidatabilde(frame)

end

function p.sammenlignbilde(frame)

   local fraframe = p.framebilde(frame)
   local frawikidata = p.wikidatabilde(frame)
   if fraframe == frawikidata then
       if fraframe == "" then
           return ""
       else
           return ""
       end
   else
       if frawikidata == "" then
           return ""
       end
       if fraframe == "" then
           return ""
       end
       return ""
   end

end

return p