Modul:Auszeichnung

Seiten-Übersicht

Zur Klasse Person gehörende Seiten:

		Hauptseite	Unterseiten
Allgemein		Personen Klasse:Person Kategorie:Personen Konzept:Alle Personen FürthWiki:Semantik FürthWiki:Wartung/Person
Faktenbox	Vorlagen	Person	Person/Auszeichnungen Person/Beziehungen Person/Doku Person/Familie Person/Funktionen
	Formulare	Person PositionKarte (sofern genutzt) Kategorie:Klassen-übergreifende Formulare
	Module	Person	Person/Doku
Abfrage	Vorlagen	Abfrage Personen
	Formulare	Abfrage Personen
	Sonstige	Abfrage ausführen

Unterseiten

• Auszeichnung/Doku

Siehe auch

• Auszeichnungen
• Kategorie:Personen
• Kategorie:Auszeichnungen
• Formular:Abfrage Auszeichnungen
• Vorlage:Abfrage Auszeichnungen

---

p = {}

local dev = require("Modul:Development")
local str = require("Modul:String")
local wik = require("Modul:Wiki")

function p.AbfrageAuszeichnungen(frame)
--	mw.log("AbfrageAuszeichnungen(frame)")
--	mw.logObject(frame, "frame")
	-- Konsolenzeile zum Debuggen:
	-- p.AbfrageAuszeichnungen{pargs={["Aufschlüsselung"]="Auszeichnungen"}}
	-- p.AbfrageAuszeichnungen{pargs={["Aufschlüsselung"]="Personen"}}
	local t = ""

	-- Attribut-Werte übernehmen
	local frame, pargs = dev.GetFrameAndParentArgs(frame)
	local attr_list = {
		"Auszeichnung", "Aufschlüsselung",
		"VerleihungVon", "VerleihungBis",
		"GeburtsdatumVon", "GeburtsdatumBis",
		"Geburtsort", "Geschlecht",
		"Beruf"
	}
	local attr, empty = wik.getArgs(frame.args, attr_list)						-- Filter-Werte können direkt oder
	if empty then																-- indirekt (ParentArgs) übergeben werden
		attr = wik.getArgs(pargs, attr_list)
	end

	-- Seiten-Selektoren für die Abfragen
	local page_selector_basis, page_selector_ort,
		page_selector_ort_fuerth, page_selector_ort_nicht_fuerth,
		page_selector_maennlich, page_selector_weiblich,
		page_selector_divers, page_selector_geschlecht,
		top_prefix, top_postfix, sub_prefix, sub_postfix =
		"", "", "", "", "", "", "", ""
	if attr["Aufschlüsselung"] == "Auszeichnungen" then
		top_prefix, top_postfix = "[[-has subobject::<q>", "</q>]]"				-- Abfrage aus Sicht der Auszeichnung-subobject-Ebene
		sub_prefix, sub_postfix = "", ""										-- top-Attribute brauchen "-has subobject" drumherum
	elseif attr["Aufschlüsselung"] == "Personen" then
		top_prefix, top_postfix = "", ""										-- Abfrage aus Sicht der Personen-top-Ebene (nicht-subobject-Ebene)
		sub_prefix, sub_postfix = "[[has subobject::<q>", "</q>]]"				-- subobject-Attribute brauchen "has subobject" drumherum
	end
	-- Basis-Selektor
	page_selector_basis = top_prefix .. "[[:+]][[Kategorie:Personen]]" .. top_postfix
	page_selector_basis = page_selector_basis .. sub_prefix .. "[[SubObjektTyp::Auszeichnung]]" .. sub_postfix
	if attr["Auszeichnung"] ~= nil then
		local auszeichnungen = str.split2(attr["Auszeichnung"], ",")
		auszeichnungen = table.concat(auszeichnungen, "||")
		page_selector_basis = page_selector_basis .. sub_prefix .. "[[Auszeichnung::" .. auszeichnungen .. "]]" .. sub_postfix
	end
	if attr["VerleihungVon"] ~= nil then
		page_selector_basis = page_selector_basis .. sub_prefix .. "[[VerleihungAm::>" .. attr["VerleihungVon"] .. "]]" .. sub_postfix
	end
	if attr["VerleihungBis"] ~= nil then
		page_selector_basis = page_selector_basis .. sub_prefix .. "[[VerleihungAm::<" .. attr["VerleihungBis"] .. "]]" .. sub_postfix
	end
	if attr["GeburtsdatumVon"] ~= nil then
		page_selector_basis = page_selector_basis .. top_prefix .. "[[Geburtsdatum::>" .. attr["GeburtsdatumVon"] .. "]]" .. top_postfix
	end
	if attr["GeburtsdatumBis"] ~= nil then
		page_selector_basis = page_selector_basis .. top_prefix .. "[[Geburtsdatum::<" .. attr["GeburtsdatumBis"] .. "]]" .. top_postfix
	end
	if attr["Beruf"] ~= nil then
		local beruf = str.split2(attr["Beruf"], ",")
		beruf = table.concat(beruf, "||")
		page_selector_basis = page_selector_basis .. top_prefix .. "[[Beruf::" .. beruf .. "]]" .. top_postfix
	end
	-- Geburtsort-Selektoren
	page_selector_ort_fuerth = top_prefix .. "[[Geburtsort::Fürth]]" .. top_postfix
	if attr["Geburtsort"] == "Fürth" then
		page_selector_ort = page_selector_ort_fuerth
	end
	if attr["Geburtsort"] == "außerhalb" then
		page_selector_ort = top_prefix .. "[[Geburtsort::!Fürth]]" .. top_postfix
	end
	-- Geschlecht-Selektoren
	page_selector_maennlich = top_prefix .. "[[Geschlecht::männlich]]" .. top_postfix
	page_selector_weiblich = top_prefix .. "[[Geschlecht::weiblich]]" .. top_postfix
	page_selector_divers = top_prefix .. "[[Geschlecht::divers]]" .. top_postfix
	if attr["Geschlecht"] ~= nil then
		page_selector_geschlecht = top_prefix .. "[[Geschlecht::" .. attr["Geschlecht"] .. "]]" .. top_postfix
	end

	-- Statistik
	local n_basis_ort_geschlecht = mw.smw.ask(page_selector_basis .. page_selector_ort .. page_selector_geschlecht .. "| format=count | limit=10000")
	t = t .. "<br>'''".. n_basis_ort_geschlecht .. " "
	if attr["Aufschlüsselung"] == "Personen" then
		t = t .. "Personen mit "
	end	
	t = t .. "Auszeichnungen gefunden"
	if attr["Geschlecht"] == nil then
	local n_basis_ort_weiblich = mw.smw.ask(page_selector_basis .. page_selector_ort .. page_selector_weiblich .. "| format=count | limit=10000")
	local n_basis_ort_maennlich = mw.smw.ask(page_selector_basis .. page_selector_ort .. page_selector_maennlich .. "| format=count | limit=10000")
	local n_basis_ort_divers = mw.smw.ask(page_selector_basis .. page_selector_ort .. page_selector_divers .. "| format=count | limit=10000")
	local p_basis_ort_weiblich = math.floor(n_basis_ort_weiblich / n_basis_ort_geschlecht * 100 + 0.5)
	local p_basis_ort_maennlich = math.floor(n_basis_ort_maennlich / n_basis_ort_geschlecht * 100 + 0.5)
	local p_basis_ort_divers = math.floor(n_basis_ort_divers / n_basis_ort_geschlecht * 100 + 0.5)
		t = t .. "; davon " .. n_basis_ort_weiblich .. " (" .. p_basis_ort_weiblich.. "%) Frauen"
		t = t .. ", " .. n_basis_ort_maennlich .. " (" .. p_basis_ort_maennlich.. "%) Männer"
		t = t .. " und " .. n_basis_ort_divers .. " (" .. p_basis_ort_divers.. "%) Divers '''(ggf. Rest nicht angegeben)'''"
	end
	if attr["Geburtsort"] == nil then
		local n_basis_fuerth_geschlecht = mw.smw.ask(page_selector_basis .. page_selector_ort_fuerth .. page_selector_geschlecht .. "| format=count | limit=10000")
		local p_basis_fuerth_geschlecht = math.floor(n_basis_fuerth_geschlecht / n_basis_ort_geschlecht * 100 + 0.5)
		t = t .. "; davon " .. n_basis_fuerth_geschlecht .. " (" .. p_basis_fuerth_geschlecht.. "%) gebürtige Fürther"
	end
	t = t .. "<br>'''"

	-- die eigentliche Tabelle
	t = t .. "{{#ask:" .. page_selector_basis .. page_selector_ort .. page_selector_geschlecht
	if attr["Aufschlüsselung"] == "Auszeichnungen" then
		t = t .. "|mainlabel=-"
		t = t .. "|?-has subobject.Seite=Person"
		t = t .. "|?-has subobject.Geburtsdatum"
		t = t .. "|?-has subobject.Geburtsort"
		t = t .. "|?-has subobject.Geschlecht"
		t = t .. "|?-has subobject.Beruf"
		t = t .. "|?Auszeichnung"
		t = t .. "|?VerleihungAm=Verleihung"
		t = t .. "|?AuszeichnungBemerkung=Bemerkung"
	elseif attr["Aufschlüsselung"] == "Personen" then
		t = t .. "|mainlabel=Person"
		t = t .. "|?Geburtsdatum"
		t = t .. "|?Geburtsort"
		t = t .. "|?Geschlecht"
		t = t .. "|?Beruf"
		t = t .. "|?has subobject.Auszeichnung"
	end
	t = t .. "|format=table"
	t = t .. "|limit=200"
	t = t .. "|default=<br/>'''Es konnten keine " .. attr["Aufschlüsselung"] .. " mit diesen Eingaben gefunden werden.'''<br/>"
	t = t .. "}}"

	mw.logObject(t, "t")
	t = frame:preprocess(t)
	return t
end

return p