Module:ServicesList: Difference between revisions

From MaRDI portal
No edit summary
No edit summary
Line 9: Line 9:
local p = {}
local p = {}


-- Function to convert JSON results into a comma-separated string
function p.convertJsonToHTMLCards(jsonResults)
function p.convertJsonToHTMLListEntries(jsonResults)
    local resultsHTML = ""
local resultsString = ""
   
    if jsonResults and jsonResults.results and jsonResults.results.bindings then
if jsonResults and jsonResults.results and jsonResults.results.bindings then
         local bindings = jsonResults.results.bindings
         local bindings = jsonResults.results.bindings
         for i = 0, #bindings do
         for i = 1, #bindings do
             local binding = bindings[i]
             local binding = bindings[i]
             if binding.description and binding.description.value then
              
                if resultsString ~= "" then
            -- Extract fields from the bindings
                    resultsString = resultsString .. ""
            local name = binding.name and binding.name.value or "Unnamed Service"
                end
            local description = binding.description and binding.description.value or "No description available."
               
            local link = binding.item and binding.item.value:gsub("entity/Q", "wiki/Service:") or "#"
                local name = binding.description.value
            local image = binding.image and binding.image.value or "https://via.placeholder.com/150" -- Default placeholder image
                if string.find(name, "https://") then
           
                name = "Unnamed Service"
            -- Build individual card HTML
                end
            resultsHTML = resultsHTML .. string.format([[
               
                 <div class="card" style="border: 1px solid #ddd; border-radius: 5px; margin: 10px; padding: 15px; display: flex; align-items: flex-start;">
                local link = binding.item.value
                    <img src="%s" alt="Service Image" style="width: 100px; height: 100px; margin-right: 15px; object-fit: cover; border-radius: 5px;">
                 link = link:gsub("entity/Q", "wiki/Service:")
                    <div>
               
                        <h3 style="margin: 0 0 10px 0;"><a href="%s" target="_blank" style="text-decoration: none; color: #007bff;">%s</a></h3>
                local nameAndLink = "<li>[" .. link .. " " .. name .. "]</li>"
                        <p style="margin: 0;">%s</p>
 
                    </div>
                 resultsString = resultsString .. nameAndLink
                 </div>
             end
             ]], image, link, name, description)
         end
         end
     end
     end


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


-- Function to build the list
-- Function to build the list
Line 77: Line 75:
end
end


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


-- Return the created html table
-- Return the created html table
return p
return p

Revision as of 16:13, 20 November 2024

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 p.convertJsonToHTMLCards(jsonResults)
    local resultsHTML = ""
    
    if jsonResults and jsonResults.results and jsonResults.results.bindings then
        local bindings = jsonResults.results.bindings
        for i = 1, #bindings do
            local binding = bindings[i]
            
            -- Extract fields from the bindings
            local name = binding.name and binding.name.value or "Unnamed Service"
            local description = binding.description and binding.description.value or "No description available."
            local link = binding.item and binding.item.value:gsub("entity/Q", "wiki/Service:") or "#"
            local image = binding.image and binding.image.value or "https://via.placeholder.com/150" -- Default placeholder image
            
            -- Build individual card HTML
            resultsHTML = resultsHTML .. string.format([[
                <div class="card" style="border: 1px solid #ddd; border-radius: 5px; margin: 10px; padding: 15px; display: flex; align-items: flex-start;">
                    <img src="%s" alt="Service Image" style="width: 100px; height: 100px; margin-right: 15px; object-fit: cover; border-radius: 5px;">
                    <div>
                        <h3 style="margin: 0 0 10px 0;"><a href="%s" target="_blank" style="text-decoration: none; color: #007bff;">%s</a></h3>
                        <p style="margin: 0;">%s</p>
                    </div>
                </div>
            ]], image, link, name, description)
        end
    end

    return resultsHTML
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.convertJsonToHTMLCards(jsonResults)
	
	-- mw.log(describedByList) 
	
    return serviceList
end

-- Return the created html table
return p