Ritchie Boys Wiki

Module:Soldier: Difference between revisions

← Older edit
Military sidebar: years/battles/ribbons + branch emblems
Infobox: drop certificate/arrive/depart/years; expand other_class codes
 
(26 intermediate revisions by the same user not shown)
Line 185: Line 185:
'physically unfit', 'unfit for', 'relieved prior', 'relieved of',
'physically unfit', 'unfit for', 'relieved prior', 'relieved of',
'kicked', 'eliminated from', 'not graduated', 'did not graduate',
'kicked', 'eliminated from', 'not graduated', 'did not graduate',
'excess absence', 'illness', 'sick call', 'medical board',
'psychiatr', 'neurot', 'homosexual', 'suicid', 'alcohol', 'drunk',
'intoxicat', 'venereal', 'syphili', 'gonorrh', 'mental case',
'mental illness', 'nervous breakdown',
'non-graduate', 'non graduate', 'nongraduate', 'certificate listed as ng',
}
}


Line 451: Line 456:
EE = 'Estonia',
EE = 'Estonia',
LA = 'Latvia',
LA = 'Latvia',
LAT = 'Latvia',
LI = 'Lithuania',
LI = 'Lithuania',
LT = 'Lithuania',
LT = 'Lithuania',
LV = 'Latvia',
LV = 'Latvia',
AL = 'Albania',
AL = 'Albania',
ALB = 'Albania',
BU = 'Bulgaria',
BU = 'Bulgaria',
BUL = 'Bulgaria',
BG = 'Bulgaria',
BG = 'Bulgaria',
LUX = 'Luxembourg',
BRA = 'Brazil',
IR = 'Ireland',
IR = 'Ireland',
IE = 'Ireland',
IE = 'Ireland',
PA = 'Palestine',
PA = 'Palestine',
PAL = 'Palestine',
EG = 'Egypt',
EG = 'Egypt',
JA = 'Japan',
JA = 'Japan',
Line 466: Line 477:
BR = 'Brazil',
BR = 'Brazil',
AR = 'Argentina',
AR = 'Argentina',
ARG = 'Argentina',
PE = 'Peru',
PE = 'Peru',
CO = 'Colombia',
CO = 'Colombia',
COL = 'Colombia',
LU = 'Luxembourg',
LU = 'Luxembourg',
ME = 'Mexico',
CHN = 'China',
LITH = 'Lithuania',
PRTG = 'Portugal',
PT = 'Portugal',
DR = 'Dominican Republic',
DO = 'Dominican Republic',
OTH = 'Other',
OTH = 'Other',
OTHER = 'Other',
OTHER = 'Other',
Line 494: Line 514:
ISLAM = 'Muslim',
ISLAM = 'Muslim',
Q = 'Quaker',
Q = 'Quaker',
QU = 'Quaker',
QUA = 'Quaker',
QUAKER = 'Quaker',
FRIENDS = 'Quaker',
N = 'None',
N = 'None',
X = 'Not stated',
X = 'Not stated',
Line 663: Line 687:
key = mw.ustring.gsub(key, '%s+', ' ')
key = mw.ustring.gsub(key, '%s+', ' ')
key = trim(key)
key = trim(key)
if RELIGION_NAME[key] then
local mapped = RELIGION_NAME[key]
return RELIGION_NAME[key]
if mapped then
-- Hide non-informative roster placeholders from the infobox.
if mapped == 'Not stated' or mapped == 'None' or mapped == 'Unknown' then
return ''
end
return mapped
end
end
local lower = mw.ustring.lower(s)
local lower = mw.ustring.lower(s)
if lower == 'not stated' or lower == 'none' or lower == 'unknown'
or lower == 'n/a' or lower == 'na' then
return ''
end
if lower == 'hebrew' or lower == 'jewish' or lower == 'jew'
if lower == 'hebrew' or lower == 'jewish' or lower == 'jew'
or mw.ustring.find(lower, 'jewish', 1, true)
or mw.ustring.find(lower, 'jewish', 1, true)
or mw.ustring.find(lower, 'hebrew', 1, true) then
or mw.ustring.find(lower, 'hebrew', 1, true) then
return 'Jewish'
return 'Jewish'
end
if lower == 'quaker' or lower == 'friends' then
return 'Quaker'
end
end
return prettyProse(s)
return prettyProse(s)
end
end


local function prettyNamePart(s)
-- Roster "other_class" codes → readable course names (By The Numbers / MITC charts).
return prettyNamePhrase(s, false)
local function expandOtherClassToken(tok)
end
tok = tidyDisplay(tok)
if tok == '' then
return ''
end
local u = mw.ustring.upper(tok)
u = mw.ustring.gsub(u, '%s+', ' ')
u = trim(u)


local function isNegativeClause(s)
local n = mw.ustring.match(u, '^SC%s*B%s*(%d+)$')
local lower = mw.ustring.lower(s)
if n then
if lower == 'failed' or mw.ustring.find(lower, '^failed%s') or mw.ustring.find(lower, '%sfailed%s') or mw.ustring.find(lower, '%sfailed$') then
return 'Special Course B ' .. n
return true
end
n = mw.ustring.match(u, '^SC%s*(%d+)$')
if n then
-- SC# aligns with AGF Photo Interpretation / “Special Course” numbering
-- (e.g. SC8 = Special Course 8 in PI).
return 'Special Course ' .. n
end
n = mw.ustring.match(u, '^DC%s*(%d+)$')
if n then
return 'Division Class ' .. n
end
n = mw.ustring.match(u, '^MITU%s*(%d+)$')
if n then
return 'Mobile Intelligence Training Unit ' .. n
end
n = mw.ustring.match(u, '^RDC%s*(%d+)$')
if n then
return 'Redeployment Class ' .. n
end
n = mw.ustring.match(u, '^RCM%s*(%d+)$')
if n then
return 'Radio Countermeasures Class ' .. n
end
n = mw.ustring.match(u, '^OB%s*(%d+)$')
if n then
return 'Order of Battle Class ' .. n
end
end
for _, phrase in ipairs(NEGATIVE_PHRASES) do
if u == 'SIG' or u == 'SIG-SIG' or mw.ustring.match(u, '^SIG[%s%-]') then
if mw.ustring.find(lower, phrase, 1, true) then
return 'Special Intelligence Group–Signal'
return true
end
end
end
return false
end


local function normalizeNoteKey(s)
local unitNum, unitKind = mw.ustring.match(u, '^(%d+)(?:ST|ND|RD|TH)%s+(.+)$')
s = mw.ustring.lower(trim(tidyDisplay(s)))
if unitNum and unitKind then
s = mw.ustring.gsub(s, '^also%s+', '')
local kind = trim(unitKind)
s = mw.ustring.gsub(s, '[^%w%s%-/]', ' ')
if kind == 'INF' then
s = mw.ustring.gsub(s, '%s+', ' ')
kind = 'Infantry'
return trim(s)
elseif kind == 'ARMD' then
end
kind = 'Armored'
 
else
local function dateOnlyFragment(s)
kind = prettyProse(kind)
return mw.ustring.match(trim(s), '^(%d%d?/%d%d?/%d%d%d?%d?)%.?$')
end
end
local ord = unitNum
 
