local p = {} --p stands for package
local com = require("Modul:Common")
local fab = require("Modul:Faktenbox")

function p.Faktenbox(frame)
--	mw.log("Faktenbox(frame)")
--	mw.logObject(frame)
	-- Konsolenzeile zum Debuggen:
	-- =p.Faktenbox{pargs={["Stadtbezirk"]="NSOW",["Eingemeindungsdatum"]="1971/01/21",["Stadtteil"]="BlaStadtteil",["Fläche"]="123" }}

	-- Basis-Faktenbox-Daten (Klasse/Kategorie/Formular)
	local fbdata = fab.fbdata(frame)
	fbdata.klasse = {"Stadtteil"}
	fbdata.kategorie = {"Stadtteile"}
	fbdata.formular = "Stadtteil" -- ggf. "Stadtteil/Work"

	-- Tabs einsammeln und zusammenfügen
	local box = 
		"<div class = factbox><tabs>" ..
		p.kartenTab(fbdata) ..
		fab.bildTab(fbdata) ..
		p.datenTab(fbdata) ..
		"</tabs></div>"

	-- Stadtteil-spezifische Kategorien usw.
	box = box .. "[[Kategorie:" .. fbdata.pagename .. "|*]]"

	-- Sonstige gemeinsame Dinge anfügen (Klasse, Formular, Kategorien, Wartung, ...)
	box = box .. fab.common(fbdata, false)
--	mw.log("box = " .. box)

	-- Pre-Processing und String-Länge checken
	box = fbdata.frame:preprocess(box)
	box = box .. com.returnStringCheck(box)
--	mw.log("box = " .. box)
	return box
end

function p.datenTab(fbdata)
--	mw.log("datenTab(fbdata)")
--	mw.logObject(fbdata)
	--[[ Konsolenzeile zum Debuggen:
	fab=require("Modul:Faktenbox"); fbdata=fab.fbdata{pargs={
		["Stadtbezirk"]="NSOW", 
		["Eingemeindungsdatum"]="1971/01/21",
		["Stadtteil"]="BlaStadtteil",
		["Fläche"]="123" }};
	fbdata.klasse={"Stadtteil"}; fbdata.kategorie={"Stadtteil"}; fbdata.fullpagename="Espan"; fbdata.subpagename="Espan";
	print(p.datenTab(fbdata))
	]]
	local t = ""

	local bemerkungshinweis = ""
	if fbdata.pargs["Fläche"] ~= nil or fbdata.pargs["Bevölkerung"] ~= nil or fbdata.pargs["Haushalte"] ~= nil then
		bemerkungshinweis = "<sup>*)</sup>"
	end

	-- Zusammenbau
	t = t .. "<dl class = 'dataTable'>"
	t = t .. fab.zeileKategorieSeite(fbdata)
	t = t .. fab.zeileDatum{attr_date="Eingemeindungsdatum", attr_text ="Eingemeindung", date=fbdata.pargs["Eingemeindungsdatum"], attr_day="Eingemeindungstag", attr_year="Eingemeindungsjahr"}
	t = t .. fab.zeileDatum{attr_date="Erschließungsdatum", date=fbdata.pargs["Erschließungsdatum"], attr_day="Erschließungstag", attr_year="Erschließungsjahr"}
	t = t .. fab.zeilePargs(fbdata, {"Ehemals", "PLZ", "Stadtbezirk"})
	t = t .. fab.zeile{attr_name="Stadtteil", attr_text="Gehört zu Stadtteil", val=fbdata.pargs.Stadtteil}
	t = t .. fab.zeilePargs(fbdata, {"StatistischerBezirk", "StatistischerDistrikt"})
	t = t .. fab.zeile{attr_name="Fläche", attr_text="Fläche" .. bemerkungshinweis, val=fbdata.pargs["Fläche"], val_prefix="ca.", val_postfix="km<sup>2</sup>"}
	t = t .. fab.zeile{attr_name="Bevölkerung", attr_text="Bevölkerung" .. bemerkungshinweis, val=fbdata.pargs["Bevölkerung"], val_prefix="ca."}
	t = t .. fab.zeile{attr_name="Haushalte", attr_text="Haushalte" .. bemerkungshinweis, val=fbdata.pargs["Haushalte"], val_prefix="ca."}
	if bemerkungshinweis ~= "" then
		t = t .. fab.zeile{attr_name="Bemerkung", attr_text="*)", val=fbdata.pargs["Bemerkung"]}
	end
	t = t .. fab.zeileGeokoordinate(fbdata)
	t = t .. "</dl>"
	t = t .. fab.faktenboxSemantikBrowsen(fbdata)

	-- Tab draus machen
	t = fab.tab(t, "Daten")
--	mw.log("t = " .. t)
    return t
end

function p.kartenTab(fbdata)
--	mw.log("kartenTab(fbdata)")
--	mw.logObject(fbdata)
	-- Konsolenzeile zum Debuggen:
	-- fab=require("Modul:Faktenbox/Work"); fbdata=fab.fbdata{pargs={["location"]="Altstadt, Fürth, Bayern, Deutschland"}}; print(p.kartenTab(fbdata))
	t = ""
	if string.find(fbdata.pagename, ";") ~= nil then
		t = "Semikolon im Artikel-/Seitennamen für korrekte Kartendarstellung nicht erlaubt!"
	else
		local args_karte = com.shallowcopy(fbdata.pargs)
		args_karte["Debug"] = "Nein"
		t = fbdata.frame:expandTemplate{title = 'Stadtteil/Karte', args = args_karte}
	end
	-- Tab draus machen
	t = fab.tab(t, "Karte")
--	mw.log("t = " .. t)
	return t
end

return p