-- module reproduisant le comportement de ((PAGESINCATEGORY))
-- sans le bug

local p = {}

-- génère une erreur
function p.erreur(texte)
    return '<span class="error">' .. (texte or "''aucune erreur indiquée''") .. "</span>"
end


-- pour tester la fonctionnalité "pageincategory"
function p.pagesincat(frame)
    -- le nom de la catégorie
    local args = ( frame.getParent and frame:getParent().args ) or frame        -- préparation pour appel par modèle ou direct.
    local cat = args[1]
    -- le type de demande
    local arg = (frame.args and frame.args["type"]) or args["type"]
    -- mise en forme des nombres ?
    local mef = args["mise en forme"] or args["mise_en_forme"]

    local sel  -- la sélection

    -- en l'absence de nom de catégorie on utilise la page courante
    if (cat == nil or cat == "") then
        local titre = mw.title.getCurrentTitle()
        -- on vérifie qu'on est une catégorie
        if (titre.namespace ~= 14) then
            return p.erreur("Pas de nom de page indiqué et la page courante n'est pas une catégorie")
        end
        -- on utilise le titre de la page courante
        cat = mw.title.getCurrentTitle().text
    end
 
    -- on regarde le paramètre
    if (arg == "tous" or arg == nil or arg == "*") then
        sel = "all"
    elseif (arg == "cats") then
        sel = "subcats"
    elseif (arg == "fichiers") then
        sel = "files"
    elseif (arg == "pages") then
        sel = "pages"
    else
        return p.erreur("paramètre '" .. (arg or "<nil>") .. "' non reconnu")
    end
 
    local res = mw.site.stats.pagesInCategory(cat, sel)
    if (res == nil) then
        return p.erreur("erreur de récupération des informations")
    end
    -- si mise en forme on applique
    if (mef ~= nil) then
        return mw.getContentLanguage():formatNum(res)
    else
        return tostring(res)
    end
end

return p