Module:SoftwareDescribedByList

Documentation for this module may be created at Module:SoftwareDescribedByList/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 list
function p.convertJsonToList(jsonResults, frame)
    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.valueLabel and binding.valueLabel.value then
                local name = binding.valueLabel.value
                local noTitle = false
                if string.find(name, "https://") then
                    local zbmath_de_number = binding.zbmath_de_number and binding.zbmath_de_number.value or nil
                    name = helper.titleNotAvailableStrPlain(zbmath_de_number)
                    noTitle = true
                end

                local qid = binding.value.value:match("(Q%d+)$")
                local sitelink = mw.wikibase.getSitelink(qid)
                local nameAndLink

                if noTitle then
                    local articleLink
                    if sitelink then
                        articleLink = "[[:" .. sitelink .. "|" .. name .. "]]"
                    else
                        articleLink = name
                    end
                    local reasonLink = frame:preprocess(helper.titleNotAvailableReasonLink())
                    nameAndLink = "<li>" .. articleLink .. " (" .. reasonLink .. ")</li>"
                else
                    if sitelink then
                        nameAndLink = "<li>[[:" .. sitelink .. "|" .. name .. "]]</li>"
                    else
                        nameAndLink = "<li>" .. name .. "</li>"
                    end
                end

                resultsString = resultsString .. nameAndLink
            end
        end
    end
    return "<ul> " .. resultsString .. " </ul>"
end
-- Function to build the list
function p.buildDescribedByList(frame)
    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/>
PREFIX rdfs: <http://www.w3.org/2000/01/rdf-schema#>

SELECT ?value (COALESCE(?valueLabel, STR(?value)) AS ?valueLabel) (SAMPLE(?zbmath_de_number) AS ?zbmath_de_number)
WHERE {
    target1: wdt:P286 ?value .
    OPTIONAL { ?value rdfs:label ?valueLabel . FILTER(LANG(?valueLabel) = "en") }
    OPTIONAL { ?value wdt:P1451 ?zbmath_de_number . }
}
GROUP BY ?value ?valueLabel
ORDER BY ?valueLabel
    ]]
    local jsonResults = sparql.runQuery(sparqlQuery)
    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 linkList = p.convertJsonToList(jsonResults, frame)
    return frame:preprocess('<div class="keywords-list">' .. linkList .. '</div>')
end
-- Return the created html table
return p