Module:GetRels
From Bodhicitta
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
