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

Revision 284, 25.5 KB checked in by frank.jaeger, 11 years ago (diff)

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