Module:PaperOfTheDay

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 ?p1637_value ?p27_value ?p28_value ?p159_value ?p205_value
		WHERE {
		  target1: wdt:P1636 ?p1636_value .
		  OPTIONAL { target1: wdt:P1637 ?p1637_value . }
		  OPTIONAL { target1: wdt:P27 ?p27_value . }
		  OPTIONAL { target1: wdt:P28 ?p28_value . }
		  OPTIONAL { target1: wdt:P159 ?p159_value . }
		  OPTIONAL { target1: wdt:P205 ?p205_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
	    local p159_value = firstBinding.p159_value.value
	    local p27_value = firstBinding.p27_value.value
	    local p1636_value = firstBinding.p1636_value.value
	    local p1637_value = firstBinding.p1637_value.value
	    
	    local p27_value_no_Q = p27_value:match("^Q(.*)") or p27_value

	    local resultString = p159_value .. "<br /><br /> " .. 
	    					 "Summary: <br /> " .. p1636_value .. "<br /><br />" ..  
	                         "Easy summary: <br /> " .. p1637_value .. "<br /><br />" ..
	                         "Read more about it on the MaRDI portal: https://portal.mardi4nfdi.de/wiki/Publication:" .. p27_value_no_Q .. "<br /><br />" ..
	                         "Read more about it on arXiv: https://doi.org/" .. p27_value
	    return resultString
	end	

	return "Label not found."
	
end

return p