Context Navigation

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

Revision 334, 25.0 KB checked in by frank.jaeger, 10 years ago (diff)
Anpassung der Auskunft-Programme an variabel lange gml_id und Datenbanken mit "beendeten" Objekten.

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats: