Modul:SimpleTaxobox

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

-- Modul:SimpleTaxobox (Javított verzió)
local p = {}

-- Betölti a központi adatmodult, amiben a hierarchia szerepel.
local TaxonData = require('Modul:TaxonData')

-- Segédfüggvény: Kinyeri a nemzetség nevét a fajnévből (pl. "Echinocactus grusonii" -> "Echinocactus")
local function extract_genus(full_species_name)
    -- Kinyeri az első szót (szóközig)
    local genus_name = full_species_name:match("([^%s]+)") 
    return genus_name
end

function p.buildTaxobox(frame)
    local args = frame:getParent().args
    
    -- A taxon neve, amit a cikkből kaptunk (ez lehet faj vagy nemzetség)
    local initialTaxon = args.taxon
    -- Javítás: biztosítsuk, hogy az image ne legyen nil, ha nincs megadva
    local taxonImage = args.image or ''
    
    local hierarchy = {}
    local taxon = initialTaxon -- Ez a változó lépked felfelé a hierarchiában
    local parentOverride = args.parent -- A manuálisan átadott szülő (pl. Szekció)

    if not initialTaxon or initialTaxon == '' then
        return '<div style="color:red;">Taxobox Hiba: Hiányzó <code>|taxon=</code> paraméter.</div>'
    end
    
    -- 1. Rekurzív adatgyűjtés a Modul:TaxonData-ból
    while taxon do
        local data = TaxonData.getData(taxon) 
        
        if data then
            -- 1a. Talált adatot (Rend, Család, Nemzetség, Szekció, stb.)
            table.insert(hierarchy, { rank = data.rank, name = taxon })
            taxon = data.parent -- Áttérés a szülőre
        
        else
            -- 1b. Nem talált adatot. Ez a pont csak a legelső elemre lehet a Faj!
            if taxon == initialTaxon then
                
                local actual_parent
                
                -- 1. Ellenőrizzük, van-e átadott szülő (parentOverride)
                if parentOverride and parentOverride ~= '' then
                    actual_parent = parentOverride
                else
                    -- 2. Különben kinyerjük a nemzetséget a fajnévből (automatikusan)
                    actual_parent = extract_genus(initialTaxon)
                end
                
                -- Hozzáadjuk magát a fajt a hierarchiához
                table.insert(hierarchy, { rank = "Faj", name = initialTaxon })
                
                -- Áttérünk a Nemzetségre VAGY a Szekcióra
                taxon = actual_parent
            
            else
                -- Nem a legelső elem, és nincs adat (a lánc megszakad)
                return '<div style="color:red;">Taxobox Hiba: Nem található adat a "' .. taxon .. '" taxonhoz a Modul:TaxonData-ban.</div>'
            end
        end
    end
    
    -- 2. Wikitext Taxobox táblázat felépítése (a régebbi kód, de javított változónevekkel)
    local output = '{| class="infobox biota" style="text-align: left; width: 22em;"\n'

    output = output .. '|+' .. initialTaxon .. '\n'
    if taxonImage and taxonImage ~= '' then -- nem egyenlő ~=
        output = output .. '|-\n'
        output = output .. '!colspan="2"|[[Fájl:' .. taxonImage .. '|340px]]\n'
    end
    output = output .. '|-\n'
    output = output .. '!colspan="2"|Rendszertani besorolás\n'
    
    -- A hierarchia fordított sorrendben van. Felülről lefelé haladunk.
    for i = #hierarchy, 1, -1 do
        local item = hierarchy[i]
        
        local name_display = item.name
        
        if item.rank == "Rend" then 
            name_display = "''[[:Kategória:" .. name_display .."|".. name_display .. "]]''"
        end
        
        if item.rank == "Család" then 
            name_display = "''[[:Kategória:" .. name_display .."|".. name_display .. "]]''"
        end
        
        if item.rank == "Alcsalád" then 
            name_display = "''[[:Kategória:" .. name_display .."|".. name_display .. "]]''"
        end
        
        if item.rank == "Nemzetségcsoport" then 
            item.rank = "Nemzetség-<br>csoport"
            name_display = "''[[:Kategória:" .. name_display .."|".. name_display .. "]]''"
        end
        
        if item.rank == "Alnemzetségcsoport" then 
            item.rank = "Alnemzetség-<br>csoport"
            name_display = "''[[:Kategória:" .. name_display .."|".. name_display .. "]]''"
        end

        if item.rank == "Nemzetség" then 
            name_display = "''[[:Kategória:" .. name_display .."|".. name_display .. "]]''"
        end

        -- Kiemeljük az aktuális cikk tárgyát (ami a hierarchia legalján van)
        if item.rank == "Faj" then 
            name_display = "''[[:Kategória:" .. name_display .."|".. name_display .. "]]''"
        end

        output = output .. '|-\n'
        output = output .. '| style="text-align: right; line-height: 95%;" | ' .. item.rank .. '\n'
        output = output .. '| style="line-height: 95%;" | ' .. name_display .. '\n'
    end
    
    output = output .. '|}\n'
    
    return output
end

return p