Module:CommunityProjectList: Difference between revisions

From MaRDI portal
No edit summary
No edit summary
(17 intermediate revisions by the same user not shown)
Line 11: Line 11:
-- Function to convert JSON results into a comma-separated string
-- Function to convert JSON results into a comma-separated string
function p.convertJsonToCommaSeparatedList(jsonResults)
function p.convertJsonToCommaSeparatedList(jsonResults)
local resultsString = ""
    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 = 0, #bindings do  
             local binding = bindings[i]
             local binding = bindings[i]
             if binding.internal_project_id and binding.internal_project_id.value then
             if binding.workLabel and binding.workLabel.value then
                 if resultsString ~= "" then
 
                    resultsString = resultsString .. ""
                 local name = binding.workLabel.value
                end
                local projectURL = binding.work.value  -- URI of the item
                  
                  
                 local name = binding.internal_project_id.value
                 -- set project URL if it exists
                 if string.find(name, "https://") then
                 if binding.projectURL then
                 name = "Unnamed Publication"
                 projectURL = binding.projectURL.value
                 end
                 end
               
                local link = "https://mathplus.de/research-2/"


                 local nameAndLink = "<li>[" .. link .. " " .. name .. "]</li>"
                 local nameAndLink = "<li>[" .. projectURL .. " " .. name .. "]</li>"


                 resultsString = resultsString .. nameAndLink
                 resultsString = resultsString .. nameAndLink
Line 36: Line 34:
     end
     end


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


Line 55: Line 53:
PREFIX wd: <https://portal.mardi4nfdi.de/entity/>
PREFIX wd: <https://portal.mardi4nfdi.de/entity/>


SELECT DISTINCT ?internal_project_id
SELECT DISTINCT ?work ?workLabel ?projectURL
  WHERE {
WHERE {
    ?work wdt:P1495 target1: .
  ?work wdt:P1495 target1: .
  ?work wdt:P31 wd:Q6205094 .
  OPTIONAL { ?work wdt:P104 ?projectURL }
  SERVICE wikibase:label { bd:serviceParam wikibase:language "[AUTO_LANGUAGE],en". ?work rdfs:label ?workLabel. }
}


  OPTIONAL {
ORDER BY ?workLabel
    ?work wdt:P1496 ?internal_project_id .
  }
  SERVICE wikibase:label { bd:serviceParam wikibase:language "[AUTO_LANGUAGE],en". }
}
     ]]
     ]]
      
      

Revision as of 19:49, 7 May 2024

Documentation for this module may be created at Module:CommunityProjectList/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.convertJsonToCommaSeparatedList(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.workLabel and binding.workLabel.value then

                local name = binding.workLabel.value
                local projectURL = binding.work.value  -- URI of the item
                
                -- set project URL if it exists
                if binding.projectURL then
                	projectURL = binding.projectURL.value
                end

                local nameAndLink = "<li>[" .. projectURL .. " " .. name .. "]</li>"

                resultsString = resultsString .. nameAndLink
            end
        end
    end

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


-- Function to build the list
function p.buildProjectList(frame)
	
    -- Retrieve target1 from frame arguments or return error message if not set
	local target1 = frame.args[1]
    if not target1 or target1 == '' then
        return "No records found"
    end    
    
    -- Constructing the SPARQL query with dynamic entity target1
    local sparqlQuery = [[
PREFIX target1: <https://portal.mardi4nfdi.de/entity/]] .. target1 .. [[>
PREFIX wdt: <https://portal.mardi4nfdi.de/prop/direct/>
PREFIX wd: <https://portal.mardi4nfdi.de/entity/>

SELECT DISTINCT ?work ?workLabel ?projectURL
WHERE {
  ?work wdt:P1495 target1: .
  ?work wdt:P31 wd:Q6205094 . 
  OPTIONAL { ?work wdt:P104 ?projectURL }
  SERVICE wikibase:label { bd:serviceParam wikibase:language "[AUTO_LANGUAGE],en". ?work rdfs:label ?workLabel. }
}

ORDER BY ?workLabel
    ]]
    
    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 describedByList = p.convertJsonToCommaSeparatedList(jsonResults)
	
	-- mw.log(describedByList) 
	
    return describedByList
end

-- Return the created html table
return p