Modul:Anrainerabfrage

Dokumentation und Testfälle unter Modul:Anrainerabfrage/Doku.

---

local p = {}

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

function holeanrainer(landschaft)
	if landschaft=='' then return '' end
	local anrainer=mw.smw.ask('[[Anrainer an::'..landschaft..']]'
		.."|mainlabel=-"
		.."|?#-="
		.."|?Kurzname#="
		.."|?Lehenstyp#="
		.."|?Einwohner="
		.."|limit=500"
		.."|sort=Detailstufe von,Einwohner"
		.."|order=asc,desc"
	)
	if anrainer==nil then
		return {}
	end
	return anrainer
end

function kategorisiereUndHegemon(frame,lehen,title,catname,rekursion)
 if lehen=='' then return '' end
 if rekursion==0 then return '' end
 local heg=frame:callParserFunction(
  '#show',lehen,
  '?Vasallenlehen von#'
 )
 hegsub=''
 if heg~=''then
  t=mw.title.new(heg).text
  hegsub=kategorisiereUndHegemon(frame,heg,t,catname,rekursion-1)
 end

 return '[[Kategorie:'..title..'|'..catname..']]'..hegsub
end


function printanrainersub(frame,anrainertable,catname,art,artpl) 
	result=''
	for key,value in pairs(anrainertable) do
		if(value[3]==art) then
			t=mw.title.new(value[1]).text
			result=result..'[['..value[1]..'|'..value[2]..']] ('..value[4]..' EW), '--..kategorisiereUndHegemon(frame,value,t,catname,7)..', '
		end
	end
	result=mw.ustring.sub(result,1,mw.ustring.len(result)-2)
	return subZeile(artpl,result)
end

function printanrainer(frame,anrainertable,catname,weitereanrainer)
	result=''
	result=result..printanrainersub(frame,anrainertable,catname,'Reich','Reiche')
	result=result..printanrainersub(frame,anrainertable,catname,'Provinz','Provinzen')
	result=result..printanrainersub(frame,anrainertable,catname,'Grafschaft','Grafschaften')
	result=result..printanrainersub(frame,anrainertable,catname,'Baronie','Baronien')
	result=result..printanrainersub(frame,anrainertable,catname,'Junkertum','Junkertümer')
	result=result..printanrainersub(frame,anrainertable,catname,'Ortschaft','Ortschaften')
	result=result..printanrainersub(frame,anrainertable,catname,'Bauwerk','Bauwerke')
	result=result..printanrainersub(frame,anrainertable,catname,'Unbekannt','Unbekannte')
	result=result..frame:callParserFunction('#invoke','Text','Zeile','Sonstige',weitereanrainer)
	return subZeilengruppe('Anrainer',result)
end

function p.Abfrage(frame)
	if (frame.args[1]==nil) then
		return "no parameter found"
	end
	catname=robusttrim(frame.args[2])
	weitereanrainer=robusttrim(frame.args[3])
	landschaft=frame.args[1]
	result=holeanrainer(landschaft)
	return dump(result,"").."\n"..printanrainer(frame,result,catname,weitereanrainer)
end

return p