source: trunk/info/info/alkisn/alkisstrasse.php @ 430

Revision 430, 11.5 KB checked in by frank.jaeger, 22 months ago (diff)

ALKIS-Auskunft angepasst an PHP 8
Line 
1<?php
2/*      alkisstrasse.php
3
4        ALKIS-Auskunft
5        Author: Frank JÀger, Kommunales Rechenzentrum Minden-Ravensberg/Lippe (Lemgo)
6
7        Alle FlurstÃŒcke an einer Straße anzeigen, egal ob "mit" oder "ohne" Hausnummer
8        Parameter: "gml_id" aus der Tabelle "ax_lagebezeichnungkatalogeintrag"
9
10        Version:
11        2016-02-24 Version fÃŒr norGIS-ALKIS-Import
12        ...
13        2020-02-20 Authentifizierung ausgelagert in Function darf_ich()
14        2020-12-15 Input-Validation und Strict Comparisation (===)
15        2021-12-09 Neue Parameter: $katAmtMix (Kataster-Amt-Mix), $PrntBtn (Drucken-SchaltflÀche)
16        2022-01-13 Neue Functions LnkStf(), DsKy()
17        2022-07-05 PHP 8.1: Connection verwenden bei "pg_prepare" und "pg_execute", keine NULL-Werte in String-Functions verwenden
18*/
19ini_set("session.cookie_httponly", 1);
20session_start();
21$showkey="n"; $nodebug=""; // Var. aus Parameter initalisieren
22$cntget = extract($_GET); // Parameter in Variable umwandeln
23
24// strikte Validierung aller Parameter
25if (isset($gmlid)) {
26        if (!preg_match('#^[0-9A-Za-z]{16}$#', $gmlid)) {die("Eingabefehler gmlid");}
27} else {
28        die("Fehlender Parameter");
29}
30if (isset($gkz)) {
31        if (!preg_match('#^[0-9]{3}$#', $gkz)) {die("Eingabefehler gkz");}
32} else {
33        die("Fehlender Parameter");
34}
35if (!preg_match('#^[j|n]{0,1}$#', $showkey)) {die ("Eingabefehler showkey");}
36if ($showkey === "j") {$showkey=true;} else {$showkey=false;}
37if (!preg_match('#^j{0,1}$#', $nodebug)) {die("Eingabefehler nodebug");}
38
39include "alkis_conf_location.php";
40include "alkisfkt.php";
41?>
42<!doctype html>
43<html lang="de">
44<head>
45        <meta charset="utf-8">
46        <meta name="viewport" content="width=device-width, initial-scale=1.0">
47        <title>ALKIS Stra&szlig;e</title>
48        <link rel="stylesheet" type="text/css" href="alkisauszug.css">
49        <link rel="shortcut icon" type="image/x-icon" href="ico/Strassen.ico">
50        <script type="text/javascript">
51                function ALKISexport(phaus) {
52                        window.open(<?php echo "'alkisexport.php?gkz=".$gkz."&tabtyp=strasse&gmlid=".$gmlid."&haus='"; ?> + phaus);
53                }
54        </script>
55</head>
56<body>
57<?php
58$erlaubnis = darf_ich(); if ($erlaubnis === 0) { die('<p class="stop1">Abbruch</p></body>'); }
59$dbg=$debug; // CONF in Arbeits-Variable
60if ($nodebug === "j") {$dbg=0;}
61
62$con = pg_connect($dbconn." options='--application_name=ALKIS-Auskunft_alkisstrasse.php'");
63if (!$con) echo "\n<p class='err'>Fehler beim Verbinden der DB</p>";
64
65$sql ="SELECT s.land, s.regierungsbezirk, s.kreis, s.gemeinde, s.lage, s.bezeichnung AS snam,
66b.bezeichnung AS bnam, r.bezeichnung AS rnam, k.bezeichnung AS knam, g.bezeichnung AS gnam, o.gml_id AS ogml
67FROM ax_lagebezeichnungkatalogeintrag s
68JOIN ax_bundesland b ON s.land=b.land ".UnqKatAmt("s","b")
69."JOIN ax_regierungsbezirk r ON s.land=r.land AND s.regierungsbezirk=r.regierungsbezirk ".UnqKatAmt("s","r")
70."JOIN ax_kreisregion k ON s.land=k.land AND s.regierungsbezirk=k.regierungsbezirk AND s.kreis=k.kreis ".UnqKatAmt("s","k")
71."JOIN ax_gemeinde g ON s.land=g.land AND s.regierungsbezirk=g.regierungsbezirk AND s.kreis=g.kreis AND s.gemeinde=g.gemeinde ".UnqKatAmt("s","g")
72."LEFT JOIN ax_lagebezeichnungohnehausnummer o ON s.land=o.land AND s.regierungsbezirk=o.regierungsbezirk AND s.kreis=o.kreis AND s.gemeinde=o.gemeinde AND s.lage=o.lage
73WHERE s.gml_id= $1 AND s.endet IS NULL AND b.endet IS NULL AND r.endet IS NULL AND k.endet IS NULL AND g.endet IS NULL AND o.endet IS NULL ;";
74
75$v=array($gmlid);
76$res=pg_prepare($con, "", $sql);
77$res=pg_execute($con, "", $v);
78if (!$res) {
79        echo "\n<p class='err'>Fehler bei Lagebezeichnungskatalogeintrag.</p>";
80        if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".htmlentities(str_replace("$1", "'".$gmlid."'", $sql), ENT_QUOTES, "UTF-8")."</p>";}
81}
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.") Stra&szlig;en-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}
89if ($row = pg_fetch_assoc($res)) {
90        $lage=$row["lage"]; // Str.schl.
91        $snam=$row["snam"]; // Str.name
92        $gem=$row["gemeinde"];
93        $kennz=$gem."-".$lage." (".$snam.")"; // SchlÃŒssel als Sucheingabe in NAV brauchbar?
94        echo "\n<p class='balken strasse'>ALKIS Stra&szlig;e ".$kennz."&nbsp;</p>";
95} else {
96        echo "\n<p class='err'>Kein Treffer bei Lagebezeichnungskatalogeintrag.</p>";
97}
98
99echo "\n<h2>Stra&szlig;e</h2>";
100
101// Tabelle Kennzeichen
102echo "\n<table class='outer'>\n<tr>"
103."\n\t<td class='ll'><img src='ico/Strassen.png' width='16' height='16' alt=''> Stra&szligenname:</td>"
104."\n\t<td>"
105        ."\n\t\t<table class='kennzstra' title='Lage'>"
106                ."\n\t\t<tr>"
107                        ."\n\t\t\t<td class='head'>Land</td>"
108                        ."\n\t\t\t<td class='head'>Reg.-Bez.</td>"
109                        ."\n\t\t\t<td class='head'>Kreis</td>"
110                        ."\n\t\t\t<td class='head'>Gemeinde</td>"
111                        ."\n\t\t\t<td class='head'>Stra&szlig;e</td>"
112                ."\n\t\t</tr>"
113                ."\n\t\t<tr>";
114                echo "\n\t\t\t<td title='Bundesland'>".DsKy($row["land"], 'Bundesland-*').$row["bnam"]."&nbsp;</td>"
115                        ."\n\t\t\t<td title='Regierungsbezirk'>".DsKy($row["regierungsbezirk"], 'Regierungsbezirk-*').$row["rnam"]."&nbsp;</td>"
116                        ."\n\t\t\t<td title='Kreis'>".DsKy($row["kreis"], 'Kreis-*').$row["knam"]."&nbsp;</td>"
117                        ."\n\t\t\t<td title='Gemeinde'>".DsKy($gem, 'Gemeinde-*').$row["gnam"]."&nbsp;</td>"
118                        ."\n\t\t\t<td title='Stra&szlig;e'>".DsKy($lage, 'Stra&szlig;en-*')."<span class='wichtig'>".$snam."</span>&nbsp;</td>"
119                ."\n\t\t</tr>"
120        ."\n\t\t</table>";
121echo "\n\t</td>\n\t<td>";
122
123// Kopf Rechts:
124$ogml=$row["ogml"]; // ID von "Lage Ohne HsNr"
125if ($ogml != "") {
126        echo "\n\t\t<p class='nwlink noprint'>"
127                ."\n\t\t<a href='alkislage.php?gkz=".$gkz."&amp;ltyp=o&amp;gmlid=".$ogml.LnkStf()
128                ."' title='Lage Ohne Hausnummer'>Lage <img src='ico/Lage_an_Strasse.png' width='16' height='16' alt=''></a>"
129        ."\n\t\t</p>";
130}
131echo "\n\t</td>\n</tr>\n</table>";
132pg_free_result($res);
133
134// F L U R S T Ü C K E
135echo "\n\n<h3 id='fs'><img src='ico/Flurstueck.png' width='16' height='16' alt=''> Flurst&uuml;cke</h3>"
136."\n<p>Zusammenfassung von 'Lage mit Hausnummer' und 'Lage ohne Hausnummer' an dieser Straße</p>";
137
138// ax_Flurstueck >weistAuf> ax_LagebezeichnungMitHausnummer  > = h = Hauptgebaeude
139// ax_Flurstueck >zeigtAuf> ax_LagebezeichnungOhneHausnummer > = s = Strasse
140// Suchkriterium: gml_id aus Katalog
141$sql ="SELECT fh.gemarkungsnummer, gh.bezeichnung, fh.gml_id, fh.flurnummer, fh.zaehler, fh.nenner, fh.amtlicheflaeche, lh.gml_id AS lgml, lh.hausnummer, 'm' AS ltyp
142 FROM ax_flurstueck fh
143 JOIN ax_lagebezeichnungmithausnummer lh ON lh.gml_id=ANY(fh.weistAuf)
144 JOIN ax_gemarkung gh ON fh.land=gh.land AND fh.gemarkungsnummer=gh.gemarkungsnummer ".UnqKatAmt("fh","gh")
145."JOIN ax_lagebezeichnungkatalogeintrag sh ON lh.land=sh.land AND lh.regierungsbezirk=sh.regierungsbezirk AND lh.kreis=sh.kreis AND lh.gemeinde=sh.gemeinde AND lh.lage=sh.lage
146 WHERE sh.gml_id = $1 AND fh.endet IS NULL AND lh.endet IS NULL AND gh.endet IS NULL AND sh.endet IS NULL
147UNION SELECT fs.gemarkungsnummer, gs.bezeichnung, fs.gml_id, fs.flurnummer, fs.zaehler, fs.nenner, fs.amtlicheflaeche, ls.gml_id AS lgml, '' AS hausnummer, 'o' AS ltyp
148 FROM ax_flurstueck fs
149 JOIN ax_lagebezeichnungohnehausnummer ls ON ls.gml_id=ANY(fs.zeigtauf)
150 JOIN ax_gemarkung gs ON fs.land=gs.land AND fs.gemarkungsnummer=gs.gemarkungsnummer ".UnqKatAmt("fs","gs")
151."JOIN ax_lagebezeichnungkatalogeintrag ss ON ls.land=ss.land AND ls.regierungsbezirk=ss.regierungsbezirk AND ls.kreis=ss.kreis AND ls.gemeinde=ss.gemeinde AND ls.lage=ss.lage
152 WHERE ss.gml_id = $1 AND fs.endet IS NULL AND ls.endet IS NULL AND gs.endet IS NULL AND ss.endet IS NULL
153ORDER BY gemarkungsnummer, flurnummer, zaehler, nenner;";
154
155$v=array($gmlid);
156$resf=pg_prepare($con, "", $sql);
157$resf=pg_execute($con, "", $v);
158if (!$resf) {
159        echo "\n<p class='err'>Fehler bei Flurst&uuml;ck.</p>";
160        if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".htmlentities(str_replace("$1", "'".$gmlid."'", $sql), ENT_QUOTES, "UTF-8")."</p>";}     
161}
162
163echo "\n<table class='fs'>"
164."\n<tr>"
165        ."\n\t<td class='heads' title='Name der Gemarkung (Ortsteil)'>Gemarkung<img src='ico/sort.png' width='10' height='10' alt='' title='Sortierung'></td>"
166        ."\n\t<td class='heads' title='Flur-Nummer'>Flur<img src='ico/sort.png' width='10' height='10' alt='' title='Sortierung'></td>"
167        ."\n\t<td class='heads' title='Flurst&uuml;cksnummer (Z&auml;hler / Nenner)'><img src='ico/sort.png' width='10' height='10' alt='' title='Sortierung'>Flurst.</td>"
168        ."\n\t<td class='head fla' title='amtliche Fl&auml;che in Quadratmeter'>Fl&auml;che</td>"
169        ."\n\t<td class='head hsnr' title='Hausnummer aus der Lagebezeichnung des Flurst&uuml;cks'>HsNr.</td>"
170        ."\n\t<td class='head nwlink noprint' title='Verlinkung zu anderen Nachweis-Arten und verbundenen Objekten'>weitere Auskunft</td>"
171."\n</tr>";
172$j=0;
173$gwgmkg=""; // Gruppenwechsel
174$gwflur="";
175$cnths=0; // Count Haus-Lagebez.
176
177$zpaar=false; // Zeilen-Farbwechsel
178while($rowf = pg_fetch_assoc($resf)) {
179        $gmkg=$rowf["bezeichnung"];
180        $flur=str_pad($rowf["flurnummer"], 3, "0", STR_PAD_LEFT);
181        $fskenn=$rowf["zaehler"]; // Bruchnummer
182        if ($rowf["nenner"] != "") {$fskenn.="/".$rowf["nenner"];}
183        $flae=number_format($rowf["amtlicheflaeche"],0,",",".") . " m&#178;";
184        $lgml=$rowf["lgml"]; // ID von "Lage Mit/Ohne"
185        $ltyp=$rowf["ltyp"]; // mit/ohne HsNr
186
187        if ($zpaar) {$trclass='paa';} else {$trclass='unp';}
188        $zpaar=!$zpaar;
189        echo "\n<tr class='".$trclass."'>"
190                ."\n\t<td>".DsKy($rowf["gemarkungsnummer"], 'Gemarkungsnummer');
191                if ($gwgmkg != $gmkg) {
192                        echo "<b>".$gmkg."</b></td>";
193                        $gwgmkg=$gmkg;
194                        $gwflur="";
195                } else {
196                        echo $gmkg."</td>";
197                }
198
199                if ($gwflur != $flur) {
200                        echo "\n\t<td><b>".$flur."</b></td>";
201                        $gwflur=$flur;
202                } else {
203                        echo "\n\t<td>".$flur."</td>";
204                }
205
206                echo "\n\t<td><span class='wichtig'>".$fskenn."</span></td>"
207                ."\n\t<td class='fla'>".$flae."</td>"
208                ."\n\t<td class='hsnr'>".$rowf["hausnummer"]."</td>"
209                ."\n\t<td>\n\t\t<p class='nwlink noprint'>";
210                        if ($ltyp === 'm') { // nur Typ "Mit Haus" anzeigen. Dar Typ 'o' ist immer gleich und identisch mit dem Link im Kopf
211                                echo "\n\t\t<a href='alkislage.php?gkz=".$gkz."&amp;ltyp=".$ltyp."&amp;gmlid=".$lgml.LnkStf()
212                                ."' title='Lagebezeichnung mit Hausnummer'>Lage <img src='ico/Lage_mit_Haus.png' width='16' height='16' alt=''></a>&nbsp;";
213                                $cnths++;
214                        }
215                        // Link FlurstÃŒcksnachweis
216                        echo "\n\t\t<a href='alkisfsnw.php?gkz=".$gkz."&amp;gmlid=".$rowf["gml_id"].LnkStf()."&amp;eig=n"
217                        ."' title='Flurst&uuml;cksnachweis'>Flurst&uuml;ck <img src='ico/Flurstueck_Link.png' width='16' height='16' alt=''></a>"
218                ."\n\t\t</p>\n\t</td>"
219        ."\n</tr>";
220        $j++;
221}
222echo "\n</table>";
223if ($j > 6) {
224        echo "<p class='cnt'>".$j." Flurst&uuml;cke";
225        if ($cnths > 1) {echo " und ".$cnths." Hauptgeb&auml;ude";}
226        echo " mit dieser Stra&szlig;e in der Lagebezeichnung</p>";
227}
228pg_free_result($resf);
229
230echo "\n<div class='buttonbereich noprint'>\n<hr>"
231        ."\n\t<a title='zur&uuml;ck' href='javascript:history.back()'><img src='ico/zurueck.png' width='16' height='16' alt='zur&uuml;ck'></a>&nbsp;";
232if ($PrntBtn==true){echo "\n\t<a title='Drucken' href='javascript:window.print()'><img src='ico/print.png' width='16' height='16' alt='Drucken'></a>&nbsp;";}
233echo "\n\t<a title='Export als CSV' href=\"javascript:ALKISexport('')\">alle<img src='ico/download.png' width='16' height='16' alt='Export'></a>&nbsp;"
234        ."\n\t<a title='CSV - nur Flurst&uuml;cke mit Hausnummer' href=\"javascript:ALKISexport('m')\">mit HsNr<img src='ico/download.png' width='16' height='16' alt='Export'></a>&nbsp;"
235        ."\n\t<a title='CSV - nur Flurst&uuml;cke ohne Hausnummer' href=\"javascript:ALKISexport('o')\">ohne<img src='ico/download.png' width='16' height='16' alt='Export'></a>&nbsp;"
236."\n</div>";
237
238footer($gmlid, selbstverlinkung()."?", "");
239?>
240
241</body>
242</html>
Note: See TracBrowser for help on using the repository browser.