پودمان:Infobox football biography

توضیحات این پودمان می‌تواند در پودمان:Infobox football biography/توضیحات قرار گیرد.

local p = {}
local getArgs = require('Module:Arguments').getArgs

local function isSet(v)
    if v == nil then return false end
    return mw.text.trim(tostring(v)) ~= ''
end

local function firstArg(args, ...)
    for i = 1, select('#', ...) do
        local key = select(i, ...)
        if isSet(args[key]) then
            return args[key]
        end
    end
    return nil
end

local function addRow(root, label, data)
    if not isSet(data) then return end
    local row = root:tag('tr')
    row:tag('th')
        :attr('scope', 'row')
        :addClass('infobox-label')
        :wikitext(label)
    row:tag('td')
        :attr('colspan', '3')
        :addClass('infobox-data')
        :wikitext(data)
end

local function addMultiDataRow(root, label, dataa, datab, datac)
    if not isSet(dataa) and not isSet(datab) and not isSet(datac) then return end
    local row = root:tag('tr')
    row:tag('th')
        :attr('scope', 'row')
        :addClass('infobox-label')
        :wikitext(label)

    row:tag('td')
        :addClass('infobox-data infobox-data-a')
        :wikitext(isSet(dataa) and dataa or '')
    
    if isSet(datab) then
        row:tag('td')
            :addClass('infobox-data infobox-data-b')
            :wikitext(datab)
    end
    if isSet(datac) then
        row:tag('td')
            :addClass('infobox-data infobox-data-c')
            :wikitext(datac)
    end
end

function p.main(frame)
    local args = getArgs(frame)

    local root = mw.html.create('table')
        :addClass('infobox')
        :addClass(args.child == 'yes' and 'infobox-subbox' or nil)
        :cssText(args.bodystyle or 'width: 22em; line-height: 1.2em;')

    -- عنوان
    local title = firstArg(args, 'name', 'playername') or mw.title.getCurrentTitle().text
    root:tag('caption')
        :addClass('infobox-title')
        :wikitext(title)

    -- تصویر
    if isSet(args.image) then
        local imgCell = root:tag('tr'):tag('td')
            :attr('colspan', '4')
            :addClass('infobox-image')
            :wikitext(args.image)
        if isSet(args.caption) then
            imgCell:tag('div')
                :addClass('infobox-caption')
                :wikitext(args.caption)
        end
    end

    -- اطلاعات شخصی
    if firstArg(args, 'fullname', 'full_name', 'نام کامل') or firstArg(args, 'birth_date', 'dateofbirth', 'زادروز') then
        root:tag('tr'):tag('th')
            :attr('colspan', '4')
            :addClass('infobox-header')
            :wikitext('اطلاعات شخصی')

        addRow(root, 'نام کامل', firstArg(args, 'fullname', 'full_name', 'نام کامل'))
        addRow(root, 'زادروز', firstArg(args, 'birth_date', 'dateofbirth', 'زادروز'))
        addRow(root, 'زادگاه', firstArg(args, 'birth_place', 'cityofbirth', 'زادگاه'))
        addRow(root, 'تاریخ مرگ', firstArg(args, 'death_date', 'dateofdeath', 'تاریخ مرگ'))
        addRow(root, 'محل مرگ', firstArg(args, 'death_place', 'محل مرگ'))
        addRow(root, 'قد', firstArg(args, 'height', 'قد'))
        addRow(root, 'پست', firstArg(args, 'position', 'پست'))
    end

    -- اطلاعات باشگاهی
    local currentclub = firstArg(args, 'currentclub', 'باشگاه کنونی')
    if isSet(currentclub) then
        root:tag('tr'):tag('th')
            :attr('colspan', '4')
            :addClass('infobox-header')
            :wikitext('اطلاعات باشگاهی')
        addRow(root, 'باشگاه کنونی', currentclub)
        addRow(root, 'شمارهٔ پیراهن', firstArg(args, 'clubnumber', 'شمارهٔ پیراهن'))
    end

    -- باشگاه‌های جوانان
    local i = 1
    local headerAdded = false
    while true do
        local club = args['youthclubs' .. i] or (i == 1 and args.youthclubs)
        if not isSet(club) then break end
        if not headerAdded then
            root:tag('tr'):tag('th')
                :attr('colspan', '4')
                :addClass('infobox-header')
                :wikitext('باشگاه‌های جوانان')
            headerAdded = true
        end
        local years = args['youthyears' .. i] or (i == 1 and args.youthyears)
        addRow(root, years or '', club)
        i = i + 1
    end

    -- باشگاه‌های حرفه‌ای
    i = 1
    headerAdded = false
    while true do
        local club = args['clubs' .. i] or (i == 1 and args.clubs)
        if not isSet(club) then break end
        if not headerAdded then
            root:tag('tr'):tag('th')
                :attr('colspan', '4')
                :addClass('infobox-header')
                :wikitext('باشگاه‌های حرفه‌ای')
            headerAdded = true
        end
        local years = args['years' .. i]
        local caps  = args['caps' .. i] or args['caps(goals)' .. i]
        local goals = args['goals' .. i]
        addMultiDataRow(root, years or '', club, caps, isSet(goals) and '(' .. goals .. ')' or nil)
        i = i + 1
    end

    -- مجموع
    if isSet(args.totalcaps) or isSet(args.totalgoals) then
        addMultiDataRow(root, 'مجموع', '', args.totalcaps, isSet(args.totalgoals) and '(' .. args.totalgoals .. ')' or nil)
    end

    -- تیم ملی
    i = 1
    headerAdded = false
    while true do
        local team = args['nationalteam' .. i] or (i == 1 and args.nationalteam)
        if not isSet(team) then break end
        if not headerAdded then
            root:tag('tr'):tag('th')
                :attr('colspan', '4')
                :addClass('infobox-header')
                :wikitext('تیم ملی')
            headerAdded = true
        end
        local years = args['nationalyears' .. i]
        local caps  = args['nationalcaps' .. i] or args['nationalcaps(goals)' .. i]
        local goals = args['nationalgoals' .. i]
        addMultiDataRow(root, years or '', team, caps, isSet(goals) and '(' .. goals .. ')' or nil)
        i = i + 1
    end

    -- دوران مربیگری
    i = 1
    headerAdded = false
    while true do
        local club = args['managerclubs' .. i]
        if not isSet(club) then break end
        if not headerAdded then
            root:tag('tr'):tag('th')
                :attr('colspan', '4')
                :addClass('infobox-header')
                :wikitext('دوران مربیگری')
            headerAdded = true
        end
        local years = args['manageryears' .. i]
        addRow(root, years or '', club)
        i = i + 1
    end

    -- افتخارات
    if isSet(args.medaltemplates) then
        root:tag('tr'):tag('td')
            :attr('colspan', '4')
            :wikitext(args.medaltemplates)
    end

    -- پانویس
    local footer = {}
    if isSet(args.pcupdate) then
        table.insert(footer, "* آمار باشگاهی به‌روزرسانی شده در تاریخ " .. args.pcupdate)
    end
    if isSet(args.ntupdate) then
        table.insert(footer, "‡ آمار ملی به‌روزرسانی شده در تاریخ " .. args.ntupdate)
    end
    if #footer > 0 then
        root:tag('tr'):tag('td')
            :attr('colspan', '4')
            :addClass('infobox-below')
            :css('font-size', '82%')
            :wikitext(table.concat(footer, '<br>'))
    end

    return tostring(root)
end

return p