Index: trunk/info/info/alkisn/alkisgebaeudenw.php
===================================================================
--- trunk/info/info/alkisn/alkisgebaeudenw.php	(revision 418)
+++ trunk/info/info/alkisn/alkisgebaeudenw.php	(revision 422)
@@ -5,26 +5,76 @@
 	Version:
 	2016-02-24 Version fuer norGIS-ALKIS-Import
-	2016-11-29 HTML5, Gemeinsam genutzte Datenbanken ermÃ¶glichen
-	2016-12-05 Array-Behandlung ax_gebaeude.name
-	2017-06-08 Validierung Eingabeparameter, Feinkorrekturen
-	2017-06-19 Tool-Tip GebÃ€udefunktion
-	2018-04-23 Kennzeichen eingerÃŒckt, &nodebug
-	2018-11-09 Umstellung Full-Schema
-	2018-11-21 Korrektur LEFT Join Bauweise
+	....
+	2020-02-20 Authentifizierung ausgelegert in Function darf_ich()
+	2020-12-03 function selbstverlinkung() statt $_SERVER['PHP_SELF']
+	2020-12-15 Verschneidung mit "sonstige Bauwerke", Input-Validation und Strict Comparisation
+	2021-03-09 Verschneidung mit weiteren Bauwerks-Tabellen.
+	2021-03-11 Adresse(n) des gehÃ¶rtZu-Haus zum Bauwerk nicht mehr hier anzeigen sondern im neuen Bauwerk-Modul.
 */
+
+// Kopf fÃŒr die Anzeige der GebÃ€ude. Nur wenn tatsÃ€chlich GebÃ€ude vorkommen.
+function geb_tab_head() {
+	// Ãberschrift
+	echo "\n\n<h3><img src='ico/Haus.png' width='16' height='16' alt=''> Geb&auml;ude</h3>"
+	."\n<p>.. auf oder an dem Flurst&uuml;ck. Ermittelt durch Verschneidung der Geometrie.</p>";
+
+	// Tabellen-Kopf
+	echo "\n<hr>\n<table class='geb'>";
+	echo "\n<tr>"
+		."\n\t<td class='head' title='ggf. Geb&auml;udename'>Name</td>"
+		."\n\t<td class='heads fla' title='Schnittfl&auml;che zwischen Flurst&uuml;ck und Geb&auml;ude'><img src='ico/sortd.png' width='10' height='10' alt='' title='Sortierung (absteigend)'>Fl&auml;che</td>"
+		."\n\t<td class='head' title='gesamte Geb&auml;udefl&auml;che, liegt teilweise auf Nachbar-Flurst&uuml;ck'>&nbsp;</td>"
+		."\n\t<td class='head' title='Geb&auml;udefunktion ist die zum Zeitpunkt der Erhebung vorherrschend funktionale Bedeutung des Geb&auml;udes'>Funktion</td>"
+		."\n\t<td class='head' title='Bauweise ist die Beschreibung der Art der Bauweise'>Bauweise</td>"
+		."\n\t<td class='head' title='Zustand beschreibt die Beschaffenheit oder die Betriebsbereitschaft von Geb&auml;ude. Diese Attributart wird nur dann optional gef&uuml;hrt, wenn der Zustand des Geb&auml;udes vom nutzungsf&auml;higen Zustand abweicht.'>Zustand</td>"
+		."\n\t<td class='head nwlink' title='Lagebezeichnung mit Stra&szlig;e und Hausnummer'>Lage</td>"
+		."\n\t<td class='head nwlink' title='Link zu den kompletten Hausdaten'>Haus</td>"
+	."\n</tr>";
+}
+	
+// Kopf fÃŒr die Anzeige der Bauwerke. Nur wenn tatsÃ€chlich Bauwerke vorkommen.
+function bauw_tab_head() {
+	// Ãberschrift
+	echo "\n\n<h3><img src='ico/Haus.png' width='16' height='16' alt=''> Bauwerke</h3>"
+	."\n<p>.. auf oder an dem Flurst&uuml;ck. Ermittelt durch Verschneidung der Geometrie.</p>";
+
+	// Tabellen-Kopf
+	echo "\n<hr>\n<table class='geb'>";
+	echo "<tr><td colspan=3></td><td colspan=3 class='heads gw'><img src='ico/sort.png' width='10' height='10' alt='' title='Sortierung'>Bauwerks-Typ</td></tr>";
+	echo "\n<tr>";
+	echo "\n\t<td class='head' title='Bezeichnung und/oder Bauwerksname'>Name</td>"
+		."\n\t<td class='heads fla' title='Schnittfl&auml;che zwischen Flurst&uuml;ck und Bauwerk'><img src='ico/sortd.png' width='10' height='10' alt='' title='Sortierung (absteigend)'>Fl&auml;che</td>"
+		."\n\t<td class='head' title='gesamte Bauwerksfl&auml;che, liegt teilweise auf Nachbar-Flurst&uuml;ck'>&nbsp;</td>"
+		."\n\t<td class='head' title='Bauwerksfunktion'>Funktion</td>"
+		."\n\t<td class='head nwlink' title='Daten des zugehÃ¶rigen Geb&auml;udes'>zum Haus</td>"
+		."\n\t<td class='head nwlink' title='Detaillierte Daten zu diesem Bauwerk'>Bauwerk</td>"
+	."\n</tr>";
+}
+
+// S T A R T
+
+ini_set("session.cookie_httponly", 1);
 session_start();
-$showkey="n"; $nodebug=""; // Var. aus Parameter initalisieren
-$cntget = extract($_GET); // Parameter in Variable umwandeln
+$showkey="n"; $nodebug="";	// Var. aus Parameter initalisieren
+$cntget = extract($_GET);	// Parameter in Variable umwandeln
 
 // strikte Validierung aller Parameter
-if (!isset($gmlid) or !preg_match('#^[0-9A-Za-z]{16}$#', $gmlid)) {die("Eingabefehler gmlid");}
-if (!isset($gkz) or !preg_match('#^[0-9]{3}$#', $gkz)) {die("Eingabefehler gkz");}
+if (isset($gmlid)) {
+	if (!preg_match('#^[0-9A-Za-z]{16}$#', $gmlid)) {die("Eingabefehler gmlid");}
+} else {
+	die("Fehlender Parameter");
+}
+if (isset($gkz)) {
+	if (!preg_match('#^[0-9]{3}$#', $gkz)) {die("Eingabefehler gkz");}
+} else {
+	die("Fehlender Parameter");
+}
 if (!preg_match('#^[j|n]{0,1}$#', $showkey)) {die ("Eingabefehler showkey");}
