source: trunk/info/info/alkisn/alkisinlayausk.php @ 431

Revision 430, 12.5 KB checked in by frank.jaeger, 21 months ago (diff)

ALKIS-Auskunft angepasst an PHP 8

RevLine 
[362]1<?php
2/*      alkisinlayausk.php
3
[427]4        ALKIS-Auskunft
5        Author: Frank JÀger, Kommunales Rechenzentrum Minden-Ravensberg/Lippe (Lemgo)
6
7        Dies Programm wird in einen iFrame im Mapserver-Template der FeatureInfo geladen.
[362]8        Parameter: &gkz, &gml_id
[427]9        Dies Programm gibt einen kurzen Überblick zum FlurstÃŒck, z.B. EigentÃŒmer ohne Adresse.
[362]10        FÃŒr detaillierte Angaben wird zum GB- oder FS-Nachweis verlinkt.
[427]11        Dies ist eine Variante von alkisausk.php welches als vollstÀndige Seite aufgerufen wird.
[362]12
13        Version:
[427]14        2016-02-24 Version fÃŒr norGIS-ALKIS-Import
[422]15        ....
16        2020-02-03 Fenster-Weite
17        2020-02-20 Authentifizierung ausgelagert in Function darf_ich()
18        2020-10-14 include ohne Klammer
19        2020-12-15 Input-Validation und Strict Comparisation (===)
20        2021-03-09 Link zum GebÀudenachweis auch mit "Bauwerke" betiteln
[425]21        2021-12-09 Neue Parameter: $katAmtMix (Kataster-Amt-Mix)
[430]22        2022-07-05 PHP 8.1: Connection verwenden bei "pg_prepare" und "pg_execute", keine NULL-Werte in String-Functions verwenden
[362]23*/
[422]24ini_set("session.cookie_httponly", 1);
[362]25session_start();
[387]26$cntget = extract($_GET); // Parameter in Variable umwandeln
27
28// strikte Validierung aller Parameter
[422]29if (isset($gmlid)) {
30        if (!preg_match('#^[0-9A-Za-z]{16}$#', $gmlid)) {die("Eingabefehler gmlid");}
31} else {
32        die("Fehlender Parameter");
33}
34if (isset($gkz)) {
35        if (!preg_match('#^[0-9]{3}$#', $gkz)) {die("Eingabefehler gkz");}
36} else {
37        die("Fehlender Parameter");
38}
[387]39
[422]40include "alkis_conf_location.php";
41include "alkisfkt.php";
[387]42
[422]43// Wert fÃŒr "width=" aus der Function "imFenster" synchron halten mit "@media screen body width" aus "alkisauszug.css"
[362]44echo <<<END
[377]45<!doctype html>
46<html lang="de">
[362]47<head>
[377]48        <meta charset="utf-8">
[387]49        <meta name="viewport" content="width=device-width, initial-scale=1.0">
[362]50        <link rel="stylesheet" type="text/css" href="alkisauszug.css">
51        <link rel="shortcut icon" type="image/x-icon" href="ico/Flurstueck.ico">
52        <title>ALKIS-Auskunft</title>
[422]53        <script type="text/javascript" language="JavaScript">
[402]54                function imFenster(dieURL) {
55                        var link = encodeURI(dieURL);
56                        window.open(link,'','left=10,top=10,width=750,height=840,resizable=yes,menubar=no,toolbar=no,location=no,status=no,scrollbars=yes');
57                }
[362]58        </script>
59</head>
[422]60<body class ="mbfi">
[362]61END;
[425]62
[422]63$erlaubnis = darf_ich(); if ($erlaubnis === 0) { die('<p class="stop1">Abbruch</p></body>'); }
[427]64$dbg=$debug;
[422]65
66// Body des Inlay muss in Mapbender-Feature-Info-PopUp passen. Kleiner als 750 aus css.
[377]67$con = pg_connect($dbconn." options='--application_name=ALKIS-Auskunft_alkisinlayausk.php'");
[362]68if (!$con) {echo "<br>Fehler beim Verbinden der DB.\n<br>";}
69
[427]70// F L U R S T Ü C K
[412]71$sql ="SELECT f.flurnummer, f.zaehler, f.nenner, f.amtlicheflaeche, g.gemarkungsnummer, g.bezeichnung, f.gemeindezugehoerigkeit_regierungsbezirk, f.gemeindezugehoerigkeit_kreis, f.gemeindezugehoerigkeit_gemeinde, f.istgebucht
[425]72FROM ax_flurstueck f LEFT JOIN ax_gemarkung g ON f.land=g.land AND f.gemarkungsnummer=g.gemarkungsnummer ".UnqKatAmt("f","g")
73."WHERE f.gml_id= $1 AND f.endet IS NULL AND g.endet IS NULL;";
[412]74
[362]75$v = array($gmlid);
[430]76$res = pg_prepare($con, "", $sql);
77$res = pg_execute($con, "", $v);
[362]78if (!$res) {
[387]79        echo "\n<p class='err'>Fehler bei Flurstuecksdaten.</p>";
[425]80        if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".htmlentities(str_replace("$1", "'".$gmlid."'", $sql), ENT_QUOTES, "UTF-8")."</p>";}
[362]81}
[425]82if ($dbg > 0) {
83        $zeianz=pg_num_rows($res);
84        if ($zeianz > 1){
85                echo "\n<p class='err'>Die Abfrage liefert mehr als ein (".$zeianz.") Flurst&uuml;cks-Objekt!</p>";
86                if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1","'".$gmlid."'",$sql), ENT_QUOTES, "UTF-8")."</p>";}
87        }
88}
[402]89if ($row = pg_fetch_assoc($res)) {
[362]90        $gemkname=htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8");
91        $gmkgnr=$row["gemarkungsnummer"];
92        $flurnummer=$row["flurnummer"];
93        $flstnummer=$row["zaehler"];
94        $nenner=$row["nenner"];
95        if ($nenner > 0) $flstnummer.="/".$nenner; // BruchNr
96        $flae=$row["amtlicheflaeche"];
97        $flae=number_format($flae,0,",",".") . " m&#178;";
[412]98        $fsreg=$row["gemeindezugehoerigkeit_regierungsbezirk"]; // Filter ZustÀndigkeit
99        $fskrs=$row["gemeindezugehoerigkeit_kreis"];
100        $fsgem=$row["gemeindezugehoerigkeit_gemeinde"];
[402]101        $gml_buchungsstelle=$row["istgebucht"];
[362]102} else {
[387]103        echo "\n<p class='err'>Kein Treffer fuer gml_id=".$gmlid."</p>";
[362]104}
105
[377]106// PrÃŒfung der Gebiets-Berechtigung bei gemeinsam genutzten Datenbanken (Kreis und Gemeinde)
107// FÃŒr das gkz (z.B. aus dem Mapfile-Namen) wird in der Konfiguration ein Filter gesetzt.
108if ( ($filtkreis != '' and $filtkreis != $fskrs) or ($filtgem != '' and $filtgem != $fsgem) ) {
109        // Einer der gesetzten Filter passt nicht
[425]110        if ($dbg > 2) {
[387]111                echo "\n<p class='err'>Filter Kreis='".$filtkreis."', Gemeinde='".$filtgem."'</p>";
112                echo "\n<p class='err'>Flstk. Kreis='".$fskrs."', Gemeinde='".$fsgem."'</p>";
[377]113        }
114        echo "\n<br><p class='stop1'>Zugriff nicht erlaubt</p>
115        \n<br><p class='stop2'>Dies Flurst&uuml;ck liegt ausserhalb der zust&auml;ndigen Stadt oder Gemeinde.</p>\n</body>\n</html>";
116        pg_free_result($res);
117        exit;
118}
119
[405]120// Überschrift ist im umgebenden HTML vorhanden
[402]121echo "\n<table class='outer'>"
122."\n\t<tr>"
123        ."\n\t\t<td class='ll'><img src='ico/Flurstueck.png' width='16' height='16' alt=''> Kennzeichen:</td>"
124                ."\n\t\t<td>"
125                ."\n\t\t\t<table class='kennzfs' title='Flurst&uuml;ckskennzeichen'>\n\t\t\t\t<tr>"
[405]126                        ."\n\t\t\t\t\t<td class='head'>Gemarkung</td>\n\t\t\t\t\t<td class='head'>Flur</td>\n\t\t\t\t\t<td class='head'>Flurst-Nr.</td>\n\t\t\t\t</tr>"
[402]127                        ."\n\t\t\t\t<tr>\n\t\t\t\t\t<td title='Gemarkung'>".$gemkname."</td>"
128                        ."\n\t\t\t\t\t<td title='Flurnummer'>".$flurnummer."</td>"
129                        ."\n\t\t\t\t\t<td title='Flurst&uuml;cksnummer (Z&auml;hler / Nenner)'><span class='wichtig'>".$flstnummer."</span></td>\n\t\t\t\t</tr>"
130                ."\n\t\t\t</table>"
131        ."\n\t\t</td>\n\t\t<td>"
[405]132        ."\n\t\t\t<p class='nwlink noprint'>weitere Auskunft:<br>";
[362]133// FlurstÃŒcksnachweis (mit EigentÃŒmer)
[402]134echo "\n\t\t\t\t<a href='javascript:imFenster(\"alkisfsnw.php?gkz=".$gkz."&amp;gmlid=".$gmlid."&amp;eig=j\")' "
[362]135        ."title='Flurst&uuml;cksnachweis'>Flurst&uuml;ck&nbsp;"
136        ."<img src='ico/Flurstueck_Link.png' width='16' height='16' alt=''>"
137."</a><br>";
[425]138
[362]139// FS-Historie
[425]140if ($fsHistorie){ // conf
141        echo "\n\t\t\t\t<a href='javascript:imFenster(\"alkisfshist.php?gkz=".$gkz."&amp;gmlid=".$gmlid."\")' "
142                ."title='Vorg&auml;nger des Flurst&uuml;cks'>Historie&nbsp;"
143                ."<img src='ico/Flurstueck_Historisch.png' width='16' height='16' alt=''>"
144        ."</a><br>";
145}
146// GebÀude-NW zum FS
[402]147echo "\n\t\t\t\t<a href='javascript:imFenster(\"alkisgebaeudenw.php?gkz=".$gkz."&amp;gmlid=".$gmlid."\")' "
[425]148        ."title='Geb&auml;ude oder Bauwerke auf oder an diesem Flurst&uuml;ck'>Geb&auml;ude/Bauw.&nbsp;"
[362]149        ."<img src='ico/Haus.png' width='16' height='16' alt=''>"
150."</a>";
[402]151echo "\n\t\t\t</p>\n\t\t</td>\n\t</tr>";
[362]152pg_free_result($res);
153
[398]154// Lage  M I T  HausNr (Adresse)
[362]155$sql ="SELECT DISTINCT s.gml_id AS kgml, l.gml_id, s.bezeichnung, l.hausnummer
156FROM ax_flurstueck f JOIN ax_lagebezeichnungmithausnummer l ON l.gml_id=ANY(f.weistauf)
157JOIN ax_lagebezeichnungkatalogeintrag s ON l.kreis=s.kreis AND l.gemeinde=s.gemeinde AND l.lage=s.lage
158WHERE f.gml_id= $1 AND f.endet IS NULL AND l.endet IS NULL AND s.endet IS NULL
159ORDER BY s.bezeichnung, l.hausnummer;";
160$v=array($gmlid); // id FS
[430]161$res=pg_prepare($con, "", $sql);
162$res=pg_execute($con, "", $v);
[362]163if (!$res) {
[387]164        echo "\n<p class='err'>Fehler bei Lagebezeichnung mit Hausnummer.</p>";
[425]165        if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".htmlentities(str_replace("$1", "'".$gmlid."'", $sql), ENT_QUOTES, "UTF-8")."</p>";}
[362]166}
167$j=0;
168$kgmlalt='';
[402]169while($row = pg_fetch_assoc($res)) {
[398]170        $sname=htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8"); // Str.-Name
[422]171        if (substr($sname, strlen($sname) -3, 3) === 'weg') { // Versuch fuer korrekten Satzbau
[398]172                $slink=" am ".$sname;
173        } else {
174                $slink=" an der ".$sname;
175        }
176        $hsnr=$row["hausnummer"];
[402]177        echo "\n\t<tr>"
[405]178                ."\n\t\t<td class='ll'>";
[422]179                if ($j === 0) {echo "<img src='ico/Lage_mit_Haus.png' width='16' height='16' alt='MIT'> Lage:";}
[405]180                echo "</td>"
[402]181                ."\n\t\t<td class='lr'>".$sname."&nbsp;".$hsnr."</td>"
182                ."\n\t\t<td>\n\t\t\t<p class='nwlink noprint'>";
[362]183        $kgml=$row["kgml"]; // Wiederholung vermeiden
184        if ($kgml != $kgmlalt) { // NEUE Strasse vor Lage
185                $kgmlalt=$kgml; // Katalog GML-ID
[402]186                echo "\n\t\t\t\t<a title='Flurst&uuml;cke mit oder ohne Hausnummer".$slink."' "
[398]187                ."href='javascript:imFenster(\"alkisstrasse.php?gkz=".$gkz."&amp;gmlid=".$kgml."\")'>Stra&szlig;e "
[362]188                ."<img src='ico/Strassen.png' width='16' height='16' alt='STRA'></a>";
189        }
[402]190        echo "\n\t\t\t\t<a title='Flurst&uuml;cke und Geb&auml;ude mit Hausnummer ".$hsnr."' "
[362]191                ."href='javascript:imFenster(\"alkislage.php?gkz=".$gkz."&amp;ltyp=m&amp;gmlid=".$row["gml_id"]."\")'>Lage "
192                ."<img src='ico/Lage_mit_Haus.png' width='16' height='16' alt='HAUS'></a>&nbsp;"
[402]193        ."\n\t\t\t</p>\n\t\t</td>\n\t</tr>";
[362]194        $j++;
195}
196pg_free_result($res);
[398]197
198// Lage  O H N E   HausNr
199$sql="SELECT DISTINCT s.gml_id AS kgml, l.gml_id, s.bezeichnung, l.unverschluesselt "
[387]200        ."FROM ax_flurstueck f JOIN ax_lagebezeichnungohnehausnummer l ON l.gml_id=ANY(f.zeigtauf) "
201        ."LEFT JOIN ax_lagebezeichnungkatalogeintrag s ON l.kreis=s.kreis AND l.gemeinde=s.gemeinde AND l.lage=s.lage "
202        ."WHERE f.gml_id= $1 AND f.endet IS NULL AND l.endet IS NULL AND s.endet IS NULL ORDER BY s.bezeichnung;";
[398]203$v=array($gmlid);
[430]204$res=pg_prepare($con, "", $sql);
205$res=pg_execute($con, "", $v);
[398]206if (!$res) {
207        echo "\n<p class='err'>Fehler bei Lagebezeichnung ohne Hausnummer.</p>";
[425]208        if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".htmlentities(str_replace("$1", "'".$gmlid."'", $sql), ENT_QUOTES, "UTF-8")."</p>";}
[398]209}
210$kgmlalt='';
[402]211while($row = pg_fetch_assoc($res)) {
[398]212        $sname=htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8"); // Str.-Name
[427]213        if (substr($sname, strlen($sname) -3, 3) === 'weg') { // Versuch fÃŒr korrekten Satzbau
[398]214                $slink=" am ".$sname;
215        } else {
216                $slink=" an der ".$sname;
[362]217        }
[398]218
219        $gewann=htmlentities($row["unverschluesselt"], ENT_QUOTES, "UTF-8");
[402]220        echo "\n\t<tr>";
[398]221        if ($sname != "") { // Typ=Strasse
222                $ico="Lage_an_Strasse.png";
[402]223                echo "\n\t\t<td class='ll'><img src='ico/".$ico."' width='16' height='16' alt='OHNE'> Stra&szlig;e:</td>";
224                echo "\n\t\t<td class='lr' title='An Stra&szlig;e aber ohne Hausnummer'>".$sname."&nbsp;</td>";
[398]225        } else {
226                $ico="Lage_Gewanne.png";
[402]227                echo "\n\t\t<td class='ll'><img src='ico/".$ico."' width='16' height='16' alt='Gewanne'> Gewanne:</td>";
228                echo "\n\t\t<td class='lr' title='Gewanne'>".$gewann."&nbsp;</td>";
[398]229        }
[402]230        echo "\n\t\t<td>\n\t\t\t<p class='nwlink noprint'>";
[425]231        if ($sname != "") { // Typ=Straße
[362]232                $kgml=$row["kgml"]; // Wiederholung vermeiden
[425]233                if ($kgml != $kgmlalt) { // NEUE Straße vor Lage-O
[362]234                        $kgmlalt=$kgml; // Katalog GML-ID
[398]235                        echo "\n\t\t\t<a class='noprint' title='Flurst&uuml;cke mit oder ohne Hausnummer".$slink."' "
236                        ."href='javascript:imFenster(\"alkisstrasse.php?gkz=".$gkz."&amp;gmlid=".$kgml."\")'>Stra&szlig;e "
[362]237                        ."<img src='ico/Strassen.png' width='16' height='16' alt='STRA'></a>";
238                }
[398]239                echo "\n\t\t\t<a class='noprint' title='Flurst&uuml;cke ohne Hausnummer".$slink."' "
[362]240                ."href='javascript:imFenster(\"alkislage.php?gkz=".$gkz."&amp;ltyp=o&amp;gmlid=".$row["gml_id"]."\")'>Lage "
241                ."<img src='ico/".$ico."' width='16' height='16' alt='OHNE'></a>&nbsp;"
242                ."\n\t\t</p>\n\t</td>\n</tr>";
[398]243        } else { // Typ Gewanne
244                echo "\n\t\t\t<a title='Flurst&uuml;cke mit dieser Gewanne als Lagebezeichnung' "
245                ."href='javascript:imFenster(\"alkislage.php?gkz=".$gkz."&amp;ltyp=o&amp;gmlid=".$row["gml_id"]."\")'>Gewanne "
246                ."<img src='ico/".$ico."' width='16' height='16' alt='Gewanne'></a>&nbsp;"
[402]247                ."\n\t\t</p>\n\t\t</td>\n\t</tr>";
[362]248        }
249}
[398]250pg_free_result($res);
[402]251echo "\n</table>\n";
[387]252echo "\n<p class='fsd'>Flurst&uuml;cksfl&auml;che: <b>".$flae."</b></p>";
[362]253
[402]254// B U C H U N G S S T E L L E N  zum FS
255$bartgrp="";    // Buchungsart
256$barttypgrp=""; // Buchungsart Typ
257if ($gml_buchungsstelle == '') {echo "\n<p class='err'>Keine Buchungstelle zum Flurst&uuml;ck gefunden.</p>";}
258echo "\n\n<table class='outer'>";
[427]259        $gezeigt=buchung_anzg($gml_buchungsstelle, 'j', true, "", 1); // direkte Buchung anzeigen
[430]260        $anzber=ber_bs_zaehl($gml_buchungsstelle, $con); // Ber. Buchg., nur Anzahl
[402]261        if ($anzber > 0 ) {
262                if ($gezeigt) {
[405]263                        echo "\n\t<tr>\n\t\t<td colspan='4' title='Komplexe Situationen werden in dieser Vorschau nicht vollst&auml;ndig dargestellt.'><span class='wichtig'>Berechtigte Buchungen siehe Flurst&uuml;ck oder Buchung.</span></td>\n\t</tr>";
[362]264                } else {
[405]265                        $nochmehr=ber_bs_anzg($gml_buchungsstelle, "j", true, "", 1); // wenigstens EINE Buchg. zeigen
[403]266                        if (count($nochmehr) > 0) { // liefert array, hier nicht weiter verfolgen
[402]267                                echo "\n\t<tr>\n\t\t<td colspan='4'><span class='wichtig'>Weitere berechtigte Buchungen siehe Flurst&uuml;cksnachweis.</span></td>\n\t</tr>";
268                        }
269                }
[362]270        }
[402]271echo "\n</table>\n";
[362]272
273?>
274</body>
275</html>
Note: See TracBrowser for help on using the repository browser.