local last = mw.ustring.sub(unitNum, -1)
local function joinDateFollowons(items)
local last2 = mw.ustring.len(unitNum) >= 2 and mw.ustring.sub(unitNum, -2) or ''
local out = {}
if last2 ~= '11' and last2 ~= '12' and last2 ~= '13' then
for _, clause in ipairs(items) do
if last == '1' then
local date = dateOnlyFragment(clause)
ord = unitNum .. 'st'
if date and #out > 0 then
elseif last == '2' then
local prev = mw.ustring.gsub(out[#out], '[ ,;]+$', '')
ord = unitNum .. 'nd'
if mw.ustring.sub(prev, -mw.ustring.len(date)) ~= date then
elseif last == '3' then
out[#out] = prev .. ', ' .. date
ord = unitNum .. 'rd'
else
ord = unitNum .. 'th'
end
end
elseif clause ~= '' then
else
table.insert(out, clause)
ord = unitNum .. 'th'
end
end
return ord .. ' ' .. kind
end
end
return out
 
return prettyProse(tok)
end
end


local function sanitizeNote(s)
local function expandOtherClass(raw)
s = tidyDisplay(s)
raw = tidyDisplay(raw)
if s == '' then
if raw == '' then
return ''
return ''
end
end
local lower = mw.ustring.lower(s)
local parts = {}
if mw.ustring.find(lower, 'no notes were in the source', 1, true) then
for piece in mw.ustring.gmatch(raw, '[^;,]+') do
return ''
local expanded = expandOtherClassToken(piece)
end
if expanded ~= '' then
local kept = {}
table.insert(parts, expanded)
for clause in mw.text.gsplit(s, ';', true) do
clause = trim(clause)
if clause ~= '' then
for sent in mw.text.gsplit(clause, '. ', true) do
sent = trim(sent)
sent = mw.ustring.gsub(sent, '%.$', '')
if sent ~= '' and not isNegativeClause(sent) then
table.insert(kept, prettyProse(sent))
end
end
end
end
end
end
return table.concat(kept, '; ')
return table.concat(parts, '; ')
end
end


local function containsIgnoreCase(haystack, needle)
local function prettyNamePart(s)
return mw.ustring.find(mw.ustring.lower(haystack), mw.ustring.lower(needle), 1, true) ~= nil
return prettyNamePhrase(s, false)
end
end


local function displayName(frame)
local function isNegativeClause(s)
local first = prettyNamePart(parentArg(frame, 'first'))
local lower = mw.ustring.lower(s)
local middle = prettyNamePart(parentArg(frame, 'middle'))
if lower == 'failed' or mw.ustring.find(lower, '^failed%s') or mw.ustring.find(lower, '%sfailed%s') or mw.ustring.find(lower, '%sfailed$') then
local surname = prettyNamePart(parentArg(frame, 'surname'))
return true
local suffix = prettyNamePart(parentArg(frame, 'suffix'))
local parts = {}
if first ~= '' then
table.insert(parts, first)
end
end
if middle ~= '' then
-- Bare class-chart non-graduate marker (e.g. "NG Class 10 OB", trailing "NG")
table.insert(parts, middle)
if lower == 'ng' or mw.ustring.find(lower, '^ng%s') or mw.ustring.find(lower, '%sng%s') or mw.ustring.find(lower, '%sng$') or mw.ustring.find(lower, 'nongrad') then
return true
end
end
if surname ~= '' then
for _, phrase in ipairs(NEGATIVE_PHRASES) do
table.insert(parts, surname)
if mw.ustring.find(lower, phrase, 1, true) then
end
return true
local name = table.concat(parts, ' ')
if suffix ~= '' then
if name ~= '' then
name = name .. ', ' .. suffix
else
name = suffix
end
end
end
end
if name == '' then
return false
name = 'This soldier'
end
return name
end
end


local function classLinkList(raw, withPrefix)
local function normalizeNoteKey(s)
s = mw.ustring.lower(trim(tidyDisplay(s)))
s = mw.ustring.gsub(s, '^also%s+', '')
s = mw.ustring.gsub(s, '[^%w%s%-/]', ' ')
s = mw.ustring.gsub(s, '%s+', ' ')
return trim(s)
end
 
local function dateOnlyFragment(s)
return mw.ustring.match(trim(s), '^(%d%d?/%d%d?/%d%d%d?%d?)%.?$')
end
 
local function joinDateFollowons(items)
local out = {}
local out = {}
for part in mw.text.gsplit(raw, ';', true) do
for _, clause in ipairs(items) do
part = trim(part)
local date = dateOnlyFragment(clause)
if part ~= '' then
if date and #out > 0 then
if withPrefix then
local prev = mw.ustring.gsub(out[#out], '[ ,;]+$', '')
table.insert(out, string.format('[[Class %s]]', part))
if mw.ustring.sub(prev, -mw.ustring.len(date)) ~= date then
else
out[#out] = prev .. ', ' .. date
table.insert(out, string.format('[[Class %s|%s]]', part, part))
end
end
elseif clause ~= '' then
table.insert(out, clause)
end
end
end
end
Line 793: Line 851:
end
end


local function isJunkIpwItalianLabel(part)
local function sanitizeNote(s)
local lower = mw.ustring.lower(trim(part))
s = tidyDisplay(s)
local spaced = mw.ustring.gsub(lower, '%s+', ' ')
if s == '' then
local junk = {
return ''
['16063'] = true, ['16095'] = true, ['16302'] = true,
['16320'] = true, ['16695'] = true,
['1st army'] = true, ['2 day'] = true, ['2/23/44'] = true,
['468th cic'] = true, ['5/7/45'] = true, ['8/24/44'] = true, ['8/7/43'] = true,
['apid'] = true, ['i-32'] = true, ['mis-eto'] = true, ['mitc'] = true,
['pac'] = true, ['sc7'] = true, ['shaef'] = true, ['v-831'] = true,
}
return junk[spaced] == true
end
 
local function normalizeIpwItalianCode(part)
part = trim(part)
if part == '' or isJunkIpwItalianLabel(part) then
return nil
end
end
local spaced = mw.ustring.lower(mw.ustring.gsub(part, '%s+', ' '))
local lower = mw.ustring.lower(s)
if spaced == '5th class' or spaced == 'italian 5th class' then
if mw.ustring.find(lower, 'no notes were in the source', 1, true) then
return '5'
return ''
end
end
return part
local kept = {}
end
for clause in mw.text.gsplit(s, ';', true) do
 
clause = trim(clause)
local function isJunkIpwLabel(part)
if clause ~= '' then
local lower = mw.ustring.lower(trim(part))
for sent in mw.text.gsplit(clause, '. ', true) do
lower = mw.ustring.gsub(lower, '%s+', ' ')
sent = trim(sent)
lower = mw.ustring.gsub(lower, '%s*%?+%s*$', '')
sent = mw.ustring.gsub(sent, '%.$', '')
lower = trim(lower)
if sent ~= '' and not isNegativeClause(sent) then
if lower == 'csu' or lower == 'fh' or lower == 'fid' or lower == 'illness'
table.insert(kept, prettyProse(sent))
or lower == 'mfiu-5' or lower == 'mfiu 5' or lower == 'mitu 5' or lower == 'mitu-5'
end
or lower == 'mrbc4' or lower == 'mrbc 4' or lower == 't force' or lower == 'to cic' then
end
return true
end
end
end
local compact = mw.ustring.gsub(lower, '[%s%-]+', '')
return table.concat(kept, '; ')
if compact == 'docteam' or compact == 'mfiu5' or compact == 'mitu5'
or compact == 'mrbc4' or compact == 'tforce' or compact == 'tocic' then
return true
end
return false
end
end


local function normalizeIpwTeamCode(part)
local function containsIgnoreCase(haystack, needle)
part = trim(part)
return mw.ustring.find(mw.ustring.lower(haystack), mw.ustring.lower(needle), 1, true) ~= nil
if part == '' then
end
return nil, nil
 
local function displayName(frame)
local first = prettyNamePart(parentArg(frame, 'first'))
local middle = prettyNamePart(parentArg(frame, 'middle'))
local surname = prettyNamePart(parentArg(frame, 'surname'))
local suffix = prettyNamePart(parentArg(frame, 'suffix'))
local parts = {}
if first ~= '' then
table.insert(parts, first)
end
end
local original = part
if middle ~= '' then
part = mw.ustring.gsub(part, '%s*%?+%s*$', '')
table.insert(parts, middle)
part = trim(part)
if part == '' then
return nil, original
end
end
local lower = mw.ustring.lower(part)
if surname ~= '' then
if mw.ustring.find(lower, 'armd', 1, true) or mw.ustring.find(lower, 'armored', 1, true) then
table.insert(parts, surname)
return nil, original, nil
end
end
local miiNum, miiLetter = mw.ustring.match(part, '^(%d+)%s*[%-–—]%s*([A-Za-z])$')
local name = table.concat(parts, ' ')
if miiNum then
if suffix ~= '' then
miiLetter = mw.ustring.upper(miiLetter)
if name ~= '' then
local mii = miiNum .. '-' .. miiLetter
name = name .. ', ' .. suffix
if miiLetter == 'R' and (miiNum == '540' or miiNum == '545' or miiNum == '546') then
else
mii = miiNum
name = suffix
end
end
return nil, mii, mii
end
end
local num = mw.ustring.match(part, '^(%d+)[Tt]$')
if name == '' then
if num then
name = 'This soldier'
return num, num, nil
end
end
if mw.ustring.match(lower, '^%d+(st|nd|rd|th)$') then
return name
return nil, original, nil
end
if isJunkIpwLabel(part) then
return nil, original, nil
end
return part, part, nil
end
end


local function teamLinkList(raw, pagePrefix, label)
local function classLinkList(raw, withPrefix)
local ClassDates = require('Module:ClassDates')
local out = {}
local out = {}
local isIpw = mw.ustring.find(pagePrefix, 'IPW', 1, true) == 1
for part in mw.text.gsplit(raw, ';', true) do
for part in mw.text.gsplit(raw, ';', true) do
part = trim(part)
part = mw.ustring.gsub(part, '[#<>%[%]|{}]', '')
part = trim(part)
part = trim(part)
if part ~= '' then
if part ~= '' then
if pagePrefix == 'IPW Italian ' then
local info = ClassDates.lookup(part)
local code = normalizeIpwItalianCode(part)
local dates = info and info.dates or ''
if code then
if withPrefix then
table.insert(out, string.format('[[Team %s%s|%s %s]]', pagePrefix, code, label, code))
if dates ~= '' then
table.insert(out, string.format('[[:Category:Class %s|Class %s]] (%s)', part, part, dates))
else
else
table.insert(out, part)
table.insert(out, string.format('[[:Category:Class %s|Class %s]]', part, part))
end
end
elseif isIpw then
else
local code, shown, mii = normalizeIpwTeamCode(part)
if dates ~= '' then
if mii then
table.insert(out, string.format('[[:Category:Class %s|%s]] (%s)', part, part, dates))
table.insert(out, string.format('[[Team MII %s|MII %s]]', mii, mii))
else
elseif code then
table.insert(out, string.format('[[:Category:Class %s|%s]]', part, part))
table.insert(out, string.format('[[Team %s%s|%s %s]]', pagePrefix, code, label, shown))
elseif shown then
table.insert(out, shown)
end
end
else
table.insert(out, string.format('[[Team %s%s|%s %s]]', pagePrefix, part, label, part))
end
end
end
end
end
end
return table.concat(out, ', ')
return out
end
end


local function addHeader(tbl, text)
local function isJunkIpwItalianLabel(part)
tbl:tag('tr'):tag('th')
local lower = mw.ustring.lower(trim(part))
:attr('colspan', '2')
local spaced = mw.ustring.gsub(lower, '%s+', ' ')
:addClass('infobox-header')
local junk = {
:wikitext(text)
['16063'] = true, ['16095'] = true, ['16302'] = true,
['16320'] = true, ['16695'] = true,
['1st army'] = true, ['2 day'] = true, ['2/23/44'] = true,
['468th cic'] = true, ['5/7/45'] = true, ['8/24/44'] = true, ['8/7/43'] = true,
['apid'] = true, ['i-32'] = true, ['mis-eto'] = true, ['mitc'] = true,
['pac'] = true, ['sc7'] = true, ['shaef'] = true, ['v-831'] = true,
}
return junk[spaced] == true
end
end


local function realCertificate(s)
local function normalizeIpwItalianCode(part)
s = trim(s)
part = trim(part)
if s == '' then
if part == '' or isJunkIpwItalianLabel(part) then
return ''
return nil
end
end
-- Placeholders: *, A, 5, #, and any other single character.
local spaced = mw.ustring.lower(mw.ustring.gsub(part, '%s+', ' '))
if mw.ustring.len(s) == 1 then
if spaced == '5th class' or spaced == 'italian 5th class' then
return ''
return '5'
end
end
return s
return part
end
end


local function addRow(tbl, label, value, dataClass)
local function isJunkIpwLabel(part)
if trim(value) == '' then
local lower = mw.ustring.lower(trim(part))
return
lower = mw.ustring.gsub(lower, '%s+', ' ')
lower = mw.ustring.gsub(lower, '%s*%?+%s*$', '')
lower = trim(lower)
if lower == 'csu' or lower == 'fh' or lower == 'fid' or lower == 'illness'
or lower == 'mfiu-5' or lower == 'mfiu 5' or lower == 'mitu 5' or lower == 'mitu-5'
or lower == 'mrbc4' or lower == 'mrbc 4' or lower == 't force' or lower == 'to cic' then
return true
end
end
local tr = tbl:tag('tr')
local compact = mw.ustring.gsub(lower, '[%s%-]+', '')
tr:tag('th')
if compact == 'docteam' or compact == 'mfiu5' or compact == 'mitu5'
:addClass('infobox-label')
or compact == 'mrbc4' or compact == 'tforce' or compact == 'tocic' then
:css('display', 'table-cell')
return true
:css('width', '38%')
:css('font-weight', 'bold')
:css('text-align', 'left')
:css('vertical-align', 'top')
:wikitext(label)
local td = tr:tag('td')
:addClass('infobox-data')
:css('display', 'table-cell')
:css('vertical-align', 'top')
if dataClass and dataClass ~= '' then
td:addClass(dataClass)
end
end
td:wikitext(value)
return false
end
end


local function yearOnly(s)
local function normalizeIpwTeamCode(part)
s = trim(s)
part = trim(part)
if s == '' or s == '?' then
if part == '' then
return ''
return nil, nil
end
local original = part
part = mw.ustring.gsub(part, '%s*%?+%s*$', '')
part = trim(part)
if part == '' then
return nil, original
end
end
local year = mw.ustring.match(s, '(%d%d%d%d)')
local lower = mw.ustring.lower(part)
if year then
if mw.ustring.find(lower, 'armd', 1, true) or mw.ustring.find(lower, 'armored', 1, true) then
return year
return nil, original, nil
end
end
return ''
local miiNum, miiLetter = mw.ustring.match(part, '^(%d+)%s*[%-–—]%s*([A-Za-z])$')
end
if miiNum then
 
miiLetter = mw.ustring.upper(miiLetter)
local RANK_MAP = {
local mii = miiNum .. '-' .. miiLetter
['PVT'] = 'Private',
if miiLetter == 'R' and (miiNum == '540' or miiNum == '545' or miiNum == '546') then
['PVTE'] = 'Private',
mii = miiNum
['PRIVATE'] = 'Private',
end
['PFC'] = 'Private First Class',
return nil, mii, mii
['P F C'] = 'Private First Class',
end
['PRIVATE FIRST CLASS'] = 'Private First Class',
local num = mw.ustring.match(part, '^(%d+)[Tt]$')
['CPL'] = 'Corporal',
if num then
['CORPORAL'] = 'Corporal',
return num, num, nil
['T/5'] = 'Technician Fifth Grade',
end
['TEC5'] = 'Technician Fifth Grade',
if mw.ustring.match(lower, '^%d+(st|nd|rd|th)$') then
['TEC 5'] = 'Technician Fifth Grade',
return nil, original, nil
['T5'] = 'Technician Fifth Grade',
end
['TECH 5'] = 'Technician Fifth Grade',
if isJunkIpwLabel(part) then
['SGT'] = 'Sergeant',
return nil, original, nil
['SERGEANT'] = 'Sergeant',
end
['T/4'] = 'Technician Fourth Grade',
return part, part, nil
['TEC4'] = 'Technician Fourth Grade',
end
['TEC 4'] = 'Technician Fourth Grade',
 
['T4'] = 'Technician Fourth Grade',
local function teamLinkList(raw, pagePrefix, label)
['TECH 4'] = 'Technician Fourth Grade',
local out = {}
['S/SGT'] = 'Staff Sergeant',
local isIpw = mw.ustring.find(pagePrefix, 'IPW', 1, true) == 1
['SSGT'] = 'Staff Sergeant',
for part in mw.text.gsplit(raw, ';', true) do
['S SGT'] = 'Staff Sergeant',
part = trim(part)
['STAFF SERGEANT'] = 'Staff Sergeant',
part = mw.ustring.gsub(part, '[#<>%[%]|{}]', '')
['T/3'] = 'Technician Third Grade',
part = trim(part)
['TEC3'] = 'Technician Third Grade',
if part ~= '' then
['TEC 3'] = 'Technician Third Grade',
if pagePrefix == 'IPW Italian ' then
['T3'] = 'Technician Third Grade',
local code = normalizeIpwItalianCode(part)
['TECH 3'] = 'Technician Third Grade',
if code then
['T/SGT'] = 'Technical Sergeant',
table.insert(out, string.format('[[Team %s%s|%s %s]]', pagePrefix, code, label, code))
['TSGT'] = 'Technical Sergeant',
else
['T SGT'] = 'Technical Sergeant',
table.insert(out, part)
['TECHNICAL SERGEANT'] = 'Technical Sergeant',
end
['1ST SGT'] = 'First Sergeant',
elseif isIpw then
['1SGT'] = 'First Sergeant',
local code, shown, mii = normalizeIpwTeamCode(part)
['FIRST SERGEANT'] = 'First Sergeant',
if mii then
['M/SGT'] = 'Master Sergeant',
table.insert(out, string.format('[[Team MII %s|MII %s]]', mii, mii))
['MSGT'] = 'Master Sergeant',
elseif code then
['MASTER SERGEANT'] = 'Master Sergeant',
table.insert(out, string.format('[[Team %s%s|%s %s]]', pagePrefix, code, label, shown))
['WO'] = 'Warrant Officer',
elseif shown then
['WOJG'] = 'Warrant Officer',
table.insert(out, shown)
['WARRANT OFFICER'] = 'Warrant Officer',
end
['CWO'] = 'Chief Warrant Officer',
else
['2ND LT'] = 'Second Lieutenant',
table.insert(out, string.format('[[Team %s%s|%s %s]]', pagePrefix, part, label, part))
['2D LT'] = 'Second Lieutenant',
end
['2LT'] = 'Second Lieutenant',
end
['SECOND LIEUTENANT'] = 'Second Lieutenant',
end
['1ST LT'] = 'First Lieutenant',
return table.concat(out, ', ')
['1LT'] = 'First Lieutenant',
end
['FIRST LIEUTENANT'] = 'First Lieutenant',
 
['LT'] = 'Lieutenant',
local function addHeader(tbl, text)
['LIEUTENANT'] = 'Lieutenant',
tbl:tag('tr'):tag('th')
['CAPT'] = 'Captain',
:attr('colspan', '2')
['CPT'] = 'Captain',
:addClass('infobox-header')
['CAPTAIN'] = 'Captain',
:wikitext(text)
['MAJ'] = 'Major',
end
['MAJOR'] = 'Major',
 
['LT COL'] = 'Lieutenant Colonel',
local function realCertificate(s)
['LTCOL'] = 'Lieutenant Colonel',
s = trim(s)
['LTC'] = 'Lieutenant Colonel',
if s == '' then
['LIEUTENANT COLONEL'] = 'Lieutenant Colonel',
return ''
['COL'] = 'Colonel',
end
['COLONEL'] = 'Colonel',
-- Placeholders: *, A, 5, #, and any other single character.
['BRIG GEN'] = 'Brigadier General',
if mw.ustring.len(s) == 1 then
['BG'] = 'Brigadier General',
['BRIGADIER GENERAL'] = 'Brigadier General',
['MAJ GEN'] = 'Major General',
['MG'] = 'Major General',
['MAJOR GENERAL'] = 'Major General',
['LT GEN'] = 'Lieutenant General',
['LIEUTENANT GENERAL'] = 'Lieutenant General',
['GEN'] = 'General',
['GENERAL'] = 'General',
['TECH'] = 'Technician',
['TEC'] = 'Technician',
}
 
local function expandRank(raw)
raw = trim(raw)
if raw == '' then
return ''
return ''
end
end
local key = mw.ustring.upper(raw)
-- NG = non-graduate marker on class charts, not a certificate number.
key = mw.ustring.gsub(key, '%.', '')
local upper = mw.ustring.upper(s)
key = mw.ustring.gsub(key, '%s+', ' ')
if upper == 'NG' or upper == 'N/G' or upper == 'N.G.' then
key = trim(key)
return ''
return RANK_MAP[key] or raw
end
return s
end
end


local BRANCH_MAP = {
local function addRow(tbl, label, value, dataClass)
['INF'] = 'Infantry',
if trim(value) == '' then
['INFANTRY'] = 'Infantry',
return
['FA'] = 'Field Artillery',
end
['FIELD ARTILLERY'] = 'Field Artillery',
local tr = tbl:tag('tr')
['CAC'] = 'Coast Artillery Corps',
tr:tag('th')
['CA'] = 'Coast Artillery',
:addClass('infobox-label')
['COAST ARTILLERY'] = 'Coast Artillery',
:css('display', 'table-cell')
['AC'] = 'Air Corps',
:css('width', '38%')
['AAF'] = 'Army Air Forces',
:css('font-weight', 'bold')
['AIR CORPS'] = 'Air Corps',
:css('text-align', 'left')
['QMC'] = 'Quartermaster Corps',
:css('vertical-align', 'top')
['QC'] = 'Quartermaster Corps',
:wikitext(label)
['QUARTERMASTER'] = 'Quartermaster Corps',
local td = tr:tag('td')
['CAV'] = 'Cavalry',
:addClass('infobox-data')
['CAVALRY'] = 'Cavalry',
:css('display', 'table-cell')
['CE'] = 'Corps of Engineers',
:css('vertical-align', 'top')
['ENG'] = 'Corps of Engineers',
if dataClass and dataClass ~= '' then
['ENGINEERS'] = 'Corps of Engineers',
td:addClass(dataClass)
['CMP'] = 'Corps of Military Police',
end
['MP'] = 'Military Police',
td:wikitext(value)
['CWS'] = 'Chemical Warfare Service',
end
['AUS'] = 'Army of the United States',
 
['SC'] = 'Signal Corps',
local function yearOnly(s)
['SIG'] = 'Signal Corps',
s = trim(s)
['SIG C'] = 'Signal Corps',
if s == '' or s == '?' then
['SIGC'] = 'Signal Corps',
return ''
['SIGNAL CORPS'] = 'Signal Corps',
end
['ORD'] = 'Ordnance Department',
local year = mw.ustring.match(s, '(%d%d%d%d)')
['ORDNANCE'] = 'Ordnance Department',
if year then
['MAC'] = 'Medical Administrative Corps',
return year
['MC'] = 'Medical Corps',
end
['MD'] = 'Medical Department',
return ''
['TC'] = 'Transportation Corps',
end
['MI'] = 'Military Intelligence',
 
['MIS'] = 'Military Intelligence Service',
local RANK_MAP = {
['INT'] = 'Intelligence',
['PVT'] = 'Private',
['CIC'] = 'Counter Intelligence Corps',
['PVTE'] = 'Private',
['AGD'] = "Adjutant General's Department",
['PRIVATE'] = 'Private',
['USMC'] = 'United States Marine Corps',
['PFC'] = 'Private First Class',
['USMCR'] = 'United States Marine Corps Reserve',
['P F C'] = 'Private First Class',
['AA'] = 'Antiaircraft',
['PRIVATE FIRST CLASS'] = 'Private First Class',
['AAA'] = 'Antiaircraft Artillery',
['CPL'] = 'Corporal',
['TD'] = 'Tank Destroyer',
['CORPORAL'] = 'Corporal',
['FD'] = 'Finance Department',
['T/5'] = 'Technician Fifth Grade',
['GSC'] = 'General Staff Corps',
['TEC5'] = 'Technician Fifth Grade',
['ARMD F'] = 'Armored Force',
['TEC 5'] = 'Technician Fifth Grade',
['ARMD'] = 'Armored',
['T5'] = 'Technician Fifth Grade',
['ARMOR'] = 'Armor',
['TECH 5'] = 'Technician Fifth Grade',
['SSF'] = 'Special Service Force',
['SGT'] = 'Sergeant',
['PA'] = 'Philippine Army',
['SERGEANT'] = 'Sergeant',
['RCE'] = 'Royal Canadian Engineers',
['T/4'] = 'Technician Fourth Grade',
['RCA'] = 'Royal Canadian Artillery',
['TEC4'] = 'Technician Fourth Grade',
['CHC'] = 'Chaplain Corps',
['TEC 4'] = 'Technician Fourth Grade',
['CHP'] = 'Chaplain Corps',
['T4'] = 'Technician Fourth Grade',
['CAO'] = 'Civil Affairs',
['TECH 4'] = 'Technician Fourth Grade',
['CAU'] = 'Civil Affairs',
['S/SGT'] = 'Staff Sergeant',
}
['SSGT'] = 'Staff Sergeant',
 
['S SGT'] = 'Staff Sergeant',
local function expandBranchToken(raw)
['STAFF SERGEANT'] = 'Staff Sergeant',
raw = trim(raw)
['T/3'] = 'Technician Third Grade',
if raw == '' then
['TEC3'] = 'Technician Third Grade',
return ''
['TEC 3'] = 'Technician Third Grade',
end
['T3'] = 'Technician Third Grade',
local key = mw.ustring.upper(raw)
['TECH 3'] = 'Technician Third Grade',
key = mw.ustring.gsub(key, '%.', '')
['T/SGT'] = 'Technical Sergeant',
key = mw.ustring.gsub(key, '%s+', ' ')
['TSGT'] = 'Technical Sergeant',
key = trim(key)
['T SGT'] = 'Technical Sergeant',
if BRANCH_MAP[key] then
['TECHNICAL SERGEANT'] = 'Technical Sergeant',
return BRANCH_MAP[key]
['1ST SGT'] = 'First Sergeant',
end
['1SGT'] = 'First Sergeant',
local left, right = mw.ustring.match(key, '^(.+) %((.+)%)$')
['FIRST SERGEANT'] = 'First Sergeant',
if left and right then
['M/SGT'] = 'Master Sergeant',
left = trim(left)
['MSGT'] = 'Master Sergeant',
right = trim(right)
['MASTER SERGEANT'] = 'Master Sergeant',
local leftExp = BRANCH_MAP[left] or left
['WO'] = 'Warrant Officer',
local rightExp = BRANCH_MAP[right] or right
['WOJG'] = 'Warrant Officer',
if BRANCH_MAP[left] or BRANCH_MAP[right] then
['WARRANT OFFICER'] = 'Warrant Officer',
return leftExp .. ' (' .. rightExp .. ')'
['CWO'] = 'Chief Warrant Officer',
end
['2ND LT'] = 'Second Lieutenant',
end
['2D LT'] = 'Second Lieutenant',
return raw
['2LT'] = 'Second Lieutenant',
end
['SECOND LIEUTENANT'] = 'Second Lieutenant',
['1ST LT'] = 'First Lieutenant',
['1LT'] = 'First Lieutenant',
['FIRST LIEUTENANT'] = 'First Lieutenant',
['LT'] = 'Lieutenant',
['LIEUTENANT'] = 'Lieutenant',
['CAPT'] = 'Captain',
['CPT'] = 'Captain',
['CAPTAIN'] = 'Captain',
['MAJ'] = 'Major',
['MAJOR'] = 'Major',
['LT COL'] = 'Lieutenant Colonel',
['LTCOL'] = 'Lieutenant Colonel',
['LTC'] = 'Lieutenant Colonel',
['LIEUTENANT COLONEL'] = 'Lieutenant Colonel',
['COL'] = 'Colonel',
['COLONEL'] = 'Colonel',
['BRIG GEN'] = 'Brigadier General',
['BG'] = 'Brigadier General',
['BRIGADIER GENERAL'] = 'Brigadier General',
['MAJ GEN'] = 'Major General',
['MG'] = 'Major General',
['MAJOR GENERAL'] = 'Major General',
['LT GEN'] = 'Lieutenant General',
['LIEUTENANT GENERAL'] = 'Lieutenant General',
['GEN'] = 'General',
['GENERAL'] = 'General',
['TECH'] = 'Technician',
['TEC'] = 'Technician',
}


-- Small public-domain / Commons emblems uploaded as File:Branch emblem *.png
local function expandRank(raw)
local BRANCH_EMBLEM = {
raw = trim(raw)
['United States Army'] = 'Branch emblem US Army.png',
if raw == '' then
['United States Marine Corps'] = 'Branch emblem US Marine Corps.png',
['United States Navy'] = 'Branch emblem US Navy.png',
['United States Army Air Forces'] = 'Branch emblem US Army Air Forces.png',
['United States Air Force'] = 'Branch emblem US Air Force.png',
['United States Coast Guard'] = 'Branch emblem US Coast Guard.png',
}
 
local function branchWithEmblem(name)
name = trim(name)
if name == '' then
return ''
return ''
end
end
local file = BRANCH_EMBLEM[name]
local key = mw.ustring.upper(raw)
if file then
key = mw.ustring.gsub(key, '%.', '')
return '[[File:' .. file .. '|18px|link=|alt=]] ' .. name
key = mw.ustring.gsub(key, '%s+', ' ')
end
key = trim(key)
-- Fuzzy contains
return RANK_MAP[key] or raw
local low = mw.ustring.lower(name)
end
if mw.ustring.find(low, 'marine', 1, true) then
 
return '[[File:Branch emblem US Marine Corps.png|18px|link=|alt=]] ' .. name
local BRANCH_MAP = {
end
['INF'] = 'Infantry',
if mw.ustring.find(low, 'navy', 1, true) then
['INFANTRY'] = 'Infantry',
return '[[File:Branch emblem US Navy.png|18px|link=|alt=]] ' .. name
['FA'] = 'Field Artillery',
end
['FIELD ARTILLERY'] = 'Field Artillery',
if mw.ustring.find(low, 'air force', 1, true) or mw.ustring.find(low, 'air forces', 1, true) then
['CAC'] = 'Coast Artillery Corps',
return '[[File:Branch emblem US Army Air Forces.png|18px|link=|alt=]] ' .. name
['CA'] = 'Coast Artillery',
end
['COAST ARTILLERY'] = 'Coast Artillery',
if mw.ustring.find(low, 'coast guard', 1, true) then
['AC'] = 'Air Corps',
return '[[File:Branch emblem US Coast Guard.png|18px|link=|alt=]] ' .. name
['AAF'] = 'Army Air Forces',
end
['AIR CORPS'] = 'Air Corps',
if mw.ustring.find(low, 'army', 1, true) then
['QMC'] = 'Quartermaster Corps',
return '[[File:Branch emblem US Army.png|18px|link=|alt=]] ' .. name
['QC'] = 'Quartermaster Corps',
end
['QUARTERMASTER'] = 'Quartermaster Corps',
return name
['CAV'] = 'Cavalry',
end
['CAVALRY'] = 'Cavalry',
 
['CALVALRY'] = 'Cavalry',
local function expandBranch(raw)
['CE'] = 'Corps of Engineers',
raw = trim(raw)
['ENG'] = 'Corps of Engineers',
if raw == '' then
['ENGINEERS'] = 'Corps of Engineers',
return ''
['CMP'] = 'Corps of Military Police',
end
['MP'] = 'Military Police',
local parts = {}
['CWS'] = 'Chemical Warfare Service',
for part in mw.text.gsplit(raw, ';', true) do
['AUS'] = 'Army of the United States',
part = expandBranchToken(part)
['SC'] = 'Signal Corps',
if part ~= '' then
['SIG'] = 'Signal Corps',
table.insert(parts, branchWithEmblem(part))
['SIG C'] = 'Signal Corps',
end
['SIGC'] = 'Signal Corps',
end
['SIGNAL CORPS'] = 'Signal Corps',
return table.concat(parts, '; ')
['ORD'] = 'Ordnance Department',
end
['ORDNANCE'] = 'Ordnance Department',
['MAC'] = 'Medical Administrative Corps',
['MC'] = 'Medical Corps',
['MD'] = 'Medical Department',
['TC'] = 'Transportation Corps',
['MI'] = 'Military Intelligence',
['MIS'] = 'Military Intelligence Service',
['INT'] = 'Intelligence',
['CIC'] = 'Counter Intelligence Corps',
['AGD'] = "Adjutant General's Department",
['USMC'] = 'United States Marine Corps',
['USMCR'] = 'United States Marine Corps Reserve',
['AA'] = 'Antiaircraft',
['AAA'] = 'Antiaircraft Artillery',
['TD'] = 'Tank Destroyer',
['FD'] = 'Finance Department',
['GSC'] = 'General Staff Corps',
['ARMD F'] = 'Armored Force',
['ARMD'] = 'Armored',
['ARMOR'] = 'Armor',
['SSF'] = 'Special Service Force',
['PA'] = 'Philippine Army',
['RCE'] = 'Royal Canadian Engineers',
['RCA'] = 'Royal Canadian Artillery',
['CHC'] = 'Chaplain Corps',
['CHP'] = 'Chaplain Corps',
['CAO'] = 'Civil Affairs',
['CAU'] = 'Civil Affairs',
}


local function formatBattles(raw)
local function expandBranchToken(raw)
raw = trim(raw)
raw = trim(raw)
if raw == '' then
if raw == '' then
return ''
return ''
end
end
-- Allow HTML <br /> or semicolon / newline separated campaigns
local key = mw.ustring.upper(raw)
raw = mw.ustring.gsub(raw, '\r', '')
key = mw.ustring.gsub(key, '%.', '')
if mw.ustring.find(raw, '<br', 1, true) or mw.ustring.find(raw, '\n', 1, true) then
key = mw.ustring.gsub(key, '%s+', ' ')
return raw
key = trim(key)
if BRANCH_MAP[key] then
return BRANCH_MAP[key]
end
end
local parts = {}
local left, right = mw.ustring.match(key, '^(.+) %((.+)%)$')
for part in mw.text.gsplit(raw, ';', true) do
if left and right then
part = trim(part)
left = trim(left)
if part ~= '' then
right = trim(right)
table.insert(parts, part)
local leftExp = BRANCH_MAP[left] or left
local rightExp = BRANCH_MAP[right] or right
if BRANCH_MAP[left] or BRANCH_MAP[right] then
return leftExp .. ' (' .. rightExp .. ')'
end
end
end
end
if #parts <= 1 then
return raw
return raw
end
return table.concat(parts, '<br />')
end
end


local function splitAwardRows(raw)
local function keyEqualsAAF(part)
local key = mw.ustring.upper(trim(part))
key = mw.ustring.gsub(key, '%.', '')
key = mw.ustring.gsub(key, '%s+', ' ')
return key == 'AAF' or key == 'ARMY AIR FORCES'
end
 
-- True when a BRANCH_MAP / class_branch value is an Army arm/service, not Army/Marines/Navy.
local SERVICE_BRANCH_KEY = {
['AUS'] = true,
['USA'] = true,
['ARMY'] = true,
['UNITED STATES ARMY'] = true,
['US ARMY'] = true,
['USMC'] = true,
['USMCR'] = true,
['MARINES'] = true,
['MARINE CORPS'] = true,
['UNITED STATES MARINE CORPS'] = true,
['USN'] = true,
['NAVY'] = true,
['UNITED STATES NAVY'] = true,
['USCG'] = true,
['COAST GUARD'] = true,
['UNITED STATES COAST GUARD'] = true,
['AAF'] = true,
['ARMY AIR FORCES'] = true,
['UNITED STATES ARMY AIR FORCES'] = true,
['PA'] = true,
['PHILIPPINE ARMY'] = true,
['RCE'] = true,
['RCA'] = true,
}
 
local function isServiceBranchName(name)
name = trim(name)
if name == '' then
return false
end
local key = mw.ustring.upper(name)
key = mw.ustring.gsub(key, '%.', '')
key = mw.ustring.gsub(key, '%s+', ' ')
key = trim(key)
if SERVICE_BRANCH_KEY[key] then
return true
end
local low = mw.ustring.lower(name)
if mw.ustring.find(low, 'marine', 1, true)
or mw.ustring.find(low, 'navy', 1, true)
or mw.ustring.find(low, 'coast guard', 1, true) then
return true
end
if mw.ustring.find(low, 'air force', 1, true)
or mw.ustring.find(low, 'air forces', 1, true) then
return true
end
if mw.ustring.find(low, 'united states army', 1, true)
or low == 'army'
or low == 'u.s. army'
or low == 'us army' then
return true
end
return false
end
 
local function isArmOfServiceToken(raw)
raw = trim(raw)
raw = trim(raw)
if raw == '' then
if raw == '' then
return {}
return false
end
end
-- Prefer @@ row separator (safe inside {{Soldier}}); also accept legacy |||
local key = mw.ustring.upper(raw)
local sep = '@@'
key = mw.ustring.gsub(key, '%.', '')
if not mw.ustring.find(raw, '@@', 1, true) and mw.ustring.find(raw, '|||', 1, true) then
key = mw.ustring.gsub(key, '%s+', ' ')
sep = '|||'
key = trim(key)
if SERVICE_BRANCH_KEY[key] then
return false
end
if BRANCH_MAP[key] then
return true
end
local low = mw.ustring.lower(raw)
if mw.ustring.find(low, 'calvalry', 1, true) then
return true
end
end
local rows = {}
for _, needle in ipairs({
for row in mw.text.gsplit(raw, sep, true) do
'artillery', 'signal', 'cavalry', 'infantry', 'engineer',
row = trim(row)
'ordnance', 'quartermaster', 'medical', 'police', 'intelligence',
if row ~= '' then
'armor', 'tank destroyer', 'chemical', 'chaplain', 'transportation',
local cells = {}
'adjutant',
for cell in mw.text.gsplit(row, ';;', true) do
}) do
cell = trim(cell)
if mw.ustring.find(low, needle, 1, true) then
-- Unescape {{!}} used if a label ever needed a pipe
return true
cell = mw.ustring.gsub(cell, '{{!}}', '|')
if cell ~= '' then
table.insert(cells, cell)
end
end
if #cells > 0 then
table.insert(rows, cells)
end
end
end
end
end
return rows
return false
end
end


local function formatAwardsRibbons(raw, rowRaw)
local function splitBranchAndArm(branchRaw, classBranchRaw, armRaw)
-- Prefer explicit Wikipedia row layout when present
branchRaw = trim(branchRaw)
local rows = splitAwardRows(rowRaw or '')
classBranchRaw = trim(classBranchRaw)
if #rows == 0 then
armRaw = trim(armRaw)
 
local service = ''
local arms = {}
 
local function consider(raw, preferArm)
raw = trim(raw)
raw = trim(raw)
if raw == '' then
if raw == '' then
return ''
return
end
end
local files = {}
for part in mw.text.gsplit(raw, ';', true) do
for part in mw.text.gsplit(raw, ';', true) do
part = trim(part)
part = trim(part)
part = mw.ustring.gsub(part, '^[Ff]ile:', '')
if part ~= '' then
if part ~= '' then
table.insert(files, part)
local expanded = expandBranchToken(part)
if isServiceBranchName(expanded) or isServiceBranchName(part) then
if service == '' then
service = expandBranchToken(part)
if not isServiceBranchName(service) then
-- expandBranchToken may not rewrite "Army"
local low = mw.ustring.lower(part)
if mw.ustring.find(low, 'marine', 1, true) then
service = 'United States Marine Corps'
elseif mw.ustring.find(low, 'navy', 1, true) then
service = 'United States Navy'
elseif mw.ustring.find(low, 'air force', 1, true)
or mw.ustring.find(low, 'air forces', 1, true)
or keyEqualsAAF(part) then
service = 'United States Army Air Forces'
else
service = 'United States Army'
end
end
end
elseif preferArm or isArmOfServiceToken(part) or isArmOfServiceToken(expanded) then
local armName = expanded
if mw.ustring.find(mw.ustring.lower(part), 'calvalry', 1, true) then
armName = 'Cavalry'
end
local dup = false
for _, existing in ipairs(arms) do
if existing == armName then
dup = true
break
end
end
if not dup then
table.insert(arms, armName)
end
elseif preferArm then
table.insert(arms, expanded)
elseif service == '' and not preferArm then
service = expanded
end
end
end
end
if #files == 0 then
return ''
end
-- Fallback: pack ~4 across
local perRow = 4
rows = {}
local cur = {}
for _, file in ipairs(files) do
table.insert(cur, file)
if #cur == perRow then
table.insert(rows, cur)
cur = {}
end
end
if #cur > 0 then
table.insert(rows, cur)
end
end
end
end
-- One table per row so short rows (e.g. 2 ribbons) center like full rows
local out = {}
for _, cells in ipairs(rows) do
table.insert(out, '{| class="soldier-ribbon-rack"')
table.insert(out, '|-')
for _, file in ipairs(cells) do
file = mw.ustring.gsub(file, '^[Ff]ile:', '')
table.insert(out, '| [[File:' .. file .. '|106px|link=]]')
end
table.insert(out, '|}')
end
return table.concat(out, '\n')
end


local function awardGridColspanUnits(rows)
-- Explicit arm_or_service first
-- LCM of row lengths so 2-cell and 3-cell rows share one table width
consider(armRaw, true)
local function gcd(a, b)
-- Roster class_branch is almost always arm/service within the Army
while b ~= 0 do
consider(classBranchRaw, true)
a, b = b, a % b
-- |branch= may be either
end
consider(branchRaw, false)
return a
 
local armJoined = table.concat(arms, '; ')
return service, armJoined
end
 
-- Small public-domain / Commons emblems uploaded as File:Branch emblem *.png
local BRANCH_EMBLEM = {
['United States Army'] = 'Branch emblem US Army.png',
['United States Marine Corps'] = 'Branch emblem US Marine Corps.png',
['United States Navy'] = 'Branch emblem US Navy.png',
['United States Army Air Forces'] = 'Branch emblem US Army Air Forces.png',
['United States Air Force'] = 'Branch emblem US Air Force.png',
['United States Coast Guard'] = 'Branch emblem US Coast Guard.png',
}
 
local function branchWithEmblem(name)
name = trim(name)
if name == '' then
return ''
end
end
local function lcm(a, b)
local file = BRANCH_EMBLEM[name]
if a == 0 or b == 0 then
if file then
return a + b
return '[[File:' .. file .. '|18px|link=|alt=]] ' .. name
end
end
return (a / gcd(a, b)) * b
-- Fuzzy contains
local low = mw.ustring.lower(name)
if mw.ustring.find(low, 'marine', 1, true) then
return '[[File:Branch emblem US Marine Corps.png|18px|link=|alt=]] ' .. name
end
if mw.ustring.find(low, 'navy', 1, true) then
return '[[File:Branch emblem US Navy.png|18px|link=|alt=]] ' .. name
end
if mw.ustring.find(low, 'air force', 1, true) or mw.ustring.find(low, 'air forces', 1, true) then
return '[[File:Branch emblem US Army Air Forces.png|18px|link=|alt=]] ' .. name
end
if mw.ustring.find(low, 'coast guard', 1, true) then
return '[[File:Branch emblem US Coast Guard.png|18px|link=|alt=]] ' .. name
end
end
local units = 0
if mw.ustring.find(low, 'army', 1, true) then
for _, cells in ipairs(rows) do
return '[[File:Branch emblem US Army.png|18px|link=|alt=]] ' .. name
local n = #cells
if n > 0 then
units = lcm(units, n)
end
end
end
return units > 0 and units or 1
return name
end
end


local function formatAwardsGrid(raw)
local function expandBranch(raw)
local rows = splitAwardRows(raw)
raw = trim(raw)
if #rows == 0 then
if raw == '' then
return ''
return ''
end
end
local units = awardGridColspanUnits(rows)
local parts = {}
local out = { '{| class="wikitable soldier-awards-grid"' }
for part in mw.text.gsplit(raw, ';', true) do
for _, cells in ipairs(rows) do
part = expandBranchToken(part)
local n = #cells
if part ~= '' then
if n == 0 then
table.insert(parts, branchWithEmblem(part))
-- skip
else
local span = units / n
table.insert(out, '|-')
for _, cell in ipairs(cells) do
-- Allow <br /> from Wikipedia-style multi-line labels
table.insert(out, '| colspan="' .. tostring(span) .. '" | ' .. cell)
end
end
end
end
end
table.insert(out, '|}')
return table.concat(parts, '; ')
return table.concat(out, '\n')
end
end


local function formatAwardsLegend(raw)
local function formatBattles(raw)
-- Do not run prettyProse/prettyPlace — commas in prose (e.g. statue note)
-- get misread as place names and Title-Cased / rewrapped.
raw = trim(raw)
raw = trim(raw)
if raw == '' then
if raw == '' then
return ''
return ''
end
-- Allow HTML <br /> or semicolon / newline separated campaigns
raw = mw.ustring.gsub(raw, '\r', '')
if mw.ustring.find(raw, '<br', 1, true) or mw.ustring.find(raw, '\n', 1, true) then
return raw
end
end
local parts = {}
local parts = {}
raw = mw.ustring.gsub(raw, '<br%s*/?>', ';')
for part in mw.text.gsplit(raw, ';', true) do
for part in mw.text.gsplit(raw, ';', true) do
part = trim(part)
part = trim(part)
part = mw.ustring.gsub(part, '^%*%s*', '')
if part ~= '' then
if part ~= '' then
if isAllCapsPhrase(part) then
table.insert(parts, part)
part = prettyTitle(part, true)
end
table.insert(parts, '* ' .. part)
end
end
end
end
if #parts == 0 then
if #parts <= 1 then
return ''
return raw
end
end
return table.concat(parts, '\n')
return table.concat(parts, '<br />')
end
end


local function lifespan(birth, death)
local function splitAwardRows(raw)
birth = yearOnly(birth)
raw = trim(raw)
death = yearOnly(death)
if raw == '' then
if birth ~= '' and death ~= '' then
return {}
return ' (' .. birth .. '&ndash;' .. death .. ')'
end
end
if birth ~= '' then
-- Prefer @@ row separator (safe inside {{Soldier}}); also accept legacy |||
return ' (born ' .. birth .. ')'
local sep = '@@'
if not mw.ustring.find(raw, '@@', 1, true) and mw.ustring.find(raw, '|||', 1, true) then
sep = '|||'
end
end
if death ~= '' then
local rows = {}
return ' (died ' .. death .. ')'
for row in mw.text.gsplit(raw, sep, true) do
row = trim(row)
if row ~= '' then
local cells = {}
for cell in mw.text.gsplit(row, ';;', true) do
cell = trim(cell)
-- Unescape {{!}} used if a label ever needed a pipe
cell = mw.ustring.gsub(cell, '{{!}}', '|')
if cell ~= '' then
table.insert(cells, cell)
end
end
if #cells > 0 then
table.insert(rows, cells)
end
end
end
end
return ''
return rows
end
end


local function preferredRank(frame)
local function awardRibbonRows(raw, rowRaw)
local rank = expandRank(parentArg(frame, 'rank_final'))
-- Prefer explicit Wikipedia row layout when present
if rank == '' then
local rows = splitAwardRows(rowRaw or '')
rank = expandRank(parentArg(frame, 'class_rank'))
if #rows > 0 then
return rows
end
end
return rank
raw = trim(raw)
if raw == '' then
return {}
end
local files = {}
for part in mw.text.gsplit(raw, ';', true) do
part = trim(part)
part = mw.ustring.gsub(part, '^[Ff]ile:', '')
if part ~= '' then
table.insert(files, part)
end
end
if #files == 0 then
return {}
end
-- Fallback: pack ~4 across
local perRow = 4
rows = {}
local cur = {}
for _, file in ipairs(files) do
table.insert(cur, file)
if #cur == perRow then
table.insert(rows, cur)
cur = {}
end
end
if #cur > 0 then
table.insert(rows, cur)
end
return rows
end
end


function p.displayName(frame)
local function awardRowsMatch(ribbonRows, labelRows)
return displayName(frame)
if #ribbonRows == 0 or #ribbonRows ~= #labelRows then
return false
end
for i, cells in ipairs(ribbonRows) do
if #cells ~= #(labelRows[i] or {}) then
return false
end
end
return true
end
end


local function displayNameFrom(getArg)
local function formatAwardsRibbons(raw, rowRaw, labelRaw)
local first = prettyNamePart(getArg('first'))
local rows = awardRibbonRows(raw, rowRaw)
local middle = prettyNamePart(getArg('middle'))
if #rows == 0 then
local surname = prettyNamePart(getArg('surname'))
return '', false
local suffix = prettyNamePart(getArg('suffix'))
end
local parts = {}
local labelRows = splitAwardRows(labelRaw or '')
if first ~= '' then
local labeled = awardRowsMatch(rows, labelRows)
table.insert(parts, first)
-- One table per row so short rows (e.g. 2 ribbons) center like full rows.
end
-- When labels match ribbon cells, put captions in the same table so each
if middle ~= '' then
-- name sits centered under its ribbon (equal column widths).
table.insert(parts, middle)
local out = {}
end
for i, cells in ipairs(rows) do
if surname ~= '' then
if labeled then
table.insert(parts, surname)
table.insert(out, '{| class="soldier-ribbon-rack soldier-awards-labeled"')
end
local name = table.concat(parts, ' ')
if suffix ~= '' then
if name ~= '' then
name = name .. ', ' .. suffix
else
else
name = suffix
table.insert(out, '{| class="soldier-ribbon-rack"')
end
table.insert(out, '|-')
for _, file in ipairs(cells) do
file = mw.ustring.gsub(file, '^[Ff]ile:', '')
table.insert(out, '| [[File:' .. file .. '|106px|link=]]')
end
if labeled then
table.insert(out, '|-')
for _, label in ipairs(labelRows[i]) do
table.insert(out, '| class="soldier-award-caption" | ' .. label)
end
end
end
table.insert(out, '|}')
end
end
if name == '' then
return table.concat(out, '\n'), labeled
name = 'This soldier'
end
 
local function awardGridColspanUnits(rows)
-- LCM of row lengths so 2-cell and 3-cell rows share one table width
local function gcd(a, b)
while b ~= 0 do
a, b = b, a % b
end
return a
end
local function lcm(a, b)
if a == 0 or b == 0 then
return a + b
end
return (a / gcd(a, b)) * b
end
end
return name
local units = 0
end
for _, cells in ipairs(rows) do
 
local n = #cells
local function preferredRankFrom(getArg)
if n > 0 then
local rank = expandRank(getArg('rank_final'))
units = lcm(units, n)
if rank == '' then
end
rank = expandRank(getArg('class_rank'))
end
end
return rank
return units > 0 and units or 1
end
end


local function buildLead(getArg)
local function formatAwardsGrid(raw)
local name = displayNameFrom(getArg)
local rows = splitAwardRows(raw)
local rank = preferredRankFrom(getArg)
if #rows == 0 then
local role = 'United States Army soldier'
return ''
if rank ~= '' then
end
role = 'United States Army ' .. rank
local units = awardGridColspanUnits(rows)
local out = { '{| class="wikitable soldier-awards-grid"' }
for _, cells in ipairs(rows) do
local n = #cells
if n == 0 then
-- skip
else
local span = units / n
table.insert(out, '|-')
for _, cell in ipairs(cells) do
-- Allow <br /> from Wikipedia-style multi-line labels
table.insert(out, '| colspan="' .. tostring(span) .. '" | ' .. cell)
end
end
end
end
table.insert(out, '|}')
return table.concat(out, '\n')
end


local classLinks = classLinkList(getArg('class_number'), true)
local function formatAwardsLegend(raw)
local trained
-- Do not run prettyProse/prettyPlace — commas in prose (e.g. statue note)
if #classLinks == 1 then
-- get misread as place names and Title-Cased / rewrapped.
trained = ' who trained at [[Camp Ritchie]], Maryland, in ' .. classLinks[1]
raw = trim(raw)
elseif #classLinks == 2 then
if raw == '' then
trained = ' who trained at [[Camp Ritchie]], Maryland, in ' .. classLinks[1] .. ' and ' .. classLinks[2]
return ''
elseif #classLinks > 2 then
trained = ' who trained at [[Camp Ritchie]], Maryland, in '
.. table.concat(classLinks, ', ', 1, #classLinks - 1)
.. ', and ' .. classLinks[#classLinks]
else
trained = ' associated with Camp Ritchie, Maryland'
end
end
 
local parts = {}
local lead = string.format(
raw = mw.ustring.gsub(raw, '<br%s*/?>', ';')
"'''%s'''%s was a %s%s.",
for part in mw.text.gsplit(raw, ';', true) do
name,
part = trim(part)
lifespan(getArg('birth_year'), getArg('death_year')),
part = mw.ustring.gsub(part, '^%*%s*', '')
role,
if part ~= '' then
trained
if isAllCapsPhrase(part) then
)
part = prettyTitle(part, true)
local who = prettyNamePart(getArg('first'))
end
if who == '' then
table.insert(parts, '* ' .. part)
who = prettyNamePart(getArg('surname'))
end
end
if #parts == 0 then
return ''
end
return table.concat(parts, '\n')
end
 
local function lifespan(birth, death)
birth = trim(birth or '')
death = trim(death or '')
if birth ~= '' and death ~= '' then
return ' (' .. birth .. ' &ndash; ' .. death .. ')'
end
end
if who == '' then
if birth ~= '' then
who = 'He'
return ' (born ' .. birth .. ')'
end
end
local enlist = prettyPlace(getArg('enlistment_place'))
if death ~= '' then
if enlist ~= '' then
return ' (died ' .. death .. ')'
lead = lead .. ' ' .. who .. ' enlisted at ' .. enlist .. '.'
end
end
return lead
return ''
end
end


function p.classLinks(frame)
--- Prefer full birth/death dates (Wikipedia style); fall back to years.
return table.concat(classLinkList(parentArg(frame, 'class_number'), false), ', ')
local function lifespanFromArgs(getArg)
local birth = prettyProse(getArg('birth_date'))
local death = prettyProse(getArg('death_date'))
if birth == '' then
birth = yearOnly(getArg('birth_year'))
end
if death == '' then
death = yearOnly(getArg('death_year'))
end
return lifespan(birth, death)
end
end


local PHOTO_EXTENSIONS = { 'jpg', 'jpeg', 'png', 'webp', 'gif' }
local function preferredRank(frame)
 
local rank = expandRank(parentArg(frame, 'rank_final'))
local function photoFileExists(filename)
if rank == '' then
filename = trim(filename)
rank = expandRank(parentArg(frame, 'class_rank'))
if filename == '' then
return false
end
end
local title = mw.title.new('File:' .. filename)
return rank
return title ~= nil and title.exists
end
end


local function pushPhotoCandidate(candidates, seen, value)
function p.displayName(frame)
value = trim(value)
return displayName(frame)
if value == '' or seen[value] then
return
end
seen[value] = true
table.insert(candidates, value)
end
end


local function resolvePhoto(frame)
local function displayNameFrom(getArg)
local explicit = trim(parentArg(frame, 'photo'))
local first = prettyNamePart(getArg('first'))
if explicit ~= '' then
local middle = prettyNamePart(getArg('middle'))
return explicit
local surname = prettyNamePart(getArg('surname'))
local suffix = prettyNamePart(getArg('suffix'))
local parts = {}
if first ~= '' then
table.insert(parts, first)
end
if middle ~= '' then
table.insert(parts, middle)
end
end
 
if surname ~= '' then
local first = trim(parentArg(frame, 'first'))
table.insert(parts, surname)
local surname = trim(parentArg(frame, 'surname'))
local asn = trim(parentArg(frame, 'asn'))
if first == '' or surname == '' then
return ''
end
end
 
local name = table.concat(parts, ' ')
local candidates = {}
if suffix ~= '' then
local seen = {}
if name ~= '' then
local lowerFirst = mw.ustring.lower(first)
name = name .. ', ' .. suffix
local lowerSurname = mw.ustring.lower(surname)
else
local bases = {
name = suffix
first .. ' ' .. surname,
end
first .. ' ' .. lowerSurname,
lowerFirst .. ' ' .. lowerSurname,
first .. '_' .. surname,
first .. '_' .. lowerSurname,
lowerFirst .. '_' .. lowerSurname,
surname .. ', ' .. first,
surname .. '_' .. first,
}
if asn ~= '' then
table.insert(bases, surname .. ', ' .. first .. ' (' .. asn .. ')')
end
end
for _, base in ipairs(bases) do
if name == '' then
pushPhotoCandidate(candidates, seen, base)
name = 'This soldier'
end
end
return name
end


for _, base in ipairs(candidates) do
local function preferredRankFrom(getArg)
for _, ext in ipairs(PHOTO_EXTENSIONS) do
local rank = expandRank(getArg('rank_final'))
local filename = base .. '.' .. ext
if rank == '' then
if photoFileExists(filename) then
rank = expandRank(getArg('class_rank'))
return filename
end
local upperExt = mw.ustring.upper(ext)
if upperExt ~= ext then
filename = base .. '.' .. upperExt
if photoFileExists(filename) then
return filename
end
end
end
end
end
return ''
return rank
end
end


function p.infobox(frame)
local function buildLead(getArg)
local name = displayName(frame)
local name = displayNameFrom(getArg)
local tbl = mw.html.create('table')
local rank = preferredRankFrom(getArg)
tbl:addClass('infobox'):addClass('vcard'):addClass('soldier-infobox')
local role = 'United States Army soldier'
if rank ~= '' then
role = 'United States Army ' .. rank
end


tbl:tag('tr'):tag('th')
local classLinks = classLinkList(getArg('class_number'), true)
:attr('colspan', '2')
local trained
:addClass('infobox-above fn')
if #classLinks == 1 then
:wikitext(name)
trained = ' who trained at [[Camp Ritchie]], Maryland, in ' .. classLinks[1]
 
elseif #classLinks == 2 then
local photo = resolvePhoto(frame)
trained = ' who trained at [[Camp Ritchie]], Maryland, in ' .. classLinks[1] .. ' and ' .. classLinks[2]
if photo ~= '' then
elseif #classLinks > 2 then
local size = parentArg(frame, 'image_size')
trained = ' who trained at [[Camp Ritchie]], Maryland, in '
if size == '' then
.. table.concat(classLinks, ', ', 1, #classLinks - 1)
size = '220px'
.. ', and ' .. classLinks[#classLinks]
end
else
local alt = parentArg(frame, 'alt')
trained = ' associated with Camp Ritchie, Maryland'
if alt == '' then
alt = name
end
local td = tbl:tag('tr'):tag('td')
:attr('colspan', '2')
:addClass('infobox-image')
td:wikitext(string.format('[[File:%s|%s|alt=%s]]', photo, size, alt))
local caption = parentArg(frame, 'caption')
if caption ~= '' then
td:tag('div'):addClass('infobox-caption'):wikitext(caption)
end
end
end


local alias = prettyNamePart(parentArg(frame, 'alias'))
local lead = string.format(
local birthYear = yearOnly(parentArg(frame, 'birth_year'))
"'''%s'''%s was a %s%s.",
local deathYear = yearOnly(parentArg(frame, 'death_year'))
name,
local birthDate = prettyProse(parentArg(frame, 'birth_date'))
lifespanFromArgs(getArg),
local deathDate = prettyProse(parentArg(frame, 'death_date'))
role,
local birthPlace = prettyProse(parentArg(frame, 'birth_place'))
trained
local deathPlace = prettyProse(parentArg(frame, 'death_place'))
)
local nativity = expandNativity(parentArg(frame, 'nativity'))
local who = prettyNamePart(getArg('first'))
local religion = expandReligion(parentArg(frame, 'religion'))
if who == '' then
local marital = prettyProse(parentArg(frame, 'marital'))
who = prettyNamePart(getArg('surname'))
local education = prettyProse(parentArg(frame, 'education'))
local occupation = prettyProse(parentArg(frame, 'occupation'))
local knownFor = prettyProse(parentArg(frame, 'known_for'))
local awards = prettyProse(parentArg(frame, 'awards'))
local ribbonsRaw = parentArg(frame, 'awards_ribbons')
-- Full medal list belongs under the body ribbon rack; keep infobox short
if ribbonsRaw ~= '' and mw.ustring.len(awards) > 90 then
local first = mw.ustring.match(awards, '^([^;]+)')
awards = trim(first or awards)
end
end
local state = prettyPlace(parentArg(frame, 'state'))
if who == '' then
 
who = 'He'
local function datePlaceCell(date, place, year)
end
local bits = {}
local enlist = prettyPlace(getArg('enlistment_place'))
if date ~= '' then
if enlist ~= '' then
table.insert(bits, date)
lead = lead .. ' ' .. who .. ' enlisted at ' .. enlist .. '.'
elseif year ~= '' then
table.insert(bits, year)
end
if place ~= '' then
table.insert(bits, place)
end
return table.concat(bits, '<br />')
end
end
return lead
end


local birth = datePlaceCell(birthDate, birthPlace, birthYear)
function p.classLinks(frame)
local death = datePlaceCell(deathDate, deathPlace, deathYear)
return table.concat(classLinkList(parentArg(frame, 'class_number'), false), ', ')
end


if alias ~= '' or birth ~= '' or death ~= '' or nativity ~= ''
local PHOTO_EXTENSIONS = { 'jpg', 'jpeg', 'png', 'webp', 'gif' }
or religion ~= '' or marital ~= '' or education ~= ''
or occupation ~= '' or knownFor ~= '' or awards ~= '' or state ~= '' then
addHeader(tbl, 'Personal details')
end


addRow(tbl, 'Birth name', alias, 'nickname')
local function photoFileExists(filename)
addRow(tbl, 'Born', birth)
filename = trim(filename)
addRow(tbl, 'Died', death)
if filename == '' then
addRow(tbl, 'Nativity', nativity)
return false
addRow(tbl, 'Religion', religion)
addRow(tbl, 'Spouse / marital', marital)
addRow(tbl, 'Education', education)
addRow(tbl, 'Occupation', occupation)
addRow(tbl, 'Known for', knownFor)
addRow(tbl, 'Awards', awards)
if state ~= '' then
addRow(tbl, 'State', state)
end
end
local title = mw.title.new('File:' .. filename)
return title ~= nil and title.exists
end


addHeader(tbl, 'Military service')
local function pushPhotoCandidate(candidates, seen, value)
addRow(tbl, 'Allegiance', '[[File:Flag of the United States.png|20px|link=|alt=]] United States')
value = trim(value)
local branchRaw = parentArg(frame, 'class_branch')
if value == '' or seen[value] then
if branchRaw == '' then
return
branchRaw = parentArg(frame, 'branch')
end
end
local branch = expandBranch(branchRaw)
seen[value] = true
if branch == '' then
table.insert(candidates, value)
branch = branchWithEmblem('United States Army')
end
 
local function resolvePhoto(frame)
local explicit = trim(parentArg(frame, 'photo'))
if explicit ~= '' then
return explicit
end
end
addRow(tbl, 'Branch', branch)
addRow(tbl, 'Years of service', prettyProse(parentArg(frame, 'years_of_service')))
addRow(tbl, 'ASN', parentArg(frame, 'asn'), 'serial')


local rankFinal = expandRank(parentArg(frame, 'rank_final'))
local first = trim(parentArg(frame, 'first'))
local classRank = expandRank(parentArg(frame, 'class_rank'))
local surname = trim(parentArg(frame, 'surname'))
if rankFinal ~= '' and classRank ~= '' and classRank ~= rankFinal then
local asn = trim(parentArg(frame, 'asn'))
addRow(tbl, 'Rank', rankFinal)
if first == '' or surname == '' then
addRow(tbl, 'Rank at Ritchie', classRank)
return ''
else
local rank = rankFinal
if rank == '' then
rank = classRank
end
addRow(tbl, 'Rank', rank)
end
end


local classRaw = parentArg(frame, 'class_number')
local candidates = {}
local classBits = classLinkList(classRaw, false)
local seen = {}
if #classBits > 0 then
local lowerFirst = mw.ustring.lower(first)
addRow(tbl, 'Camp Ritchie', 'Class ' .. table.concat(classBits, ', '))
local lowerSurname = mw.ustring.lower(surname)
end
local bases = {
addRow(tbl, 'Section', parentArg(frame, 'class_section'))
first .. ' ' .. surname,
addRow(tbl, 'Other class', parentArg(frame, 'other_class'))
first .. ' ' .. lowerSurname,
 
lowerFirst .. ' ' .. lowerSurname,
local enlist = prettyPlace(parentArg(frame, 'enlistment_place'))
first .. '_' .. surname,
if enlist ~= '' then
first .. '_' .. lowerSurname,
addRow(tbl, 'Enlisted', enlist)
lowerFirst .. '_' .. lowerSurname,
surname .. ', ' .. first,
surname .. '_' .. first,
}
if asn ~= '' then
table.insert(bases, surname .. ', ' .. first .. ' (' .. asn .. ')')
end
for _, base in ipairs(bases) do
pushPhotoCandidate(candidates, seen, base)
end
end
addRow(tbl, 'Specialty', prettyProse(parentArg(frame, 'specialty')))
addRow(tbl, 'Unit / division', prettyProse(parentArg(frame, 'division')))
addRow(tbl, 'Battles / wars', formatBattles(parentArg(frame, 'battles')))
addRow(tbl, 'IPW (German)', teamLinkList(parentArg(frame, 'ipw_ge'), 'IPW ', 'IPW'))
addRow(tbl, 'IPW (Italian)', teamLinkList(parentArg(frame, 'ipw_it'), 'IPW Italian ', 'IPW Italian'))
addRow(tbl, 'Arrived', parentArg(frame, 'date_arrive'))
addRow(tbl, 'Departed', parentArg(frame, 'date_depart'))
addRow(tbl, 'Certificate', realCertificate(parentArg(frame, 'certificate')))


-- Awards ribbons render in the article body (p.awardsSection), not this
for _, base in ipairs(candidates) do
-- narrow infobox — matching Wikipedia's main-column ribbon racks.
for _, ext in ipairs(PHOTO_EXTENSIONS) do
 
local filename = base .. '.' .. ext
return tostring(tbl)
if photoFileExists(filename) then
end
return filename
 
end
function p.awardsSection(frame)
local upperExt = mw.ustring.upper(ext)
local ribbons = formatAwardsRibbons(
if upperExt ~= ext then
parentArg(frame, 'awards_ribbons'),
filename = base .. '.' .. upperExt
parentArg(frame, 'awards_ribbon_rows')
if photoFileExists(filename) then
)
return filename
local grid = formatAwardsGrid(parentArg(frame, 'awards_grid'))
end
local extras = formatAwardsLegend(parentArg(frame, 'awards_extra'))
end
-- Fallback: flat awards list when no grid was extracted
end
if grid == '' and extras == '' then
extras = formatAwardsLegend(parentArg(frame, 'awards'))
end
end
if ribbons == '' and grid == '' and extras == '' then
return ''
return ''
end
end
 
-- Use a styled div heading (not == wiki heading) so MediaWiki does not place
-- Filled after noteTeamNames (local forward declare; used by p.infobox).
-- the Contents box inside this block — JS moves the block after Biography.
local addTeamsInfoboxRow
local parts = {
 
'<div class="soldier-awards-section">',
function p.infobox(frame)
'<div class="soldier-awards-heading">Awards and honors</div>',
local name = displayName(frame)
}
local tbl = mw.html.create('table')
if ribbons ~= '' then
tbl:addClass('infobox'):addClass('vcard'):addClass('soldier-infobox')
table.insert(parts, ribbons)
 
end
tbl:tag('tr'):tag('th')
if grid ~= '' then
:attr('colspan', '2')
table.insert(parts, grid)
:addClass('infobox-above fn')
end
:wikitext(name)
if extras ~= '' then
table.insert(parts, '<div class="soldier-awards-list">')
table.insert(parts, extras)
table.insert(parts, '</div>')
end
table.insert(parts, '</div>')
return table.concat(parts, '\n')
end


function p.lead(frame)
local photo = resolvePhoto(frame)
return buildLead(function(key)
if photo ~= '' then
return parentArg(frame, key)
local size = parentArg(frame, 'image_size')
end)
if size == '' then
end
size = '220px'
end
local alt = parentArg(frame, 'alt')
if alt == '' then
alt = name
end
local td = tbl:tag('tr'):tag('td')
:attr('colspan', '2')
:addClass('infobox-image')
td:wikitext(string.format('[[File:%s|%s|alt=%s]]', photo, size, alt))
local caption = parentArg(frame, 'caption')
if caption ~= '' then
td:tag('div'):addClass('infobox-caption'):wikitext(caption)
end
end


function p.leadFrom(frame)
local alias = prettyNamePart(parentArg(frame, 'alias'))
return buildLead(function(key)
local birthYear = yearOnly(parentArg(frame, 'birth_year'))
return trim(frame.args[key] or '')
local deathYear = yearOnly(parentArg(frame, 'death_year'))
end)
local birthDate = prettyProse(parentArg(frame, 'birth_date'))
end
local deathDate = prettyProse(parentArg(frame, 'death_date'))
 
local birthPlace = prettyProse(parentArg(frame, 'birth_place'))
local function researchNotesSection(content)
local deathPlace = prettyProse(parentArg(frame, 'death_place'))
if not content or content == '' then
local nativity = expandNativity(parentArg(frame, 'nativity'))
return ''
local religion = expandReligion(parentArg(frame, 'religion'))
-- education / marital / occupation stay in Technical record (NARA snapshot);
-- curated life facts belong in Biography / Timeline, not the infobox.
local knownFor = prettyProse(parentArg(frame, 'known_for'))
local awards = prettyProse(parentArg(frame, 'awards'))
local ribbonsRaw = parentArg(frame, 'awards_ribbons')
-- Full medal list belongs under the body ribbon rack; keep infobox short
if ribbonsRaw ~= '' and mw.ustring.len(awards) > 90 then
local first = mw.ustring.match(awards, '^([^;]+)')
awards = trim(first or awards)
end
end
local startPos = mw.ustring.find(content, '== Research notes ==', 1, true)
if not startPos then
return ''
end
local after = mw.ustring.sub(content, startPos + 20)
local nextHead = mw.ustring.find(after, '\n== ', 1, true)
if nextHead then
return mw.ustring.sub(after, 1, nextHead - 1)
end
return after
end


local function miiPreferredLetter(num)
local function datePlaceCell(date, place, year)
local ok, canon = pcall(require, 'Module:TeamCanon')
local bits = {}
if ok and type(canon) == 'table' and type(canon.letter) == 'table' then
if date ~= '' then
return canon.letter[tostring(num)]
table.insert(bits, date)
elseif year ~= '' then
table.insert(bits, year)
end
if place ~= '' then
table.insert(bits, place)
end
return table.concat(bits, '<br />')
end
end
return nil
end


local function noteTeamNames(text)
local birth = datePlaceCell(birthDate, birthPlace, birthYear)
text = mw.ustring.upper(tostring(text or ''))
local death = datePlaceCell(deathDate, deathPlace, deathYear)
text = mw.ustring.gsub(text, mw.ustring.char(0x2013), '-')
 
text = mw.ustring.gsub(text, mw.ustring.char(0x2014), '-')
if alias ~= '' or birth ~= '' or death ~= '' or nativity ~= ''
text = mw.ustring.gsub(text, mw.ustring.char(0x2212), '-')
or religion ~= '' or knownFor ~= '' or awards ~= '' then
local seen = {}
addHeader(tbl, 'Personal details')
local names = {}
local letteredNums = {}
local function add(name)
if name ~= '' and not seen[name] then
seen[name] = true
table.insert(names, name)
end
end
end
local work = text
 
for num, letter in string.gmatch(work, 'MII[%s%-]+(%d+)%s*%-%s*([A-Z])') do
addRow(tbl, 'Birth name', alias, 'nickname')
if letter == 'R' and (num == '540' or num == '545' or num == '546') then
addRow(tbl, 'Born', birth)
add('MII ' .. num)
addRow(tbl, 'Died', death)
else
addRow(tbl, 'Nativity', nativity)
add('MII ' .. num .. '-' .. letter)
addRow(tbl, 'Religion', religion)
letteredNums[num] = true
addRow(tbl, 'Known for', knownFor)
end
addRow(tbl, 'Awards', awards)
 
addHeader(tbl, 'Military service')
addRow(tbl, 'Allegiance', '[[File:Flag of the United States.png|20px|link=|alt=]] United States')
local serviceName, armName = splitBranchAndArm(
parentArg(frame, 'branch'),
parentArg(frame, 'class_branch'),
parentArg(frame, 'arm_or_service')
)
if serviceName == '' then
serviceName = 'United States Army'
end
end
work = string.gsub(work, 'MII[%s%-]+%d+%s*%-%s*[A-Z]', ' ')
addRow(tbl, 'Branch', branchWithEmblem(serviceName))
for num, letter in string.gmatch(' ' .. text .. ' ', '[^%d]([45]%d%d)%s*%-%s*([A-Z])[^A-Z]') do
if armName ~= '' then
if letter == 'R' and (num == '540' or num == '545' or num == '546') then
-- Roster "branch" codes (FA, Signal Corps, Cavalry, …) are arm/service, not Army/Marines.
add('MII ' .. num)
addRow(tbl, 'Arm / service', prettyProse(armName))
else
add('MII ' .. num .. '-' .. letter)
letteredNums[num] = true
end
end
end
for num in string.gmatch(work, 'MII[%s%-]+(%d+)') do
-- years_of_service / date_arrive / date_depart / certificate stay in Technical
if not letteredNums[num] then
-- record only (rarely curated; certificate is a cryptic chart number).
local preferred = miiPreferredLetter(num)
addRow(tbl, 'ASN', parentArg(frame, 'asn'), 'serial')
if preferred then
 
add('MII ' .. num .. '-' .. preferred)
local rankFinal = expandRank(parentArg(frame, 'rank_final'))
else
local classRank = expandRank(parentArg(frame, 'class_rank'))
add('MII ' .. num)
if rankFinal ~= '' and classRank ~= '' and classRank ~= rankFinal then
end
addRow(tbl, 'Rank', rankFinal)
addRow(tbl, 'Rank at Ritchie', classRank)
else
local rank = rankFinal
if rank == '' then
rank = classRank
end
end
addRow(tbl, 'Rank', rank)
end
end
for num, letter in string.gmatch(text, 'IPW%s+(%d+)%s*%-%s*([A-Z])') do
 
if letter == 'R' and (num == '540' or num == '545' or num == '546') then
local classRaw = parentArg(frame, 'class_number')
add('MII ' .. num)
local classBits = classLinkList(classRaw, false)
else
if #classBits > 0 then
add('MII ' .. num .. '-' .. letter)
addRow(tbl, 'Camp Ritchie', 'Class ' .. table.concat(classBits, ', '))
end
end
end
for num in string.gmatch(text, 'IPW%s+(%d+)[Tt]?%s*%??%f[^%a%d%-]') do
addRow(tbl, 'Section', mw.ustring.upper(parentArg(frame, 'class_section')))
add('IPW ' .. num)
addRow(tbl, 'Other class', expandOtherClass(parentArg(frame, 'other_class')))
 
local enlist = prettyPlace(parentArg(frame, 'enlistment_place'))
if enlist ~= '' then
addRow(tbl, 'Enlisted', enlist)
end
end
return names
addRow(tbl, 'Specialty', prettyProse(parentArg(frame, 'specialty')))
addRow(tbl, 'Unit / division', prettyProse(parentArg(frame, 'division')))
addRow(tbl, 'Battles / wars', formatBattles(parentArg(frame, 'battles')))
addTeamsInfoboxRow(tbl, frame)
 
-- Awards ribbons render in the article body (p.awardsSection), not this
-- narrow infobox — matching Wikipedia's main-column ribbon racks.
 
return tostring(tbl)
end
end


function p.noteTeamCategories(frame)
function p.awardsSection(frame)
local title = mw.title.getCurrentTitle()
local gridRaw = parentArg(frame, 'awards_grid')
if not title or not title.getContent then
local ribbons, labelsInRack = formatAwardsRibbons(
return ''
parentArg(frame, 'awards_ribbons'),
parentArg(frame, 'awards_ribbon_rows'),
gridRaw
)
-- Skip the separate label table when captions already sit under ribbons
local grid = ''
if not labelsInRack then
grid = formatAwardsGrid(gridRaw)
end
local extras = formatAwardsLegend(parentArg(frame, 'awards_extra'))
-- Fallback: flat awards list when no grid was extracted
if grid == '' and extras == '' and not labelsInRack then
extras = formatAwardsLegend(parentArg(frame, 'awards'))
end
end
local ok, content = pcall(function()
if ribbons == '' and grid == '' and extras == '' then
return title:getContent()
end)
if not ok or not content then
return ''
return ''
end
end
local bits = {}
-- Use a styled div heading (not == wiki heading) so MediaWiki does not place
for _, name in ipairs(noteTeamNames(researchNotesSection(content))) do
-- the Contents box inside this block — JS moves the block after Biography.
table.insert(bits, '[[Category:Team ' .. name .. ']]')
local parts = {
'<div class="soldier-awards-section">',
'<div class="soldier-awards-heading">Awards and honors</div>',
}
if ribbons ~= '' then
table.insert(parts, ribbons)
end
if grid ~= '' then
table.insert(parts, grid)
end
if extras ~= '' then
table.insert(parts, '<div class="soldier-awards-list">')
table.insert(parts, extras)
table.insert(parts, '</div>')
end
end
return table.concat(bits)
table.insert(parts, '</div>')
return table.concat(parts, '\n')
end
end


function p.researchNotes(frame)
function p.lead(frame)
local title = mw.title.getCurrentTitle()
return buildLead(function(key)
if not title or not title.getContent then
return parentArg(frame, key)
return ''
end)
end
end
local ok, content = pcall(function()
 
return title:getContent()
function p.leadFrom(frame)
return buildLead(function(key)
return trim(frame.args[key] or '')
end)
end)
if not ok or not content or content == '' then
end
 
local function researchNotesSection(content)
if not content or content == '' then
return ''
return ''
end
end
local section = researchNotesSection(content)
local startPos = mw.ustring.find(content, '== Research notes ==', 1, true)
if section == '' then
if not startPos then
return ''
return ''
end
end
local items = {}
local after = mw.ustring.sub(content, startPos + 20)
for line in mw.text.gsplit(section, '\n', true) do
local nextHead = mw.ustring.find(after, '\n== ', 1, true)
line = trim(line)
if nextHead then
return mw.ustring.sub(after, 1, nextHead - 1)
end
return after
end
 
local function miiPreferredLetter(num)
local ok, canon = pcall(require, 'Module:TeamCanon')
if ok and type(canon) == 'table' and type(canon.letter) == 'table' then
return canon.letter[tostring(num)]
end
return nil
end
 
local function noteTeamNames(text)
text = mw.ustring.upper(tostring(text or ''))
text = mw.ustring.gsub(text, mw.ustring.char(0x2013), '-')
text = mw.ustring.gsub(text, mw.ustring.char(0x2014), '-')
text = mw.ustring.gsub(text, mw.ustring.char(0x2212), '-')
local seen = {}
local names = {}
local letteredNums = {}
local function add(name)
if name ~= '' and not seen[name] then
seen[name] = true
table.insert(names, name)
end
end
local work = text
for num, letter in string.gmatch(work, 'MII[%s%-]+(%d+)%s*%-%s*([A-Z])') do
if letter == 'R' and (num == '540' or num == '545' or num == '546') then
add('MII ' .. num)
else
add('MII ' .. num .. '-' .. letter)
letteredNums[num] = true
end
end
work = string.gsub(work, 'MII[%s%-]+%d+%s*%-%s*[A-Z]', ' ')
for num, letter in string.gmatch(' ' .. text .. ' ', '[^%d]([45]%d%d)%s*%-%s*([A-Z])[^A-Z]') do
if letter == 'R' and (num == '540' or num == '545' or num == '546') then
add('MII ' .. num)
else
add('MII ' .. num .. '-' .. letter)
letteredNums[num] = true
end
end
for num in string.gmatch(work, 'MII[%s%-]+(%d+)') do
if not letteredNums[num] then
local preferred = miiPreferredLetter(num)
if preferred then
add('MII ' .. num .. '-' .. preferred)
else
add('MII ' .. num)
end
end
end
for num, letter in string.gmatch(text, 'IPW%s+(%d+)%s*%-%s*([A-Z])') do
if letter == 'R' and (num == '540' or num == '545' or num == '546') then
add('MII ' .. num)
else
add('MII ' .. num .. '-' .. letter)
end
end
for num in string.gmatch(text, 'IPW%s+(%d+)[Tt]?%s*%??%f[^%a%d%-]') do
add('IPW ' .. num)
end
return names
end
 
local function appendUniqueTeamName(names, seen, name)
name = trim(tostring(name or ''))
if name == '' or seen[name] then
return
end
seen[name] = true
table.insert(names, name)
end
 
local function namesFromIpwGerman(raw)
local names = {}
local seen = {}
for part in mw.text.gsplit(raw or '', ';', true) do
part = trim(part)
part = mw.ustring.gsub(part, '[#<>%[%]|{}]', '')
part = trim(part)
if part ~= '' then
local code, shown, mii = normalizeIpwTeamCode(part)
if mii then
appendUniqueTeamName(names, seen, 'MII ' .. mii)
elseif code then
appendUniqueTeamName(names, seen, 'IPW ' .. shown)
end
end
end
return names
end
 
local function namesFromIpwItalian(raw)
local names = {}
local seen = {}
for part in mw.text.gsplit(raw or '', ';', true) do
part = trim(part)
part = mw.ustring.gsub(part, '[#<>%[%]|{}]', '')
part = trim(part)
if part ~= '' then
local code = normalizeIpwItalianCode(part)
if code then
appendUniqueTeamName(names, seen, 'IPW Italian ' .. code)
end
end
end
return names
end
 
--- Explicit |teams= values: "MII 439-G; IPW 12" or shorthand "439-G".
local function namesFromTeamsParam(raw)
local names = {}
local seen = {}
for part in mw.text.gsplit(raw or '', ';', true) do
part = trim(part)
if part ~= '' then
local fromScan = noteTeamNames(part)
if #fromScan > 0 then
for _, name in ipairs(fromScan) do
appendUniqueTeamName(names, seen, name)
end
else
local upper = mw.ustring.upper(part)
local itRest = mw.ustring.match(upper, '^IPW%s+ITALIAN%s+(.+)$')
if itRest then
local code = normalizeIpwItalianCode(itRest)
if code then
appendUniqueTeamName(names, seen, 'IPW Italian ' .. code)
end
else
local ipwRest = mw.ustring.match(upper, '^IPW%s+(.+)$')
if ipwRest then
local code, shown, mii = normalizeIpwTeamCode(ipwRest)
if mii then
appendUniqueTeamName(names, seen, 'MII ' .. mii)
elseif code then
appendUniqueTeamName(names, seen, 'IPW ' .. shown)
end
else
local code, shown, mii = normalizeIpwTeamCode(part)
if mii then
appendUniqueTeamName(names, seen, 'MII ' .. mii)
elseif code and mw.ustring.match(tostring(shown or code), '^%d') then
appendUniqueTeamName(names, seen, 'IPW ' .. shown)
end
end
end
end
end
end
return names
end
 
local function teamNameLink(name)
return string.format('[[Team %s|%s]]', name, name)
end
 
local function pageResearchNotesText()
local title = mw.title.getCurrentTitle()
if not title or not title.getContent then
return ''
end
local ok, content = pcall(function()
return title:getContent()
end)
if not ok or not content then
return ''
end
return researchNotesSection(content)
end
 
--- Roster IPW fields + optional |teams= + research-note team codes, one linked row.
addTeamsInfoboxRow = function(tbl, frame)
local names = {}
local seen = {}
local function addAll(list)
for _, name in ipairs(list) do
appendUniqueTeamName(names, seen, name)
end
end
addAll(namesFromIpwGerman(parentArg(frame, 'ipw_ge')))
addAll(namesFromIpwItalian(parentArg(frame, 'ipw_it')))
addAll(namesFromTeamsParam(parentArg(frame, 'teams')))
addAll(noteTeamNames(pageResearchNotesText()))
if #names == 0 then
return
end
local links = {}
for _, name in ipairs(names) do
table.insert(links, teamNameLink(name))
end
local label = 'Team'
if #names > 1 then
label = 'Teams'
end
addRow(tbl, label, table.concat(links, ', '))
end
 
function p.noteTeamCategories(frame)
local title = mw.title.getCurrentTitle()
if not title or not title.getContent then
return ''
end
local ok, content = pcall(function()
return title:getContent()
end)
if not ok or not content then
return ''
end
local seen = {}
local bits = {}
local function addCat(name)
name = trim(tostring(name or ''))
if name == '' or seen[name] then
return
end
seen[name] = true
table.insert(bits, '[[Category:Team ' .. name .. ']]')
end
for _, name in ipairs(noteTeamNames(researchNotesSection(content))) do
addCat(name)
end
for _, name in ipairs(namesFromTeamsParam(parentArg(frame, 'teams'))) do
addCat(name)
end
return table.concat(bits)
end
 
function p.researchNotes(frame)
local title = mw.title.getCurrentTitle()
if not title or not title.getContent then
return ''
end
local ok, content = pcall(function()
return title:getContent()
end)
if not ok or not content or content == '' then
return ''
end
local section = researchNotesSection(content)
if section == '' then
return ''
end
local items = {}
for line in mw.text.gsplit(section, '\n', true) do
line = trim(line)
if mw.ustring.sub(line, 1, 2) == '* ' then
if mw.ustring.sub(line, 1, 2) == '* ' then
local note = sanitizeNote(mw.ustring.sub(line, 3))
local note = sanitizeNote(mw.ustring.sub(line, 3))
if note ~= '' then
if note ~= '' then
for clause in mw.text.gsplit(note, ';', true) do
for clause in mw.text.gsplit(note, ';', true) do
clause = trim(clause)
clause = trim(clause)
if clause ~= '' and not isNegativeClause(clause) then
if clause ~= '' and not isNegativeClause(clause) then
table.insert(items, prettyProse(clause))
table.insert(items, prettyProse(clause))
end
end
end
end
end
end
end
end
items = joinDateFollowons(items)
local unique = {}
local seen = {}
for _, clause in ipairs(items) do
local key = normalizeNoteKey(clause)
if key ~= '' and not seen[key] then
seen[key] = true
table.insert(unique, clause)
end
end
items = unique
if #items == 0 then
return ''
end
local wrap = mw.html.create('div')
wrap:addClass('soldier-research-notes')
wrap:tag('div'):addClass('soldier-research-notes-heading'):wikitext('Research notes')
local ul = wrap:tag('ul')
for _, note in ipairs(items) do
ul:tag('li'):wikitext(note)
end
return tostring(wrap)
end
 
local function cargoRows(tables, fields, where, limit, orderBy)
if not mw.ext or not mw.ext.cargo or not mw.ext.cargo.query then
return nil
end
local opts = {
where = where,
limit = limit or 8,
}
if orderBy and orderBy ~= '' then
opts.orderBy = orderBy
end
local ok, result = pcall(mw.ext.cargo.query, tables, fields, opts)
if not ok or type(result) ~= 'table' then
return nil
end
return result
end
 
local function rowField(row, ...)
for i = 1, select('#', ...) do
local key = select(i, ...)
local v = row[key]
if v ~= nil and trim(tostring(v)) ~= '' then
return trim(tostring(v))
end
end
return ''
end
 
local function titleToCaption(title)
title = trim(title)
local surname, given = mw.ustring.match(title, '^([^,]+),%s*(.-)%s*%(%d')
if surname and given then
return trim(given .. ' ' .. surname)
end
return title
end
 
local function displayFromCargoRow(row)
local page = rowField(row, 'pageName', '_pageName')
local surname = rowField(row, 'Surname')
local first = rowField(row, 'First_name', 'First name')
local middle = rowField(row, 'Middle_name', 'Middle name')
local given = trim(first .. (middle ~= '' and (' ' .. middle) or ''))
local caption
if given ~= '' and surname ~= '' then
caption = given .. ' ' .. surname
elseif page ~= '' then
caption = titleToCaption(page)
else
caption = surname
end
if page == '' and surname ~= '' then
local asn = rowField(row, 'ASN')
if asn ~= '' then
page = surname .. ', ' .. (given ~= '' and given or first) .. ' (' .. asn .. ')'
end
end
return page, caption
end
 
local function linkList(rows, skipAsn, skipPage, maxLinks)
local links = {}
local seen = {}
for _, row in ipairs(rows or {}) do
local asn = rowField(row, 'ASN')
local page, caption = displayFromCargoRow(row)
if caption == '' and page ~= '' then
caption = titleToCaption(page)
end
if page ~= '' and page ~= skipPage and asn ~= skipAsn and not seen[page] then
seen[page] = true
table.insert(links, string.format('[[%s|%s]]', page, caption))
if #links >= maxLinks then
break
end
end
end
return links
end
 
local function classFullWhere(classNum)
-- Prefer Class_number__full: the Class_number HOLDS index is corrupted on some hosts.
local n = tostring(classNum or '')
n = mw.ustring.gsub(n, '[^0-9A-Za-z%-]', '')
if n == '' then
return nil
end
return string.format(
'Class_number__full="%s" OR Class_number__full LIKE "%s;%%" OR Class_number__full LIKE "%%;%s" OR Class_number__full LIKE "%%;%s;%%"',
n,
n,
n,
n
)
end
 
function p.storyCue(frame)
local story = parentArg(frame, 'story')
if story == '' then
return ''
end
story = mw.ustring.gsub(story, '^%[%[', '')
story = mw.ustring.gsub(story, '%]%]$', '')
local storyTitle, storyLabel = mw.ustring.match(story, '^([^|]+)|(.+)$')
if not storyTitle then
storyTitle = story
storyLabel = nil
end
storyTitle = trim(storyTitle)
if storyLabel then
storyLabel = trim(storyLabel)
end
if not storyLabel or storyLabel == '' then
storyLabel = mw.ustring.match(storyTitle, '([^/]+)$') or storyTitle
end
local name = displayName(frame)
return string.format(
'<div class="soldier-story-cue">'
.. '<span class="soldier-story-cue-label">Full story</span> '
.. 'Read more about %s in [[%s|%s]] on \'\'[[The Stories]]\'\'.'
.. '</div>',
name,
storyTitle,
storyLabel
)
end
 
-- related-rail: live team rosters via category members (filled by Common.js)
function p.relatedSoldiers(frame)
local pageTitle = mw.title.getCurrentTitle().prefixedText
 
-- Same sources as the infobox Teams row: roster IPW, |teams=, research notes.
local teamNames = {}
local seenTeams = {}
local function addTeams(list)
for _, name in ipairs(list) do
appendUniqueTeamName(teamNames, seenTeams, name)
end
end
addTeams(namesFromIpwGerman(parentArg(frame, 'ipw_ge')))
addTeams(namesFromIpwItalian(parentArg(frame, 'ipw_it')))
addTeams(namesFromTeamsParam(parentArg(frame, 'teams')))
addTeams(noteTeamNames(pageResearchNotesText()))
 
if #teamNames == 0 then
return ''
end
 
local wrap = mw.html.create('div')
:addClass('soldier-related')
:attr('data-current-title', pageTitle)
wrap:tag('div'):addClass('soldier-related-heading'):wikitext('Teammates')
 
for _, teamName in ipairs(teamNames) do
local cat = 'Category:Team ' .. teamName
local block = wrap:tag('div')
:addClass('soldier-related-block')
:attr('data-team-cat', cat)
block:tag('div')
:addClass('soldier-related-label')
:wikitext('Team — ' .. teamNameLink(teamName))
-- Noscript / pre-JS fallback: category link. Common.js replaces with live names.
block:tag('div')
:addClass('soldier-related-links')
:addClass('soldier-related-links-live')
:wikitext('[[' .. cat .. '|Browse team roster]]')
end
 
wrap:tag('div')
:addClass('soldier-related-note')
:wikitext(
'These are other soldiers listed on the same team roster. '
.. 'People moved between teams; overlapping service dates are not always documented.'
)
return tostring(wrap)
end
 
local function seqCount(t)
-- mw.loadData tables do not always report # correctly.
local n = 0
if type(t) ~= 'table' then
return 0
end
for _ in ipairs(t) do
n = n + 1
end
return n
end
 
function p.mediaCue(frame)
local pageTitle = mw.title.getCurrentTitle().prefixedText
local ok, data = pcall(mw.loadData, 'Module:Interviews/data')
if not ok or type(data) ~= 'table' or type(data.by_title) ~= 'table' then
return ''
end
local rec = data.by_title[pageTitle]
if type(rec) ~= 'table' then
return ''
end
-- Prefer interviews; accept legacy `items` key from hand-edited cues.
local interviews = rec.interviews
if type(interviews) ~= 'table' then
interviews = rec.items
end
local films = rec.films
local nInterviews = seqCount(interviews)
local nFilms = seqCount(films)
if nInterviews == 0 and nFilms == 0 then
return ''
end
local name = displayName(frame)
local blocks = {}
if nInterviews > 0 then
local links = {}
local anyAudio = false
for _, item in ipairs(interviews) do
local heading = item.heading or 'Interview'
local short = item.short or heading
if item.kind == 'audio' then
anyAudio = true
end
table.insert(
links,
string.format('[[Ritchie Boy Interviews#%s|%s]]', heading, short)
)
end
local label = nInterviews == 1 and 'Interview' or 'Interviews'
local verb = 'Watch'
if nInterviews == 1 and interviews[1].kind == 'audio' then
verb = 'Listen to'
elseif anyAudio and nInterviews > 1 then
verb = 'Hear'
end
local body
if nInterviews == 1 then
body = string.format(
'%s %s on [[Ritchie Boy Interviews#%s|%s]].',
verb,
name,
interviews[1].heading,
interviews[1].short or interviews[1].heading
)
else
body = string.format(
'%s %s in %d recordings on [[Ritchie Boy Interviews]]: %s.',
verb,
name,
nInterviews,
table.concat(links, ' · ')
)
end
end
table.insert(
blocks,
'<div class="soldier-interview-cue">'
.. '<span class="soldier-interview-cue-label">'
.. label
.. '</span> '
.. body
.. '</div>'
)
end
end
items = joinDateFollowons(items)
if nFilms > 0 then
local unique = {}
local links = {}
local seen = {}
for _, item in ipairs(films) do
for _, clause in ipairs(items) do
local heading = item.heading or 'Documentaries/Movies'
local key = normalizeNoteKey(clause)
local filmLabel = item.label or heading
if key ~= '' and not seen[key] then
table.insert(
seen[key] = true
links,
table.insert(unique, clause)
string.format('[[Documentaries/Movies#%s|%s]]', heading, filmLabel)
)
end
end
local body = string.format(
'%s appears in %s.',
name,
table.concat(links, '; ')
)
table.insert(
blocks,
'<div class="soldier-film-cue">'
.. '<span class="soldier-film-cue-label">On film</span> '
.. body
.. '</div>'
)
end
end
items = unique
return '<div class="soldier-media-cue">' .. table.concat(blocks, '') .. '</div>'
if #items == 0 then
return ''
end
local wrap = mw.html.create('div')
wrap:addClass('soldier-research-notes')
wrap:tag('div'):addClass('soldier-research-notes-heading'):wikitext('Research notes')
local ul = wrap:tag('ul')
for _, note in ipairs(items) do
ul:tag('li'):wikitext(note)
end
return tostring(wrap)
end
end


return p
return p
Retrieved from "https://ritchieboys.org/wiki/Module:Soldier"