Module:GetWorks

From Rinchen Terdzö
Revision as of 09:41, 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::' .. mw.uri.encode( pagename , WIKI ) .. ']]</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