Module:PaperOfTheDay: Difference between revisions

From MaRDI portal
No edit summary
No edit summary
Line 51: Line 51:
-- Extract the first item's value
-- Extract the first item's value
local firstBinding = jsonResults.results.bindings[0]
local firstBinding = jsonResults.results.bindings[0]
if firstBinding and firstBinding.value then
if firstBinding then
    return firstBinding.p1636_value.value
    return firstBinding.p1636_value.value
end
end

Revision as of 00:40, 19 November 2024

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

-- Required module containing helper methods
local helper = require('Module:HelperMethods')
local sparql = require('SPARQL')
local mwHtml = require('mw.html')

local p = {}

function p.query(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    
	
    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 ?p1636_value ?p28_value
		WHERE {
		  target1: wdt:P1636 ?p1636_value .
		  OPTIONAL { wd:Q57414 wdt:P28 ?p28_value . }
		}
		LIMIT 1
    ]]
    
    -- 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

	--mw.logObject(jsonResults)
	--mw.logObject(jsonResults.results.bindings[0].p1636_value.value)

	-- Extract the first item's value
	local firstBinding = jsonResults.results.bindings[0]
	if firstBinding then
	    return firstBinding.p1636_value.value
	end	

	return "Label not found."
	
end

return p