Modul:Briefspielnews

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

require("Modul:Hilfsfunktionen")
require("Modul:Text")

local p = {}

--Hole die 500 neuesten Kapitel
function holeKapitel(anzahl)
	local kapitel=mw.smw.ask("{{#ask: [[-has subobject::+]]"
		.."|?#-=Kapitel"
		.."|?Kurzbeschreibung#"
		.."|?Kapitelname ist"
		.."|?Reihe ist"
		.."|?Kapiteldatum#ISO"
		.."|limit="..anzahl
		.."|order=desc"
		.."|sort=Kapiteldatum"
		.."|offset=0"
		.."|searchlabel=")
	if kapitel==nil then
		return {}
	end
	return kapitel
end

--Formatierung der Ausgabe
function ausgabe(kapitel)
    local result=""
    local reihe={}

    --Teile die Kapitel auf die Reihen auf
	for _,k in ipairs(getSortKeys(kapitel)) do
		local r=kapitel[k]["Reihe ist"]
		if reihe[r]==nil then
			reihe[r]={}
			reihe[r]["Kapitel"]={}
			reihe[r]["Reihedatum"]=kapitel[k]["Kapiteldatum"]
		end
		table.insert(reihe[r]["Kapitel"],kapitel[k])
		if kapitel[k]["Kapiteldatum"]>reihe[r]["Reihedatum"] then
			reihe[r]["Reihedatum"]=kapitel[k]["Kapiteldatum"]
		end
	end
	
	--Gebe die Reihen aus
	for _,r in ipairs(getSortKeys(reihe)) do
		result=result.."\n*'''[["..r.." — Briefspielreihe|"..r.."]]'''"
		for _,k in spairs(reihe[r]["Kapitel"]) do
			local kurzbeschreibung=reihe[r]["Kapitel"][k]["Kurzbeschreibung"]
			if kurzbeschreibung~=nil then
				kurzbeschreibung=" - "..kurzbeschreibung
			else
				kurzbeschreibung=""
			end
			result=result.."\n**[["..reihe[r]["Kapitel"][k]["Kapitel"].."|"..reihe[r]["Kapitel"][k]["Kapitelname ist"].."]]"..kurzbeschreibung
		end
    end

	return result
end

--Aufzurufende Funktion
function p.news(frame)
	local anzahl=robusttrim(frame.args[1])
	if(anzahl=='') then anzahl='10' end
	local kapitel=holeKapitel(anzahl)
	return ausgabe(kapitel)
end

return p