Modul:KategoriKjønn

local p = {}

-- Return kjønn til artikkelen
function p.kjonnskategori(frame)
    if not mw.wikibase then
        return ""
    end
    local artikkel = mw.wikibase.getEntityObject()
    if not artikkel then
        return "[[Kategori:Artiklar som manglar på Wikidata]]"
    end
    local claims = artikkel.claims
    if not claims then
        return "[[Kategori:Artikler som manglar utsegn på Wikidata]]"
    end
    local p31 = claims.P31
    if p31 then
    	local gnd = p31[1].mainsnak.datavalue.value["numeric-id"]
    	if gnd ~= 5 then
    		return ""
    	end
    end
    local p21 = claims.P21
    if not p21 then
        local p107 = claims.P107
        if p107 then
            local gnd = p107[1].mainsnak.datavalue.value["numeric-id"]
            if gnd == 215627 then
                return "[[Kategori:Artiklar som manglar utsegn om kjønn på Wikidata]]"
            end
        end
        return ""
    end
    if p21[1].mainsnak.datavalue == nil then
        return "[[Kategori:Ukjent kjønn]]"
    else
        local kjonnid = p21[1].mainsnak.datavalue.value["numeric-id"]
        local kjonn = mw.wikibase.label( "Q" ..kjonnid)
        if kjonn == "mann" then
            return "[[Kategori:Einskildmenn]]"
        elseif kjonn == "kvinne" then
            return  "[[Kategori:Einskildkvinner]]"
        elseif kjonn == "ciskvinne" then
            return  "[[Kategori:Einskildkvinner]]"
        elseif kjonn == "cismann" then
            return  "[[Kategori:Einskildmenn]]"
        elseif kjonn == "transkvinne" then
            return  "[[Kategori:Transkvinner]]"
        elseif kjonn == "transmann" then
            return  "[[Kategori:Transmenn]]"
        else
            return "[[Kategori:Ukjent kjønn]]"
        end
    end
end

return p