-if ($showkey == "j") {$showkey=true;} else {$showkey=false;}
+if ($showkey === "j") {$showkey=true;} else {$showkey=false;}
 if (!preg_match('#^j{0,1}$#', $nodebug)) {die("Eingabefehler nodebug");}
 
-require_once("alkis_conf_location.php");
-if ($auth == "mapbender") {require_once($mapbender);}
-include("alkisfkt.php");
+include "alkis_conf_location.php";
+include "alkisfkt.php";
+
 echo <<<END
 <!doctype html>
@@ -39,7 +89,10 @@
 <body>
 END;
+
+$erlaubnis = darf_ich(); if ($erlaubnis === 0) { die('<p class="stop1">Abbruch</p></body>'); }
+
 // Mit URL-Parameter "&nodebug=j" kann man die Entwicklungsumgebung (in Conf definiert) ausschalten.
 // Manuell an die URL anfÃŒgen, wirkt nur temporÃ€r und wird nicht in Links weiter gereicht.
-if ($nodebug == "j") {$debug=0;} 
+if ($nodebug === "j") {$debug=0;} 
 
 $con = pg_connect($dbconn." options='--application_name=ALKIS-Auskunft_alkisgebaeudenw.php'");
@@ -55,5 +108,6 @@
 if (!$resf) {
 	echo "\n<p class='err'>Fehler bei Flurst&uuml;cksdaten.</p>";
-	if ($debug > 2) {echo "\n<p class='err'>SQL=<br>".$sqlf."<br>$1 = gml_id = '".$gmlid."'</p>";}
+	if ($debug > 2) {echo "\n<p class='err'>SQL=<br>".str_replace("$1","'".$gmlid."'",$sqlf)."'</p>";}
+	if ($debug > 1) {echo "<p class='dbg'>Fehler:".pg_result_error($resf)."</p>";}
 }
 if ($rowf = pg_fetch_assoc($resf)) {
@@ -70,6 +124,6 @@
 	echo "\n<p class='err'>Fehler! Kein Treffer fuer gml_id=".$gmlid."</p>";
 }
-echo "<p class='geb'>ALKIS Flurst&uuml;ck (Geb&auml;ude) ".$gmkgnr."-".$flurnummer."-".$flstnummer."&nbsp;</p>"; // Balken
-echo "\n<h2>Flurst&uuml;ck (Geb&auml;ude)</h2>";
+echo "<p class='balken geb'>ALKIS Flurst&uuml;ck (Geb&auml;ude und Bauwerke) ".$gmkgnr."-".$flurnummer."-".$flstnummer."&nbsp;</p>"; // Balken
+echo "\n<h2>Flurst&uuml;ck (Geb&auml;ude und Bauwerke)</h2>";
 echo "\n<table class='outer'>" // Kopf
 	."\n<tr>"
@@ -84,5 +138,5 @@
 				."\n\t\t</tr>\n\t\t<tr>"
 					."\n\t\t\t<td title='Gemarkung'>";
-					if  ($showkey) {echo "<span class='key'>".$gmkgnr."</span><br>";}
+					if ($showkey) {echo "<span class='key'>".$gmkgnr."</span><br>";}
 					echo $gemkname."&nbsp;</td>"
 					."\n\t\t\t<td title='Flurnummer'>".$flurnummer."</td>"
@@ -104,17 +158,15 @@
 pg_free_result($resf);
 
-echo "\n\n<h3><img src='ico/Haus.png' width='16' height='16' alt=''> Geb&auml;ude</h3>"
-."\n<p>.. auf oder an dem Flurst&uuml;ck. Ermittelt durch Verschneidung der Geometrie.</p>";
-
 // G e b a e u d e
+
 $sqlg ="SELECT g.gml_id, g.name, g.bauweise, g.gebaeudefunktion, h.beschreibung AS bauweise_beschreibung, u.beschreibung AS bezeichner, u.dokumentation AS gfktd, g.zustand, z.beschreibung AS bzustand, 
-round(st_area(g.wkb_geometry)::numeric,2) AS gebflae, "; // GEB-Flaeche komplett auch die Fl. ausserhalb des FS
+round(st_area(g.wkb_geometry)::numeric,2) AS gebflae, "; // GEB-Flaeche, auch ausserhalb des FS
 $sqlg.="round(st_area(ST_Intersection(g.wkb_geometry,f.wkb_geometry))::numeric,2) AS schnittflae, "; // wie viel vom GEB liegt im FS?
-$sqlg.="st_within(g.wkb_geometry,f.wkb_geometry) as drin "; // liegt das GEB komplett im FS?
-$sqlg.="FROM ax_flurstueck f, ax_gebaeude g 
-LEFT JOIN ax_bauweise_gebaeude h ON g.bauweise = h.wert
-LEFT JOIN ax_gebaeudefunktion u ON g.gebaeudefunktion = u.wert
-LEFT JOIN ax_zustand_gebaeude z ON g.zustand = z.wert
-WHERE f.gml_id= $1 AND f.endet IS NULL and g.endet IS NULL "; // ID des akt. FS
+$sqlg.="st_within(g.wkb_geometry,f.wkb_geometry) as drin 
+ FROM ax_flurstueck f, ax_gebaeude g 
+ LEFT JOIN ax_bauweise_gebaeude h ON g.bauweise = h.wert
+ LEFT JOIN ax_gebaeudefunktion u ON g.gebaeudefunktion = u.wert
+ LEFT JOIN ax_zustand_gebaeude z ON g.zustand = z.wert 
+WHERE f.gml_id= $1 AND f.endet IS NULL and g.endet IS NULL ";
 
 // "within" -> nur Geb., die komplett im FS liegen. "intersects" -> auch teil-ueberlappende Flst.
@@ -129,135 +181,136 @@
 if (!$resg) {
 	echo "\n<p class='err'>Fehler bei Geb&auml;ude-Verschneidung.</p>";
-	if ($debug > 2) {echo "\n<p class='err'>SQL=<br>".$sqlg."<br>$1 = gml_id = '".$gmlid."'</p>";}
+	if ($debug > 2) {echo "\n<p class='err'>SQL=<br>".str_replace("$1","'".$gmlid."'",$sqlg)."'</p>";}
+	if ($debug > 1) {echo "<p class='dbg'>Fehler:".pg_result_error($resg)."</p>";}
 }
 $gebnr=0;
 $gebflsum=0;
