Amateur Theatre Wiki - User contributions [en]

Template:AIGenerated

2026-06-29T11:08:17Z

Maintenance script: Deployed from Ansible

<onlyinclude><div style="border: 2px solid light-dark(#f0a500, #c47f00); background-color: light-dark(#fff8e7, #2a2000); color: light-dark(#3a2a00, #f5d78e); padding: 8px 12px; margin-bottom: 1em; font-size: 0.9em; color-scheme: light dark;">
⚠️ '''This page was generated by an AI''' and has not yet been proofread by a human editor. Information may be incomplete or inaccurate.
</div>[[Category:AI-Generated]]{{#ifeq:{{{patrolled|false}}}|true|[[Category:Patrolled]]|[[Category:ToPatrol]]}}</onlyinclude>

<noinclude>
== Usage ==
Place this template at the top of AI-generated pages to inform readers and track review status.

<pre>{{AIGenerated}}</pre>
<pre>{{AIGenerated|patrolled=true}}</pre>

; <code>patrolled</code> (optional, default: <code>false</code>)
: Set to <code>true</code> once the page has been reviewed. Adds [[Category:Patrolled]] instead of [[Category:ToPatrol]].

<templatedata>
{
"description": "Marks a page as AI-generated and not yet proofread. Adds maintenance categories based on patrol status.",
"params": {
"patrolled": {
"type": "boolean",
"label": "Patrolled",
"description": "Set to true if the page has been reviewed by a human editor. Defaults to false.",
"default": "false",
"required": false
}
},
"format": "inline"
}
</templatedata>
</noinclude>

Module:DynamicCapiunto

2026-06-29T11:08:14Z

Maintenance script: Deployed from Ansible

local capiunto = require 'capiunto'
local p = {}

function p.main(frame)
local args = frame:getParent().args
local qid = args.qid or args[1]

if not qid then
return '<span class="error">Error: No Wikidata QID provided</span>'
end

-- Register the entity association
frame:callParserFunction('#unlinkedwikibase', 'id=' .. qid)

-- Get entity data from UnlinkedWikibase
local entity = mw.ext.UnlinkedWikibase.getEntity(qid)

if not entity then
return '<span class="error">Error: Entity ' .. qid ..
' not found</span>'
end

-- Helper function to get property value from entity
local function getPropertyValue(pid)
if not entity.claims or not entity.claims[pid] then return nil end

local claims = entity.claims[pid]
if not claims or #claims == 0 then return nil end

local claim = claims[1]
if not claim.mainsnak or not claim.mainsnak.datavalue then
return nil
end

return claim.mainsnak.datavalue.value
end

-- Helper function to format different value types
local function formatValue(value, valueType)
if not value then return nil end

if type(value) == 'table' then
-- Handle time values
if value.time then
-- Extract year-month-day from +2023-01-15T00:00:00Z format
local dateStr = value.time
local year, month, day =
dateStr:match('^[+-]?(%d+)-(%d+)-(%d+)')
if year then
local y = tonumber(year)
local m = tonumber(month) or 0
local d = tonumber(day) or 0
-- If month or day are zero/unknown, show only the year
if m == 0 or d == 0 then
return string.format('%04d', y)
end
return string.format('%04d-%02d-%02d', y, m, d)
end
return value.time
-- Handle entity references (Q-IDs)
elseif value.id then
-- Register a parser cache dependency so the page is invalidated
-- when UnlinkedWikibase populates or updates this entity's data.
mw.ext.UnlinkedWikibase.getLocalTitle(value.id)
local linkedEntity = mw.ext.UnlinkedWikibase.getEntity(value.id)
if linkedEntity then
local label = (linkedEntity.labels and
linkedEntity.labels.en) and
linkedEntity.labels.en.value or value.id
-- Then prefer an en.wikipedia sitelink (external link)
if linkedEntity.sitelinks and linkedEntity.sitelinks.enwiki and
linkedEntity.sitelinks.enwiki.url then
return
'[' .. linkedEntity.sitelinks.enwiki.url .. ' ' ..
label .. ']'
end
-- Fallback to the English label if available
if linkedEntity.labels and linkedEntity.labels.en then
return label
end
end
return value.id
-- Handle monolingual text
elseif value.text then
return value.text
end
end

return tostring(value)
end

-- Helper to get claim entity id (if the claim is an entity)
local function getClaimEntityId(pid)
local v = getPropertyValue(pid)
if type(v) == 'table' and v.id then return v.id end
return nil
end

-- Helper to get the first claim object for a property
local function getFirstClaimObject(pid)
if not entity.claims or not entity.claims[pid] then return nil end
local claims = entity.claims[pid]
if not claims or #claims == 0 then return nil end
return claims[1]
end

-- Helper to get a qualifier value (prefer English monolingual text for P2096)
local function getQualifierValue(claim, qualPid)
if not claim or not claim.qualifiers or not claim.qualifiers[qualPid] then
return nil
end
local qsnaks = claim.qualifiers[qualPid]
if not qsnaks or #qsnaks == 0 then return nil end
for i, q in ipairs(qsnaks) do
-- Check for valid snak with datavalue
if q and q.snaktype == 'value' and q.datavalue and q.datavalue.value then
local v = q.datavalue.value
if type(v) == 'table' then
-- For monolingual text, prefer English
if v.language and v.language == 'en' and v.text then
return v.text
end
else
return tostring(v)
end
end
end
return nil
end

-- Extract a {latitude, longitude} coordinate (P625) from an entity object.
local function getCoordFromEntity(ent)
if not ent or not ent.claims or not ent.claims.P625 then return nil end
local claims = ent.claims.P625
if not claims or #claims == 0 then return nil end
local snak = claims[1].mainsnak
if not snak or not snak.datavalue then return nil end
local v = snak.datavalue.value
if type(v) == 'table' and v.latitude and v.longitude then return v end
return nil
end

-- Add a Leaflet/OpenStreetMap map for this entity.
-- Prefer the entity's own coordinate location (P625). If it has none, fall
-- back to the coordinates of the entity referenced as its headquarters
-- location (P159), fetched via UnlinkedWikibase.
-- Rendered via the Maps extension's #display_map parser function. A module's
-- return value goes through the main parse pass but NOT the preprocessor, so
-- parser-function syntax would otherwise be emitted literally. We expand it
-- here with frame:preprocess() and add the resulting HTML to the infobox.
local function addMap(box)
local coord = getCoordFromEntity(entity)
if not coord then
local hqId = getClaimEntityId('P159')
if hqId then
-- Register a parser cache dependency on the HQ entity so the
-- page is invalidated when its data is populated/updated.
mw.ext.UnlinkedWikibase.getLocalTitle(hqId)
coord = getCoordFromEntity(
mw.ext.UnlinkedWikibase.getEntity(hqId))
end
end
if not coord then return end
local mapHtml = frame:preprocess(string.format(
'{{#display_map:%s,%s|width=100%%|height=200|zoom=13|service=leaflet}}',
tostring(coord.latitude), tostring(coord.longitude)))
box:addWikitext(mapHtml)
end

local function addWikidataLink(box)
box:addWikitext(
'<div style="width:100%; text-align:center; font-size:85%;">[' ..
'https://www.wikidata.org/wiki/' .. qid ..
' View on Wikidata]</div>')
end

-- Decide which infobox to render based on instance (P31)
local instanceId = getClaimEntityId('P31')
local infobox

if instanceId == 'Q5' then
-- Person infobox
local personTitle = qid
if entity.labels and entity.labels.en then
personTitle = entity.labels.en.value
end

infobox = capiunto.create({
title = personTitle,
bodyClass = 'infobox vevent',
bodyStyle = 'width: 300px;'
})

-- Add image (P18) with media legend (P2096) as caption
local imageClaim = getFirstClaimObject('P18')
if imageClaim then
local imageVal = imageClaim.mainsnak and
imageClaim.mainsnak.datavalue and
imageClaim.mainsnak.datavalue.value
if imageVal then
local imageStr = tostring(imageVal)
local caption = getQualifierValue(imageClaim, 'P2096')
if caption and caption ~= '' then
infobox:addImage('[[File:' .. imageStr .. '|300px]]',
caption)
else
infobox:addImage('[[File:' .. imageStr .. '|300px]]')
end
end
end

-- Birthplace (P19)
local birthplace = getPropertyValue('P19')
if birthplace then
infobox:addRow('Birthplace', formatValue(birthplace))
end

-- Birthday (P569)
local birthday = getPropertyValue('P569')
if birthday then
infobox:addRow('Birthday', formatValue(birthday))
end

-- Death (P570)
local death = getPropertyValue('P570')
if death then infobox:addRow('Death', formatValue(death)) end

-- Occupation (P106)
local occupation = getPropertyValue('P106')
if occupation then
infobox:addRow('Occupation', formatValue(occupation))
end

addMap(infobox)
addWikidataLink(infobox)

return tostring(infobox) .. '\n[[Category:People]]'
else
-- Default: organisation/troupe infobox (existing behavior)
local title = qid
if entity.labels and entity.labels.en then
title = entity.labels.en.value
end

infobox = capiunto.create({
title = title,
bodyClass = 'infobox vevent',
bodyStyle = 'width: 300px;'
})

-- Add official name (P1448)
local officialName = getPropertyValue('P1448')
if officialName then
infobox:addRow('Official Name', formatValue(officialName))
end
end

-- Add logo (P154)
local logo = getPropertyValue('P154')
if logo then
local logoStr = formatValue(logo)
if logoStr then
infobox:addImage('[[File:' .. logoStr .. '|150px]]', 'Logo')
end
end

-- Add image (P18) with media legend (P2096) as caption
local imageClaim = getFirstClaimObject('P18')
if imageClaim then
local imageVal =
imageClaim.mainsnak and imageClaim.mainsnak.datavalue and
imageClaim.mainsnak.datavalue.value
if imageVal then
local imageStr = tostring(imageVal)
local caption = getQualifierValue(imageClaim, 'P2096')
if caption and caption ~= '' then
infobox:addImage('[[File:' .. imageStr .. '|300px]]', caption)
else
infobox:addImage('[[File:' .. imageStr .. '|300px]]')
end
end
end

-- Add headquarters (P159)
local headquarters = getPropertyValue('P159')
if headquarters then
infobox:addRow('Headquarters', formatValue(headquarters))
end

-- Add founding date (P571)
local foundingDate = getPropertyValue('P571')
if foundingDate then
infobox:addRow('Founding Date', formatValue(foundingDate))
end

-- Add dissolution date (P576)
local dissolutionDate = getPropertyValue('P576')
if dissolutionDate then
infobox:addRow('Dissolution Date', formatValue(dissolutionDate))
end

-- Add country (P17)
local country = getPropertyValue('P17')
if country then infobox:addRow('Country', formatValue(country)) end

-- Add parent organization (P749)
local parentOrg = getPropertyValue('P749')
if parentOrg then
infobox:addRow('Parent Organization', formatValue(parentOrg))
end

-- Add official website (P856) as full-width row at bottom
local website = getPropertyValue('P856')
if website then
local websiteStr = formatValue(website)
if websiteStr then
-- Strip http:// or https:// from display text
local displayUrl = websiteStr:gsub('^https?://', '')
infobox:addWikitext(
'<div style="width:100%; text-align:center;">[' .. websiteStr ..
' ' .. displayUrl .. ']</div>')
end
end

addMap(infobox)
addWikidataLink(infobox)

return tostring(infobox) ..
'\n[[Category:Clubs, Societies and Institutions]]'
end

return p

Module:DynamicCapiunto

2026-06-28T11:20:09Z

Maintenance script: Deployed from Ansible

local capiunto = require 'capiunto'
local p = {}

function p.main(frame)
local args = frame:getParent().args
local qid = args.qid or args[1]

if not qid then
return '<span class="error">Error: No Wikidata QID provided</span>'
end

-- Register the entity association
frame:callParserFunction('#unlinkedwikibase', 'id=' .. qid)

-- Get entity data from UnlinkedWikibase
local entity = mw.ext.UnlinkedWikibase.getEntity(qid)

if not entity then
return '<span class="error">Error: Entity ' .. qid ..
' not found</span>'
end

-- Helper function to get property value from entity
local function getPropertyValue(pid)
if not entity.claims or not entity.claims[pid] then return nil end

local claims = entity.claims[pid]
if not claims or #claims == 0 then return nil end

local claim = claims[1]
if not claim.mainsnak or not claim.mainsnak.datavalue then
return nil
end

return claim.mainsnak.datavalue.value
end

-- Helper function to format different value types
local function formatValue(value, valueType)
if not value then return nil end

if type(value) == 'table' then
-- Handle time values
if value.time then
-- Extract year-month-day from +2023-01-15T00:00:00Z format
local dateStr = value.time
local year, month, day =
dateStr:match('^[+-]?(%d+)-(%d+)-(%d+)')
if year then
local y = tonumber(year)
local m = tonumber(month) or 0
local d = tonumber(day) or 0
-- If month or day are zero/unknown, show only the year
if m == 0 or d == 0 then
return string.format('%04d', y)
end
return string.format('%04d-%02d-%02d', y, m, d)
end
return value.time
-- Handle entity references (Q-IDs)
elseif value.id then
-- Register a parser cache dependency so the page is invalidated
-- when UnlinkedWikibase populates or updates this entity's data.
mw.ext.UnlinkedWikibase.getLocalTitle(value.id)
local linkedEntity = mw.ext.UnlinkedWikibase.getEntity(value.id)
if linkedEntity then
local label = (linkedEntity.labels and
linkedEntity.labels.en) and
linkedEntity.labels.en.value or value.id
-- Then prefer an en.wikipedia sitelink (external link)
if linkedEntity.sitelinks and linkedEntity.sitelinks.enwiki and
linkedEntity.sitelinks.enwiki.url then
return
'[' .. linkedEntity.sitelinks.enwiki.url .. ' ' ..
label .. ']'
end
-- Fallback to the English label if available
if linkedEntity.labels and linkedEntity.labels.en then
return label
end
end
return value.id
-- Handle monolingual text
elseif value.text then
return value.text
end
end

return tostring(value)
end

-- Helper to get claim entity id (if the claim is an entity)
local function getClaimEntityId(pid)
local v = getPropertyValue(pid)
if type(v) == 'table' and v.id then return v.id end
return nil
end

-- Helper to get the first claim object for a property
local function getFirstClaimObject(pid)
if not entity.claims or not entity.claims[pid] then return nil end
local claims = entity.claims[pid]
if not claims or #claims == 0 then return nil end
return claims[1]
end

-- Helper to get a qualifier value (prefer English monolingual text for P2096)
local function getQualifierValue(claim, qualPid)
if not claim or not claim.qualifiers or not claim.qualifiers[qualPid] then
return nil
end
local qsnaks = claim.qualifiers[qualPid]
if not qsnaks or #qsnaks == 0 then return nil end
for i, q in ipairs(qsnaks) do
-- Check for valid snak with datavalue
if q and q.snaktype == 'value' and q.datavalue and q.datavalue.value then
local v = q.datavalue.value
if type(v) == 'table' then
-- For monolingual text, prefer English
if v.language and v.language == 'en' and v.text then
return v.text
end
else
return tostring(v)
end
end
end
return nil
end

-- Extract a {latitude, longitude} coordinate (P625) from an entity object.
local function getCoordFromEntity(ent)
if not ent or not ent.claims or not ent.claims.P625 then return nil end
local claims = ent.claims.P625
if not claims or #claims == 0 then return nil end
local snak = claims[1].mainsnak
if not snak or not snak.datavalue then return nil end
local v = snak.datavalue.value
if type(v) == 'table' and v.latitude and v.longitude then return v end
return nil
end

-- Add a Leaflet/OpenStreetMap map for this entity.
-- Prefer the entity's own coordinate location (P625). If it has none, fall
-- back to the coordinates of the entity referenced as its headquarters
-- location (P159), fetched via UnlinkedWikibase.
-- Rendered via the Maps extension's #display_map parser function. A module's
-- return value goes through the main parse pass but NOT the preprocessor, so
-- parser-function syntax would otherwise be emitted literally. We expand it
-- here with frame:preprocess() and add the resulting HTML to the infobox.
local function addMap(box)
local coord = getCoordFromEntity(entity)
if not coord then
local hqId = getClaimEntityId('P159')
if hqId then
-- Register a parser cache dependency on the HQ entity so the
-- page is invalidated when its data is populated/updated.
mw.ext.UnlinkedWikibase.getLocalTitle(hqId)
coord = getCoordFromEntity(
mw.ext.UnlinkedWikibase.getEntity(hqId))
end
end
if not coord then return end
local mapHtml = frame:preprocess(string.format(
'{{#display_map:%s,%s|width=100%%|height=200|zoom=13|service=leaflet}}',
tostring(coord.latitude), tostring(coord.longitude)))
box:addWikitext(mapHtml)
end

-- Add a full-width link to the source Wikidata item so the underlying data
-- can always be inspected, even when a referenced entity has not resolved to
-- a label yet. (Replaces the Wikidata interlanguage links, which are off.)
local function addWikidataLink(box)
box:addWikitext(
'<div style="width:100%; text-align:center; font-size:85%;">[' ..
'https://www.wikidata.org/wiki/' .. qid ..
' View on Wikidata]</div>')
end

-- Decide which infobox to render based on instance (P31)
local instanceId = getClaimEntityId('P31')
local infobox

if instanceId == 'Q5' then
-- Person infobox
local personTitle = qid
if entity.labels and entity.labels.en then
personTitle = entity.labels.en.value
end

infobox = capiunto.create({
title = personTitle,
bodyClass = 'infobox vevent',
bodyStyle = 'width: 300px;'
})

-- Add image (P18) with media legend (P2096) as caption
local imageClaim = getFirstClaimObject('P18')
if imageClaim then
local imageVal = imageClaim.mainsnak and
imageClaim.mainsnak.datavalue and
imageClaim.mainsnak.datavalue.value
if imageVal then
local imageStr = tostring(imageVal)
local caption = getQualifierValue(imageClaim, 'P2096')
if caption and caption ~= '' then
infobox:addImage('[[File:' .. imageStr .. '|300px]]',
caption)
else
infobox:addImage('[[File:' .. imageStr .. '|300px]]')
end
end
end

-- Birthplace (P19)
local birthplace = getPropertyValue('P19')
if birthplace then
infobox:addRow('Birthplace', formatValue(birthplace))
end

-- Birthday (P569)
local birthday = getPropertyValue('P569')
if birthday then
infobox:addRow('Birthday', formatValue(birthday))
end

-- Death (P570)
local death = getPropertyValue('P570')
if death then infobox:addRow('Death', formatValue(death)) end

-- Occupation (P106)
local occupation = getPropertyValue('P106')
if occupation then
infobox:addRow('Occupation', formatValue(occupation))
end

addMap(infobox)
addWikidataLink(infobox)

return tostring(infobox) .. '\n[[Category:People]]'
else
-- Default: organisation/troupe infobox (existing behavior)
local title = qid
if entity.labels and entity.labels.en then
title = entity.labels.en.value
end

infobox = capiunto.create({
title = title,
bodyClass = 'infobox vevent',
bodyStyle = 'width: 300px;'
})

-- Add official name (P1448)
local officialName = getPropertyValue('P1448')
if officialName then
infobox:addRow('Official Name', formatValue(officialName))
end
end

-- Add logo (P154)
local logo = getPropertyValue('P154')
if logo then
local logoStr = formatValue(logo)
if logoStr then
infobox:addImage('[[File:' .. logoStr .. '|150px]]', 'Logo')
end
end

-- Add image (P18) with media legend (P2096) as caption
local imageClaim = getFirstClaimObject('P18')
if imageClaim then
local imageVal =
imageClaim.mainsnak and imageClaim.mainsnak.datavalue and
imageClaim.mainsnak.datavalue.value
if imageVal then
local imageStr = tostring(imageVal)
local caption = getQualifierValue(imageClaim, 'P2096')
if caption and caption ~= '' then
infobox:addImage('[[File:' .. imageStr .. '|300px]]', caption)
else
infobox:addImage('[[File:' .. imageStr .. '|300px]]')
end
end
end

-- Add headquarters (P159)
local headquarters = getPropertyValue('P159')
if headquarters then
infobox:addRow('Headquarters', formatValue(headquarters))
end

-- Add founding date (P571)
local foundingDate = getPropertyValue('P571')
if foundingDate then
infobox:addRow('Founding Date', formatValue(foundingDate))
end

-- Add dissolution date (P576)
local dissolutionDate = getPropertyValue('P576')
if dissolutionDate then
infobox:addRow('Dissolution Date', formatValue(dissolutionDate))
end

-- Add country (P17)
local country = getPropertyValue('P17')
if country then infobox:addRow('Country', formatValue(country)) end

-- Add parent organization (P749)
local parentOrg = getPropertyValue('P749')
if parentOrg then
infobox:addRow('Parent Organization', formatValue(parentOrg))
end

-- Add official website (P856) as full-width row at bottom
local website = getPropertyValue('P856')
if website then
local websiteStr = formatValue(website)
if websiteStr then
-- Strip http:// or https:// from display text
local displayUrl = websiteStr:gsub('^https?://', '')
infobox:addWikitext(
'<div style="width:100%; text-align:center;">[' .. websiteStr ..
' ' .. displayUrl .. ']</div>')
end
end

addMap(infobox)
addWikidataLink(infobox)

return tostring(infobox) ..
'\n[[Category:Clubs, Societies and Institutions]]'
end

return p

Module:DynamicCapiunto

2026-06-28T10:44:35Z

Maintenance script: Deployed from Ansible

local capiunto = require 'capiunto'
local p = {}

function p.main(frame)
local args = frame:getParent().args
local qid = args.qid or args[1]

if not qid then
return '<span class="error">Error: No Wikidata QID provided</span>'
end

-- Register the entity association
frame:callParserFunction('#unlinkedwikibase', 'id=' .. qid)

-- Get entity data from UnlinkedWikibase
local entity = mw.ext.UnlinkedWikibase.getEntity(qid)

if not entity then
return '<span class="error">Error: Entity ' .. qid ..
' not found</span>'
end

-- Helper function to get property value from entity
local function getPropertyValue(pid)
if not entity.claims or not entity.claims[pid] then return nil end

local claims = entity.claims[pid]
if not claims or #claims == 0 then return nil end

local claim = claims[1]
if not claim.mainsnak or not claim.mainsnak.datavalue then
return nil
end

return claim.mainsnak.datavalue.value
end

-- Helper function to format different value types
local function formatValue(value, valueType)
if not value then return nil end

if type(value) == 'table' then
-- Handle time values
if value.time then
-- Extract year-month-day from +2023-01-15T00:00:00Z format
local dateStr = value.time
local year, month, day =
dateStr:match('^[+-]?(%d+)-(%d+)-(%d+)')
if year then
local y = tonumber(year)
local m = tonumber(month) or 0
local d = tonumber(day) or 0
-- If month or day are zero/unknown, show only the year
if m == 0 or d == 0 then
return string.format('%04d', y)
end
return string.format('%04d-%02d-%02d', y, m, d)
end
return value.time
-- Handle entity references (Q-IDs)
elseif value.id then
-- Register a parser cache dependency so the page is invalidated
-- when UnlinkedWikibase populates or updates this entity's data.
mw.ext.UnlinkedWikibase.getLocalTitle(value.id)
local linkedEntity = mw.ext.UnlinkedWikibase.getEntity(value.id)
if linkedEntity then
local label = (linkedEntity.labels and
linkedEntity.labels.en) and
linkedEntity.labels.en.value or value.id
-- Then prefer an en.wikipedia sitelink (external link)
if linkedEntity.sitelinks and linkedEntity.sitelinks.enwiki and
linkedEntity.sitelinks.enwiki.url then
return
'[' .. linkedEntity.sitelinks.enwiki.url .. ' ' ..
label .. ']'
end
-- Fallback to the English label if available
if linkedEntity.labels and linkedEntity.labels.en then
return label
end
end
return value.id
-- Handle monolingual text
elseif value.text then
return value.text
end
end

return tostring(value)
end

-- Helper to get claim entity id (if the claim is an entity)
local function getClaimEntityId(pid)
local v = getPropertyValue(pid)
if type(v) == 'table' and v.id then return v.id end
return nil
end

-- Helper to get the first claim object for a property
local function getFirstClaimObject(pid)
if not entity.claims or not entity.claims[pid] then return nil end
local claims = entity.claims[pid]
if not claims or #claims == 0 then return nil end
return claims[1]
end

-- Helper to get a qualifier value (prefer English monolingual text for P2096)
local function getQualifierValue(claim, qualPid)
if not claim or not claim.qualifiers or not claim.qualifiers[qualPid] then
return nil
end
local qsnaks = claim.qualifiers[qualPid]
if not qsnaks or #qsnaks == 0 then return nil end
for i, q in ipairs(qsnaks) do
-- Check for valid snak with datavalue
if q and q.snaktype == 'value' and q.datavalue and q.datavalue.value then
local v = q.datavalue.value
if type(v) == 'table' then
-- For monolingual text, prefer English
if v.language and v.language == 'en' and v.text then
return v.text
end
else
return tostring(v)
end
end
end
return nil
end

-- Extract a {latitude, longitude} coordinate (P625) from an entity object.
local function getCoordFromEntity(ent)
if not ent or not ent.claims or not ent.claims.P625 then return nil end
local claims = ent.claims.P625
if not claims or #claims == 0 then return nil end
local snak = claims[1].mainsnak
if not snak or not snak.datavalue then return nil end
local v = snak.datavalue.value
if type(v) == 'table' and v.latitude and v.longitude then return v end
return nil
end

-- Add a Leaflet/OpenStreetMap map for this entity.
-- Prefer the entity's own coordinate location (P625). If it has none, fall
-- back to the coordinates of the entity referenced as its headquarters
-- location (P159), fetched via UnlinkedWikibase.
-- Rendered via the Maps extension's #display_map parser function. A module's
-- return value goes through the main parse pass but NOT the preprocessor, so
-- parser-function syntax would otherwise be emitted literally. We expand it
-- here with frame:preprocess() and add the resulting HTML to the infobox.
local function addMap(box)
local coord = getCoordFromEntity(entity)
if not coord then
local hqId = getClaimEntityId('P159')
if hqId then
-- Register a parser cache dependency on the HQ entity so the
-- page is invalidated when its data is populated/updated.
mw.ext.UnlinkedWikibase.getLocalTitle(hqId)
coord = getCoordFromEntity(
mw.ext.UnlinkedWikibase.getEntity(hqId))
end
end
if not coord then return end
local mapHtml = frame:preprocess(string.format(
'{{#display_map:%s,%s|width=100%%|height=200|zoom=13|service=leaflet}}',
tostring(coord.latitude), tostring(coord.longitude)))
box:addWikitext(mapHtml)
end

-- Decide which infobox to render based on instance (P31)
local instanceId = getClaimEntityId('P31')
local infobox

if instanceId == 'Q5' then
-- Person infobox
local personTitle = qid
if entity.labels and entity.labels.en then
personTitle = entity.labels.en.value
end

infobox = capiunto.create({
title = personTitle,
bodyClass = 'infobox vevent',
bodyStyle = 'width: 300px;'
})

-- Add image (P18) with media legend (P2096) as caption
local imageClaim = getFirstClaimObject('P18')
if imageClaim then
local imageVal = imageClaim.mainsnak and
imageClaim.mainsnak.datavalue and
imageClaim.mainsnak.datavalue.value
if imageVal then
local imageStr = tostring(imageVal)
local caption = getQualifierValue(imageClaim, 'P2096')
if caption and caption ~= '' then
infobox:addImage('[[File:' .. imageStr .. '|300px]]',
caption)
else
infobox:addImage('[[File:' .. imageStr .. '|300px]]')
end
end
end

-- Birthplace (P19)
local birthplace = getPropertyValue('P19')
if birthplace then
infobox:addRow('Birthplace', formatValue(birthplace))
end

-- Birthday (P569)
local birthday = getPropertyValue('P569')
if birthday then
infobox:addRow('Birthday', formatValue(birthday))
end

-- Death (P570)
local death = getPropertyValue('P570')
if death then infobox:addRow('Death', formatValue(death)) end

-- Occupation (P106)
local occupation = getPropertyValue('P106')
if occupation then
infobox:addRow('Occupation', formatValue(occupation))
end

addMap(infobox)

return tostring(infobox) .. '\n[[Category:People]]'
else
-- Default: organisation/troupe infobox (existing behavior)
local title = qid
if entity.labels and entity.labels.en then
title = entity.labels.en.value
end

infobox = capiunto.create({
title = title,
bodyClass = 'infobox vevent',
bodyStyle = 'width: 300px;'
})

-- Add official name (P1448)
local officialName = getPropertyValue('P1448')
if officialName then
infobox:addRow('Official Name', formatValue(officialName))
end
end

-- Add logo (P154)
local logo = getPropertyValue('P154')
if logo then
local logoStr = formatValue(logo)
if logoStr then
infobox:addImage('[[File:' .. logoStr .. '|150px]]', 'Logo')
end
end

-- Add image (P18) with media legend (P2096) as caption
local imageClaim = getFirstClaimObject('P18')
if imageClaim then
local imageVal =
imageClaim.mainsnak and imageClaim.mainsnak.datavalue and
imageClaim.mainsnak.datavalue.value
if imageVal then
local imageStr = tostring(imageVal)
local caption = getQualifierValue(imageClaim, 'P2096')
if caption and caption ~= '' then
infobox:addImage('[[File:' .. imageStr .. '|300px]]', caption)
else
infobox:addImage('[[File:' .. imageStr .. '|300px]]')
end
end
end

-- Add headquarters (P159)
local headquarters = getPropertyValue('P159')
if headquarters then
infobox:addRow('Headquarters', formatValue(headquarters))
end

-- Add founding date (P571)
local foundingDate = getPropertyValue('P571')
if foundingDate then
infobox:addRow('Founding Date', formatValue(foundingDate))
end

-- Add dissolution date (P576)
local dissolutionDate = getPropertyValue('P576')
if dissolutionDate then
infobox:addRow('Dissolution Date', formatValue(dissolutionDate))
end

-- Add country (P17)
local country = getPropertyValue('P17')
if country then infobox:addRow('Country', formatValue(country)) end

-- Add parent organization (P749)
local parentOrg = getPropertyValue('P749')
if parentOrg then
infobox:addRow('Parent Organization', formatValue(parentOrg))
end

-- Add official website (P856) as full-width row at bottom
local website = getPropertyValue('P856')
if website then
local websiteStr = formatValue(website)
if websiteStr then
-- Strip http:// or https:// from display text
local displayUrl = websiteStr:gsub('^https?://', '')
infobox:addWikitext(
'<div style="width:100%; text-align:center;">[' .. websiteStr ..
' ' .. displayUrl .. ']</div>')
end
end

addMap(infobox)

return tostring(infobox) ..
'\n[[Category:Clubs, Societies and Institutions]]'
end

return p

Module:DynamicCapiunto

2026-06-28T10:37:06Z

Maintenance script: Deployed from Ansible

local capiunto = require 'capiunto'
local p = {}

function p.main(frame)
local args = frame:getParent().args
local qid = args.qid or args[1]

if not qid then
return '<span class="error">Error: No Wikidata QID provided</span>'
end

-- Register the entity association
frame:callParserFunction('#unlinkedwikibase', 'id=' .. qid)

-- Get entity data from UnlinkedWikibase
local entity = mw.ext.UnlinkedWikibase.getEntity(qid)

if not entity then
return '<span class="error">Error: Entity ' .. qid ..
' not found</span>'
end

-- Helper function to get property value from entity
local function getPropertyValue(pid)
if not entity.claims or not entity.claims[pid] then return nil end

local claims = entity.claims[pid]
if not claims or #claims == 0 then return nil end

local claim = claims[1]
if not claim.mainsnak or not claim.mainsnak.datavalue then
return nil
end

return claim.mainsnak.datavalue.value
end

-- Helper function to format different value types
local function formatValue(value, valueType)
if not value then return nil end

if type(value) == 'table' then
-- Handle time values
if value.time then
-- Extract year-month-day from +2023-01-15T00:00:00Z format
local dateStr = value.time
local year, month, day =
dateStr:match('^[+-]?(%d+)-(%d+)-(%d+)')
if year then
local y = tonumber(year)
local m = tonumber(month) or 0
local d = tonumber(day) or 0
-- If month or day are zero/unknown, show only the year
if m == 0 or d == 0 then
return string.format('%04d', y)
end
return string.format('%04d-%02d-%02d', y, m, d)
end
return value.time
-- Handle entity references (Q-IDs)
elseif value.id then
-- Register a parser cache dependency so the page is invalidated
-- when UnlinkedWikibase populates or updates this entity's data.
mw.ext.UnlinkedWikibase.getLocalTitle(value.id)
local linkedEntity = mw.ext.UnlinkedWikibase.getEntity(value.id)
if linkedEntity then
local label = (linkedEntity.labels and
linkedEntity.labels.en) and
linkedEntity.labels.en.value or value.id
-- Then prefer an en.wikipedia sitelink (external link)
if linkedEntity.sitelinks and linkedEntity.sitelinks.enwiki and
linkedEntity.sitelinks.enwiki.url then
return
'[' .. linkedEntity.sitelinks.enwiki.url .. ' ' ..
label .. ']'
end
-- Fallback to the English label if available
if linkedEntity.labels and linkedEntity.labels.en then
return label
end
end
return value.id
-- Handle monolingual text
elseif value.text then
return value.text
end
end

return tostring(value)
end

-- Helper to get claim entity id (if the claim is an entity)
local function getClaimEntityId(pid)
local v = getPropertyValue(pid)
if type(v) == 'table' and v.id then return v.id end
return nil
end

-- Helper to get the first claim object for a property
local function getFirstClaimObject(pid)
if not entity.claims or not entity.claims[pid] then return nil end
local claims = entity.claims[pid]
if not claims or #claims == 0 then return nil end
return claims[1]
end

-- Helper to get a qualifier value (prefer English monolingual text for P2096)
local function getQualifierValue(claim, qualPid)
if not claim or not claim.qualifiers or not claim.qualifiers[qualPid] then
return nil
end
local qsnaks = claim.qualifiers[qualPid]
if not qsnaks or #qsnaks == 0 then return nil end
for i, q in ipairs(qsnaks) do
-- Check for valid snak with datavalue
if q and q.snaktype == 'value' and q.datavalue and q.datavalue.value then
local v = q.datavalue.value
if type(v) == 'table' then
-- For monolingual text, prefer English
if v.language and v.language == 'en' and v.text then
return v.text
end
else
return tostring(v)
end
end
end
return nil
end

-- Extract a {latitude, longitude} coordinate (P625) from an entity object.
local function getCoordFromEntity(ent)
if not ent or not ent.claims or not ent.claims.P625 then return nil end
local claims = ent.claims.P625
if not claims or #claims == 0 then return nil end
local snak = claims[1].mainsnak
if not snak or not snak.datavalue then return nil end
local v = snak.datavalue.value
if type(v) == 'table' and v.latitude and v.longitude then return v end
return nil
end

-- Add a Leaflet/OpenStreetMap map for this entity.
-- Prefer the entity's own coordinate location (P625). If it has none, fall
-- back to the coordinates of the entity referenced as its headquarters
-- location (P159), fetched via UnlinkedWikibase.
-- Rendered via the Maps extension's #display_map parser function, which the
-- wiki resolves when it parses this module's returned wikitext.
local function addMap(box)
local coord = getCoordFromEntity(entity)
if not coord then
local hqId = getClaimEntityId('P159')
if hqId then
-- Register a parser cache dependency on the HQ entity so the
-- page is invalidated when its data is populated/updated.
mw.ext.UnlinkedWikibase.getLocalTitle(hqId)
coord = getCoordFromEntity(
mw.ext.UnlinkedWikibase.getEntity(hqId))
end
end
if not coord then return end
box:addWikitext(string.format(
'{{#display_map:%s,%s|width=100%%|height=200|zoom=13|service=leaflet}}',
tostring(coord.latitude), tostring(coord.longitude)))
end

-- Decide which infobox to render based on instance (P31)
local instanceId = getClaimEntityId('P31')
local infobox

if instanceId == 'Q5' then
-- Person infobox
local personTitle = qid
if entity.labels and entity.labels.en then
personTitle = entity.labels.en.value
end

infobox = capiunto.create({
title = personTitle,
bodyClass = 'infobox vevent',
bodyStyle = 'width: 300px;'
})

-- Add image (P18) with media legend (P2096) as caption
local imageClaim = getFirstClaimObject('P18')
if imageClaim then
local imageVal = imageClaim.mainsnak and
imageClaim.mainsnak.datavalue and
imageClaim.mainsnak.datavalue.value
if imageVal then
local imageStr = tostring(imageVal)
local caption = getQualifierValue(imageClaim, 'P2096')
if caption and caption ~= '' then
infobox:addImage('[[File:' .. imageStr .. '|300px]]',
caption)
else
infobox:addImage('[[File:' .. imageStr .. '|300px]]')
end
end
end

-- Birthplace (P19)
local birthplace = getPropertyValue('P19')
if birthplace then
infobox:addRow('Birthplace', formatValue(birthplace))
end

-- Birthday (P569)
local birthday = getPropertyValue('P569')
if birthday then
infobox:addRow('Birthday', formatValue(birthday))
end

-- Death (P570)
local death = getPropertyValue('P570')
if death then infobox:addRow('Death', formatValue(death)) end

-- Occupation (P106)
local occupation = getPropertyValue('P106')
if occupation then
infobox:addRow('Occupation', formatValue(occupation))
end

addMap(infobox)

return tostring(infobox) .. '\n[[Category:People]]'
else
-- Default: organisation/troupe infobox (existing behavior)
local title = qid
if entity.labels and entity.labels.en then
title = entity.labels.en.value
end

infobox = capiunto.create({
title = title,
bodyClass = 'infobox vevent',
bodyStyle = 'width: 300px;'
})

-- Add official name (P1448)
local officialName = getPropertyValue('P1448')
if officialName then
infobox:addRow('Official Name', formatValue(officialName))
end
end

-- Add logo (P154)
local logo = getPropertyValue('P154')
if logo then
local logoStr = formatValue(logo)
if logoStr then
infobox:addImage('[[File:' .. logoStr .. '|150px]]', 'Logo')
end
end

-- Add image (P18) with media legend (P2096) as caption
local imageClaim = getFirstClaimObject('P18')
if imageClaim then
local imageVal =
imageClaim.mainsnak and imageClaim.mainsnak.datavalue and
imageClaim.mainsnak.datavalue.value
if imageVal then
local imageStr = tostring(imageVal)
local caption = getQualifierValue(imageClaim, 'P2096')
if caption and caption ~= '' then
infobox:addImage('[[File:' .. imageStr .. '|300px]]', caption)
else
infobox:addImage('[[File:' .. imageStr .. '|300px]]')
end
end
end

-- Add headquarters (P159)
local headquarters = getPropertyValue('P159')
if headquarters then
infobox:addRow('Headquarters', formatValue(headquarters))
end

-- Add founding date (P571)
local foundingDate = getPropertyValue('P571')
if foundingDate then
infobox:addRow('Founding Date', formatValue(foundingDate))
end

-- Add dissolution date (P576)
local dissolutionDate = getPropertyValue('P576')
if dissolutionDate then
infobox:addRow('Dissolution Date', formatValue(dissolutionDate))
end

-- Add country (P17)
local country = getPropertyValue('P17')
if country then infobox:addRow('Country', formatValue(country)) end

-- Add parent organization (P749)
local parentOrg = getPropertyValue('P749')
if parentOrg then
infobox:addRow('Parent Organization', formatValue(parentOrg))
end

-- Add official website (P856) as full-width row at bottom
local website = getPropertyValue('P856')
if website then
local websiteStr = formatValue(website)
if websiteStr then
-- Strip http:// or https:// from display text
local displayUrl = websiteStr:gsub('^https?://', '')
infobox:addWikitext(
'<div style="width:100%; text-align:center;">[' .. websiteStr ..
' ' .. displayUrl .. ']</div>')
end
end

addMap(infobox)

return tostring(infobox) ..
'\n[[Category:Clubs, Societies and Institutions]]'
end

return p