Module:GetWorks

From Rinchen Terdzö
Revision as of 08:24, 28 May 2024 by Jeremi (talk | contribs) ((by SublimeText.Mediawiker))

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=500' )

    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 cycleTxtCntQr = mw.smw.ask ( '[[' .. data.CyclePage .. ']]|?Textcount|limit=1' )
        	local cycleTxtCnt = ''
        	for k, data in ipairs( cycleTxtCntQr ) do
        		cycleTxtCnt = tostring( data.Textcount )
        	end
            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=1008|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