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

Revision 413, 29.8 KB checked in by frank.jaeger, 12 months ago (diff)

Umstellung Suche (nav) auf Full-Schema, Nachkorrektur Auskunft.

Line 
1<?php
2/*      Navigation mit ALKIS-Daten im Mapbender 2 - Teil FlurstÃŒck-Suche
3        Datenbank-Struktur aus dem norGIS-ALKIS-Importer.
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
8        2017-03-06 Korrektur: Gemeinde-Suche bei Kreis-DB in norGIS-Struktur
9        2018-02-15 Strikte Input-Validation der Parameter
10        2018-11-12 Full-Schema
11*/
12
13$cntget = extract($_GET);
14
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
63include("../../conf/alkisnav_conf.php");
64include("alkisnav_fkt.php"); // Funktionen
65$con = pg_connect ($dbconn) or die ("Fehler bei der Verbindung zur Datenbank ".$dbpre.$dbgkz);
66
67echo <<<END
68<!doctype html>
69<html lang="de">
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">
74        <meta charset="utf-8">
75        <title>ALKIS-Suche Flurst&uuml;ck</title>
76        <link rel="stylesheet" type="text/css" href="alkisnav.css">
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                }
82                function transtitle(trans) {
83                        document.getElementById('transaktiontitle').innerHTML = trans;
84                }
85        </script>
86</head>
87<body>
88<a href='javascript:history.back()'>
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>
94
95END;
96
97function h_hinten($zahl) {
98        // Testen: Wurde an eine Zahl ein "h" angehÀngt?
99        // Wenn ja, dann Schalter setzen und nur den numerischen Teil zurÃŒck geben.
100        global $phist, $debug;
101        $zahl=trim($zahl);
102        $zlen=strlen($zahl) - 1;
103        if ($zlen > 0) {
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
116function ZerlegungFsKennz($fskennz) {
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; 
121        $arr = explode("-", $fskennz, 4); // an den Trenn-Strichen aufteilen
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
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        }
140        if ($debug > 1) {echo "<p class='dbg'>Gemkg: '".$gemkg."' Flur: '".$zflur."' NR: '".$zfsnr."'</p>";}
141
142        if ($gemkg == "") {
143                return 0; // Gemeinden oder Gemarkungen listen
144        } elseif ( ! is_ne_zahl($gemkg)) {
145                return 1; // Such Name
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
166        } elseif ( ! is_ne_zahl($zflur)) {
167                echo "<p class='err'>Die Flurnummer '".$zflur."' ist nicht numerisch</p>";
168                return 9;
169        } elseif ($zfsnr == "") { // Flur eingegeben, aber keine FlurstÃŒcksnummer mehr
170                return 3; // Flur                               
171        } else {
172                $zn=explode("/", $zfsnr, 2); // Bruchnummer?
173                $zzaehler=h_hinten(trim($zn[0]));
174                if (count($zn) > 1) {$znenner=h_hinten(trim($zn[1]));} else {$znenner="";}
175                if ( ! is_ne_zahl($zzaehler)) {
176                        echo "<p class='err'>FlurstÃŒcksnummer '".$zzaehler."' ist nicht numerisch</p>";
177                        return 9;
178                } elseif ($znenner == "") {
179                        return 4;
180                } elseif (is_ne_zahl($znenner)) {
181                        return 5;                                                               
182                } else {
183                        echo "<p class='err'>FlurstÃŒcks-Nenner '".$znenner."' ist nicht numerisch</p>";
184                        return 9;
185                }
186        }
187}
188
189function flurstueckskoordinaten($gml) {
190        // Die Koordinaten zu einem FlurstÃŒck aus der Datenbank liefern
191        // Parameter: gml_id des FlurstÃŒcke
192        // Return: Array(x,y)
193        global $epsg;
194        $sqlk ="SELECT ";
195        if($epsg == "25832") { // Transform nicht notwendig
196                $sqlk.="st_x(st_Centroid(wkb_geometry)) AS x, ";
197                $sqlk.="st_y(st_Centroid(wkb_geometry)) AS y ";
198        } else { 
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 ";                       
201        }
202        $sqlk.="FROM ax_flurstueck WHERE gml_id= $1 AND endet IS NULL;";
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
212function zeile_flur($gkgnr, $flurnr, $histlnk, $aktuell) {
213        // Eine Kopf-Zeile zur Flur ausgeben
214        global $gkz, $gemeinde, $epsg;
215
216        if ($aktuell) {$cls=" aktuell";} else {$cls="";}
217        echo "\n<div class='fl".$cls."' title='Flur'>";
218        echo "\n\t\t<img class='nwlink' src='ico/Flur.png' width='16' height='16' alt='FL' title='Flur'> ";
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>";
221
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>";
224        }
225        echo "\n</div>";       
226        return;
227}
228
229function zeile_hist_fs($fs_gml, $fskenn, $ftyp, $gknr, $flur, $aktuell) {
230        // Eine Zeile fÃŒr ein historisches FlurstÃŒck ausgeben
231        global $gkz, $gemeinde, $epsg, $auskpath;
232        if ($ftyp == "h") {
233                $ico="Flurstueck_Historisch_Lnk.png";
234                $titl="Historisches Flurst&uuml;ck";
235        } else {
236                $ico="Flurstueck_Historisch_oR_Lnk.png";
237                $titl="Historisches Flurst&uuml;ck ohne Raumbezug";
238        }
239        if ($aktuell) {$cls=" aktuell";} else {$cls="";}
240        echo "\n<div class='hi".$cls."' title='".$titl."'>";
241
242        // Icon -> Buchnachweis
243        echo "\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisfshist.php?gkz=".$gkz."&amp;gmlid=".$fs_gml."\")'>";
244                echo "\n\t\t<img class='nwlink' src='ico/".$ico."' width='16' height='16' alt='Hist' title='".$titl."'>";
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
252        echo "\n</div>";
253        return;
254}
255
256function zeile_nachf_fs($gml, $gknr, $flur, $fskenn, $ftyp) {
257        // Eine Zeile fÃŒr ein Nachfolger-FlurstÃŒck eines hist. Fs. ausgeben
258        global $gkz, $gemeinde, $epsg, $auskpath;
259
260        $fs=$gknr."-".$flur."-".$fskenn;
261        switch ($ftyp) {
262        case "a": // eine FS-Zeile mit Link ausgeben (EinrÃŒckung css passt nicht)
263                $koor=flurstueckskoordinaten($gml);
264                zeile_flurstueck($gml, $fskenn, $koor["x"], $koor["y"], "", "", false);
265                return;
266                break;
267        case "h":
268                $ico="Flurstueck_Historisch_Lnk.png";
269                $titl="Historisches Flurst&uuml;ck";
270                $hisparm="&amp;hist=j";
271                $auskprog="alkisfshist";
272                break;
273        case "o":
274                $ico="Flurstueck_Historisch_oR_Lnk.png";
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."\")'>";
283                        echo "\n\t\t<img class='nwlink' src='ico/".$ico."' width='16' height='16' alt='FS' title='Nachweis'>";
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
290function ListGemeinden() {
291        // Bei Leereingabe im Formular die berechtigte(n) Gemeinde(n) auflisten
292        global $con, $gkz, $gemeinde, $epsg, $debug, $gfilter;
293        $linelimit=60;
294
295        $sql ="SELECT trim(trailing from gemshl) as gemshl, gemname FROM gem_shl ";
296        switch ($gfilter) {
297                case 1: // Einzelwert
298                        $sql.="WHERE substring(gemshl from 6 for 3) = '".$gemeinde."' ";
299                        break;
300                case 2: // Liste
301                        $sql.="WHERE substring(gemshl from 6 for 3) in ('".str_replace(",", "','", $gemeinde)."') ";
302                        break;
303                default: break;
304        }
305        $sql.="ORDER BY gemname LIMIT $1 ;";
306        $res=pg_prepare("", $sql);
307        $res=pg_execute("", array($linelimit));
308        if (!$res) {
309                echo "\n<p class='err'>Fehler bei Gemeinde</p>";
310                if ($debug >= 3) {echo "\n<p class='dbg'>".$sql."</p>";} // ++Nur Entw.
311                return 0;
312        }
313        $cnt = 0;
314        while($row = pg_fetch_array($res)) {
315                $gnr=$row["gemshl"];
316                $gemeindename=$row["gemname"];
317                zeile_gemeinde($gnr, $gemeindename, false);
318                $cnt++;
319        }
320        // Foot
321        if($cnt == 0) {
322                echo "\n<p class='anz'>Keine Gemeinde.</p>";
323        } elseif($cnt >= $linelimit) {
324                echo "\n<p class='anz' title='Bitte eindeutiger qualifizieren'>".$cnt." Gemeinden ... und weitere</p>";
325        } elseif($cnt == 1) { // Eindeutig!
326                return $gnr;
327        } else {
328                echo "\n<p class='anz'>".$cnt." Gemeinden</p>";
329        }
330        return;
331}
332
333function ListGmkgInGemeinde($gkey, $bez) {
334        // Die Gemarkungen zu einem Gemeinde-Key (aus Link) listen
335        global $con, $gkz, $gemeinde, $epsg, $debug, $gfilter;
336        $linelimit=70;
337
338        // Head
339        zeile_gemeinde($gkey, $bez, true);
340
341        // Body
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 ;";
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>";
347                return 1;
348        }
349        $cnt = 0;
350        while($row = pg_fetch_array($res)) {
351                $gnr=$row["gemashl"]; // 6stellig
352                $gnam=$row["gemarkung"];
353                zeile_gemarkung($gnr, $gnam, false);
354                $cnt++;
355        }
356        // Foot
357        if($cnt == 0){
358                echo "\n<p class='anz'>Keine Gemarkung.</p>";
359        } elseif($cnt >= $linelimit) {
360                echo "\n<p class='anz' title='Bitte eindeutiger qualifizieren'>".$cnt." Gemarkungen ... und weitere</p>";
361        } elseif($cnt == 1) { // Eindeutig!
362                return $gnr;
363        } else {
364                echo "\n<p class='anz'>".$cnt." Gemarkungen</p>";
365        }
366        return;
367}
368
369function SuchGmkgName() {
370        // Gemarkung suchen nach Name(-nsanfang)
371        global $con, $gkz, $gemeinde, $epsg, $debug, $fskennz, $gfilter;
372        $linelimit=120;
373        if(preg_match("/\*/",$fskennz)){
374                $match = trim(preg_replace("/\*/i","%", strtoupper($fskennz)));
375                // Durchsuchte Namenspalte ist rechts mit Leerstellen aufgefÃŒllt. Darum Wildcard am Ende erzwingen.
376                if (substr($match, strlen($match), 1) != "%") {$match.="%";}
377        } else {
378                $match = trim($fskennz)."%";
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.
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 ";
385
386        switch ($gfilter) {
387                case 1: // Einzelwert
388                        $sql.="AND substring(g.gemshl from 6 for 3)='".$gemeinde."'"; break;
389                case 2: // Liste
390                        $sql.="AND substring(g.gemshl from 6 for 3) in ("."'".str_replace(",", "','", $gemeinde)."'".") "; break;
391        }
392        $sql.=" ORDER BY s.gemname, g.gemarkung LIMIT $2 ;";
393
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>";
399                return;
400        }
401        $cnt = 0;
402        $gwgem="";
403        while($row = pg_fetch_array($res)) {
404                $gemeindename=$row["gemname"];
405                if ($gwgem != $gemeindename) { // Gruppierung Gemeinde
406                        $gwgem = $gemeindename;
407                        $skey=$row["gemshl"];
408                        zeile_gemeinde($skey, $gemeindename, false);
409                }
410                $gnam=$row["gemarkung"];
411                $gnr=$row["gemashl"]; // 6stellig
412                zeile_gemarkung($gnr, $gnam, false); // wenn am Ende nur ein Treffer, dann aktuell=true
413                $cnt++;
414        }
415        // Foot
416        if($cnt == 0){
417                echo "\n<p class='anz'>Keine Gemarkung.</p>";
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                }
427        } elseif($cnt >= $linelimit) {
428                echo "\n<p class='anz' title='Bitte eindeutiger qualifizieren'>".$cnt." Gemarkungen ... und weitere</p>";
429        } elseif($cnt == 1) { // Eindeutig!
430                return $gnr; // 6stellige Gemarkungsnummer!
431        } else {
432                echo "\n<p class='anz'>".$cnt." Gemarkungen</p>";
433        }
434        return;
435}
436
437function gg_head($gkgnr6, $gkgaktuell) {
438        // Gemeinde und Gemarkung (G+G) Kopf-Zeilen ausgeben
439        // Parameter: Gemarkungsnummer (6stellig), aktuell hervorzuhebende Zeile
440        // Return: true/false ob gefunden
441
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 ;";
444
445        $v=array($gkgnr6);
446        $resh=pg_prepare("", $sqlh);
447        $resh=pg_execute("", $v);
448
449        if (!$resh) {echo "\n<p class='err'>Fehler bei Gemeinde und Gemarkung.</p>";}
450
451        if ($rowh = pg_fetch_array($resh)) {
452                $gmkg=$rowh["gemarkung"];
453                $skey=$rowh["gemshl"];
454                $snam=$rowh["gemname"];
455                zeile_gemeinde($skey, $snam, false);
456                zeile_gemarkung($gkgnr6, $gmkg, $gkgaktuell);
457                return true;
458    } else {
459                echo "\n<div class='gk' title='Gemarkung'>";
460                echo "\n\t\t<img class='nwlink' src='ico/Gemarkung.png' width='16' height='16' alt='GKG' title='Gemarkung'>";
461                echo " Gemarkung ".$gkgnr6." nicht gefunden!\n</div>";
462                return false;
463        }
464}
465
466function EineGemarkung($AuchGemkZeile) {
467        // Kennzeichen bestehend nur aus Gemarkung-SchlÃŒssel wurde eingegeben
468        global $con, $gkz, $gemeinde, $epsg, $debug, $zgemkg4, $zgemkg6;
469        $linelimit=120; // max.Fluren/Gemkg
470
471        // Head
472        if ($AuchGemkZeile) { // Kopf davor ausgeben
473                if (! gg_head($zgemkg6, true)) {
474                        if ($debug >= 1) {echo "\n<p class='dbg'>Gem.-Gemkg.-Kopf abgebrochen</p>";}   
475                        return false;
476                }
477        }
478
479        // Body
480        $sql ="SELECT gemarkungsteilflur AS flur FROM ax_gemarkungsteilflur f WHERE gemarkung= $1 ORDER BY gemarkungsteilflur LIMIT $2 ;";
481        $v=array($zgemkg4, $linelimit);
482        $res=pg_prepare("", $sql);
483        $res=pg_execute("", $v);
484
485        if (!$res) {echo "\n<p class='err'>Fehler bei Flur.</p>";}
486        $zfl=0;
487        while($row = pg_fetch_array($res)) {   
488                $zflur=$row["flur"];
489                zeile_flur($zgemkg4, $zflur, false, false);
490                $zfl++;
491        }
492
493        // Foot
494        if($zfl == 0) {
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>";
500        }
501        return true;
502}
503
504function EineFlur() {
505        // Kennzeichen aus Gemarkung und FlurNr wurde eingegeben, dazu aktuelle FlurstÃŒcke suchen
506        global $con, $gkz, $gemeinde, $epsg, $debug, $zgemkg4, $zgemkg6, $zflur;
507        $linelimit=900; // Wie groß kann eine Flur sein?
508
509        // Head
510        if (gg_head($zgemkg6, false)) {
511                zeile_flur($zgemkg4, $zflur, true, true);
512        } else {
513                return false;
514        }
515
516        // Body
517        $sql ="SELECT f.gml_id, f.flurnummer, f.zaehler, f.nenner, f.gemeindezugehoerigkeit_gemeinde, ";
518        if($epsg == "25832") { // Transform nicht notwendig
519                $sql.="st_x(st_Centroid(f.wkb_geometry)) AS x, ";
520                $sql.="st_y(st_Centroid(f.wkb_geometry)) AS y ";
521        } else { 
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 ";                       
524        }
525
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 ;";
527        $v=array($zgemkg4, $zflur, $linelimit);
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"];
536                if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];}
537                zeile_flurstueck($fs_gml, $fskenn, $row["x"], $row["y"], "", "", false);
538                $zfs++;
539        }
540
541        // Flur-Foot
542        if($zfs == 0) {
543                echo "\n<p class='anz'>Kein Flurst&uuml;ck.</p>";
544        } elseif($zfs >= $linelimit) {
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>";
548        }
549        return true;
550}
551
552function HistFlur() {
553        // Kennzeichen aus Gemarkung und FlurNr wurde eingegeben, "h" dahinter.
554        // Die Flur nach historischen FlurstÃŒcken durchsuchen
555        global $con, $gkz, $gemeinde, $epsg, $debug, $scalefs, $auskpath, $land, $zgemkg4, $zgemkg6, $zflur;
556        $linelimit=500;
557
558        // Head
559        if (gg_head($zgemkg6, false)) {
560                zeile_flur($zgemkg4, $zflur, true, true);
561        } else {
562                return false;
563        }
564
565        // Body
566        $whcl="WHERE flurstueckskennzeichen like $1 AND endet IS NULL ";
567
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 ;";
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)."%";
576        $v=array($fskzwhere, $linelimit);
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
586                zeile_hist_fs($fs_gml, $fskenn, $ftyp, $zgemkg4, $zflur, false);
587                $zfs++;
588        }
589
590        // Foot
591        if($zfs == 0) {
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>";}
594        } elseif ($zfs >= $linelimit) {
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>";
598        }
599        return true;
600}
601
602function EinFlurstueck() {
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.
605        global $con, $gkz, $debug, $epsg, $gemeinde, $fskennz, $zgemkg4, $zgemkg6, $zflur, $zzaehler, $znenner;
606
607        // Head
608        if (gg_head($zgemkg6, false)) { // Kopfzeilen: Gemeinde, Gemerkung, ..
609                zeile_flur($zgemkg4, $zflur, true, false); // .., Flur
610        } else {
611                return false;
612        }
613
614        // Body
615        $sql ="SELECT f.gml_id, f.flurnummer, f.zaehler, f.nenner, ";
616        if($epsg == "25832") { // Transform nicht notwendig
617                $sql.="st_x(st_Centroid(f.wkb_geometry)) AS x, ";
618                $sql.="st_y(st_Centroid(f.wkb_geometry)) AS y ";
619        } else { 
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 ";                       
622        }
623        $sql.="FROM ax_flurstueck f WHERE f.gemarkungsnummer= $1 AND f.flurnummer= $2 AND f.zaehler= $3 ";
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);
636        $res=pg_prepare("", $sql);
637        $res=pg_execute("", $v);
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
644        $zfs=0;
645        while($row = pg_fetch_array($res)) {   
646                $fs_gml=$row["gml_id"];
647                $flur=$row["flurnummer"];
648                $fskenn=$row["zaehler"];
649                if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];}
650                zeile_flurstueck($fs_gml, $fskenn, $row["x"], $row["y"], "", "", true);
651                $zfs++;
652        }
653        // Foot
654        if($zfs == 0) {
655                echo "\n<p class='anz'>Kein aktuelles Flurst&uuml;ck.</p>";
656                echo "\n<div class='hi' title='in Historie suchen'>";
657                        echo "\n\t\t<img class='nwlink' src='ico/Flurstueck_Historisch.png' width='16' height='16' alt='Historisches Flurst&uuml;ck'>&nbsp;";
658                        echo "<a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;fskennz=".$fskennz."&amp;hist=j'>";
659                        echo $zgemkg4."-".$zflur."-".$zzaehler;
660                        if ($znenner != "") {echo "/".$znenner;}
661                        echo " h - suchen</a>";
662                echo "\n</div>";               
663        }
664        return true;
665}
666
667function HistFlurstueck() {
668        // Die Nachfolger-FS-Kennzeichen zu einem Historischen FS sollen recherchiert werden.
669        global $debug, $land, $zgemkg4, $zgemkg6, $zflur, $zzaehler, $znenner;
670
671        // Head
672        if (gg_head($zgemkg6, false)) {
673                zeile_flur($zgemkg4, $zflur, true, false);
674        } else {
675                return false;
676        }
677        echo "\n<hr>";
678
679        // Body
680        // Suche ueber das Flurstueckskennzeichen, gml unbekannt
681        $fskzwhere=$zgemkg6; // Flurst-Kennz. f. Where
682        $fskzwhere.=str_pad($zflur, 3, "0", STR_PAD_LEFT);
683        $fskzwhere.=str_pad($zzaehler, 5, "0", STR_PAD_LEFT);
684        if ($znenner == "") {   // Wenn kein Nenner angegeben wurde,
685                //wird mit Wildcard und like nach allen Nennern gesucht.
686                $fskzwhere.="____\_\_"; // fÃŒr like
687                $whereop=" like ";
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____\_\_'
692        } else { // Ein Nenner wurde angegeben
693                $fskzwhere.=str_pad($znenner, 4, "0", STR_PAD_LEFT)."__";
694                $whereop=" = ";
695        }
696        $whcl="WHERE flurstueckskennzeichen ".$whereop." $1 AND endet IS NULL ";
697        $fldlist=" AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner, ";
698
699        // NICHT in aktuell suchen wenn explizit historisch gesucht wird
700        $sql ="SELECT 'h'".$fldlist."nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueck ".$whcl
701        ."UNION SELECT 'o'".$fldlist."nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueckohneraumbezug ".$whcl;
702
703        $v=array($fskzwhere);
704        $res=pg_prepare("", $sql);
705        $res=pg_execute("", $v);
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>";}
709                return true;
710        }
711
712        $zfs=0;
713        while($row = pg_fetch_array($res)) { // Schleife Hist-FS
714                $ftyp=$row["ftyp"];
715                $fs_gml=$row["gml_id"];
716                $gknr=$land.$row["gemarkungsnummer"]; // Land davor
717                $flur=$row["flurnummer"];
718                $fskenn=$row["zaehler"];
719                $nachf=$row["nachf"];
720                if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];}
721
722                zeile_hist_fs($fs_gml, $fskenn, $ftyp, $gknr, $flur, true);
723
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
735                        $nawhcl="WHERE flurstueckskennzeichen IN ( ".$stri." ) AND endet IS NULL ";
736
737                        // Pass auf! Spalte zaehler hat unterschiedliches Format in den 3 Tabellen
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;
741
742                        $v=array();
743                        $nares=pg_prepare("", $nasql);
744                        $nares=pg_execute("", $v);
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
751                        $zfsn=0;
752                        // inner Body
753                        while($narow = pg_fetch_array($nares)) {
754                                $naftyp=$narow["ftyp"];
755                                $nagml=$narow["gml_id"];
756                                $nagknr=$land.$narow["gemarkungsnummer"]; // Land davor, 4 auf 6 Stellen
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++;
762                        }
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>";
770                }
771                $zfs++;
772        }
773        // Foot
774        if($zfs == 0) {
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>";}
777        }
778        return;
779}
780
781// ===========
782// Start hier!
783// ===========
784if ($debug >= 1) {echo "\n<p class='dbg'>gemeinde='".$gemeinde."'. gfilter='".$gfilter."'</p>";}
785
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 != "" ) {
790        if (!preg_match('#^[0-9a-zA-ZÀöÌÄÖÜß* -/]{1,25}$#', $fskennz)) {
791                echo "<p class='err'>Eingabe unzul&auml;ssig!</p>";
792                $fskennz="";
793        }
794} else {
795        $fskennz="";
796}
797       
798if($gm != "") { // Self-Link aus Gemeinde-Liste
799        $trans="Gemarkungen zur Gemeinde";
800        $gnr=ListGmkgInGemeinde($gm, $bez);
801        if ($gnr > 0) {
802                $zgemkg4=$gnr;
803                $zgemkg6=$land.$zgemkg4;
804                EineGemarkung(false);
805        }
806} else { // Die Formular-Eingabe interpretieren (kann auch ein Link sein)
807        $retzer=ZerlegungFsKennz($fskennz);
808        if ($debug >= 1) {echo "\n<p class='dbg'>Return Zerlegung: ".$retzer."</p>";}   
809        switch ($retzer) { // Returnwert der Zerlegung des FS-Kennz.
810        case 0: // leere Eingabe
811                if ($gfilter == 1) { // Die GUI ist bereits auf EINE Gemeinde gefiltert
812                        $trans="Liste der Gemarkungen";
813                        SuchGmkgName();
814                } else {
815                        $trans="Liste der Gemeinden";
816                        ListGemeinden();
817                }
818                break;
819        case 1:
820                $trans="Suche Gemarkungsname";
821                $gnr=SuchGmkgName();
822                if ($gnr > 0) {
823                        $trans="1 Gemarkung, Fluren dazu";
824                        $zgemkg6=$gnr;
825                        $zgemkg4=substr($zgemkg6, 2);
826                        EineGemarkung(false);
827                }
828                break;
829        case 2:
830                $trans="Fluren in Gemarkung";
831                EineGemarkung(true);
832                break;
833        case 3:
834                if ($phist)     {
835                        $trans="historische Flurst. in Flur";
836                        HistFlur();
837                } else {
838                        $trans="Flurst&uuml;cke in Flur";
839                        EineFlur();
840                }
841                break;
842        case 4:
843                if ($phist)     {
844                        $trans="historisches Flurst&uuml;ck";
845                        HistFlurstueck();
846                } else {
847                        $trans="Flurst&uuml;ck";
848                        EinFlurstueck();
849                }
850                break;
851        case 5:
852                if ($phist) {
853                        $trans="historisches Flurst&uuml;ck";
854                        HistFlurstueck();
855                } else {
856                        $trans="Flurst&uuml;ck";
857                        EinFlurstueck();
858                }       
859                break;
860        case 9:
861                $trans="falsche Eingabe";
862                echo "\n<p class='err'>Bitte ein Flurst&uuml;ckskennzeichen eingegeben, Format 'gggg-fff-zzzz/nnn</p>";
863                break;
864        }
865}
866
867// Nach Durchlaufen des PHP-Scriptes die zuletzt ausgefÃŒhrte Transaktion im Kopf des Ergebnisrahmens anzeigen.
868// Dazu die im HTML-Header definierte Javascript-Function benutzen.
869// Alternativ wird auch aus dem Javascript "positionieren Karte" dieser Titel gesetzt.
870echo "
871<script type='text/javascript'>
872        transtitle('".$trans."');
873</script>";
874?>
875
876</body>
877</html>
Note: See TracBrowser for help on using the repository browser.