La documentazione per questo modulo può essere creata in Modulo:Comics/man
local p = {}
local h = require("Modulo:HF")
local SC = require("Modulo:StaffCorrection")
local standard = require("Modulo:StandardizedName")
local m_date = require("Modulo:Date")
local monthData = mw.loadData( 'Modulo:Month/data' )
local monthAliases = monthData[1]
local monthNumbers = monthData[2]
local staff_fieldname = {"Scrittore", "Disegno", "Inchiostro", "Colore", "Letterer", "AdaptedFrom", "Editor", "CoverArtist", "Editor-in-Chief" }
local staff_singular = {"Scrittore", "Disegno", "Inchiostro", "Colore", "Letterer", "Adattato da materiale originale di", "Editore", "Artista Cover", "Editor-in-Chief"}
local staff_plural = {"Writers", "Pencilers", "Inkers", "Colourists", "Letterers", "Adapted Stories", "Editors", "Cover Artists", "Editors-in-Chief"}
local volume_date_first = ''
local volume_date_last = ''
function p.test(frame)
local getArgs = require('Dev:Arguments').getArgs
local args = getArgs (frame)
local dates = { args['Year'], args['Month'], args['Season'], args['ReleaseDate'] }
local canceled = args['Canceled']
local reprint_title = {}
local reprint_story = {}
local storytitles = {}
local s = ''
local n = ''
local page = mw.title.getCurrentTitle()
for i = 1,80 do
table.insert( reprint_title, standard.lua_standardized_comics_name( args['ReprintOf'..i] ) )
table.insert( reprint_story, args['ReprintOfStory'..i] )
end
for i = 1,80 do
if h.isempty(reprint_title[i]) == false
then
n = reprint_story[i] or '1'
s = standard.lua_standardized_comics_name(reprint_title[i])
s = mw.title.new(s):getContent()
if h.isempty(s) == false
then storytitles[i] = string.match(s, '|%s+StoryTitle'..n..'%s+=%s+(.-)\n')
end
end
end
return page.text
--return p.lua_link_to_publication_category(dates[1], dates[2], dates[3])
--return mw.text.listToText( storytitles )
--return mw.text.listToText( reprint_title )
end
function p.appearances_needed(frame)
local getArgs = require('Dev:Arguments').getArgs
local args = getArgs (frame)
local s = args['Appearing'] or ''
s = mw.text.split(s, '\n', true)
local output = 0
local empty = { "'''Protagonisti:'''", "* <br/>", "'''Personaggi Secondari:'''", "* <br/>",
"'''Antagonisti:'''", "* <br/>", "'''Altri Personaggi:'''", "* <br/>",
"'''Luoghi:'''", "* <br/>", "'''Oggetti:'''", "* <br/>",
"'''Veicoli:'''", "* <br/>"
}
if #s == 14
then
for i = 1, #s do
if s[i] == empty[i]
then output = output + 1
end
end
end
if output < 14
then output = false
else output = true
end
return output
end
------------------------------------------------------------------------------------------------
--takes a date and formats it according to the syntax - https://www.mediawiki.org/wiki/Help:Extension:ParserFunctions##time
function p.lua_date_converter(s, t)
local l = mw.language.new('en')
local day
local month
local year
local i = 0
local j = 0
--'To comma' = 'F j, Y', "dash" = 'm-d-Y'
if h.isempty(t) == true
then t = 'Ymd'
end
if h.isempty(s) == true
then s = l:formatDate(t)
else
i = string.find(s, '-',1,true)
j = string.find(s, ', ',1,true)
if i ~= nil
then
j = string.find(s, '-',i+1,true)
month = string.sub(s, 1, i-1)
month = monthNumbers[string.lower( month )] or month
day = string.sub(s, i+1, j-1)
if #day == 1 then day = "0"..day end
year = string.sub(s, j+1, #s)
s = l:formatDate(t, day.."-"..month.."-"..year)
elseif j ~= nil then
year = string.sub(s, j+2, #s)
i = string.find(s, ' ',1,true)
month = string.sub(s, 1, i-1)
month = monthNumbers[string.lower( month )] or month
day = string.sub(s, i+1, j-1)
if #day == 1 then day = "0"..day end
s = l:formatDate(t, day.."-"..month.."-"..year)
else
s = l:formatDate(t, s)
end
end
return s
end
function p.date_converter(frame)
return p.lua_date_converter(frame.args[1], frame.args[2])
end
--compares two dates. Return "true" if 1st date is before the 2nd date, and "false" otherwise.
function p.lua_date_comparison(d1, d2)
d1 = p.lua_date_converter(d1, 'Ymd')
if h.isempty(d2) == true
then d2 = '@'..os.time() --If 2nd date is ommited, then current date is used for comparison.
end
d2 = p.lua_date_converter(d2, 'Ymd')
if d1<=d2
then return true
else return false
end
end
function p.date_comparison(frame)
return p.lua_date_comparison(frame.args[1], frame.args[2])
end
--check if comics is canceled or a solicitation
function p.lua_solicit_or_canceled(releasedate, canceled)
if h.isempty(canceled) == false or (h.isempty(releasedate) == false and p.lua_date_comparison(releasedate) == false)
then return true --it is canceled or a solicitation
else return false
end
end
function p.solicit_or_canceled(frame)
if p.lua_solicit_or_canceled(frame.args[1], frame.args[2]) == true
then return 'yes'
else return ''
end
end
function p.not_solicit_or_canceled(frame)
if p.lua_solicit_or_canceled(frame.args[1], frame.args[2]) == false
then return 'yes'
else return 'no'
end
end
--check if comics is recently released/published
function p.lua_recent(releasedate, month, year, season, canceled)
local l = mw.language.new('en')
local current = l:formatDate('Ymd')
local s = ''
if h.isempty(canceled) == true
then
if h.isempty(month) == true and h.isempty(season) == false
then month = season
end
if h.isempty(releasedate) == false
then
releasedate = p.lua_date_converter(releasedate, 'Ymd')
if releasedate>=l:formatDate('Ymd', '- 4 months') and releasedate<=current
then s = true
end
elseif h.isempty(year) == false and h.isempty(month) == false
then
releasedate = p.lua_date_converter(monthAliases[string.lower( month )]..' 1, '..year, 'Ymd')
if releasedate>=l:formatDate('Ymd', '- 2 months') and releasedate<=current
then s = true
end
end
end
return s
end
function p.recent(frame)
return p.lua_recent(frame.args[1], frame.args[2], frame.args[3], frame.args[4], frame.args[5])
end
--returns release week category
function p.release_week_category(frame)
return m_date.lua_get_release_week_category(frame.args[1])
end
--returns link to release week category
function p.link_to_release_week_category(frame)
return m_date.lua_get_link_to_release_week(frame.args[1])
end
--returns publication category
function p.publication_category(frame)
local year = frame.args[1]
local month = frame.args[2]
local season = frame.args[3]
local pagename = standard.lua_remove_the(frame.args[4])
local s = ''
if h.isempty(month) == true and h.isempty(season) == false
then month = season
end
if h.isempty(year) == false
then
if h.isempty(month) == false
then
month = monthAliases[string.lower( month )]
s = s..'[[Category:'..year..'|'..month..pagename..']][[Category:'..year..', '..month..']]'
else
s = s..'[[Category:'..year..']]'
end
s = s..p.lua_era(year)
end
return s
end
--returns link to date of publication category
function p.lua_link_to_publication_category(year, month, season)
local s = ''
if h.isempty(month) == true and h.isempty(season) == false
then month = season
end
if h.isempty(year) == false
then
if h.isempty(month) == false
then
month = monthAliases[string.lower( month )]
s = '[[:Category:'..year..', '..month..'|'..month..']], [[:Category:'..year..'|'..year..']]'
else
s = '[[:Category:'..year..'|'..year..']]'
end
end
return s
end
function p.link_to_publication_category(frame)
return p.lua_link_to_publication_category(frame.args[1], frame.args[2], frame.args[3])
end
--returns era based on year
function p.lua_era(year, t)
if h.isempty(year) == false
then
if h.isempty(t) == true
then t = ''
else t = ' '..t
end
year = tonumber(year)
if year<1955 then return '[[Category:Golden-Age'..t..']]' end
if year>=1955 and year<1970 then return '[[Category:Silver-Age'..t..']]' end
if year>=1970 and year<1983 then return '[[Category:Bronze-Age'..t..']]' end
if year>=1983 and year<1992 then return '[[Category:Copper-Age'..t..']]' end
if year>=1992 then return '[[Category:Modern-Age'..t..']]' end
else return ''
end
end
function p.era(frame)
return p.lua_era(frame.args[1], frame.args[2])
end
function p.links_to_release_publication_dates(frame)
local year = frame.args[1]
local month = frame.args[2]
local season = frame.args[3]
local release = m_date.lua_get_link_to_release_week(frame.args[4])
local canceled = frame.args[5]
local published = p.lua_link_to_publication_category(year, month, season)
local s = ''
local s1 = ''
local s2 = ''
if h.isempty(canceled) == false
then
s1 = 'Intended Publication Date'
s2 = 'Intended Release Date'
else
s1 = 'Annunciato'
s2 = 'Rilasciato'
end
if h.isempty(published) == false
then
if h.isempty(release) == false
then s = '<table style="width:100%; text-align: center;"><tr style="line-height:0.5em;"><td style="width:50%;">'..s1..'</td><td style="width:50%;">'..s2..'</td></tr><tr style=" font-size:12px;"><td>'..published..'</td><td>'..release..'</td></tr></table>'
else s = '<table style="width:100%; text-align: center;"><tr style="line-height:0.5em;"><td>'..s1..'</td></tr><tr><td style=" font-size:12px;">'..published..'</td></tr></table>'
end
elseif h.isempty(release) == false
then s = '<table style="width:100%; text-align: center;"><tr style="line-height:0.5em;"><td>'..s2..'</td></tr><tr><td style=" font-size:12px;">'..release..'</td></tr></table>'
end
return s
end
----------------------------------------------------------------------------------------------
--events, arcs, storylines
function p.events_and_arcs(frame)
local events = mw.text.split( frame.args[1],"@@@",true )
local events_names = mw.text.split( frame.args[2],"@@@",true )
local arcs = mw.text.split( frame.args[3],"@@@",true )
local arcs_names = mw.text.split( frame.args[4],"@@@",true )
local storylines = mw.text.split( frame.args[5],"@@@",true )
local storylines_names = mw.text.split( frame.args[6],"@@@",true )
local i
local j
local e = {}
local a = {}
local sl = {}
local s = ''
j = 1
for i = 1,#events do
if h.isempty(events[i]) == false
then
if h.isempty(events_names[i]) == true
then events_names[i] = events[i]
end
e[j] = '"[['..events[i]..'|'..events_names[i]..']]"'
j = j + 1
end
end
if #e > 0
then
s = '<div style="text-align:center; font-size:10px; font-weight:900; line-height:1em; padding:0.5em 0pt 0.5em 0pt;">Parte dell evento'
if #e > 1
then s = s..mw.text.listToText( e )
else s = s..e[1]
end
s = s..'</div>'
end
j = 1
for i = 1,#arcs do
if h.isempty(arcs[i]) == false
then
if h.isempty(arcs_names[i]) == true
then arcs_names[i] = arcs[i]
end
a[j] = '"[['..arcs[i]..'|'..arcs_names[i]..']]"[[Category:'..arcs[i]..']]'
j = j + 1
end
end
if #a > 0
then
if s ~= '' then s = s..'<div style="clear:both;"></div>' end
s = s..'<div style="text-align:center; font-size:10px; font-weight:900; line-height:1em; padding:0.5em 0pt 0.5em 0pt;">Parte dello story arc '
if #a > 1
then s = s..mw.text.listToText( a )
else s = s..a[1]
end
s = s..'</div>'
end
j = 1
for i = 1,#storylines do
if h.isempty(storylines[i]) == false
then
if h.isempty(storylines_names[i]) == true
then storylines_names[i] = storylines[i]
end
sl[j] = '"[['..storylines[i]..'|'..storylines_names[i]..']]"[[Category:'..storylines[i]..']]'
j = j + 1
end
end
if #sl > 0
then
if s ~= '' then s = s..'<div style="clear:both;"></div>' end
s = s..'<div style="text-align:center; font-size:10px; font-weight:900; line-height:1em; padding:0.5em 0pt 0.5em 0pt;">Parte della storyline '
if #sl > 1
then s = s..mw.text.listToText( sl )
else s = s..sl[1]
end
s = s..'</div>'
end
return s
end
----------------------------------------------------------------------------------------------
function p.getComicsContent(s_page)
--s_page = standard.lua_standardized_comics_name(s_page)
local t = mw.title.new(s_page)
local s = t:getContent()
local a = {}
local r_i = {}
local r_s = {}
local i = 0
local j = 1
i = string.find(s,'\n')
while i ~= nil do
table.insert(a,string.sub(s,j,i-1))
j = i+1
i = string.find(s,'\n',j)
end
j = 0
for i=1,#a do
j = string.find(a[i],'ReprintOf')
if j ~= nil
then
j = string.find(a[i],'ReprintOfStory')
if j ~= nil
then
s = mw.text.trim( mw.ustring.gsub(a[i],'| ReprintOfStory%d+.+=', ''), "\t\r\n\f " )
table.insert(r_s, s )
else
s = mw.text.trim( mw.ustring.gsub(a[i],'| ReprintOf%d+.+=', ''), "\t\r\n\f " )
s = standard.lua_standardized_comics_name(s)
table.insert(r_i, s )
end
end
end
s = {}
for i = 1,#r_i do
table.insert(s, {r_i[i], r_s[i]})
end
return s
end
function p.list_r(frame)
local l = mw.text.split( frame.args[1],"@@@",true )
local s_issue = standard.lua_standardized_comics_name(frame.args[2])
local s_story = frame.args[3]
local t = {}
local res = {}
local i
local j
for i = 1,#l-1 do
t = p.getComicsContent(l[i])
for j = 1,#t do
if t[j][1] == s_issue and (h.isempty(s_story) == true or t[j][2] == s_story)
then table.insert(res, '\n*[['..l[i]..']]')
end
end
end
return table.concat(res)
end
--forms a list of all reprints of specified comics
function p.list_of_reprints(frame)
local l = mw.text.split( frame.args[1],"*",true )
local s_page = standard.lua_standardized_comics_name(frame.args[2])
local i
local j
local l2 = {}
local s
local s2
for i = 1,#l do
s = mw.text.split( l[i],"@",true )
for j = 2,79 do
if h.isempty(s[j]) == false
then table.insert(l2, {standard.lua_standardized_comics_name(s[1]), standard.lua_standardized_comics_name(s[j])})
end
end
end
s = {}
s2 = ''
for i = 1,#l2 do
if l2[i][2] == s_page
then table.insert(s, '\n*[['..l2[i][1]..']]')
end
end
return table.concat(s)
end
--display a quote from the original comics without autocategorization
function p.reprint_quote(frame)
local l = mw.text.split( frame.args[1],"@@@",true )
local q = l[1] or ''
local s = l[2] or ''
local bq = l[3] or ''
if h.isempty(bq) == false
then
bq = mw.ustring.gsub(bq, '%[%[Category:.-%]%]', '' )
return bq
elseif h.isempty(q) == false
then return frame:preprocess( '{{Quote|'..q..'|'..s..'}}' )
else return ''
end
end
--returns story title, story title from reprint or story number if none of them exists
function p.StoryTitle(frame)
local number = frame.args[1]
local st = frame.args[2] or ''
local reprint_st = frame.args[3] or ''
if number % 10 == 1
then number = number..'a'
elseif number % 10 == 2-- in (2,22,32,42,52,62,72)
then number = number..'a'
elseif number % 10 == 3 --in (3,23,33,43,53,63,73)
then number = number..'a'
else number = number..'a'
end
number = number..' Storia'
if h.isempty(st) == true
then st = reprint_st
end
if h.isempty(st) == false
then
if string.sub(st,1,1) ~= '"'
then st = '"'..st..'"'
end
else
st = number
end
return st
end
-- check if main/textless cover exists
function p.lua_coverExists(s_page, s_type)
local info = standard.lua_get_title_volume_issue(s_page)
local cover = ''
local output = ''
cover = info.filename.all
if s_type == 'Textless'
then cover = cover.." Textless.jpg"
else cover = cover..".jpg"
end
if h.exists("File:"..cover)
then output = cover
end
return output
end
function p.cover(frame)
local s_page = frame.args[1]
local s_type = frame.args[2] or 'Textless'
return p.lua_coverExists(s_page, s_type)
end
--get the list of general contributors (cover artists, editors-in-chief, etc.)
function p.GeneralContributors(frame)
local l = mw.text.split( frame.args[1],"*",true )
local t = frame.args[2]
local cat = frame.args["category"]
local link_name = frame.args["link_name"]
local needed = frame.args["needed"]
local t2
if t == 'Editor-in-Chief'
then t2 = 'Editors-in-Chief'
else t2 = t..'s'
end
if h.isempty(link_name) == true
then link_name = '[[:Category:Marvel Staff/'..t2..'|'..t..']]'
end
l = p.lua_StoryContributors(l, t, cat)
if h.isempty(l) == false
then return frame:preprocess( '{{Infobox Line|left = '..link_name..'|right = '..l..'}}' )
elseif cat == 'yes' and needed ~= 'no'
then return '[[Category:'..t..' Credit Needed]]'
else return ''
end
end
--get the list of general contributors (cover artists, editors-in-chief, etc.)
function p.StoryContributors(frame)
local l = mw.text.split( frame.args[1],"@",true )
local l2 = {}
local t = {"Scrittore", "Disegno", "Inchiostro", "Colore", "Letterer", "Storie Adattate", "Editore"}
local t2 = {}
local cat = frame.args["category"]
local needed = frame.args["needed"]
local link_name
local i
local j
for i = 1,7 do
if cat == 'yes'
then
l2[i] = mw.text.split(l[i],"*",true )
else
l[i] = l[i].."|"
l2[i] = mw.text.split(l[i],"|",true )
end
for j = 1,#l2[i] do
l2[i][j] = mw.text.trim(l2[i][j])
end
l2[i] = p.lua_StoryContributors(l2[i], t[i], cat)
if i == 6
then t2[i] = '[[:Category:Marvel Staff/Adapted Stories|Adapted from original material by]]'
else t2[i] = '[[:Category:Marvel Staff/'..t[i]..'|'..t[i]..']]'
end
end
l = ''
if h.isempty(table.concat(l2)) == true
then
return ''
else
for i = 1,7 do
if h.isempty(l2[i]) == false
then l = l..frame:preprocess( '{{Infobox Line|left = '..t2[i]..'|right = '..l2[i]..'}}' )
elseif cat == 'yes' and i ~= 6 and needed ~= 'no'
then l = l..'[[Category:'..t[i]..' Credit Needed]]'
end
end
return l
end
end
--transform the list of contributors into infobox lines with or without categorization
function p.lua_StoryContributors(list, text, subcategory)
local i
local link
local category
local output = ''
i = 1
if not h.isempty(list)
then
while next(list,i) ~= nil do
if not h.isempty(list[i])
then
link, category = SC.lua_get_staff_link_and_category(list[i], text)
if subcategory == 'yes'
then list[i] = link..h.Category(category)..'<br>'
else list[i] = link..'<br>'
end
end
i = i + 1
end
output = table.concat(list)
end
return output
end
-- get the list of images and captions and transform them into gallery of alternate covers
function p.covers(frame)
local l_covers = mw.text.split( frame.args[1],"@@@",true )
local l_captions = mw.text.split( frame.args[2],"@@@",true )
local s_page = frame.args[3]
local l = {}
local c = {}
local i
local j
local k = 0
local s
local res = {}
i = 1
j = 1
s_page = string.gsub(s_page,'/',' ')
s_page = string.gsub(s_page,':','')
s_page = string.gsub(s_page,'&','&')
s_page = string.gsub(s_page,''',"'")
s_page = s_page.." Textless.jpg"
while next(l_covers,i) ~= nil do
if h.isempty(l_covers[i]) == false
then
l[j] = l_covers[i]
c[j] = l_captions[i]
j = j + 1
end
i = i + 1
end
if l[1] == s_page
then c[1] = 'Textless'
end
--if (j == 1 or l[1] ~= s_page) and mw.title.new("File:"..s_page).exists == true
if l[1] ~= s_page and mw.title.new("File:"..s_page).exists == true
then
table.insert(l, 1, s_page)
table.insert(c, 1, 'Textless')
end
i = 1
for j=1,#l do
s = '<div style="float: left; width: 65px; margin: 2px 8px; border: 1px solid {{Theme.Default.Border}}; background: {{Theme.Default.BG}}; border-radius:10px; padding: 5px; text-align: center; font-size: 10px; font-weight: 900; line-height: 1.5em;">[[File:'..l[j]..'|65px]]'..c[j]..'</div>'
if i == 3
then
s = s..'<br clear=left>'
i = 1
else
i = i + 1
end
table.insert(res, s)
end
return table.concat(res)
end
-- get the list of appearances formed by dpl query from a comics issue and replace/move all tags to suppress all categoriztion.
function p.lua_reprint_appearances(l, pagename)
local j
local k
local s1
local s2
local s3
l = mw.ustring.gsub(l, '{{[Aa]|(%[%[.-%]%])}}', '%1' )
l = mw.ustring.gsub(l, '{{[Aa]|(.-)}}', '[[%1]]' )
l = mw.ustring.gsub(l, '{{[Aa]pn|(%[%[.-%]%]).-}}', '%1' )
l = mw.ustring.gsub(l, '{{[Aa]pn||.-}}', '' )
l = mw.ustring.gsub(l, '{{1stas|(%[%[.-%]%])|(.-)}}', '%1 {{g|First appearance as %2}}' )
l = mw.ustring.gsub(l, '{{[Pp]ossessed|(%[%[.-%]%])|(.-)}}', '%1 {{g|Possessed by %2}}' )
l = mw.ustring.gsub(l, '{{[Pp]ossessedBy|(%[%[.-%]%])|(.-)}}', '%1 {{g|Possessed by %2}}' )
l = mw.ustring.gsub(l, '{{[Pp]ossesses|(%[%[.-%]%])|(.-)}}', '%1 {{g|Possesses %2}}' )
l = mw.ustring.gsub(l, '{{[Ii]mpersonates|(.-)}}', '{{g|Impersonates %1}}' )
l = mw.ustring.gsub(l, '{{[Mm]minor|||(.-)}}', '{{g|%1}}' )
j, k = mw.ustring.find(string.lower(l), '{{minor|')
if j ~= nil
then
s1 = mw.ustring.sub( l, 1, j-1 )
i = mw.ustring.find(l, '}}')
s2 = mw.ustring.sub( l, k+1, i-1 )
s3 = mw.ustring.sub( l, i+2, #l )
j = mw.ustring.find(s2, '[[',1,true)
k = mw.ustring.find(s2, ']]',1,true)
if j ~= nil and k ~= nil
then
s2 = '[['..mw.ustring.sub(s2, j+2, k-1 )..']]'
else
s2 = mw.text.split( s2,"|",true )
if #s2 == 3
then s2 = '[['..s2[1]..'|'..s2[2]..']] {{g|'..s2[3]..'}}'
elseif #s2 == 2
then s2 = s2[1]..' {{g|'..s2[2]..'}}'
else s2 = s2[1]
end
end
l = s1..s2..s3
end
l = mw.ustring.gsub(l, '{{[Gg]|(%[%[.-%]%])|(.-)}}', '%1 {{g|%2}}' )
l = mw.ustring.gsub(l, '{{[Gg]|(%[%[.-%]%])}}', '%1' )
l = mw.ustring.gsub(l, '{{[Gg]reen|(%[%[.-%]%])|(.-)}}', '%1 {{g|%2}}' )
l = mw.ustring.gsub(l, '{{[Gg]reen|(%[%[.-%]%])}}', '%1' )
l = mw.ustring.gsub(l, '({{.-)|(%[%[.-%]%])}}', '%2 %1}}' )
l = mw.ustring.gsub(l, '{{[Cc]hronology}}', '{{g|[['..pagename..'#Chronology Notes|See chronology]]}}' )
l = mw.ustring.gsub(l, '{{[Cc]hronoFB}}', '{{g|[['..pagename..'#Chronology Notes|Appears in flashback]]}}' )
--l = mw.ustring.gsub(l, '{{g|[[#Continuity Notes|See Continuity Notes]]}}', '{{g|[['..pagename..'#Continuity Notes|See Continuity Notes]]}}' )
j, k = mw.ustring.find(string.lower(l), '{{g|[[#Continuity Notes|See Continuity Notes]]}}',1,true)
if j ~= nil
then
s1 = string.sub( l, 1, j-1 )
s2 = '{{g|[['..pagename..'#Continuity Notes|See Continuity Notes]]}}'
s3 = string.sub( l, k+1, #l )
l = s1..s2..s3
end
l = mw.ustring.gsub(l, '%[%[Category:.-%]%]', '' )
l = mw.ustring.gsub(l, '<', '<' )
l = mw.ustring.gsub(l, '>', '>' )
return l
end
function p.reprint_appearances(frame)
local l = mw.text.unstrip( frame.args[1] )
local pagename = frame.args[2]
local j
local k
l = mw.text.split(l,'\n')
for i = 1,#l do
l[i] = '\n'..p.lua_reprint_appearances(l[i], pagename)
end
return frame:preprocess( table.concat(l) )
end
-- forms a gallery of comics issues in specified volume based on dpl query from vloume category
function p.volume(frame)
local getArgs = require('Dev:Arguments').getArgs
local args = getArgs (frame)
local l = mw.text.split(args["list"],"@@@",true)
local parts = {}
local above = {}
local below = {}
local exclude = args["exclude"]
local part
local a
local b
local s_page
local s_image
local s_title
local i, j, k, f
local v
local s
local t = {}
local t2 = {}
local cover
local textless
local info = {}
local title_for_sorting = ''
local publication_date = ''
local link = ''
local output = ''
local tag = ''
if h.isempty(exclude) == false
then exclude = mw.text.split(exclude,";",true)
end
for i = 1,9 do
table.insert(parts, tonumber(standard.lua_padded_issue(args['part'..i])))
table.insert(above, args['part'..i..'_above'] or '')
table.insert(below, args['part'..i..'_below'] or '')
end
i = 1
while next(l,i) ~= nil do
v = mw.text.split(l[i],"*",true)
i = i + 1
s_page = v[1]
s_image = v[2]
s_title = v[3]
if not h.in_list(exclude, s_page)
then
publication_date = p.lua_link_to_publication_category(v[4], v[5])
info = standard.lua_get_title_volume_issue(s_page)
link = standard.lua_standardized_link(s_page, 'Comics')
tag = mw.html.create( 'span' )
:css( 'font-weight', 'bold' )
:wikitext (link)
:done()
link = tostring(tag)
s = info.filename.all
cover = s .. '.jpg'
textless = s ..' Textless.jpg'
if h.isempty(s_image) == true
then
if h.exists('File:'..cover)
then s_image = cover
elseif h.exists('File:'..textless)
then s_image = textless
else s_image = 'No Image Cover.jpg'
end
end
if h.isempty(s_title) == true
then s_title = ''
else s_title = '<br />"'..s_title..'"'
end
s = info.padded_issue..'@@@'..s_image..'{{!}}'..link..s_title..'<br>('..publication_date..')\n'
table.insert(t,s)
end
end
table.sort(t)
--volume_date_first = string.match(t[1],'<br>%((.+)%)\n')
--volume_date_last = string.match(t[#t],'<br>%((.+)%)\n')
part = tonumber(parts[1])
i = 1
while i <= #t do
v = mw.text.split(t[i],"@@@",true)
i = i + 1
if h.isempty(part) == true or part == 0
then table.insert(t2, v[2])
else table.insert(t2, {v[1], v[2]})
end
end
if h.isempty(part) == true or part == 0
then
a = above[1] or ''
b = below[1] or ''
output = a..frame:preprocess('{{#tag:gallery|'..table.concat(t2)..'|position=center|captionalign=center|hideaddbutton=true}}')..b
else
t = {}
k = tonumber( t2[1][1] )
f = parts[1]
i = 1
if parts[#parts] < tonumber( t2[#t2][1] )
then table.insert(parts, tonumber( t2[#t2][1] ) )
end
while i <=#parts do
part = tonumber(parts[i])
if h.isempty(part) == true or part == 0
then break
else
a = above[i] or ''
b = below[i] or ''
part = {}
for j = 1, #t2 do
if tonumber( t2[j][1] ) >= tonumber (k) and tonumber( t2[j][1] ) <= tonumber (f)
then table.insert(part, t2[j][2])
end
end
i = i + 1
k = f+1
f = parts[i]
table.insert(t, a..frame:preprocess('{{#tag:gallery|'..table.concat(part)..'|position=center|captionalign=center|hideaddbutton=true}}')..b)
--table.insert(t, a..table.concat(part)..b)
end
end
output = table.concat(t)
end
return output
end
function p.volume_dates(frame)
return volume_date_first..'-'..volume_date_last
end
return p