Modul:Quelleninformationen

Die Dokumentation für dieses Modul kann unter Modul:Quelleninformationen/Doku erstellt werden

--[[
Lua Modul zum zuverlässigen darstellen von Artikelquellen
]]--


local p = {} --local p = {} -- p steht für Paket (engl. package)

function p.getQuellen( frame )
	--teste ob argument ungleich nichts
	local arg = frame.args['Pagename']
	if arg == nil then return nil end
	local returnString = "<ul>"
	local queryResult =  mw.smw.ask('[[Subobject Type::Quellenverzeichnis]][[-Hat Unterobjekt::'.. arg .. ']]|?=#|limit=1999|format=array|')
	local i = 1
	while i <= table.getn(queryResult)
		do
			local queryQuelle = mw.smw.ask('[[' .. queryResult[i][1] ..']]|?Quelleninformationen|?Publikation|mainlabel=-')	
			returnString = returnString .. "<li>"
			returnString = returnString ..  queryQuelle[1]['Publikation'] .. ":"
			if (queryQuelle[1]['Quelleninformationen']) == nil then -- fehlende Angaben in der Quelle
				returnString = returnString .."(ohne Angaben)</li>"
			elseif(type(queryQuelle[1]['Quelleninformationen']) == "table") then -- Tabelle ein loop mehr
				local n = 1
				returnString = returnString .. " : " 
				while n <= table.getn(queryQuelle[1]['Quelleninformationen'])
					do
						returnString = returnString .. queryQuelle[1]['Quelleninformationen'][n] ..","
						n = n +1
					end
			else -- einfach nur text
				returnString = returnString .. "&#32;" .. queryQuelle[1]['Quelleninformationen'] .. "</li>"
			end
			returnString = returnString .. "<br>"
		i = i +1	
		end
	local returnString = "<ul>"
    return returnString
end

return p