Module:GetWorks
From Rinchen Terdzö
Documentation for this module may be created at Module:GetWorks/doc
local p = {}
function p.cycles(frame)
if not mw.smw then
return "Semantic Scribunto is not installed."
end
local pArgs = frame:getParent().args
local pagename = mw.title.getCurrentTitle().text
local qRes = mw.smw.ask( '[[-cycle::<q>[[Category:Tibetan Texts]][[sourcerevealer::' .. pagename .. ']]</q>]]|?#-=CyclePage|?Fulltitle|?Fulltitletib|link=none|limit=1008' )
if qRes == nil then
return "No results!"
end
local output = '<h3>' .. #qRes .. ' Cycles</h3><ol class="columns-2">'
if type( qRes ) == "table" then
for k, data in ipairs( qRes ) do
local qCycleTib = mw.smw.ask( '[[Category:Tibetan Texts]][[sourcerevealer::' .. pagename .. ']][[Cycle::' .. data.Fulltitle .. ']]|?Cycletib|link=none|limit=1008' )
local Fulltitletib = ''
for _, values in ipairs( qCycleTib ) do
Fulltitletib = values.Cycletib
end
local cycleTxtCnt = frame:callParserFunction{ name = '#show', args = { data.CyclePage, '?Textcount' } }
output = output .. '<li><span style="font-size: 1.5em;">[[' .. data.CyclePage .. '|' .. Fulltitletib .. ']]</span><br>[[' .. data.CyclePage .. '|' .. data.Fulltitle .. ']] (' .. #qCycleTib .. ' of ' .. cycleTxtCnt .. ' Texts)</li>'
end
end
output = output .. '</ol>'
return output
end
function p.works(frame)
if not mw.smw then
return "Semantic Scribunto is not installed."
end
local pArgs = frame:getParent().args
local pagename = mw.title.getCurrentTitle().text
local qRes = mw.smw.ask( '[[Category:Tibetan Texts]][[Category:' .. pagename .. ']]OR[[Category:Illustrations]][[Category:' .. pagename .. ']]|?#-=CyclePage|?Fulltitletib|?Volumenumber|?Textnuminvol|?Fulltitle|limit=500|link=none|sort=Volumenumber,Textnuminvol|order=asc,asc' )
if qRes == nil then
return "No results!"
end
local output = '<h3><span id="TotalCount">' .. #qRes .. '</span> Works</h3>'
local fltrInput = frame:callParserFunction{ name = '#widget', args = { 'filterInput' } }
output = output .. '<div class="px-5 mb-4">' .. fltrInput .. '</div><div class="filterableContent">'
if type( qRes ) == "table" then
for k, data in ipairs( qRes ) do
output = output .. '<div class="filterable"><div class="d-inline-block float-left pt-2">Vol. ' .. data.Volumenumber .. ', Text ' .. data.Textnuminvol .. ': </div><div class="d-inline-block"><span style="font-size: 1.5em;">[[' .. data.CyclePage .. '|' .. data.Fulltitletib .. ']]</span><div>' .. data.Fulltitle .. '</div></div></div>'
end
end
output = output .. '</div>'
return output
end
return p