source: trunk/mapbender/http/nav/alkisnav_fls.php @ 413

Revision 413, 29.8 KB checked in by frank.jaeger, 5 years ago (diff)

Umstellung Suche (nav) auf Full-Schema, Nachkorrektur Auskunft.
RevLine 
[330]1<?php
[399]2/*      Navigation mit ALKIS-Daten im Mapbender 2 - Teil FlurstÃŒck-Suche
3        Datenbank-Struktur aus dem norGIS-ALKIS-Importer.
[376]4Version vom
5        2016-02-11 Version fÃŒr norGIS-ALKIS-Import aus Version Classic abgeleitet.
6        2016-03-02 $gemeinde auf feste LÀnge korrigieren
7        2016-11-28 Gemeinsam genutzte Datenbanken ermöglichen
[399]8        2017-03-06 Korrektur: Gemeinde-Suche bei Kreis-DB in norGIS-Struktur
9        2018-02-15 Strikte Input-Validation der Parameter
[413]10        2018-11-12 Full-Schema
[85]11*/
[356]12
[399]13$cntget = extract($_GET);
[356]14
[399]15// Input-Validation
16// Parameter aus Konfiguration oder Links sollten keine "Eingabefehler" enthalten.
17// Entweder falsche Konfiguration oder Hack. Programm sofort abbrechen.
18if (!isset($gkz) or !preg_match('#^[0-9]{3}$#', $gkz)) {die("Eingabefehler gkz");} // Mandant, muss!
19
20if(isset($epsg)) { // SRS, kann. Wenn als Parameter ...
21        if (preg_match('#^EPSG:[0-9]{4,5}$#', $epsg)) { // Prefix aus MB-Mapframe
22                $epsg = str_replace("EPSG:", "" , $epsg);
23        } elseif (!preg_match('#^[0-9]{4,5}$#', $epsg)) { // nur die Nummer
24                die("Eingabefehler epsg");
25        }
26} else { // Nichts ÃŒbergeben
27        $epsg=$gui_epsg; // dann default aus Conf
28}
29
30// Filter-Parameter fÃŒr Gemeindenummer in Kreis-Datenbank aus der Mapbender GUI-Konfiguration
31if (isset($gemeinde) AND trim($gemeinde, '0') != "") {
32        if (!preg_match('#^[0-9]{1,3}$#', $gemeinde)) {die("Eingabefehler Gemeinde");}
33        $gemeinde=str_pad($gemeinde, 3, "0", STR_PAD_LEFT);
34        if(strpos($gemeinde, ",") === false) {
35                $gfilter = 1; // Einzelwert
36        } else {
37                $gfilter = 2; // Liste
38        }
39} else { // Kein Filter
40        $gemeinde = "";
41        $gfilter = 0;
42}
43
44// Suche nach historischen FS
45if(isset($hist)) { // Wenn ÃŒbergeben
46        if (!preg_match('#^[jn]{1}$#', $hist)) {die("Eingabefehler hist");} // Ja/Nein
47        if ($hist == "j") {
48                $phist = true; // als Boolean
49        } else {
50                $phist = false;
51        }
52} else { // Nichts ÃŒbergeben
53        $phist = false; // default = aktuelle FS
54}
55
56// Gemeinde-Nummer als Link aus der Baumstruktur
57if (isset($gm) ) {
58        if (!preg_match('#^[0-9]{8}$#', $gm)) {die("Eingabefehler gm");}
59} else {
60        $gm=""; // Var. init.
61}
62
[282]63include("../../conf/alkisnav_conf.php");
[330]64include("alkisnav_fkt.php"); // Funktionen
[376]65$con = pg_connect ($dbconn) or die ("Fehler bei der Verbindung zur Datenbank ".$dbpre.$dbgkz);
[356]66
[278]67echo <<<END
[376]68<!doctype html>
69<html lang="de">
[330]70<head>
71        <meta http-equiv="cache-control" content="no-cache">
72        <meta http-equiv="pragma" content="no-cache">
73        <meta http-equiv="expires" content="0">
[376]74        <meta charset="utf-8">
[330]75        <title>ALKIS-Suche Flurst&uuml;ck</title>
[282]76        <link rel="stylesheet" type="text/css" href="alkisnav.css">
[129]77        <script type="text/javascript">
78                function imFenster(dieURL) {
79                        var link = encodeURI(dieURL);
80                        window.open(link,'','left=10,top=10,width=620,height=800,resizable=yes,menubar=no,toolbar=no,location=no,status=no,scrollbars=yes');
81                }
[278]82                function transtitle(trans) {
83                        document.getElementById('transaktiontitle').innerHTML = trans;
84                }
[129]85        </script>
[330]86</head>
[66]87<body>
[280]88<a href='javascript:history.back()'>
[356]89        <img src="ico/zurueck.png" width="16" height="16" alt="&lt;&lt;" title="zur&uuml;ck">
90</a>&nbsp;
91<span title='zuletzt ausgef&uuml;hrte Aktion'>
92        <dfn class='title' id='transaktiontitle'></dfn>
93</span>
[66]94
[278]95END;
96
[126]97function h_hinten($zahl) {
98        // Testen: Wurde an eine Zahl ein "h" angehÀngt?
[376]99        // Wenn ja, dann Schalter setzen und nur den numerischen Teil zurÃŒck geben.
[126]100        global $phist, $debug;
[128]101        $zahl=trim($zahl);
[126]102        $zlen=strlen($zahl) - 1;
[128]103        if ($zlen > 0) {
[126]104                $hinten = ucfirst(substr($zahl, $zlen, 1));
105                if ($hinten == "H" ) {
106                        $vorn=trim(substr($zahl, 0, $zlen));
107                        if (is_ne_zahl($vorn)) { // Zahl *und* "H"
108                                $zahl = $vorn;
109                                $phist = true;
110                        }
111                }
112        }
113        return $zahl;
114}
115
[330]116function ZerlegungFsKennz($fskennz) {
[376]117        // Das eingegebene FlurstÃŒcks-Kennzeichen auseinander nehmen. Erwartet wird (ll)gggg-fff-zzzz/nnn
118        // Die Teile der *Z*erlegung werden ÃŒber die Global-Variablen "$z..." allen Functions bereit gestellt.
119        // Der Returncode dieser Function steuert die weitere Verarbeitung.
120        global $debug, $land, $zgemkg4, $zgemkg6, $zflur, $zzaehler, $znenner; 
[348]121        $arr = explode("-", $fskennz, 4); // an den Trenn-Strichen aufteilen
[376]122
123        // Gemarkung mit oder ohne Land davor? In der Eingabe soll beides zulÀssig sein.
124        // Bei den SQL-Abfragen in der norGIS-ALKIS-Importer Datenbankstruktur werden abwechselnd beide
125        // Formate benötigt: z.B. ax_gemarkungsteilflur.gemarkung -> 4stellig, gema_shl.gemashl -> 6stellig
126        // Also gleich beide Formate vorhalten.
127        $gemkg=trim($arr[0]);
128
[356]129        if (count($arr) > 1) {
130                $zflur=h_hinten($arr[1]);
131                if (count($arr) > 2) {
132                        $zfsnr=trim($arr[2]);
133                } else {
134                        $zfsnr="";
135                }
136        } else {
137                $zflur="";
138                $zfsnr="";
139        }
[376]140        if ($debug > 1) {echo "<p class='dbg'>Gemkg: '".$gemkg."' Flur: '".$zflur."' NR: '".$zfsnr."'</p>";}
141
142        if ($gemkg == "") {
[86]143                return 0; // Gemeinden oder Gemarkungen listen
[376]144        } elseif ( ! is_ne_zahl($gemkg)) {
[66]145                return 1; // Such Name
[376]146        }
147
148        // Gemarkungs-NUMMER wurde eingegeben. Mit oder ohne Land davor?
149        if (strlen($gemkg) == 4 ) { // Eingabe ohne Land
150                $zgemkg4=$gemkg;                // 4stellige Version ohne Land
151                $zgemkg6=$land.$gemkg;  // 6stellige Version mit  Land
152        } elseif (strlen($gemkg) == 6 ) { // Eingabe mit Land
153                $zgemkg4=substr($gemkg, 2);
154                $zgemkg6=$gemkg;
155                if (substr($gemkg, 0, 2) != $land) { // Passt Eingabe zu Conf?
156                        echo "<p class='err'>Die 6-stellige Gemarkungsnummer '".$zgemkg6."' sollte mit Land '".$land."' beginnen.</p>";
157                }
158        } else { // weder noch
159                $zgemkg4=$gemkg; // kann eigentlich nicht funktionieren
160                $zgemkg6=$gemkg; // Nullen davor setzen?
161                echo "<p class='err'>Die Gemarkungsnummer kann 4- oder 6-stellig (mit Land '".$land."') eingegeben werden.</p>";
162        }
163
164        if ($zflur == "") { // keine Eingabe Flur-Nummer
165                return 2; // also nur Gemarkungs-Nr eingegeben
[66]166        } elseif ( ! is_ne_zahl($zflur)) {
[126]167                echo "<p class='err'>Die Flurnummer '".$zflur."' ist nicht numerisch</p>";
[86]168                return 9;
[376]169        } elseif ($zfsnr == "") { // Flur eingegeben, aber keine FlurstÃŒcksnummer mehr
[66]170                return 3; // Flur                               
171        } else {
[376]172                $zn=explode("/", $zfsnr, 2); // Bruchnummer?
[126]173                $zzaehler=h_hinten(trim($zn[0]));
[356]174                if (count($zn) > 1) {$znenner=h_hinten(trim($zn[1]));} else {$znenner="";}
[66]175                if ( ! is_ne_zahl($zzaehler)) {
[126]176                        echo "<p class='err'>FlurstÃŒcksnummer '".$zzaehler."' ist nicht numerisch</p>";
[86]177                        return 9;
[66]178                } elseif ($znenner == "") {
179                        return 4;
180                } elseif (is_ne_zahl($znenner)) {
181                        return 5;                                                               
182                } else {
[126]183                        echo "<p class='err'>FlurstÃŒcks-Nenner '".$znenner."' ist nicht numerisch</p>";
[86]184                        return 9;
[66]185                }
186        }
187}
188
[282]189function flurstueckskoordinaten($gml) {
190        // Die Koordinaten zu einem FlurstÃŒck aus der Datenbank liefern
[283]191        // Parameter: gml_id des FlurstÃŒcke
192        // Return: Array(x,y)
[282]193        global $epsg;
194        $sqlk ="SELECT ";
195        if($epsg == "25832") { // Transform nicht notwendig
[356]196                $sqlk.="st_x(st_Centroid(wkb_geometry)) AS x, ";
197                $sqlk.="st_y(st_Centroid(wkb_geometry)) AS y ";
[282]198        } else { 
[356]199                $sqlk.="st_x(st_transform(st_Centroid(wkb_geometry), ".$epsg.")) AS x, ";
200                $sqlk.="st_y(st_transform(st_Centroid(wkb_geometry), ".$epsg.")) AS y ";                       
[128]201        }
[330]202        $sqlk.="FROM ax_flurstueck WHERE gml_id= $1 AND endet IS NULL;";
[282]203        $v=array($gml);
204        $resk=pg_prepare("", $sqlk);
205        $resk=pg_execute("", $v);
206        if (!$resk) {echo "\n<p class='err'>Fehler bei Koordinate.</p>";}
207        $rowk = pg_fetch_array($resk);
208        $koor=array("x" => $rowk["x"], "y" => $rowk["y"]);
209        return $koor;
210}
211
[376]212function zeile_flur($gkgnr, $flurnr, $histlnk, $aktuell) {
213        // Eine Kopf-Zeile zur Flur ausgeben
214        global $gkz, $gemeinde, $epsg;
[348]215
[356]216        if ($aktuell) {$cls=" aktuell";} else {$cls="";}
[283]217        echo "\n<div class='fl".$cls."' title='Flur'>";
[356]218        echo "\n\t\t<img class='nwlink' src='ico/Flur.png' width='16' height='16' alt='FL' title='Flur'> ";
[283]219        $url=$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;fskennz=".$gkgnr."-".$flurnr;
220        echo "<a title='Aktuelle Flurst&uuml;cke suchen' href='".$url."'>Flur ".$flurnr." </a>";
[376]221
[356]222        if ($histlnk) { // Link zur Historie-Suche anbieten
223                echo " <a class='hislnk' title='Historische Flurst&uuml;cke der Flur suchen' href='".$url."&amp;hist=j'>Hist.</a>";
[282]224        }
225        echo "\n</div>";       
226        return;
227}
228
[283]229function zeile_hist_fs($fs_gml, $fskenn, $ftyp, $gknr, $flur, $aktuell) {
[282]230        // Eine Zeile fÃŒr ein historisches FlurstÃŒck ausgeben
231        global $gkz, $gemeinde, $epsg, $auskpath;
232        if ($ftyp == "h") {
[356]233                $ico="Flurstueck_Historisch_Lnk.png";
[282]234                $titl="Historisches Flurst&uuml;ck";
235        } else {
[356]236                $ico="Flurstueck_Historisch_oR_Lnk.png";
[282]237                $titl="Historisches Flurst&uuml;ck ohne Raumbezug";
238        }
[356]239        if ($aktuell) {$cls=" aktuell";} else {$cls="";}
[283]240        echo "\n<div class='hi".$cls."' title='".$titl."'>";
[282]241
242        // Icon -> Buchnachweis
243        echo "\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisfshist.php?gkz=".$gkz."&amp;gmlid=".$fs_gml."\")'>";
[284]244                echo "\n\t\t<img class='nwlink' src='ico/".$ico."' width='16' height='16' alt='Hist' title='".$titl."'>";
[282]245        echo "\n\t</a>";
246
247        // Zeile -> tiefer in die Historie
248        $flurl =$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;hist=j";
249        $flurl.="&amp;fskennz=".$gknr."-".$flur."-";
250        echo "\n\thist. Flst. <a href='".$flurl.$fskenn."'>".$fskenn."</a>";           
251
[128]252        echo "\n</div>";
[282]253        return;
[128]254}
255
[282]256function zeile_nachf_fs($gml, $gknr, $flur, $fskenn, $ftyp) {
[376]257        // Eine Zeile fÃŒr ein Nachfolger-FlurstÃŒck eines hist. Fs. ausgeben
[282]258        global $gkz, $gemeinde, $epsg, $auskpath;
[376]259
[282]260        $fs=$gknr."-".$flur."-".$fskenn;
261        switch ($ftyp) {
[283]262        case "a": // eine FS-Zeile mit Link ausgeben (EinrÃŒckung css passt nicht)
[282]263                $koor=flurstueckskoordinaten($gml);
[283]264                zeile_flurstueck($gml, $fskenn, $koor["x"], $koor["y"], "", "", false);
[282]265                return;
266                break;
267        case "h":
[356]268                $ico="Flurstueck_Historisch_Lnk.png";
[282]269                $titl="Historisches Flurst&uuml;ck";
270                $hisparm="&amp;hist=j";
271                $auskprog="alkisfshist";
272                break;
273        case "o":
[356]274                $ico="Flurstueck_Historisch_oR_Lnk.png";
[282]275                $titl="Historisches Flurst&uuml;ck ohne Raumbezug";
276                $hisparm="&amp;hist=j";
277                $auskprog="alkisfshist";
278                break;
279        }
280        // fÃŒr die Hist.-FÀlle:
281        echo "\n<div class='hn' title='Nachfolger: ".$titl."'>";                       
282                echo "\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath.$auskprog.".php?gkz=".$gkz."&amp;gmlid=".$gml."\")'>";
[284]283                        echo "\n\t\t<img class='nwlink' src='ico/".$ico."' width='16' height='16' alt='FS' title='Nachweis'>";
[282]284                echo "\n\t</a> ";               
285                echo "Flst. <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;fskennz=".$fs.$hisparm."'>".$fskenn."</a>";                                     
286        echo "\n</div>";
287        return;
288}
289
[86]290function ListGemeinden() {
[376]291        // Bei Leereingabe im Formular die berechtigte(n) Gemeinde(n) auflisten
[86]292        global $con, $gkz, $gemeinde, $epsg, $debug, $gfilter;
[282]293        $linelimit=60;
[330]294
[376]295        $sql ="SELECT trim(trailing from gemshl) as gemshl, gemname FROM gem_shl ";
[86]296        switch ($gfilter) {
297                case 1: // Einzelwert
[399]298                        $sql.="WHERE substring(gemshl from 6 for 3) = '".$gemeinde."' ";
299                        break;
[86]300                case 2: // Liste
[399]301                        $sql.="WHERE substring(gemshl from 6 for 3) in ('".str_replace(",", "','", $gemeinde)."') ";
302                        break;
[282]303                default: break;
[86]304        }
[399]305        $sql.="ORDER BY gemname LIMIT $1 ;";
[86]306        $res=pg_prepare("", $sql);
307        $res=pg_execute("", array($linelimit));
308        if (!$res) {
309                echo "\n<p class='err'>Fehler bei Gemeinde</p>";
[376]310                if ($debug >= 3) {echo "\n<p class='dbg'>".$sql."</p>";} // ++Nur Entw.
[86]311                return 0;
312        }
[330]313        $cnt = 0;
[86]314        while($row = pg_fetch_array($res)) {
[376]315                $gnr=$row["gemshl"];
316                $gemeindename=$row["gemname"];
[399]317                zeile_gemeinde($gnr, $gemeindename, false);
[330]318                $cnt++;
[282]319        }
[330]320        // Foot
[282]321        if($cnt == 0) {
[278]322                echo "\n<p class='anz'>Keine Gemeinde.</p>";
[86]323        } elseif($cnt >= $linelimit) {
[278]324                echo "\n<p class='anz' title='Bitte eindeutiger qualifizieren'>".$cnt." Gemeinden ... und weitere</p>";
[86]325        } elseif($cnt == 1) { // Eindeutig!
326                return $gnr;
[278]327        } else {
328                echo "\n<p class='anz'>".$cnt." Gemeinden</p>";
[86]329        }
[282]330        return;
[86]331}
332
[282]333function ListGmkgInGemeinde($gkey, $bez) {
334        // Die Gemarkungen zu einem Gemeinde-Key (aus Link) listen
335        global $con, $gkz, $gemeinde, $epsg, $debug, $gfilter;
[86]336        $linelimit=70;
[282]337
338        // Head
[283]339        zeile_gemeinde($gkey, $bez, true);
[282]340
341        // Body
[376]342        $sql ="SELECT gemashl, trim(trailing from gemarkung) AS gemarkung FROM gema_shl WHERE substring(gemshl from 1 for 8) = $1 ORDER BY gemarkung LIMIT $2 ;";
[86]343        $res=pg_prepare("", $sql);
344        $res=pg_execute("", array($gkey, $linelimit));
345        if (!$res) {
346                echo "\n<p class='err'>Fehler bei Gemarkungen</p>";
[282]347                return 1;
[86]348        }
[330]349        $cnt = 0;
[86]350        while($row = pg_fetch_array($res)) {
[376]351                $gnr=$row["gemashl"]; // 6stellig
352                $gnam=$row["gemarkung"];
[283]353                zeile_gemarkung($gnr, $gnam, false);
[330]354                $cnt++;
355        }
[282]356        // Foot
[86]357        if($cnt == 0){
[278]358                echo "\n<p class='anz'>Keine Gemarkung.</p>";
[86]359        } elseif($cnt >= $linelimit) {
[278]360                echo "\n<p class='anz' title='Bitte eindeutiger qualifizieren'>".$cnt." Gemarkungen ... und weitere</p>";
[86]361        } elseif($cnt == 1) { // Eindeutig!
362                return $gnr;
[278]363        } else {
364                echo "\n<p class='anz'>".$cnt." Gemarkungen</p>";
[86]365        }
[282]366        return;
[86]367}
368
[66]369function SuchGmkgName() {
[282]370        // Gemarkung suchen nach Name(-nsanfang)
[86]371        global $con, $gkz, $gemeinde, $epsg, $debug, $fskennz, $gfilter;
[66]372        $linelimit=120;
[330]373        if(preg_match("/\*/",$fskennz)){
374                $match = trim(preg_replace("/\*/i","%", strtoupper($fskennz)));
[399]375                // Durchsuchte Namenspalte ist rechts mit Leerstellen aufgefÃŒllt. Darum Wildcard am Ende erzwingen.
376                if (substr($match, strlen($match), 1) != "%") {$match.="%";}
[330]377        } else {
378                $match = trim($fskennz)."%";
[376]379        }
380
381        // Pass auf! GemeindeschlÃŒssel ist in den beiden SchlÃŒsseltabellen linksbÃŒndig gefÃŒllt,
382        // aber unterschiedlich lang hinten mit Leerstellen aufgefÃŒllt.
[399]383        $sql ="SELECT substring(g.gemshl from 1 for 8) AS gemshl, g.gemashl, trim(trailing from g.gemarkung) AS gemarkung, trim(trailing from s.gemname) AS gemname "
384        ."FROM gema_shl g JOIN gem_shl s ON substring(g.gemshl from 1 for 8) = substring(s.gemshl from 1 for 8) WHERE g.gemarkung ILIKE $1 ";
[376]385
[85]386        switch ($gfilter) {
387                case 1: // Einzelwert
[376]388                        $sql.="AND substring(g.gemshl from 6 for 3)='".$gemeinde."'"; break;
[85]389                case 2: // Liste
[376]390                        $sql.="AND substring(g.gemshl from 6 for 3) in ("."'".str_replace(",", "','", $gemeinde)."'".") "; break;
[85]391        }
[376]392        $sql.=" ORDER BY s.gemname, g.gemarkung LIMIT $2 ;";
393
[66]394        $v=array($match, $linelimit);
395        $res=pg_prepare("", $sql);
396        $res=pg_execute("", $v);
397        if (!$res) {
398                echo "\n<p class='err'>Fehler bei Gemarkung</p>";
[282]399                return;
[66]400        }
[282]401        $cnt = 0;
[330]402        $gwgem="";
[66]403        while($row = pg_fetch_array($res)) {
[376]404                $gemeindename=$row["gemname"];
[282]405                if ($gwgem != $gemeindename) { // Gruppierung Gemeinde
406                        $gwgem = $gemeindename;
[376]407                        $skey=$row["gemshl"];
[283]408                        zeile_gemeinde($skey, $gemeindename, false);
[282]409                }
[376]410                $gnam=$row["gemarkung"];
411                $gnr=$row["gemashl"]; // 6stellig
[283]412                zeile_gemarkung($gnr, $gnam, false); // wenn am Ende nur ein Treffer, dann aktuell=true
[330]413                $cnt++;
414        }
[282]415        // Foot
[66]416        if($cnt == 0){
[278]417                echo "\n<p class='anz'>Keine Gemarkung.</p>";
[376]418                if ($debug > 1) {
419/*
420                        // Nach Umstellung auf NorGIS-Struktur muss im Mapbender die Gemeinde 3stellig konfiguriert werden
421                        if (strlen($gemeinde) < 3) {
422                                echo "<p class='err'>URL-Parameter &gemeinde=nnn im Mapbender gazetteer_alkis.SRC muss 3stellig sein!<br>Ist aber '".$gemeinde."'.</p>";
423                        }
424*/
425                        if ($debug > 2) {echo "<p class='dbg'>SQL=<br>".$sql."<br>$1 = ".$match."</p>";}
426                }
[66]427        } elseif($cnt >= $linelimit) {
[278]428                echo "\n<p class='anz' title='Bitte eindeutiger qualifizieren'>".$cnt." Gemarkungen ... und weitere</p>";
[66]429        } elseif($cnt == 1) { // Eindeutig!
[376]430                return $gnr; // 6stellige Gemarkungsnummer!
[278]431        } else {
432                echo "\n<p class='anz'>".$cnt." Gemarkungen</p>";
[66]433        }
[282]434        return;
[66]435}
436
[376]437function gg_head($gkgnr6, $gkgaktuell) {
438        // Gemeinde und Gemarkung (G+G) Kopf-Zeilen ausgeben
439        // Parameter: Gemarkungsnummer (6stellig), aktuell hervorzuhebende Zeile
[348]440        // Return: true/false ob gefunden
441
[376]442        $sqlh ="SELECT g.gemarkung, substring(s.gemshl from 1 for 8) AS gemshl, trim(trailing from s.gemname) AS gemname
443        FROM gema_shl g JOIN gem_shl s ON g.gemshl=s.gemshl WHERE g.gemashl = $1 ;";
[348]444
[376]445        $v=array($gkgnr6);
[282]446        $resh=pg_prepare("", $sqlh);
447        $resh=pg_execute("", $v);
[348]448
[282]449        if (!$resh) {echo "\n<p class='err'>Fehler bei Gemeinde und Gemarkung.</p>";}
[348]450
451        if ($rowh = pg_fetch_array($resh)) {
[376]452                $gmkg=$rowh["gemarkung"];
453                $skey=$rowh["gemshl"];
454                $snam=$rowh["gemname"];
[348]455                zeile_gemeinde($skey, $snam, false);
[376]456                zeile_gemarkung($gkgnr6, $gmkg, $gkgaktuell);
[348]457                return true;
458    } else {
459                echo "\n<div class='gk' title='Gemarkung'>";
[356]460                echo "\n\t\t<img class='nwlink' src='ico/Gemarkung.png' width='16' height='16' alt='GKG' title='Gemarkung'>";
[376]461                echo " Gemarkung ".$gkgnr6." nicht gefunden!\n</div>";
[348]462                return false;
463        }
[282]464}
465
[66]466function EineGemarkung($AuchGemkZeile) {
[282]467        // Kennzeichen bestehend nur aus Gemarkung-SchlÃŒssel wurde eingegeben
[376]468        global $con, $gkz, $gemeinde, $epsg, $debug, $zgemkg4, $zgemkg6;
[282]469        $linelimit=120; // max.Fluren/Gemkg
470
471        // Head
[348]472        if ($AuchGemkZeile) { // Kopf davor ausgeben
[376]473                if (! gg_head($zgemkg6, true)) {
[348]474                        if ($debug >= 1) {echo "\n<p class='dbg'>Gem.-Gemkg.-Kopf abgebrochen</p>";}   
475                        return false;
476                }
477        }
478
[282]479        // Body
[376]480        $sql ="SELECT gemarkungsteilflur AS flur FROM ax_gemarkungsteilflur f WHERE gemarkung= $1 ORDER BY gemarkungsteilflur LIMIT $2 ;";
481        $v=array($zgemkg4, $linelimit);
[66]482        $res=pg_prepare("", $sql);
483        $res=pg_execute("", $v);
[348]484
[66]485        if (!$res) {echo "\n<p class='err'>Fehler bei Flur.</p>";}
486        $zfl=0;
487        while($row = pg_fetch_array($res)) {   
[282]488                $zflur=$row["flur"];
[376]489                zeile_flur($zgemkg4, $zflur, false, false);
[66]490                $zfl++;
491        }
[348]492
[282]493        // Foot
[66]494        if($zfl == 0) {
[278]495                echo "\n<p class='anz'>Keine Flur.</p>";
496        } elseif($zfl >= $linelimit) {
497                echo "\n<p class='anz'>".$zfl." Fluren ... und weitere</p>";
498        } elseif($zfl > 1) {
499                echo "\n<p class='anz'>".$zfl." Fluren</p>";
[66]500        }
[348]501        return true;
[66]502}
503
[126]504function EineFlur() {
[282]505        // Kennzeichen aus Gemarkung und FlurNr wurde eingegeben, dazu aktuelle FlurstÃŒcke suchen
[376]506        global $con, $gkz, $gemeinde, $epsg, $debug, $zgemkg4, $zgemkg6, $zflur;
[356]507        $linelimit=900; // Wie groß kann eine Flur sein?
[66]508
[282]509        // Head
[376]510        if (gg_head($zgemkg6, false)) {
511                zeile_flur($zgemkg4, $zflur, true, true);
[348]512        } else {
513                return false;
514        }
[282]515
516        // Body
[413]517        $sql ="SELECT f.gml_id, f.flurnummer, f.zaehler, f.nenner, f.gemeindezugehoerigkeit_gemeinde, ";
[86]518        if($epsg == "25832") { // Transform nicht notwendig
[189]519                $sql.="st_x(st_Centroid(f.wkb_geometry)) AS x, ";
520                $sql.="st_y(st_Centroid(f.wkb_geometry)) AS y ";
[128]521        } else { 
[189]522                $sql.="st_x(st_transform(st_Centroid(f.wkb_geometry), ".$epsg.")) AS x, ";
523                $sql.="st_y(st_transform(st_Centroid(f.wkb_geometry), ".$epsg.")) AS y ";                       
[86]524        }
[376]525
[413]526        $sql.="FROM ax_flurstueck f WHERE f.gemarkungsnummer= $1 AND f.flurnummer= $2 AND endet IS NULL ORDER BY f.zaehler, f.nenner LIMIT $3 ;";
[376]527        $v=array($zgemkg4, $zflur, $linelimit);
[66]528        $res=pg_prepare("", $sql);
529        $res=pg_execute("", $v);
530        if (!$res) {echo "\n<p class='err'>Fehler bei Flur.</p>";}
531        $zfs=0;
532        while($row = pg_fetch_array($res)) {   
533                $fs_gml=$row["gml_id"];
534                $flur=$row["flurnummer"];
535                $fskenn=$row["zaehler"];
[283]536                if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];}
537                zeile_flurstueck($fs_gml, $fskenn, $row["x"], $row["y"], "", "", false);
[66]538                $zfs++;
539        }
[306]540
541        // Flur-Foot
[282]542        if($zfs == 0) {
[278]543                echo "\n<p class='anz'>Kein Flurst&uuml;ck.</p>";
[66]544        } elseif($zfs >= $linelimit) {
[278]545                echo "\n<p class='anz'>".$zfs." Flurst&uuml;cke... und weitere</p>";
546        } elseif($zfs > 1) {
547                echo "\n<p class='anz'>".$zfs." Flurst&uuml;cke</p>";
[66]548        }
[348]549        return true;
[66]550}
551
[126]552function HistFlur() {
[376]553        // Kennzeichen aus Gemarkung und FlurNr wurde eingegeben, "h" dahinter.
[282]554        // Die Flur nach historischen FlurstÃŒcken durchsuchen
[376]555        global $con, $gkz, $gemeinde, $epsg, $debug, $scalefs, $auskpath, $land, $zgemkg4, $zgemkg6, $zflur;
[128]556        $linelimit=500;
[126]557
[282]558        // Head
[376]559        if (gg_head($zgemkg6, false)) {
560                zeile_flur($zgemkg4, $zflur, true, true);
[348]561        } else {
562                return false;
563        }
[126]564
[282]565        // Body
[356]566        $whcl="WHERE flurstueckskennzeichen like $1 AND endet IS NULL ";
[376]567
[413]568        $sql ="SELECT 'h' AS ftyp, gml_id, cast(zaehler AS integer) AS zaehler, cast(nenner AS integer) AS nenner, nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueck ".$whcl
569        ."UNION SELECT 'o' AS ftyp, gml_id, cast(zaehler AS integer) AS zaehler, cast(nenner AS integer) AS nenner, nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueckohneraumbezug ".$whcl
570        ."ORDER BY zaehler, nenner LIMIT $2 ;";
[376]571        // "zaehler" und "nenner" sind in der Classic-Datenbank Integer-Werte aber in der Struktur
572        // des norGIS-ALKIS-Importers sind das Character-Strings, die linksbÃŒndig ohne fÃŒhrende Nullen gefÃŒllt sind.
573        // Der Anwender erwartet aber eine "numerische" Sortierung.
574
575        $fskzwhere=$zgemkg6.str_pad($zflur, 3, "0", STR_PAD_LEFT)."%";
[330]576        $v=array($fskzwhere, $linelimit);
[126]577        $res=pg_prepare("", $sql);
578        $res=pg_execute("", $v);
579        if (!$res) {echo "\n<p class='err'>Fehler bei Historie Flur.</p>";}
580        $zfs=0;
581        while($row = pg_fetch_array($res)) {   
582                $ftyp=$row["ftyp"];
583                $fs_gml=$row["gml_id"]; // fuer Buchausk.
584                $fskenn=$row["zaehler"];
585                if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];} // Bruchnummer
[376]586                zeile_hist_fs($fs_gml, $fskenn, $ftyp, $zgemkg4, $zflur, false);
[126]587                $zfs++;
588        }
[282]589
590        // Foot
[126]591        if($zfs == 0) {
[278]592                echo "\n<p class='anz'>Kein historisches Flurst&uuml;ck.</p>";
593                #if ($debug > 2) {echo "<p class='dbg'>SQL=<br>".$sql."<br>$1 = ".$fskzwhere."</p>";}
[129]594        } elseif ($zfs >= $linelimit) {
[278]595                echo "\n<p class='anz'>".$zfs." historische Flurst. ... und weitere</p>";
596        } elseif($zfs > 1) {
597                echo "\n<p class='anz'>".$zfs." historische Flurst&uuml;cke</p>";
[126]598        }
[348]599        return true;
[126]600}
601
[68]602function EinFlurstueck() {
[284]603        // FlurstÃŒckskennzeichen wurde komplett bis zum Zaehler (oder Nenner) eingegeben
604        // Sonderfall: bei Bruchnummer, mehrere Nenner zum Zaehler suchen wenn kein Nenner eingegeben wurde.
[376]605        global $con, $gkz, $debug, $epsg, $gemeinde, $fskennz, $zgemkg4, $zgemkg6, $zflur, $zzaehler, $znenner;
[66]606
[282]607        // Head
[376]608        if (gg_head($zgemkg6, false)) { // Kopfzeilen: Gemeinde, Gemerkung, ..
609                zeile_flur($zgemkg4, $zflur, true, false); // .., Flur
[348]610        } else {
611                return false;
612        }
[128]613
[282]614        // Body
[124]615        $sql ="SELECT f.gml_id, f.flurnummer, f.zaehler, f.nenner, ";
[86]616        if($epsg == "25832") { // Transform nicht notwendig
[356]617                $sql.="st_x(st_Centroid(f.wkb_geometry)) AS x, ";
618                $sql.="st_y(st_Centroid(f.wkb_geometry)) AS y ";
[282]619        } else { 
[356]620                $sql.="st_x(st_transform(st_Centroid(f.wkb_geometry), ".$epsg.")) AS x, ";
621                $sql.="st_y(st_transform(st_Centroid(f.wkb_geometry), ".$epsg.")) AS y ";                       
[86]622        }
[348]623        $sql.="FROM ax_flurstueck f WHERE f.gemarkungsnummer= $1 AND f.flurnummer= $2 AND f.zaehler= $3 ";
[376]624
625//      If ($znenner != "") {$sql.="AND f.nenner=".$znenner." ";}
626
627        // norGIS: "zaehler" ist integer in der DB, aber "nenner" ist character, linksbÃŒndig ohne fÃŒhrende '0'
628        If ($znenner != "") {
629                $suchnenn = ltrim($znenner, '0');
630                If ($suchnenn != "") {
631                        $sql.="AND f.nenner='".$suchnenn."' ";
632                }
633        }
634        $sql.="AND endet IS NULL ORDER BY f.zaehler, cast(f.nenner AS integer);";
635        $v=array($zgemkg4, $zflur, $zzaehler);
[66]636        $res=pg_prepare("", $sql);
637        $res=pg_execute("", $v);
[376]638        if (!$res) {
639                echo "\n<p class='err'>Fehler bei Flurst&uuml;ck.</p>";
640                if ($debug > 2) {echo "<p class='dbg'>SQL = '".$sql."'<br>Parameter $1='".$zgemkg4."' $2='".$zflur."' $3='".$zzaehler."'<p>";}
641        }
642
643
[66]644        $zfs=0;
645        while($row = pg_fetch_array($res)) {   
646                $fs_gml=$row["gml_id"];
647                $flur=$row["flurnummer"];
648                $fskenn=$row["zaehler"];
[282]649                if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];}
[283]650                zeile_flurstueck($fs_gml, $fskenn, $row["x"], $row["y"], "", "", true);
[66]651                $zfs++;
652        }
[282]653        // Foot
[124]654        if($zfs == 0) {
[282]655                echo "\n<p class='anz'>Kein aktuelles Flurst&uuml;ck.</p>";
656                echo "\n<div class='hi' title='in Historie suchen'>";
[356]657                        echo "\n\t\t<img class='nwlink' src='ico/Flurstueck_Historisch.png' width='16' height='16' alt='Historisches Flurst&uuml;ck'>&nbsp;";
[282]658                        echo "<a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;fskennz=".$fskennz."&amp;hist=j'>";
[376]659                        echo $zgemkg4."-".$zflur."-".$zzaehler;
[282]660                        if ($znenner != "") {echo "/".$znenner;}
661                        echo " h - suchen</a>";
[124]662                echo "\n</div>";               
663        }
[348]664        return true;
[66]665}
666
[124]667function HistFlurstueck() {
[284]668        // Die Nachfolger-FS-Kennzeichen zu einem Historischen FS sollen recherchiert werden.
[376]669        global $debug, $land, $zgemkg4, $zgemkg6, $zflur, $zzaehler, $znenner;
[124]670
[282]671        // Head
[376]672        if (gg_head($zgemkg6, false)) {
673                zeile_flur($zgemkg4, $zflur, true, false);
[348]674        } else {
675                return false;
676        }
[284]677        echo "\n<hr>";
[128]678
[282]679        // Body
680        // Suche ueber das Flurstueckskennzeichen, gml unbekannt
[376]681        $fskzwhere=$zgemkg6; // Flurst-Kennz. f. Where
[356]682        $fskzwhere.=str_pad($zflur, 3, "0", STR_PAD_LEFT);
683        $fskzwhere.=str_pad($zzaehler, 5, "0", STR_PAD_LEFT);
[284]684        if ($znenner == "") {   // Wenn kein Nenner angegeben wurde,
685                //wird mit Wildcard und like nach allen Nennern gesucht.
[330]686                $fskzwhere.="____\_\_"; // fÃŒr like
[284]687                $whereop=" like ";
[330]688                // Das Wildcard-Zeichen "_" ist mit Zeichen im Feldinhalt identisch
689                // "___" = hier kann auch ein Nenner stehen, "\_\_" hier mÃŒssen tatsÀchlich __ stehen.
690                // WARNUNG:  nicht standardkonforme Verwendung von Escape in Zeichenkettenkonstante
691                // z.B.: like '05265600400145____\_\_'
[284]692        } else { // Ein Nenner wurde angegeben
[356]693                $fskzwhere.=str_pad($znenner, 4, "0", STR_PAD_LEFT)."__";
[284]694                $whereop=" = ";
695        }
[356]696        $whcl="WHERE flurstueckskennzeichen ".$whereop." $1 AND endet IS NULL ";
[284]697        $fldlist=" AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner, ";
698
699        // NICHT in aktuell suchen wenn explizit historisch gesucht wird
[413]700        $sql ="SELECT 'h'".$fldlist."nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueck ".$whcl
701        ."UNION SELECT 'o'".$fldlist."nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueckohneraumbezug ".$whcl;
[284]702
[124]703        $v=array($fskzwhere);
704        $res=pg_prepare("", $sql);
705        $res=pg_execute("", $v);
[330]706        if (!$res) {
707                echo "\n<p class='err'>Fehler bei historischem Flurst&uuml;ck.</p>";
708                if ($debug > 2) {echo "<p class='dbg'>SQL = '".$sql."'<br>Parameter: ".$fskzwhere."<p>";}
[348]709                return true;
[330]710        }
711
[124]712        $zfs=0;
[284]713        while($row = pg_fetch_array($res)) { // Schleife Hist-FS
[124]714                $ftyp=$row["ftyp"];
715                $fs_gml=$row["gml_id"];
[376]716                $gknr=$land.$row["gemarkungsnummer"]; // Land davor
[124]717                $flur=$row["flurnummer"];
718                $fskenn=$row["zaehler"];
719                $nachf=$row["nachf"];
[282]720                if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];}
[284]721
722                zeile_hist_fs($fs_gml, $fskenn, $ftyp, $gknr, $flur, true);
[376]723
[284]724                if ($nachf == "") {
725                        echo "\n<p class='anz'>keine Nachfolger</p>";   
726                } else {
727                        echo "\n<p class='hn'>Nachfolger-Flurst&uuml;cke:</p>";
728                        // Direkte Nachfolger ermitteln. In $nachf steht ein Array von FS-Kennzeichen.
729                        // Von den einzelnen Kennz. ist unbekannt, ob diese noch aktuell sind
730                        // oder auch schon wieder historisch.
731                        // Nachfolger in DB suchen um den Status aktuell/historisch zu ermitteln
732                        $stri=trim($nachf, "{}");
733                        $stri="'".str_replace(",", "','", $stri)."'";
734
[330]735                        $nawhcl="WHERE flurstueckskennzeichen IN ( ".$stri." ) AND endet IS NULL ";
[284]736
[376]737                        // Pass auf! Spalte zaehler hat unterschiedliches Format in den 3 Tabellen
[413]738                        $nasql ="SELECT 'a' AS ftyp, gml_id, gemarkungsnummer, flurnummer, cast(zaehler AS character varying), nenner FROM ax_flurstueck ".$nawhcl
739                        ."UNION SELECT 'h' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_historischesflurstueck ".$nawhcl
740                        ."UNION SELECT 'o' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_historischesflurstueckohneraumbezug ".$nawhcl;
[284]741
742                        $v=array();
743                        $nares=pg_prepare("", $nasql);
744                        $nares=pg_execute("", $v);
[330]745                        if (!$nares) {
746                                echo "\n<p class='err'>Fehler bei Nachfolger.</p>";
747                                if ($debug > 2) {echo "<p class='dbg'>SQL = '".$nasql."'<p>";}
748                                return;
749                        }
750
[284]751                        $zfsn=0;
752                        // inner Body
753                        while($narow = pg_fetch_array($nares)) {
754                                $naftyp=$narow["ftyp"];
755                                $nagml=$narow["gml_id"];
[376]756                                $nagknr=$land.$narow["gemarkungsnummer"]; // Land davor, 4 auf 6 Stellen
[284]757                                $naflur=$narow["flurnummer"];
758                                $nafskenn=$narow["zaehler"];
759                                if ($narow["nenner"] != "") {$nafskenn.="/".$narow["nenner"];}
760                                zeile_nachf_fs ($nagml, $nagknr, $naflur, $nafskenn, $naftyp);
761                                $zfsn++;
[124]762                        }
[284]763                        // inner Footer
764                        if ($zfsn == 0) {
765                                echo "\n<p class='anz'>keine Nachfolger</p>";
766                        } elseif ($zfsn > 1) {
767                                echo "\n<p class='anz'>".$zfsn." Nachfolger-Flst.</p>";
768                        }
769                        echo "\n<hr>";
[124]770                }
771                $zfs++;
772        }
[282]773        // Foot
[124]774        if($zfs == 0) {
[282]775                echo "\n<p class='anz'>Kein historisches Flurst&uuml;ck.</p>";
776                #if ($debug > 2) {echo  "\n<p class='dbg'> SQL= ".$sql."\n<br> $1 = FS-Kennz = '".$fskzwhere."'</p>";}
[124]777        }
778        return;
779}
780
[66]781// ===========
782// Start hier!
783// ===========
[399]784if ($debug >= 1) {echo "\n<p class='dbg'>gemeinde='".$gemeinde."'. gfilter='".$gfilter."'</p>";}
[376]785
[399]786// Validation: Eingabefeld aus Formular.
787// Suchbegriff (Gemarkungsname) oder FlurstÃŒcks-Kennzeichen (ll)gggg-fff-zzzz/nnn (11).
788// Hier formatierte Meldung und html-Foot.
789if (isset($fskennz) and $fskennz != "" ) {
[400]790        if (!preg_match('#^[0-9a-zA-ZÀöÌÄÖÜß* -/]{1,25}$#', $fskennz)) {
[399]791                echo "<p class='err'>Eingabe unzul&auml;ssig!</p>";
792                $fskennz="";
793        }
[85]794} else {
[399]795        $fskennz="";
[85]796}
[399]797       
[282]798if($gm != "") { // Self-Link aus Gemeinde-Liste
[278]799        $trans="Gemarkungen zur Gemeinde";
[282]800        $gnr=ListGmkgInGemeinde($gm, $bez);
[66]801        if ($gnr > 0) {
[376]802                $zgemkg4=$gnr;
803                $zgemkg6=$land.$zgemkg4;
[66]804                EineGemarkung(false);
[126]805        }
[278]806} else { // Die Formular-Eingabe interpretieren (kann auch ein Link sein)
[126]807        $retzer=ZerlegungFsKennz($fskennz);
[348]808        if ($debug >= 1) {echo "\n<p class='dbg'>Return Zerlegung: ".$retzer."</p>";}   
[376]809        switch ($retzer) { // Returnwert der Zerlegung des FS-Kennz.
[86]810        case 0: // leere Eingabe
[282]811                if ($gfilter == 1) { // Die GUI ist bereits auf EINE Gemeinde gefiltert
[278]812                        $trans="Liste der Gemarkungen";
813                        SuchGmkgName();
[86]814                } else {
[278]815                        $trans="Liste der Gemeinden";
816                        ListGemeinden();
[86]817                }
[282]818                break;
[86]819        case 1:
[278]820                $trans="Suche Gemarkungsname";
[86]821                $gnr=SuchGmkgName();
822                if ($gnr > 0) {
[278]823                        $trans="1 Gemarkung, Fluren dazu";
[376]824                        $zgemkg6=$gnr;
825                        $zgemkg4=substr($zgemkg6, 2);
[86]826                        EineGemarkung(false);
[126]827                }
[282]828                break;
[86]829        case 2:
[278]830                $trans="Fluren in Gemarkung";
[86]831                EineGemarkung(true);
[282]832                break;
[86]833        case 3:
[278]834                if ($phist)     {
835                        $trans="historische Flurst. in Flur";
836                        HistFlur();
837                } else {
838                        $trans="Flurst&uuml;cke in Flur";
839                        EineFlur();
840                }
[282]841                break;
[86]842        case 4:
[278]843                if ($phist)     {
844                        $trans="historisches Flurst&uuml;ck";
845                        HistFlurstueck();
846                } else {
847                        $trans="Flurst&uuml;ck";
848                        EinFlurstueck();
849                }
[282]850                break;
[86]851        case 5:
[278]852                if ($phist) {
853                        $trans="historisches Flurst&uuml;ck";
854                        HistFlurstueck();
855                } else {
856                        $trans="Flurst&uuml;ck";
857                        EinFlurstueck();
[282]858                }       
859                break;
[86]860        case 9:
[278]861                $trans="falsche Eingabe";
862                echo "\n<p class='err'>Bitte ein Flurst&uuml;ckskennzeichen eingegeben, Format 'gggg-fff-zzzz/nnn</p>";
[282]863                break;
[86]864        }
[66]865}
[282]866
[399]867// Nach Durchlaufen des PHP-Scriptes die zuletzt ausgefÃŒhrte Transaktion im Kopf des Ergebnisrahmens anzeigen.
[356]868// Dazu die im HTML-Header definierte Javascript-Function benutzen.
869// Alternativ wird auch aus dem Javascript "positionieren Karte" dieser Titel gesetzt.
[283]870echo "
871<script type='text/javascript'>
872        transtitle('".$trans."');
873</script>";
[66]874?>
[330]875
876</body>
[66]877</html>
Note: See TracBrowser for help on using the repository browser.