-echo "\n<hr>\n<table class='geb'>";
-	echo "\n<tr>" // T-Header
-		."\n\t<td class='head' title='ggf. Geb&auml;udename'>Name</td>"
-		."\n\t<td class='heads fla' title='Schnittfl&auml;che zwischen Flurst&uuml;ck und Geb&auml;ude'><img src='ico/sortd.png' width='10' height='10' alt='' title='Sortierung (absteigend)'>Fl&auml;che</td>"
-		."\n\t<td class='head' title='gesamte Geb&auml;udefl&auml;che, liegt teilweise auf Nachbar-Flurst&uuml;ck'>&nbsp;</td>"
-		."\n\t<td class='head' title='Geb&auml;udefunktion ist die zum Zeitpunkt der Erhebung vorherrschend funktionale Bedeutung des Geb&auml;udes'>Funktion</td>"
-		."\n\t<td class='head' title='Bauweise ist die Beschreibung der Art der Bauweise'>Bauweise</td>"
-		."\n\t<td class='head' title='Zustand beschreibt die Beschaffenheit oder die Betriebsbereitschaft von Geb&auml;ude. Diese Attributart wird nur dann optional gef&uuml;hrt, wenn der Zustand des Geb&auml;udes vom nutzungsf&auml;higen Zustand abweicht.'>Zustand</td>"
-		."\n\t<td class='head nwlink' title='Lagebezeichnung mit Stra&szlig;e und Hausnummer'>Lage</td>"
-		."\n\t<td class='head nwlink' title='Link zu den kompletten Hausdaten'>Haus</td>"
+while($rowg = pg_fetch_assoc($resg)) {
+	$gebnr++;
+	if ($gebnr === 1) {geb_tab_head();} // Tab.-Kopf
+	$ggml=$rowg["gml_id"];
+	$gebflsum=$gebflsum + $rowg["schnittflae"];
+	$gnam=trim(trim($rowg["name"], "{}"), '"'); // Gebaeude-Name ist ein Array in der DB: '{"A","B"}'
+	// Mehrfachbelegung nur theoretisch. Entklammern reicht. Mal mit und mal ohne "" drum!?
+	/* SELECT name FROM ax_gebaeude WHERE NOT name IS NULL AND array_length(name, 1) > 1; */
+	$gfktk=htmlentities($rowg["gebaeudefunktion"], ENT_QUOTES, "UTF-8");  // Geb.-Funktion Key
+	$gfktv=htmlentities($rowg["bezeichner"], ENT_QUOTES, "UTF-8"); // Geb.Funktion Value
+	$gfktd=htmlentities($rowg["gfktd"], ENT_QUOTES, "UTF-8"); // GebÃ€ude-Funktion-Description
+
+	$gbauw=$rowg["bauweise"];
+	$gbauwb=htmlentities($rowg["bauweise_beschreibung"], ENT_QUOTES, "UTF-8");
+
+	$gzus=$rowg["zustand"];
+	$gzustand=htmlentities($rowg["bzustand"], ENT_QUOTES, "UTF-8");
+
+	// 3 FÃ€lle unterscheiden:
+	if ($rowg["drin"] === "t") { // GebÃ€ude liegt komplett in FlurstÃŒck
+		$f1=$rowg["schnittflae"]." m&#178;";
+		$f2="&nbsp;";
+		$gstyle="gin"; // siehe .css
+	} else {
+		if ($rowg["schnittflae"] === "0.00") { // GebÃ€ude angrenzend (Grenzbebauung)
+			$gstyle="gan";
+			$f1="&nbsp;";
+			$f2="angrenzend";
+		} else { // Teile des GebÃ€udes stehen auf dem FlurstÃŒck
+			$gstyle="gtl";
+			$f1=$rowg["schnittflae"]." m&#178;";
+			$f2="(von ".$rowg["gebflae"]." m&#178;)";
+		}
+	}
+
+	echo "\n<tr>"
+		."\n\t<td>";
+		if ($gnam != "") {echo "<span title='Geb&auml;udename'>".$gnam."</span><br>";}
+		echo "</td>";
+
+		echo "\n\t<td class='fla'>".$f1."</td>"
+		."\n\t<td class='".$gstyle."'>".$f2."</td>"; // FlÃ€chenangaben
+
+		echo "\n\t<td title='".$gfktd."'>"; // Funktion
+			if ($showkey) {echo "<span class='key'>(".$gfktk.")</span>&nbsp;";}
+			echo $gfktv;
+		echo "</td>";
+
+		echo "\n\t<td>";
+		if ($gbauw != "") {
+			if ($showkey) {echo "<span class='key'>(".$gbauw.")</span>&nbsp;";}
+			echo $gbauwb;
+		}
+		echo "</td>";
+
+		echo "\n\t<td>";
+		if ($gzus != "") {
+			if ($showkey) {echo "<span class='key'>(".$gzus.")</span>&nbsp;";}
+			echo $gzustand;
+		}
+		echo "</td>";
+
+		// 2 Spalten mit Links zu anderen Nachweisen: 1. Lage, 2. GebÃ€ude
+		echo "\n\t<td class='nwlink noprint'>"; // Link Lage
+
+		// Zu EINEM GebÃ€ude mehrere Lagebezeichnungen mit Haus- oder Pseudo-Nummer mÃ¶glich, alle in ein TD 
+		// HAUPTgebÃ€ude  Geb >zeigtAuf> lage (mehrere)
+		$sqll="SELECT 'm' AS ltyp, l.gml_id AS lgml, s.lage, s.bezeichnung, l.hausnummer, '' AS laufendenummer "
+		."FROM ax_gebaeude g JOIN ax_lagebezeichnungmithausnummer l ON l.gml_id=ANY(g.zeigtauf) "
+		."JOIN ax_lagebezeichnungkatalogeintrag s ON l.kreis=s.kreis AND l.gemeinde=s.gemeinde AND l.lage=s.lage "
+		."WHERE g.gml_id= $1 AND g.endet IS NULL AND l.endet IS NULL AND s.endet IS NULL ";
+
+		// UNION - oder NEBENgebÃ€ude  Geb >hat> Pseudo
+		$sqll.="UNION SELECT 'p' AS ltyp, l.gml_id AS lgml, s.lage, s.bezeichnung, l.pseudonummer AS hausnummer, l.laufendenummer "
+		."FROM ax_gebaeude g JOIN ax_lagebezeichnungmitpseudonummer l ON l.gml_id=g.hat "
+		."JOIN ax_lagebezeichnungkatalogeintrag s ON l.kreis=s.kreis AND l.gemeinde=s.gemeinde AND l.lage=s.lage "
+		."WHERE g.gml_id= $1 AND g.endet IS NULL AND l.endet IS NULL AND s.endet IS NULL "; // ID des Hauses"
+	
+		$sqll.="ORDER BY bezeichnung, hausnummer, laufendenummer;";
+		$v = array($ggml);
+		$resl = pg_prepare("", $sqll);
+		$resl = pg_execute("", $v);
+		if (!$resl) {
+			echo "\n<p class='err'>Fehler bei Lage mit HsNr.</p>";
+			if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".str_replace("$1","'".$gmlid."'",$sqll)."'</p>";}
+			if ($debug > 1) {echo "<p class='dbg'>Fehler:".pg_result_error($resl)."</p>";}
+		}
+		while($rowl = pg_fetch_assoc($resl)) { // LOOP: Lagezeilen
+			$ltyp=$rowl["ltyp"]; // Lagezeilen-Typ
+			$skey=$rowl["lage"]; // Str.-Schluessel
+			$snam=htmlentities($rowl["bezeichnung"], ENT_QUOTES, "UTF-8"); //-Name
+			$hsnr=$rowl["hausnummer"];
+			$hlfd=$rowl["laufendenummer"];
+			$gmllag=$rowl["lgml"];
+			if ($ltyp === "p") {
+				$lagetitl="Nebengeb&auml;ude - Pseudonummer";
+				$lagetxt="Nebengeb. ".$hlfd; // + HausNr??
+			} else {
+				$lagetitl="HauptgebÃ€ude - Hausnummer";
+				$lagetxt=$snam." ".$hsnr;
+			}
+			echo "\n\t\t<a title='".$lagetitl."' href='alkislage.php?gkz=".$gkz."&amp;gmlid=".$gmllag."&amp;ltyp=".$ltyp;
+				if ($showkey) {echo "&amp;showkey=j";}
+				echo "'>";
+				if ($showkey) {echo "<span class='key'>(".$skey.")</span>&nbsp;";}
+			echo $lagetxt."&nbsp;<img src='ico/Lage_mit_Haus.png' width='16' height='16' alt=''></a><br>";
+		} // Ende Loop Lage m.H.
+		pg_free_result($resl);
+		echo "\n\t</td>";
+
+		echo "\n\t<td class='nwlink noprint'>" // Link Haus
+			."\n\t\t<a title='Daten zum Geb&auml;ude-Objekt' href='alkishaus.php?gkz=".$gkz."&amp;gmlid=".$ggml;
+			if ($showkey) {echo "&amp;showkey=j";}
+			echo "'>Haus&nbsp;<img src='ico/Haus.png' width='16' height='16' alt=''></a>"
+		."\n\t</td>"
 	."\n</tr>";
-	while($rowg = pg_fetch_assoc($resg)) { // T-Body
-		$gebnr = $gebnr + 1;
-		$ggml=$rowg["gml_id"];
-		$gebflsum=$gebflsum + $rowg["schnittflae"];
-		$gnam=trim(trim($rowg["name"], "{}"), '"'); // Gebaeude-Name ist ein Array in der DB: '{"A","B"}'
-		// Mehrfachbelegung nur theoretisch. Entklammern reicht. Mal mit und mal ohne "" drum!?
-		/* SELECT name FROM ax_gebaeude WHERE NOT name IS NULL AND array_length(name, 1) > 1; */
-		$gfktk=htmlentities($rowg["gebaeudefunktion"], ENT_QUOTES, "UTF-8");  // Geb.-Funktion Key
-		$gfktv=htmlentities($rowg["bezeichner"], ENT_QUOTES, "UTF-8"); // Geb.Funktion Value
-		$gfktd=htmlentities($rowg["gfktd"], ENT_QUOTES, "UTF-8"); // GebÃ€ude-Funktion-Description
-		$gzus=htmlentities($rowg["zustand"], ENT_QUOTES, "UTF-8");
-		$gzustand=htmlentities($rowg["bzustand"], ENT_QUOTES, "UTF-8");
-
-		// 3 FÃ€lle unterscheiden:
-		if ($rowg["drin"] == "t") { // GebÃ€ude liegt komplett in FlurstÃŒck
-			$f1=$rowg["schnittflae"]." m&#178;";
-			$f2="&nbsp;";
-			$gstyle="gin"; // siehe .css
-		} else {
-	       	if ($rowg["schnittflae"] == "0.00") { // GebÃ€ude angrenzend (Grenzbebauung)
-				$gstyle="gan";
-				$f1="&nbsp;";
-				$f2="angrenzend";
-			} else { // Teile des GebÃ€udes stehen auf dem FlurstÃŒck
-				$gstyle="gtl";
-				$f1=$rowg["schnittflae"]." m&#178;";
-				$f2="(von ".$rowg["gebflae"]." m&#178;)";
-			}
-		}
-
-		echo "\n<tr>"
-			."\n\t<td class='".$gstyle."'>"; // Sp. 1 Name
-			if ($gnam != "") {echo "<span title='Geb&auml;udename'>".$gnam."</span><br>";}
-			echo "</td>";
-
-			echo "\n\t<td class='fla'>".$f1."</td>" // Sp. 2
-			."\n\t<td class='".$gstyle."'>".$f2."</td>"; // FlÃ€chenangaben
-
-			echo "\n\t<td class='".$gstyle."' title='".$gfktd."'>"; // Sp. 3 Funktion
-			if ($showkey) {echo "<span class='key'>".$gfktk."</span>&nbsp;";}
-			echo $gfktv."</td>";
-
-			echo "\n\t<td class='".$gstyle."'>";
-			if ($showkey) {echo "<span class='key'>".$rowg["bauweise"]."</span>&nbsp;";}
-			echo $rowg["bauweise_beschreibung"]."&nbsp;</td>";
-
-			echo "\n\t<td class='".$gstyle."'>";
-			if ($showkey) {echo "<span class='key'>".$gzus."</span>&nbsp;";}
-			echo $gzustand."&nbsp;</td>";
-
-			// 2 Spalten mit Links zu anderen Nachweisen: 1. Lage, 2. GebÃ€ude
-			echo "\n\t<td class='nwlink noprint'>"; // Link Lage
-
-			// Zu EINEM GebÃ€ude mehrere Lagebezeichnungen mit Haus- oder Pseudo-Nummer mÃ¶glich, alle in ein TD 
-			// HAUPTgebÃ€ude  Geb >zeigtAuf> lage (mehrere)
-			$sqll="SELECT 'm' AS ltyp, l.gml_id AS lgml, s.lage, s.bezeichnung, l.hausnummer, '' AS laufendenummer "
-			."FROM ax_gebaeude g JOIN ax_lagebezeichnungmithausnummer l ON l.gml_id=ANY(g.zeigtauf) "
-			."JOIN ax_lagebezeichnungkatalogeintrag s ON l.kreis=s.kreis AND l.gemeinde=s.gemeinde AND l.lage=s.lage "
-			."WHERE g.gml_id= $1 AND g.endet IS NULL AND l.endet IS NULL AND s.endet IS NULL ";
-
-			// UNION - oder NEBENgebÃ€ude  Geb >hat> Pseudo
-			$sqll.="UNION SELECT 'p' AS ltyp, l.gml_id AS lgml, s.lage, s.bezeichnung, l.pseudonummer AS hausnummer, l.laufendenummer "
-			."FROM ax_gebaeude g JOIN ax_lagebezeichnungmitpseudonummer l ON l.gml_id=g.hat "
-			."JOIN ax_lagebezeichnungkatalogeintrag s ON l.kreis=s.kreis AND l.gemeinde=s.gemeinde AND l.lage=s.lage "
-			."WHERE g.gml_id= $1 AND g.endet IS NULL AND l.endet IS NULL AND s.endet IS NULL "; // ID des Hauses"
-		
-			$sqll.="ORDER BY bezeichnung, hausnummer;";
-			$v = array($ggml);
-			$resl = pg_prepare("", $sqll);
-			$resl = pg_execute("", $v);
-			if (!$resl) {
-				echo "\n<p class='err'>Fehler bei Lage mit HsNr.</p>";
-				if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".$sqll."<br>$1 = gml_id = '".$gmlid."'</p>";}
-			}
-			while($rowl = pg_fetch_assoc($resl)) { // LOOP: Lagezeilen
-				$ltyp=$rowl["ltyp"]; // Lagezeilen-Typ
-				$skey=$rowl["lage"]; // Str.-Schluessel
-				$snam=htmlentities($rowl["bezeichnung"], ENT_QUOTES, "UTF-8"); //-Name
-				$hsnr=$rowl["hausnummer"];
-				$hlfd=$rowl["laufendenummer"];
-				$gmllag=$rowl["lgml"];
-				if ($ltyp == "p") {
-					$lagetitl="NebengebÃ€ude - Pseudonummer";
-					$lagetxt="Nebengeb&auml;ude Nr. ".$hlfd;
-				} else {
-					$lagetitl="HauptgebÃ€ude - Hausnummer";
-					$lagetxt=$snam."&nbsp;".$hsnr;
-				}
-				echo "\n\t\t<a title='".$lagetitl."' href='alkislage.php?gkz=".$gkz."&amp;gmlid=".$gmllag."&amp;ltyp=".$ltyp;
-					if ($showkey) {echo "&amp;showkey=j";}
-					echo "'>";
-					if ($showkey) {echo "<span class='key'>(".$skey.")</span>&nbsp;";}
-				echo $lagetxt."&nbsp;<img src='ico/Lage_mit_Haus.png' width='16' height='16' alt=''></a><br>";
-			} // Ende Loop Lage m.H.
-            pg_free_result($resl);
-			echo "\n\t</td>";
-
-			echo "\n\t<td class='nwlink noprint'>" // Link Haus
-				."\n\t\t<a title='Daten zum Geb&auml;ude-Objekt' href='alkishaus.php?gkz=".$gkz."&amp;gmlid=".$ggml;
-				if ($showkey) {echo "&amp;showkey=j";}
-				echo "'>Haus&nbsp;<img src='ico/Haus.png' width='16' height='16' alt=''></a>"
-			."\n\t</td>"
-		."\n</tr>";
-	} // Ende GebÃ€ude
-
-	// Footer
-	if ($gebnr == 0) {
-		echo "\n</table>"
-		."<p class='err'><br>Keine Geb&auml;ude auf diesem Flurst&uuml;ck.<br>&nbsp;</p>";
-		//if ($debug > 2) {echo "\n<p class='err'>SQL=<br>".$sqlg."<br>$1 = gml_id = '".$gmlid."'</p>";}
-	} else {
-		echo "\n<tr>"
-			."\n\t<td>Summe:</td>"
-			."\n\t<td class='fla sum' title='von Geb&auml;uden &uuml;berbaute Fl&auml;che des Flurst&uuml;cks'>".number_format($gebflsum,0,",",".")."&nbsp;&nbsp;&nbsp;&nbsp;m&#178;</td>"
-			."\n\t<td colspan='6'>&nbsp;</td>"
-		."\n</tr>"
+}
+// Footer GebÃ€ude
+if ($gebnr === 0) {
+	echo "<p><br>Kein Geb&auml;ude auf diesem Flurst&uuml;ck.<br>&nbsp;</p>";
+	//if ($debug > 2) {echo "\n<p class='err'>SQL=<br>".$sqlg."<br>$1 = gml_id = '".$gmlid."'</p>";}
+} else {
+	echo "\n<tr>"
+		."\n\t<td>Summe:</td>"
+		."\n\t<td class='fla sum' title='von Geb&auml;uden &uuml;berbaute Fl&auml;che des Flurst&uuml;cks'>".number_format($gebflsum,0,",",".")."&nbsp;&nbsp;&nbsp;&nbsp;m&#178;</td>"
+		."\n\t<td colspan='6'>&nbsp;</td>"
+	."\n</tr>"
 	."\n</table>";
 	$unbebaut = number_format(($flstflaeche - $gebflsum),0,",",".") . " m&#178;";
@@ -265,4 +318,240 @@
 }
 pg_free_result($resg);
+
+// B a u w e r k e
+
+// Konstanten fÃŒr Sortierung und Gruppierung
+$btyp_verkehr=1; $btyp_gewaesser=2; $btyp_sonst=3; $btyp_indu=4; $btyp_sport=5;
+$btyp_leitg=6; $btyp_trans=7; $btyp_turm=8; $btyp_vorrat=9;
+
+// Tabllen-Alias, 2stellig. 1. Stelle: f_=FlurstÃŒck, b_=Bauwerk, k_=Key = SchlÃŒsseltabelle. // 2. Stelle: wie Konstante
+
+// 1 -V e r k e h r
+$sqlb="SELECT ".$btyp_verkehr." AS bwtyp, b1.gml_id, 
+ b1.bauwerksfunktion, k1.beschreibung AS bezeichner, k1.dokumentation AS bfktd, b1.bezeichnung, b1.name, NULL AS gehoertzu, 
+ round(st_area(b1.wkb_geometry)::numeric,2) AS gebflae, round(st_area(ST_Intersection(b1.wkb_geometry,f1.wkb_geometry))::numeric,2) AS schnittflae, 
+ st_within(b1.wkb_geometry,f1.wkb_geometry) as drin, GeometryType(b1.wkb_geometry) as bgeotyp 
+ FROM ax_flurstueck f1 
+ JOIN ax_bauwerkimverkehrsbereich b1 ON st_intersects(b1.wkb_geometry,f1.wkb_geometry) = true
+ LEFT JOIN ax_bauwerksfunktion_bauwerkimverkehrsbereich k1 ON b1.bauwerksfunktion = k1.wert 
+ WHERE f1.gml_id = $1 AND f1.endet IS NULL AND b1.endet IS NULL ";
+// 2 - G e w Ã€ s s e r
+$sqlb.="UNION
+ SELECT ".$btyp_gewaesser." AS bwtyp, b2.gml_id, b2.bauwerksfunktion, ug.beschreibung AS bezeichner, ug.dokumentation AS bfktd, 
+ b2.bezeichnung, b2.name, NULL AS gehoertzu, 
+ round(st_area(b2.wkb_geometry)::numeric,2) AS gebflae, round(st_area(ST_Intersection(b2.wkb_geometry,f2.wkb_geometry))::numeric,2) AS schnittflae, 
+ st_within(b2.wkb_geometry,f2.wkb_geometry) as drin, GeometryType(b2.wkb_geometry) as bgeotyp 
+ FROM ax_flurstueck f2 
+ JOIN ax_bauwerkimgewaesserbereich b2 ON st_intersects(b2.wkb_geometry,f2.wkb_geometry) = true
+ LEFT JOIN ax_bauwerksfunktion_bauwerkimgewaesserbereich ug ON b2.bauwerksfunktion = ug.wert 
+ WHERE f2.gml_id = $1 AND f2.endet IS NULL AND b2.endet IS NULL ";
+// 3 - S o n s t i g e  Bauwerke
+$sqlb.="UNION
+ SELECT ".$btyp_sonst." AS bwtyp, b3.gml_id, b3.bauwerksfunktion, k3.beschreibung AS bezeichner, k3.dokumentation AS bfktd, 
+ b3.bezeichnung, b3.name, b3.gehoertzu, 
+ round(st_area(b3.wkb_geometry)::numeric,2) AS gebflae, round(st_area(ST_Intersection(b3.wkb_geometry,f3.wkb_geometry))::numeric,2) AS schnittflae, 
+ st_within(b3.wkb_geometry,f3.wkb_geometry) as drin, GeometryType(b3.wkb_geometry) as bgeotyp 
+ FROM ax_flurstueck f3 
+ JOIN ax_sonstigesbauwerkodersonstigeeinrichtung b3 ON st_intersects(b3.wkb_geometry,f3.wkb_geometry) = true
+ LEFT JOIN ax_bauwerksfunktion_sonstigesbauwerkodersonstigeeinrichtun k3 ON b3.bauwerksfunktion = k3.wert 
+ WHERE f3.gml_id = $1 AND f3.endet IS NULL AND b3.endet IS NULL ";
+// 4 - Bauwerk oder Anlage fÃŒr  I n d u s t r i e  und Gewerbe
+$sqlb.="UNION
+ SELECT ".$btyp_indu." AS bwtyp, b4.gml_id, b4.bauwerksfunktion, k4.beschreibung AS bezeichner, k4.dokumentation AS bfktd, 
+ b4.bezeichnung, b4.name, NULL AS gehoertzu, 
+ round(st_area(b4.wkb_geometry)::numeric,2) AS gebflae, round(st_area(ST_Intersection(b4.wkb_geometry,f4.wkb_geometry))::numeric,2) AS schnittflae, 
+ st_within(b4.wkb_geometry,f4.wkb_geometry) as drin, GeometryType(b4.wkb_geometry) as bgeotyp 
+ FROM ax_flurstueck f4 
+ JOIN ax_bauwerkoderanlagefuerindustrieundgewerbe b4 ON st_intersects(b4.wkb_geometry,f4.wkb_geometry) = true
+ LEFT JOIN ax_bauwerksfunktion_bauwerkoderanlagefuerindustrieundgewer k4 ON b4.bauwerksfunktion = k4.wert 
+ WHERE f4.gml_id = $1 AND f4.endet IS NULL AND b4.endet IS NULL ";
+// 5 - Bauwerk oder Anlage fÃŒr  S p o r t , Freizeit und Erholung
+$sqlb.="UNION
+ SELECT ".$btyp_sport." AS bwtyp, b5.gml_id, b5.bauwerksfunktion, k5.beschreibung AS bezeichner, k5.dokumentation AS bfktd, 
+ NULL AS bezeichnung, b5.name, NULL AS gehoertzu, 
+ round(st_area(b5.wkb_geometry)::numeric,2) AS gebflae, round(st_area(ST_Intersection(b5.wkb_geometry,f5.wkb_geometry))::numeric,2) AS schnittflae, 
+ st_within(b5.wkb_geometry,f5.wkb_geometry) as drin, GeometryType(b5.wkb_geometry) as bgeotyp 
+ FROM ax_flurstueck f5 
+ JOIN ax_bauwerkoderanlagefuersportfreizeitunderholung b5 ON st_intersects(b5.wkb_geometry,f5.wkb_geometry) = true
+ LEFT JOIN ax_bauwerksfunktion_bauwerkoderanlagefuersportfreizeitunde k5 ON b5.bauwerksfunktion = k5.wert 
+ WHERE f5.gml_id = $1 AND f5.endet IS NULL AND b5.endet IS NULL ";
+// 6 - L e i t u n g
+$sqlb.="UNION
+ SELECT ".$btyp_leitg." AS bwtyp, b6.gml_id, b6.bauwerksfunktion, k6.beschreibung AS bezeichner, k6.dokumentation AS bfktd, 
+ NULL AS bezeichnung, b6.name, NULL AS gehoertzu, 
+ round(st_area(b6.wkb_geometry)::numeric,2) AS gebflae, round(st_area(ST_Intersection(b6.wkb_geometry,f6.wkb_geometry))::numeric,2) AS schnittflae, 
+ st_within(b6.wkb_geometry,f6.wkb_geometry) as drin, GeometryType(b6.wkb_geometry) as bgeotyp 
+ FROM ax_flurstueck f6 
+ JOIN ax_leitung b6 ON st_intersects(b6.wkb_geometry,f6.wkb_geometry) = true
+ LEFT JOIN ax_bauwerksfunktion_leitung k6 ON b6.bauwerksfunktion = k6.wert 
+ WHERE f6.gml_id = $1 AND f6.endet IS NULL AND b6.endet IS NULL ";
+// 7 - T r a n s p o r t a n l a g e
+$sqlb.="UNION
+ SELECT ".$btyp_trans." AS bwtyp, b7.gml_id, b7.bauwerksfunktion, k7.beschreibung AS bezeichner, k7.dokumentation AS bfktd, 
+ NULL AS bezeichnung, NULL AS name, NULL AS gehoertzu, 
+ round(st_area(b7.wkb_geometry)::numeric,2) AS gebflae, round(st_area(ST_Intersection(b7.wkb_geometry,f7.wkb_geometry))::numeric,2) AS schnittflae, 
+ st_within(b7.wkb_geometry,f7.wkb_geometry) as drin, GeometryType(b7.wkb_geometry) as bgeotyp 
+ FROM ax_flurstueck f7 
+ JOIN ax_transportanlage b7 ON st_intersects(b7.wkb_geometry,f7.wkb_geometry) = true
+ LEFT JOIN ax_bauwerksfunktion_transportanlage k7 ON b7.bauwerksfunktion = k7.wert 
+ WHERE f7.gml_id = $1 AND f7.endet IS NULL AND b7.endet IS NULL ";
+// 8 - T u r m  (Sonderfall Array)
+$sqlb.="UNION
+ SELECT ".$btyp_turm." AS bwtyp, b8.gml_id, k8.wert AS bauwerksfunktion, k8.beschreibung AS bezeichner, k8.dokumentation AS bfktd, 
+ NULL AS bezeichnung, b8.name, NULL AS gehoertzu, 
+ round(st_area(b8.wkb_geometry)::numeric,2) AS gebflae, round(st_area(ST_Intersection(b8.wkb_geometry,f8.wkb_geometry))::numeric,2) AS schnittflae, 
+ st_within(b8.wkb_geometry,f8.wkb_geometry) as drin, GeometryType(b8.wkb_geometry) as bgeotyp 
+ FROM ax_flurstueck f8 
+ JOIN ax_turm b8 ON st_intersects(b8.wkb_geometry,f8.wkb_geometry) = true
+ LEFT JOIN ax_bauwerksfunktion_turm k8 ON k8.wert =ANY(b8.bauwerksfunktion)
+ WHERE f8.gml_id = $1 AND f8.endet IS NULL AND b8.endet IS NULL ";
+// 9 -  V o r r a t s b e h Ã€ l t e r ,  S p e i c h e r b a u w e r k
+$sqlb.="UNION
+ SELECT ".$btyp_vorrat." AS bwtyp, b9.gml_id, b9.bauwerksfunktion, k9.beschreibung AS bezeichner, k9.dokumentation AS bfktd, 
+ NULL AS bezeichnung, b9.name, NULL AS gehoertzu, 
+ round(st_area(b9.wkb_geometry)::numeric,2) AS gebflae, round(st_area(ST_Intersection(b9.wkb_geometry,f9.wkb_geometry))::numeric,2) AS schnittflae, 
+ st_within(b9.wkb_geometry,f9.wkb_geometry) as drin, GeometryType(b9.wkb_geometry) as bgeotyp 
+ FROM ax_flurstueck f9 
+ JOIN ax_vorratsbehaelterspeicherbauwerk b9 ON st_intersects(b9.wkb_geometry,f9.wkb_geometry) = true
+ LEFT JOIN ax_bauwerksfunktion_vorratsbehaelterspeicherbauwerk k9 ON b9.bauwerksfunktion = k9.wert 
+ WHERE f9.gml_id = $1 AND f9.endet IS NULL AND b9.endet IS NULL ";
+
+// Generell ...
+$sqlb.="ORDER BY bwtyp, schnittflae DESC;";
+
+$v=array($gmlid);
+$resb=pg_prepare("", $sqlb);
+$resb=pg_execute("", $v);
+if (!$resb) {
+	echo "\n<p class='err'>Fehler bei Bauwerke-Verschneidung.</p>";
+	if ($debug > 2) {echo "\n<p class='err'>SQL=<br>".str_replace("$1","'".$gmlid."'",$sqlb)."</p>";}
+	if ($debug > 1) {echo "<p class='dbg'>Fehler:".pg_result_error($resb)."</p>";}
+}
+$baunr=0; // ZÃ€hler
+$bauflsum=0; // FlÃ€chensumme
+$gwbwtyp=0; // Gruppen-Wechsel Bauwerks-Typ
+
+while($rowb = pg_fetch_assoc($resb)) {
+	$baunr++;
+	$btyp=$rowb["bwtyp"]; // Tabelle
+	$bgml=$rowb["gml_id"];
+	$bauflsum=$bauflsum + $rowb["schnittflae"];
+	$bbez=htmlentities($rowb["bezeichnung"], ENT_QUOTES, "UTF-8");
+	$bfktk=htmlentities($rowb["bauwerksfunktion"], ENT_QUOTES, "UTF-8");
+	$bfktv=htmlentities($rowb["bezeichner"], ENT_QUOTES, "UTF-8");
+	$bfktd=htmlentities($rowb["bfktd"], ENT_QUOTES, "UTF-8");
+	$bnam=htmlentities($rowb["name"], ENT_QUOTES, "UTF-8");
+	$bgeb=$rowb["gehoertzu"];
+	$drin=$rowb["drin"];
+	$bgeotyp=$rowb["bgeotyp"];
+
+	// Lage des Bauwerks zum FlurstÃŒck
+	if ($bgeotyp === "LINESTRING") {
+		if ($drin === "t") {
+			$bstyle="gin";
+		} else {
+			$bstyle="gtl";
+		}
+		$f1="&nbsp;";
+		$f2="Linie";
+	} elseif ($bgeotyp === "POINT") {
+		if ($drin === "t") {
+			$bstyle="gin";
+		} else {
+			$bstyle="gtl";
+		}
+		$f1="&nbsp;";
+		$f2="Punkt";		
+	} else { // FlÃ€che / Multi-
+		if ($drin === "t") { // komplett IM FlurstÃŒck
+			$f1=$rowb["schnittflae"]." m&#178;";
+			$f2="&nbsp;";
+			$bstyle="gin"; // siehe .css
+		} else {
+			if ($rowb["schnittflae"] === "0.00") { // nur angrenzend
+				$bstyle="gan";
+				$f1="&nbsp;";
+				$f2="angrenzend";
+			} else { // Teile auf FlurstÃŒck
+				$bstyle="gtl";
+				$f1=$rowb["schnittflae"]." m&#178;";
+				$f2="(von ".$rowb["gebflae"]." m&#178;)";
+			}
+		}	
+	}
+
+	// Gruppenwechsel Bauwerks-Typ (Quell-Tabelle) - Zwischen-Ãberschrift
+	If ($btyp != $gwbwtyp) {
+		$gwbwtyp = $btyp;
+		if ($baunr === 1) {bauw_tab_head();} // Tab.-Kopf
+		switch ($btyp) {
+			case $btyp_verkehr:
+				$btyptitle='Bauwerk im Verkehrsbereich'; break;
+			case $btyp_gewaesser:
+				$btyptitle='Bauwerk im GewÃ€sserbereich'; break;
+			case $btyp_sonst: 
+				$btyptitle='Sonstiges Bauwerk oder sonstige Einrichtung'; break;
+			case $btyp_indu:
+				$btyptitle="Bauwerk oder Anlage fÃŒr Industrie und Gewerbe"; break;
+			case $btyp_sport:
+				$btyptitle="Bauwerk oder Anlage fÃŒr Sport, Freizeit und Erholung"; break;
+			case $btyp_leitg:
+				$btyptitle="Leitung"; break;
+			case $btyp_trans:
+				$btyptitle="Transportanlage"; break;
+			case $btyp_turm:
+				$btyptitle="Turm"; break;
+			case $btyp_vorrat:
+				$btyptitle="VorratsbehÃ€lter, Speicherbauwerk"; break;
+			default:
+				$btyptitle='Fehler'; break;
+		}
+		echo "<tr><td colspan=3></td><td colspan=2 class='gw'>".$btyptitle."</td></tr>"; // ++ Symbol?
+	}
+
+	echo "\n<tr>";
+		echo "\n\t<td>";
+		if ($bbez != "") {echo "<span title='Bezeichnung'>".$bbez."</span> ";}
+		if ($bnam != "") {echo "<span title='Name'>".$bnam."</span> ";}
+		echo "</td>";
+		echo "\n\t<td class='fla'>".$f1."</td>"
+		."\n\t<td class='".$bstyle."'>".$f2."</td>"; // FlÃ€chenangaben
+		echo "\n\t<td>";
+		if ($showkey) {echo "<span class='key'>(".$bfktk.")</span>&nbsp;";} // Bauwerksfunktion
+		echo "<span title='".$bfktd ."'>".$bfktv."</span>";
+		echo "</td>";
+
+		// Lage / Haus (nur bei Typ 3 sonstige)
+		echo "\n\t<td class='nwlink noprint'>"; // Link
+		if ($bgeb != "") { // gehÃ¶rt zu GebÃ€ude
+		//	bw_gz_lage($bgeb); // Function: Lage (Adresse) ausgeben
+			echo "\n\t\t<a title='gehÃ¶rt zu' href='alkishaus.php?gkz=".$gkz."&amp;gmlid=".$bgeb;
+			if ($showkey) {echo "&amp;showkey=j";}
+			echo "'>Haus&nbsp;<img src='ico/Haus.png' width='16' height='16' alt=''></a>";
+		}
+		echo "\n\t</td>";
+
+		// Bauwerk Details
+		echo "\n\t<td class='nwlink noprint'>"; // Link
+		echo "\n\t\t<a title='Bauwerksdaten' href='alkisbauwerk.php?gkz=".$gkz."&amp;btyp=".$btyp."&amp;gmlid=".$bgml;
+		if ($showkey) {echo "&amp;showkey=j";}
+		echo "'>Bauwerk&nbsp;<img src='ico/Haus.png' width='16' height='16' alt=''></a>";  // +++ Icon fÃŒr Bauwerk schaffen +++
+		echo "\n\t</td>"
+	."\n</tr>";
+}
+
+// Footer Bauwerk
+if ($baunr === 0) {
+	echo "\n<p>Kein Bauwerk auf diesem Flurst&uuml;ck.</p><br>";
+	// if ($debug > 2) {echo "\n<p class='err'>SQL=<br>".$sqlb."<br>$1 = gml_id = '".$gmlid."'</p>";}
+} else {
+	echo "\n<tr>"
+		."\n\t<td>Summe:</td>"
+		."\n\t<td class='fla sum' title='von Bauwerken &uuml;berbaute Fl&auml;che des Flurst&uuml;cks'>".number_format($bauflsum,0,",",".")."&nbsp;&nbsp;&nbsp;&nbsp;m&#178;</td>"
+		."\n\t<td colspan='6'>&nbsp;</td>"
+	."\n</tr>"
+	."\n</table>\n";
+}
+pg_free_result($resb);
 ?>
  
@@ -273,5 +562,5 @@
 </div>
 
-<?php footer($gmlid, $_SERVER['PHP_SELF']."?", ""); ?>
+<?php footer($gmlid, selbstverlinkung()."?", ""); ?>
 
 </body>
