Module:GetRels

Documentation for this module may be created at Module:GetRels/doc

local p = {}

function p.main(frame)

	-- pass in parent arguments from template
	local pArgs = frame:getParent().args

	-- get local pagename
	local pagename = mw.title.getCurrentTitle().subpageText

	-- query for vertical relationships names
	local relsDirection = {}
	local verticRelsQueryData = mw.ext.externalData.getExternalData{
		url = 'https://research.tsadra.org/index.php?title=Special%3AAsk&q=' .. mw.uri.encode( '[[-Has subobject::Property:Relationship]][[RelPropDir::vertical]]' ) .. '&po=RelPropName&p%5Blimit%5D=108&p%5Bformat%5D=csv',
		data = { RelPropName = 'RelPropName'},
		format = 'CSV with header'
	}
    for _, data in pairs( verticRelsQueryData ) do
    	relsDirection[data.RelPropName] = 'vertical'
    end

	-- query for horizontal relationships names
	local horizRelsQueryData = mw.ext.externalData.getExternalData{
		url = 'https://research.tsadra.org/index.php?title=Special%3AAsk&q=' .. mw.uri.encode( '[[-Has subobject::Property:Relationship]][[RelPropDir::horizontal]]' ) .. '&po=RelPropName&p%5Blimit%5D=108&p%5Bformat%5D=csv',
		data = { RelPropName = 'RelPropName'},
		format = 'CSV with header'
	}
	local horizRels = {}
    for _, data in pairs( horizRelsQueryData ) do
    	relsDirection[data.RelPropName] = 'horizontal'
    end

	-- build query string for main relationship subobject query and ASK query
	local queryResult = mw.ext.externalData.getExternalData{
		url = 'https://research.tsadra.org/index.php?title=Special%3AAsk&q=' .. mw.uri.encode( '[[-Has subobject::' .. mw.title.getCurrentTitle().subpageText .. ']][[RelatedTo::+]][[RelationshipType::!ResourceToPerson]]OR[[RelatedTo::' .. mw.title.getCurrentTitle().subpageText .. ']][[RelationshipType::!ResourceToPerson]]' ) .. '&po=RelatedTo%0ARelationship&p%5Blimit%5D=10000&p%5Bmainlabel%5D=Page&p%5Bformat%5D=csv',
		data = {
			Page = 'Page',
			RelatedTo = 'RelatedTo',
			Relationship = 'Relationship'
		},
		format = 'CSV with header'
	}

	-- define var for our main output
	local myResult = ''

	-- check if query is empty first, if so, no need to go on
	if queryResult == nil then return "No results!" end

	-- build our result string with intro element tag
    myResult = myResult .. '<h1>Relationships</h1><table id="RelationshipsContent" class="smwtable-clean th-top-right th-nowrap border">'

    -- check if more than 15 query results, if so, add filters to top of table
	if #queryResult > 15 then 
		local filterRels = frame:callParserFunction{ 
			name = '#widget', args = {
				'FilterRelationships',
				id = 'Relationships',
				placeholder = 'Filter by relationships...'
			} 
		}
		local filterPages = frame:callParserFunction{ 
			name = '#widget', args = {
				'FilterRelationships',
				id = 'Pages',
				placeholder = 'Filter by pages found...'
			} 
		}
		myResult = myResult .. '<tr><td>' .. filterRels .. '</td><td></td><td>' .. filterPages .. '</td></tr>' 
	end

	-- define table vars for storing different relationships
    local InRels = {}
    local OutRels = {}
    local InferredRels = {}

    -- iterate through our query results
    for num, data in ipairs( queryResult ) do

    	-- define a few pagename vars, page where subobject was found, encode both local and result pagenames so as to compare
    	local page = frame:preprocess( '{{PAGENAME:' .. data.Page .. '}}' )
    	local pageEnc = mw.uri.anchorEncode( page )
    	local pagenameEnc = mw.uri.anchorEncode( pagename )

    	-- checking if both local and result pagenames are the same, if so, we're talking about a relationship that is set locally, going out from this page
    	if pageEnc == pagenameEnc then

    		-- defining variable that will hold the list of result pages for the given relationhsip
    		local relatedToPages = ''
    		-- checking if only 1 result, if more, iterate and build the list
    		if data.RelatedTo == nil then
    			relatedToPages = '<li class="filterable"><span style="color:red;">No item specified!</span></li>'
    		else
	    		if type(data.RelatedTo) == "table" then
		    		for num, value in ipairs( data.RelatedTo ) do
		    			relatedToPages = relatedToPages .. '<li class="filterable">[[' .. value .. ']]</li>'
		    		end
				else
					relatedToPages = '<li class="filterable">[[' .. data.RelatedTo .. ']]</li>'
				end
			end

			-- let's populate the outgoing relationships table
    		if OutRels[data.Relationship] then
    			OutRels[data.Relationship] = OutRels[data.Relationship] .. relatedToPages
    		else
    			-- quick check to see if the relationship was set properly, if not, well... that's no good now is it!
    			if data.Relationship == nil then
    				OutRels['<span style="color:red;">Relationship not set!</span>'] = relatedToPages
    			else
	    			OutRels[data.Relationship] = relatedToPages
	    		end
    		end

    	else

    		-- for incoming relationship, let's do a quick check to see if it's a media page, and it's part of a bigger series, if so, let's only take the first track, otherwise there can be too many results
    		local mediaCheckQuery = mw.ext.externalData.getExternalData{
				url = 'https://research.tsadra.org/index.php?title=Special%3AAsk&q=' .. mw.uri.encode( '[[' .. page .. ']][[MediaSeries::+]][[Volumenumber::>>1]]' ) .. '&p%5Bmainlabel%5D=wikipage&p%5Blimit%5D=108&p%5Bformat%5D=csv',
				data = { wikipage = 'wikipage'},
				format = 'CSV with header'
			}

			if mediaCheckQuery == nil then

	    		-- if we're good to go, let's populate the incoming relationships table
	    		-- let's first check if the relationship was actually set properly
	    		local rel = ''
	    		if data.Relationship then
	    			rel = data.Relationship
	    		else
	    			-- if not let's make it obvious
	    			rel = '<span style="color: red; font-weight: bold;">Relationship not properly set!</span>'
	    		end

	    		-- now let's get the actual display title of the page
	    		local val = mw.ext.displaytitle.get(page)

	    		-- and feed that title into the incoming relationship table, for the proper relationship
	    		if InRels[rel] then
	    			InRels[rel] = InRels[rel] .. '<li class="filterable">[[' .. page .. '|' .. val .. ']]</li>'
	    		else
	    			InRels[rel] = '<li class="filterable">[[' .. page .. '|' .. val .. ']]</li>'
	    		end

	    		-- let's check if the relationship is horizontal
		    	if relsDirection[rel] == 'horizontal' then

			    	-- if it's horizontal, let's query more to figure out the inferred relationships of this property, via the page found.

					local inferredQR = mw.ext.externalData.getExternalData{
						url = 'https://research.tsadra.org/index.php?title=Special%3AAsk&q=' .. mw.uri.encode( '[[-Has subobject::!' .. pagename .. ']][[RelatedTo::' .. page .. ']][[Relationship::' .. rel .. ']]OR[[-Has subobject::' .. page .. ']][[Relationship::' .. rel .. ']]' ) .. '&po=RelatedTo&p%5Bmainlabel%5D=InferredPage&p%5Blimit%5D=10000&p%5Bformat%5D=csv',
						data = { InferredPage = 'InferredPage', RelatedTo = 'RelatedTo' },
						format = 'CSV with header'
					}

					if inferredQR then
					    for _, infData in ipairs( inferredQR ) do
					    	if infData.RelatedTo == page then
						    	local infPage = frame:preprocess( '{{PAGENAME:' .. infData.InferredPage .. '}}' )
					    		local infVal = mw.ext.displaytitle.get(infPage)

					    		if InRels[rel] then
					    			InRels[rel] = InRels[rel] .. '<li class="filterable">[[' .. infPage .. '|' .. infVal .. ']]</li>'
					    		else
					    			InRels[rel] = '<li class="filterable">[[' .. infPage .. '|' .. infVal .. ']]</li>'
					    		end
					    	elseif type(infData.RelatedTo) == "table" then
					    		for _, value in ipairs( infData.RelatedTo ) do
					    			if value ~= pagename then
							    		local infVal = mw.ext.displaytitle.get(value)
							    		if InRels[rel] then
							    			InRels[rel] = InRels[rel] .. '<li class="filterable">[[' .. value .. ']]</li>'
							    		else
							    			InRels[rel] = '<li class="filterable">[[' .. value .. ']]</li>'
							    		end
					    			else
					    			end
					    		end
					    	end
				    	end
				    end
				end
			end
    	end
    end

    -- now let's use the outgoing relationship table to build our table rows
    for rel, vals in pairs( OutRels ) do
    	myResult = myResult .. '<tr><th>' .. rel .. '</th><td style="color: green;"><i class="fa-duotone fa-arrow-right"></i></td><td><ol style="margin: 0 1.3em;" class="sort-ascending">' .. vals .. '</ol></td></tr>'
	end

    -- and the incoming relationship table to build our table rows
    for rel, vals in pairs( InRels ) do
		myResult = myResult .. '<tr><th>' .. rel .. ' <div class="font-weight-normal font-italic">this work</div></th><td style="color: blue;"><i class="fa-duotone fa-arrow-left"></i></td><td><ol style="margin: 0 1.3em;" class="sort-ascending">' .. vals .. '</ol></td></tr>'
	end

	-- close our table tag and we're good to go!
    myResult = myResult .. '</table>'

    return myResult

end

return p