Module:Indicator datasets table

Documentation for this module may be created at Module:Indicator datasets table/doc

local p = {}

function p.getDatasets(frame)
    local articleids = frame.args.articleids
    if not articleids then
        return "Error: articleids not provided"
    end
    
    -- Entferne alle Kommas und Leerzeichen am Ende von articleids
    articleids = mw.ustring.gsub(articleids, '[,%s]*$', '')
    
    local ids = mw.text.split(articleids, ",")
    local datasets = {}
    local titleobject
    
    for _, id in ipairs(ids) do
        titleobject = mw.title.new(tonumber(id))
        local existspage = titleobject.exists
        
        if existspage then
            local content = titleobject:getContent()
            -- Speichere den Inhalt der Seite
            table.insert(datasets, mw.text.jsonDecode(content))
        else
            return "Error: Page not found for ID " .. id
        end
    end
    
    return datasets
end

function p.generateTable(frame)
    local datasets = p.getDatasets(frame)
    if type(datasets) == "string" then
        return datasets -- Fehlermeldung zurückgeben
    end

    local html = mw.html.create()

    -- Tabelle erstellen
    local tableNode = html:tag('table'):addClass('wikitable')

    -- Header-Zeile erstellen
    local headerRow = tableNode:tag('tr')
    headerRow:tag('th'):wikitext('Class')
    headerRow:tag('th'):wikitext('Sub-class')
    
    -- Iteriere über jedes Dataset und füge es als Spaltenüberschrift hinzu
    for _, dataset in ipairs(datasets) do
        headerRow:tag('th'):wikitext(dataset.schemas.Dataset.unique_title)
    end

    -- Datenzeilen erstellen
    for _, dataset in ipairs(datasets) do
        -- Iteriere über jede Klasse im Dataset
        for _, classData in ipairs(dataset.schemas.Dataset.classes or {}) do
            local class = classData['class name']
            -- Überprüfe, ob Sub-Klassen vorhanden sind
            local subClasses = classData['sub-classes']
            if subClasses then
                -- Iteriere über jede Sub-Klasse im Dataset
                for _, subClassData in ipairs(subClasses) do
                    local subClass = subClassData['sub-class name']
                    -- Überprüfe, ob Sub-Sub-Klassen vorhanden sind
                    local subSubClasses = subClassData['sub-sub-classes']
                    local value
                    if subSubClasses then
                        -- Wenn Sub-Sub-Klassen vorhanden sind, nimm das Value von dort
                        value = subSubClasses[1].value
                    else
                        -- Wenn keine Sub-Sub-Klassen vorhanden sind, überprüfe die Sub-Klassen
                        value = subClassData.value
                        if not value then
                            -- Wenn keine Sub-Klassen vorhanden sind, überprüfe die Klassen
                            value = classData.value
                        end
                    end
                    local dataRow = tableNode:tag('tr')
                    dataRow:tag('td'):wikitext(class)
                    dataRow:tag('td'):wikitext(subClass)
                    -- Iteriere über jedes Dataset und füge den Wert für diese Klasse und Sub-Klasse hinzu
                    for _, otherDataset in ipairs(datasets) do
                        if dataset == otherDataset then
                            dataRow:tag('td'):wikitext(value or "N/A")
                        else
                            dataRow:tag('td'):wikitext("N/A")
                        end
                    end
                end
            end
        end
    end

    return tostring(html)
end

return p