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

Revision 356, 26.8 KB checked in by frank.jaeger, 4 years ago (diff)

ALKIS-Mapbender-Navigation umgestellt von .ico- auf .png-Grafiken.
Weitere kleine Korrekturen an ALKIS-Mapbender-Navigation.

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