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

Revision 376, 28.3 KB checked in by frank.jaeger, 7 years ago (diff)

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