source: trunk/data/mapbender/http/nav/alkisnav_fls.php @ 86

Revision 86, 16.8 KB checked in by frank.jaeger, 13 years ago (diff)

ALKIS-Navigation fuer Mapbender erweitert: EPSG aus Mapframe entnehmen, Liste der Gemeinden oder Amtsgerichte bei leerer Eingabe
Line 
1<?php
2/* Version vom
3        13.01.2011
4        25.03.2011 Filter als Gemeinde-Liste
5        12.04.2011 epsg in Link, transform nur wenn notwendig
6*/
7import_request_variables("PG");
8include("../../conf/alkisnav_conf.php"); $con_string = "host=".$host." port=".$port." dbname=".$dbname.$gkz." user=".$user." password=".$password;
9$con = pg_connect ($con_string) or die ("Fehler bei der Verbindung zur Datenbank ".$dbname);
10?>
11
12<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
13<html>
14<head>
15        <meta http-equiv="cache-control" content="no-cache">
16        <meta http-equiv="pragma" content="no-cache">
17        <meta http-equiv="expires" content="0">
18        <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
19        <title>ALKIS-Suche Flurst&uuml;ck</title>
20        <link rel="stylesheet" type="text/css" href="alkisnav.css">
21</head>
22<body>
23
24<?php
25
26function is_ne_zahl($wert) {
27        // Prueft, ob ein Wert ausschließlich aus den Zahlen 0 bis 9 besteht
28        if (trim($wert, "0..9") == "") {return true;} else {return false;}
29}
30
31function ZerlegungFsKennz($fskennz) {
32// Das eingegebene FlurstÃŒcks-Kennzeichen auseinander nehmen, Erwartet wird gggg-fff-zzzz/nnn
33        global $debug, $zgemkg, $zflur, $zzaehler, $znenner;            $arr = explode("-", $fskennz, 4);
34        $zgemkg=trim($arr[0]);
35        $zflur=trim($arr[1]);
36        $zfsnr=trim($arr[2]);
37        if ($zgemkg == "") {
38                return 0; // Gemeinden oder Gemarkungen listen
39        } elseif ( ! is_ne_zahl($zgemkg)) {
40                return 1; // Such Name
41        } elseif ($zflur == "") {
42                return 2; // G-Nr
43        } elseif ( ! is_ne_zahl($zflur)) {
44                echo "<p class='err>Die Flurnummer '".$zflur."' ist nicht numerisch</p>";
45                return 9;
46        } elseif ($zfsnr == "") {               
47                return 3; // Flur                               
48        } else {
49                $zn=explode("/", $zfsnr, 2);
50                $zzaehler=trim($zn[0]);
51                $znenner=trim($zn[1]);                         
52                if ( ! is_ne_zahl($zzaehler)) {
53                        echo "<p class='err>FlurstÃŒcksnummer '".$zzaehler."' ist nicht numerisch</p>";
54                        return 9;
55                } elseif ($znenner == "") {
56                        return 4;
57                } elseif (is_ne_zahl($znenner)) {
58                        return 5;                                                               
59                } else {
60                        echo "<p class='err>FlurstÃŒcks-Nenner '".$znenner."' ist nicht numerisch</p>";
61                        return 9;
62                }
63        }
64}
65
66function ListGemeinden() {
67        // bei Leereingabe die Gemeinden anlisten
68        global $con, $gkz, $gemeinde, $epsg, $debug, $gfilter;
69        $linelimit=50;
70        $sql ="SELECT DISTINCT g.gemeinde AS key, g.bezeichnung FROM ax_gemeinde g ";
71        $sql.="JOIN gemeinde_gemarkung v ON g.regierungsbezirk=v.regierungsbezirk AND g.kreis=v.kreis AND g.gemeinde=v.gemeinde ";
72        // "ax_gemeinde" enthÀlt mehrfache Gemeinde-Schluessel (Filtern regierungsbezirk, kreis)       
73        // "gemeinde_gemarkung" enthaelt nur gefÃŒllte Gemarkungen aber Gemeinde mehrfach
74        switch ($gfilter) {
75                case 1: // Einzelwert
76                        $sql.="WHERE g.gemeinde=".$gemeinde." ";
77                        break;
78                case 2: // Liste
79                        $sql.="WHERE g.gemeinde in (".$gemeinde.") ";
80                        break;
81                default: // kein Filter
82                        break;
83        }
84        $sql.=" ORDER BY g.bezeichnung LIMIT $1 ;";
85        $res=pg_prepare("", $sql);
86        $res=pg_execute("", array($linelimit));
87        if (!$res) {
88                echo "\n<p class='err'>Fehler bei Gemeinde</p>";
89                if ($debug >= 3) {echo "\n<p class='err'>".$sql."</p>";}
90                return 0;
91        }
92        $cnt = 0;
93        while($row = pg_fetch_array($res)) {
94                $stadt=htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8");
95                $bez=urlencode($row["bezeichnung"]);  // Uebergeben an ListGmkgInGemeinde
96                $gnr=$row["key"];                 echo "\n<div class='gm' title='Gemeinde'>";
97                        echo "\n\t\t<img class='nwlink' src='ico/Gemeinde.ico' width='16' height='16' alt='Stadt'>";
98                        echo " Gem. <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;gm=".$gnr."&amp;bez=".$bez."'>";               
99                        echo  " ".$stadt."</a> (".$gnr.")";
100                echo "\n</div>";
101                $cnt++;
102        }
103        if($cnt == 0){
104                echo "\n<p class='err'>Keine Gemeinde.</p>";
105        } elseif($cnt >= $linelimit) {
106                echo "\n<p title='Bitte eindeutiger qualifizieren'>... und weitere</p>";
107        } elseif($cnt == 1) { // Eindeutig!
108                return $gnr;
109        }
110        return 0;
111}
112
113function ListGmkgInGemeinde($gkey) {
114// Die (gefuellten) Gemarkungen zu einem Gemeinde-Key (aus Link) listen
115        global $con, $gkz, $gemeinde, $epsg, $debug, $gfilter, $bez;
116        $linelimit=70;
117        $sql ="SELECT g.gemarkungsnummer, g.bezeichnung ";
118        $sql.="FROM ax_gemarkung g JOIN gemeinde_gemarkung v ON g.gemarkungsnummer=v.gemarkung ";
119   $sql.="WHERE v.gemeinde= $1 ORDER BY g.bezeichnung LIMIT $2 ;";
120        $res=pg_prepare("", $sql);
121        $res=pg_execute("", array($gkey, $linelimit));
122        if (!$res) {
123                echo "\n<p class='err'>Fehler bei Gemarkungen</p>";
124                if ($debug >= 3) {echo "\n<p class='err'>".$sql."</p>";}
125                return 0;
126        }
127        // Hierarchie Dokumentieren, Gemeinde-Name?
128        echo "\n<div class='gm' title='Gemeinde'>";
129                echo "\n\t\t<img class='nwlink' src='ico/Gemeinde.ico' width='16' height='16' alt='Stadt'>";   
130                echo  " Gem. ".$bez." (".$gkey.")"; // .urldecode($bez). ??
131        echo "\n</div>";
132        $cnt = 0;
133        while($row = pg_fetch_array($res)) {
134                $gnam=htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8");
135                $gnr=$row["gemarkungsnummer"];                 echo "\n<div class='gk' title='Gemarkung'>";
136                        echo "\n\t\t<img class='nwlink' src='ico/Gemarkung.ico' width='16' height='16' alt='Gemarkung'>";
137                        echo " OT <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;fskennz=".$gnr."'>";             
138                        echo  " ".$gnam."</a> (".$gnr.")";
139                echo "\n</div>";
140                $cnt++;
141        }
142        if($cnt == 0){
143                echo "\n<p class='err'>Keine Gemarkung.</p>";
144        } elseif($cnt >= $linelimit) {
145                echo "\n<p title='Bitte eindeutiger qualifizieren'>... und weitere</p>";
146        } elseif($cnt == 1) { // Eindeutig!
147                return $gnr;
148        }
149        return 0;
150}
151
152function SuchGmkgName() {
153// Gemarkung suchen nach Name(-nsanfang)
154        global $con, $gkz, $gemeinde, $epsg, $debug, $fskennz, $gfilter;
155        $linelimit=120;
156        if(preg_match("/\*/",$fskennz)){
157                $match = trim(preg_replace("/\*/i","%", strtoupper($fskennz)));
158        } else {
159                $match = trim($fskennz)."%";
160        }       
161        $sql ="SELECT v.gemeindename, g.gemarkungsnummer, g.bezeichnung ";
162        $sql.="FROM ax_gemarkung g JOIN gemeinde_gemarkung v ON g.gemarkungsnummer=v.gemarkung ";
163   $sql.="WHERE bezeichnung ILIKE $1 ";
164        switch ($gfilter) {
165                case 1: // Einzelwert
166                        $sql.="AND v.gemeinde=".$gemeinde." ";
167                        break;
168                case 2: // Liste
169                        $sql.="AND v.gemeinde in (".$gemeinde.") ";
170                        break;
171                default: // kein Filter
172                        break;
173        }
174        $sql.=" ORDER BY g.bezeichnung LIMIT $2 ;";
175        $v=array($match, $linelimit);
176        $res=pg_prepare("", $sql);
177        $res=pg_execute("", $v);
178        if (!$res) {
179                echo "\n<p class='err'>Fehler bei Gemarkung</p>";
180                if ($debug >= 3) {echo "\n<p class='err'>".$sql."</p>";}
181                return 0;
182        }
183        $cnt = 0;
184        while($row = pg_fetch_array($res)) {
185                $gnam=htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8");
186                $gnr=$row["gemarkungsnummer"];
187                $stadt=$row["gemeindename"];                 echo "\n<div class='gk' title='Gemarkung'>";
188                        echo "\n\t\t<img class='nwlink' src='ico/Gemarkung.ico' width='16' height='16' alt='Gemarkung'>";
189                        echo " OT <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;fskennz=".$gnr."'>";             
190                        echo  " ".$gnam."</a> (".$gnr.")";
191                        switch ($gfilter) {
192                                case 0: // Kein Filter
193                                        echo " ".$stadt;
194                                        break;
195                                case 2: // Liste
196                                        echo " ".$stadt;
197                                        break;
198                                default: // Einzelwert
199                                        break;
200                        }
201                echo "\n</div>";
202                $cnt++;
203        }
204        if($cnt == 0){
205                echo "\n<p class='err'>Keine Gemarkung.</p>";
206        } elseif($cnt >= $linelimit) {
207                echo "\n<p title='Bitte eindeutiger qualifizieren'>... und weitere</p>";
208        } elseif($cnt == 1) { // Eindeutig!
209                return $gnr;
210        }
211        return 0;
212}
213
214function EineGemarkung($AuchGemkZeile) {
215        // Kennzeichen bestehend nur aus Gemarkung-SchlÃŒssel wurde eingegeben
216        global $con, $gkz, $gemeinde, $epsg, $debug, $zgemkg;
217        $linelimit=120; // max. Fluren je Gemarkung
218        if ($AuchGemkZeile) {
219                $sql ="SELECT bezeichnung FROM ax_gemarkung g WHERE g.gemarkungsnummer= $1 ;"; // WHERE f.land= ?
220                $v=array($zgemkg);
221                $res=pg_prepare("", $sql);
222                $res=pg_execute("", $v);
223                if (!$res) {echo "\n<p class='err'>Fehler bei Gemarkung.</p>";}
224                $zgmk=0;
225                while($row = pg_fetch_array($res)) {   
226                        $gmkg=$row["bezeichnung"];
227                        $zgmk++;
228                }
229                if ($zgmk == 0) {
230                        echo "\n<div class='gk' title='Gemarkung'>";
231                                echo "\n\t\t<p class='err'><img class='nwlink' src='ico/Gemarkung.ico' width='16' height='16' alt='Gemarkung'>";
232                                        echo  " Gemarkung ".$zgemkg." ist unbekannt.</p>";
233                        echo "\n</div>";
234                        return;
235                }
236                // > 1 auch möglich?
237                echo "\n<div class='gk' title='Gemarkung'>";
238                        echo "\n\t\t<img class='nwlink' src='ico/Gemarkung.ico' width='16' height='16' alt='Gemarkung'> ";
239                        echo " OT <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;fskennz=".$zgemkg."'>";           
240                        echo $gmkg."</a>  (".$zgemkg.")"; // in Gemeinde?
241                echo "\n</div>";
242        }
243        $sql ="SELECT gemarkungsteilflur AS flur FROM ax_gemarkungsteilflur f ";
244        $sql.="WHERE gemarkung= $1 ORDER BY gemarkungsteilflur LIMIT $2 ;";     // WHERE f.land= ?
245        $v=array($zgemkg, $linelimit);
246        $res=pg_prepare("", $sql);
247        $res=pg_execute("", $v);
248        if (!$res) {echo "\n<p class='err'>Fehler bei Flur.</p>";}
249        $zfl=0;
250        while($row = pg_fetch_array($res)) {   
251                $flur=$row["flur"];
252                echo "\n<div class='fl' title='Flur'>";
253                        echo "\n\t\t<img class='nwlink' src='ico/Flur.ico' width='16' height='16' alt='Flur'> ";
254                        echo "Flur<a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;fskennz=".$zgemkg."-".$flur."'>&nbsp;".$flur."&nbsp;</a>";
255                echo "\n</div>";
256                $zfl++;
257        }
258        if($zfl == 0) {
259                echo "\n<p class='err'>Keine Flur.</p>";
260        } elseif($cnt >= $linelimit) {
261                echo "\n<p>... und weitere</p>";
262        }
263        return;
264}
265
266function EineFlur() {
267        // Kennzeichen aus Gemarkung und FlurNr wurde eingegeben
268        global $con, $gkz, $gemeinde, $epsg, $debug, $scalefs, $auskpath, $zgemkg, $zflur;
269        $linelimit=600; // Wie groß kann eine Flur sein?
270        $sql ="SELECT bezeichnung FROM ax_gemarkung g WHERE g.gemarkungsnummer= $1 ;";
271        $v=array($zgemkg);
272        $res=pg_prepare("", $sql);
273        $res=pg_execute("", $v);
274        if (!$res) {echo "\n<p class='err'>Fehler bei Gemarkung.</p>";}
275        $zgmk=0;
276        while($row = pg_fetch_array($res)) {   
277                $gmkg=$row["bezeichnung"];
278                $zgmk++;
279        }
280        if ($zgmk == 0) {
281                echo "\n<div class='gk' title='Gemarkung'>";
282                        echo "\n\t\t<p class='err'><img class='nwlink' src='ico/Gemarkung.ico' width='16' height='16' alt='Gemarkung'>";
283                                echo  " Gemarkung ".$zgemkg." ist unbekannt.</p>";
284                echo "\n</div>";
285                return;
286        }
287        echo "\n<div class='gk' title='Gemarkung'>";
288                echo "\n\t\t<img class='nwlink' src='ico/Gemarkung.ico' width='16' height='16' alt='Gemarkung'>";
289                echo " OT <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;fskennz=".$zgemkg."'> ".$gmkg." (".$zgemkg.")</a>";
290        echo "\n</div>";
291        echo "\n<div class='fl' title='Flur'>";
292                echo "\n\t\t<img class='nwlink' src='ico/Flur.ico' width='16' height='16' alt='Flur'> ";
293                echo "Flur <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;fskennz=".$zgemkg."-".$zflur."'> ".$zflur."</a>";
294        echo "\n</div>";
295
296        $sql ="SELECT f.gml_id, f.flurnummer, f.zaehler, f.nenner, f.gemeinde, ";
297        //      $sql.="x(st_transform (st_centroid(f.wkb_geometry), ".$epsg.")) AS x, ";
298        //      $sql.="y(st_transform (st_centroid(f.wkb_geometry), ".$epsg.")) AS y ";
299        if($epsg == "25832") { // Transform nicht notwendig
300                $sql.="x(st_Centroid(f.wkb_geometry)) AS x, ";
301                $sql.="y(st_Centroid(f.wkb_geometry)) AS y ";
302        }
303        else { 
304                $sql.="x(st_transform(st_Centroid(f.wkb_geometry), ".$epsg.")) AS x, ";
305                $sql.="y(st_transform(st_Centroid(f.wkb_geometry), ".$epsg.")) AS y ";                 
306        }
307   $sql.="FROM ax_flurstueck f WHERE f.gemarkungsnummer= $1 AND f.flurnummer= $2 ";
308        $sql.="ORDER BY f.zaehler, f.nenner LIMIT $3 ;"; // WHERE f.land= ?
309        $v=array($zgemkg, $zflur, $linelimit);
310        $res=pg_prepare("", $sql);
311        $res=pg_execute("", $v);
312        if (!$res) {echo "\n<p class='err'>Fehler bei Flur.</p>";}
313        $zfs=0;
314        while($row = pg_fetch_array($res)) {   
315                $fs_gml=$row["gml_id"];
316                $flur=$row["flurnummer"];
317                $fskenn=$row["zaehler"];
318                if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];} // Bruchnummer
319                $x=$row["x"];
320                $y=$row["y"];
321                echo "\n<div class='fs'>";
322                        echo "\n\t<a title='Nachweis' target='_blank' href='".$auskpath."alkisfsnw.php?gkz=".$gkz."&amp;gmlid=".$fs_gml."'>";
323                                echo "\n\t\t<img class='nwlink' src='ico/Flurstueck_Link.ico' width='16' height='16' alt='FS'>";
324                        echo "\n\t</a> ";                       
325                        echo "\n\tFlst. <a title='Flurst&uuml;ck positionieren 1:".$scalefs."' href='";
326                                echo "javascript:parent.parent.parent.mb_repaintScale(\"mapframe1\",".$x.",".$y.",".$scalefs."); ";
327                                echo "parent.parent.hideHighlight();' ";
328                                echo "onmouseover='parent.parent.showHighlight(".$x.",".$y.")' ";
329                                echo "onmouseout='parent.parent.hideHighlight()'>&nbsp;".$fskenn."&nbsp;</a>";
330                echo "\n</div>";
331                $zfs++;
332        }
333        if($zfs == 0) {
334                echo "\n<p class='err'>Kein Flurst&uuml;ck.</p>";
335        } elseif($zfs >= $linelimit) {
336                echo "\n<p>... und weitere</p>";
337        }
338        return;
339}
340
341function EinFlurstueck() {
342        // FlurstÃŒckskennzeichen komplett bis zum Zaehler eingegeben
343        // Sonderfall: bei Bruchnummer, mehrere Nenner zum Zaehler
344        global $con, $gkz, $debug, $scalefs, $epsg, $auskpath, $zgemkg, $zflur, $zzaehler, $znenner;
345
346        $sql ="SELECT f.gml_id, f.flurnummer, f.zaehler, f.nenner, f.gemeinde, ";
347        //      $sql.="x(st_transform (st_centroid(f.wkb_geometry), ".$epsg.")) AS x, ";
348        //      $sql.="y(st_transform (st_centroid(f.wkb_geometry), ".$epsg.")) AS y, ";
349        if($epsg == "25832") { // Transform nicht notwendig
350                $sql.="x(st_Centroid(f.wkb_geometry)) AS x, ";
351                $sql.="y(st_Centroid(f.wkb_geometry)) AS y, ";
352        }
353        else { 
354                $sql.="x(st_transform(st_Centroid(f.wkb_geometry), ".$epsg.")) AS x, ";
355                $sql.="y(st_transform(st_Centroid(f.wkb_geometry), ".$epsg.")) AS y ";                 
356        }
357
358        $sql.="g.gemarkungsnummer, g.bezeichnung ";
359   $sql.="FROM ax_flurstueck f JOIN ax_gemarkung g ON f.land=g.land AND f.gemarkungsnummer=g.gemarkungsnummer ";
360        $sql.="WHERE f.gemarkungsnummer= $1 AND f.flurnummer= $2 AND f.zaehler= $3 ";
361        If ($znenner != "") {$sql.="AND f.nenner=".$znenner." ";} // wie prepared?
362        $sql.="ORDER BY f.zaehler, f.nenner;"; // WHERE f.land= ?
363        $v=array($zgemkg, $zflur, $zzaehler);
364        $res=pg_prepare("", $sql);
365        $res=pg_execute("", $v);
366        if (!$res) {echo "\n<p class='err'>Fehler bei Flurst&uuml;ck.</p>";}
367        $zfs=0;
368        while($row = pg_fetch_array($res)) {   
369                $fs_gml=$row["gml_id"];
370                $gmkg=$row["bezeichnung"];
371                $flur=$row["flurnummer"];
372                $fskenn=$row["zaehler"];
373                if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];} // Bruchnummer
374                $x=$row["x"];
375                $y=$row["y"];
376                echo "\n<div class='fs'>";
377                        echo "\n\t<a title='Nachweis' target='_blank' href='".$auskpath."alkisfsnw.php?gkz=".$gkz."&amp;gmlid=".$fs_gml."'>";
378                                echo "\n\t\t<img class='nwlink' src='ico/Flurstueck_Link.ico' width='16' height='16' alt='FS'>";
379                        echo "\n\t</a> ";               
380                        echo "\n\tFlst. <a title='Flurst&uuml;ck positionieren 1:".$scalefs."' href='";
381                                echo "javascript:parent.parent.parent.mb_repaintScale(\"mapframe1\",".$x.",".$y.",".$scalefs."); ";
382                                echo "parent.parent.hideHighlight();' ";
383                                echo "onmouseover='parent.parent.showHighlight(".$x.",".$y.")' ";
384                                echo "onmouseout='parent.parent.hideHighlight()'>";
385                        echo $gmkg." ".$flur."-".$fskenn."</a>";
386                echo "\n</div>";
387                $zfs++;
388        }
389        if($zfs == 0) {echo "\n<p class='err'>Kein Flurst&uuml;ck.</p>";}
390        return;
391}
392
393// ===========
394// Start hier!
395// ===========
396if(isset($epsg)) {
397        if ($debug >= 2) {echo "<p>aktueller EPSG='".$epsg."'</p>";     } // aus MB
398        $epsg = str_replace("EPSG:", "" , $_REQUEST["epsg"]);   
399} else {
400        if ($debug >= 1) {echo "<p class='err'>kein EPSG gesetzt</p>";}
401        $epsg=$gui_epsg; // aus Conf
402}
403if ($debug >= 2) {
404        echo "<p>Filter Gemeinde = ".$gemeinde."</p>";
405}
406if ($gemeinde == "") {
407        $gfilter = 0; // ungefiltert
408} elseif(strpos($gemeinde, ",") === false) {
409        $gfilter = 1; // Einzelwert
410} else {
411        $gfilter = 2; // Liste
412}
413
414if(isset($gm)) { // Self-Link aus Gemeinde-Liste
415        $gnr=ListGmkgInGemeinde($gm); // Gemarkungen zu dieser Gemeinde listen
416        if ($gnr > 0) {
417                $zgemkg=$gnr;
418                EineGemarkung(false);
419        };     
420} else {
421        // Die Formular-Eingabe interpretieren (kann auch ein Link sein)
422        switch (ZerlegungFsKennz($fskennz)) {
423        case 0: // leere Eingabe
424                if ($gfilter == 1) { // Die GUI ist bereits auf eine Gemeinde gefiltert
425                        SuchGmkgName(); // Gemarkungen listen
426                } else {
427                        ListGemeinden(); // alle Gemeinden Listen
428                }
429                break;
430        case 1:
431                if ($debug >= 2) {echo "<p>Gemarkungsname ".$zgemkg."</p>";}
432                $gnr=SuchGmkgName();
433                if ($gnr > 0) {
434                        $zgemkg=$gnr;
435                        EineGemarkung(false);
436                };     
437                break;
438        case 2:
439                if ($debug >= 2) {echo "<p>Gemarkungsnummer ".$zgemkg."</p>";} 
440                EineGemarkung(true);
441                break;
442        case 3:
443                if ($debug >= 2) {echo "<p>Gemarkung ".$zgemkg." Flur ".$zflur."</p>";}
444                EineFlur();
445                break;
446        case 4:
447                if ($debug >= 2) {echo "<p>Gemarkung ".$zgemkg." Flur ".$zflur." FlurstÃŒck ".$zzaehler."</p>";}
448                EinFlurstueck();
449                break;
450        case 5:
451                if ($debug >= 2) {echo "<p>Gemarkung ".$zgemkg." Flur ".$zflur." FlurstÃŒck ".$zzaehler."/".$znenner."</p>";}
452                EinFlurstueck();
453                break;
454        case 9:
455                echo "<p class='err'>Bitte ein Flurst&uuml;ckskennzeichen eingegeben, Format 'gggg-fff-zzzz/nnn</p>";
456                break;
457        }
458}
459 ?>
460
461</body>
462</html>
Note: See TracBrowser for help on using the repository browser.