Modul:CSVParser

A modult a Modul:CSVParser/doc lapon tudod dokumentálni

local p = {}

function p.megjelenit(frame)
    local status, adatModul = pcall(require, 'Modul:SzukkulensTaxonok')
    
    if not status then 
        return "Hiba: A 'Modul:SzukkulensTaxonok' nem található!" 
    end
    
    local adatok = adatModul.getAdatok()
    
    if not adatok or #adatok == 0 then 
        return "Hiba: Az adatok üresek!" 
    end

    local res = '{| class="wikitable sortable datatable-hook" style="width:100%; font-size:90%;"\n'
    
    for i, sor in ipairs(adatok) do
        res = res .. "|-\n"
        local jel = (i == 1) and "!" or "|"
        
        -- 1. Sorszám oszlop
        if i == 1 then
            res = res .. "! #\n"
        else
            res = res .. "| " .. (i - 1) .. "\n"
        end
        
        -- 2. Összevont oszlopok meghatározása
        local oszlop_terv = {
            {lat = 1, hun = 2}, -- Rend
            {lat = 3, hun = 4}, -- Család
            {lat = 5, hun = 6}, -- Alcsalád
            {lat = 7, hun = nil}, -- Tribus
            {lat = 8, hun = nil}, -- Subtribus
            {lat = 9, hun = 10}  -- Nemzetség
        }
        
        for _, mapping in ipairs(oszlop_terv) do
            local latin = sor[mapping.lat] or ""
            local magyar = mapping.hun and sor[mapping.hun] or ""
            
            latin = latin:gsub("^%s*(.-)%s*$", "%1")
            magyar = magyar:gsub("^%s*(.-)%s*$", "%1")
            
            local cella_ertek = ""
            
            if i == 1 then
                cella_ertek = latin -- Fejléc
            else
                if latin == "" or latin == " " then
                    cella_ertek = " "
                else
                    -- Link generálása: [[:Kategória:LatinNév|LatinNév]]
                    local link_szoveg = latin
                    
                    -- Ha Nemzetség (9), akkor a látható szöveg dőlt legyen
                    if mapping.lat == 9 then
                        link_szoveg = "''" .. latin .. "''"
                    end
                    
                    local link = "[[:Kategória:" .. latin .. "|" .. link_szoveg .. "]]"
                    
                    -- Összefűzés a magyar névvel
                    if magyar ~= "" and magyar ~= " " then
                        cella_ertek = link .. " (" .. magyar .. ")"
                    else
                        cella_ertek = link
                    end
                end
            end
            
            res = res .. jel .. " " .. cella_ertek .. "\n"
        end
    end
    
    res = res .. "|}"
    return res
end

return p