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

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