Module:ServicesList

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

-- Required module containing helper methods
local helper = require('Module:HelperMethods')

-- Required modules for SPARQL queries and HTML table generation
local sparql = require('SPARQL')
local mwHtml = require('mw.html')

-- Main table to hold all functions
local p = {}

-- Function to convert JSON results into a comma-separated string
function p.convertJsonToHTMLListEntries(jsonResults)
	local resultsString = ""
	
	if jsonResults and jsonResults.results and jsonResults.results.bindings then
        local bindings = jsonResults.results.bindings
        for i = 0, #bindings do
            local binding = bindings[i]
            if binding.description and binding.description.value then
                if resultsString ~= "" then
                    resultsString = resultsString .. ""
                end
                
                local name = binding.description.value
                if string.find(name, "https://") then
                	name = "Unnamed Service"
                end
                
                local link = binding.item.value
                link = link:gsub("entity/Q", "wiki/Service:")
                
                local nameAndLink = "<li>[" .. link .. " " .. name .. "]</li>"

                resultsString = resultsString .. nameAndLink
            end
        end
    end

    return "<ul> " .. resultsString .. " </ul>"
end


-- Function to build the list
function p.buildServiceList(frame)
	
    -- Constructing the SPARQL query with dynamic entity target1
    local sparqlQuery = [[
PREFIX wdt: <https://portal.mardi4nfdi.de/prop/direct/>
PREFIX wd: <https://portal.mardi4nfdi.de/entity/>

SELECT ?item ?description
WHERE { 
  ?item wdt:P1460 wd:Q6503324 .
  ?item wdt:P1459 ?description 
}
    ]]
    
    -- mw.log( sparqlQuery )
    
	-- Executing the SPARQL query and retrieving results in JSON format
	local jsonResults = sparql.runQuery(sparqlQuery)
	
	-- mw.logObject(jsonResults)

	-- Handle error in SPARQL query execution
	if jsonResults and jsonResults.error then
    	mw.log("Error in SPARQL query: " .. tostring(jsonResults.error))
    	return nil
	end

	if not jsonResults then
        return "Could not fetch data."
	end
	
	if helper.countElementsInBindings(jsonResults.results.bindings) == 0 then
        return "No records found."
	end

	local serviceList = p.convertJsonToHTMLListEntries(jsonResults)
	
	-- mw.log(describedByList) 
	
    return "xxx" .. serviceList
end

-- Return the created html table
return p