Context Navigation

← Previous Revision
Next Revision →
Normal
Revision Log

alkisnav_fls.php @ 431

Revision 425, 30.0 KB checked in by frank.jaeger, 2 years ago (diff)
Web-GIS-Auskunft und Mapbender2-Navigation: neue Konfigurations-Parameter und verbessertes Grundbuch-Modul

Rev	Line
[330]	1	<?php
[399]	2	/* Navigation mit ALKIS-Daten im Mapbender 2 - Teil FlurstÃŒck-Suche
	3	Datenbank-Struktur aus dem norGIS-ALKIS-Importer.
[376]	4	Version vom
	5	2016-02-11 Version fÃŒr norGIS-ALKIS-Import aus Version Classic abgeleitet.
	6	2016-03-02 $gemeinde auf feste LÃ€nge korrigieren
	7	2016-11-28 Gemeinsam genutzte Datenbanken ermÃ¶glichen
[399]	8	2017-03-06 Korrektur: Gemeinde-Suche bei Kreis-DB in norGIS-Struktur
	9	2018-02-15 Strikte Input-Validation der Parameter
[413]	10	2018-11-12 Full-Schema
[420]	11	2019-02-12 Sortierung FlurstÃŒcksnummer wieder hergestellt (kaputt gegangen bei Umstellung Full-Schema)
[425]	12	2021-11-24 fÃŒhrende '0' Trimmen bei Flur, ZÃ€hler, Nenner in der Zerlegung
	13	2021-12-29 Sortierung der Nachfolger eines hist. FS
	14
	15	ToDo:
	16	Vermeiden der Tabellen "gema_shl" und "gem_shl". Das sind NorBIT/ALB-Relikte, die irgendwann entfallen werden.
	17	Besser primÃ€re ax_*-Tabellen verwenden.
[85]	18	*/
[356]	19
[399]	20	$cntget = extract($_GET);
[356]	21
[399]	22	// Input-Validation
	23	// Parameter aus Konfiguration oder Links sollten keine "Eingabefehler" enthalten.
	24	// Entweder falsche Konfiguration oder Hack. Programm sofort abbrechen.
	25	if (!isset($gkz) or !preg_match('#^[0-9]{3}$#', $gkz)) {die("Eingabefehler gkz");} // Mandant, muss!
	26
	27	if(isset($epsg)) { // SRS, kann. Wenn als Parameter ...
	28	if (preg_match('#^EPSG:[0-9]{4,5}$#', $epsg)) { // Prefix aus MB-Mapframe
	29	$epsg = str_replace("EPSG:", "" , $epsg);
	30	} elseif (!preg_match('#^[0-9]{4,5}$#', $epsg)) { // nur die Nummer
	31	die("Eingabefehler epsg");
	32	}
	33	} else { // Nichts ÃŒbergeben
	34	$epsg=$gui_epsg; // dann default aus Conf
	35	}
	36
	37	// Filter-Parameter fÃŒr Gemeindenummer in Kreis-Datenbank aus der Mapbender GUI-Konfiguration
	38	if (isset($gemeinde) AND trim($gemeinde, '0') != "") {
	39	if (!preg_match('#^[0-9]{1,3}$#', $gemeinde)) {die("Eingabefehler Gemeinde");}
	40	$gemeinde=str_pad($gemeinde, 3, "0", STR_PAD_LEFT);
	41	if(strpos($gemeinde, ",") === false) {
	42	$gfilter = 1; // Einzelwert
	43	} else {
	44	$gfilter = 2; // Liste
	45	}
	46	} else { // Kein Filter
	47	$gemeinde = "";
	48	$gfilter = 0;
	49	}
	50
	51	// Suche nach historischen FS
	52	if(isset($hist)) { // Wenn ÃŒbergeben
	53	if (!preg_match('#^[jn]{1}$#', $hist)) {die("Eingabefehler hist");} // Ja/Nein
	54	if ($hist == "j") {
	55	$phist = true; // als Boolean
	56	} else {
	57	$phist = false;
	58	}
	59	} else { // Nichts ÃŒbergeben
	60	$phist = false; // default = aktuelle FS
	61	}
	62
	63	// Gemeinde-Nummer als Link aus der Baumstruktur
	64	if (isset($gm) ) {
	65	if (!preg_match('#^[0-9]{8}$#', $gm)) {die("Eingabefehler gm");}
	66	} else {
	67	$gm=""; // Var. init.
	68	}
	69
[282]	70	include("../../conf/alkisnav_conf.php");
[330]	71	include("alkisnav_fkt.php"); // Funktionen
[376]	72	$con = pg_connect ($dbconn) or die ("Fehler bei der Verbindung zur Datenbank ".$dbpre.$dbgkz);
[356]	73
[278]	74	echo <<<END
[376]	75	<!doctype html>
	76	<html lang="de">
[330]	77	<head>
	78	<meta http-equiv="cache-control" content="no-cache">
	79	<meta http-equiv="pragma" content="no-cache">
	80	<meta http-equiv="expires" content="0">
[376]	81	<meta charset="utf-8">
[330]	82	<title>ALKIS-Suche Flurstück</title>
[282]	83	<link rel="stylesheet" type="text/css" href="alkisnav.css">
[129]	84	<script type="text/javascript">
	85	function imFenster(dieURL) {
	86	var link = encodeURI(dieURL);
	87	window.open(link,'','left=10,top=10,width=620,height=800,resizable=yes,menubar=no,toolbar=no,location=no,status=no,scrollbars=yes');
	88	}
[278]	89	function transtitle(trans) {
	90	document.getElementById('transaktiontitle').innerHTML = trans;
	91	}
[129]	92	</script>
[330]	93	</head>
[66]	94	<body>
[280]	95	<a href='javascript:history.back()'>
[356]	96	<img src="ico/zurueck.png" width="16" height="16" alt="<<" title="zurück">
	97	</a>
	98	<span title='zuletzt ausgeführte Aktion'>
	99	<dfn class='title' id='transaktiontitle'></dfn>
	100	</span>
[66]	101
[278]	102	END;
	103
[126]	104	function h_hinten($zahl) {
	105	// Testen: Wurde an eine Zahl ein "h" angehÃ€ngt?
[376]	106	// Wenn ja, dann Schalter setzen und nur den numerischen Teil zurÃŒck geben.
[126]	107	global $phist, $debug;
[128]	108	$zahl=trim($zahl);
[126]	109	$zlen=strlen($zahl) - 1;
[128]	110	if ($zlen > 0) {
[126]	111	$hinten = ucfirst(substr($zahl, $zlen, 1));
	112	if ($hinten == "H" ) {
	113	$vorn=trim(substr($zahl, 0, $zlen));
	114	if (is_ne_zahl($vorn)) { // Zahl und "H"
	115	$zahl = $vorn;
	116	$phist = true;
	117	}
	118	}
	119	}
	120	return $zahl;
	121	}
	122
[330]	123	function ZerlegungFsKennz($fskennz) {
[376]	124	// Das eingegebene FlurstÃŒcks-Kennzeichen auseinander nehmen. Erwartet wird (ll)gggg-fff-zzzz/nnn
	125	// Die Teile der Zerlegung werden ÃŒber die Global-Variablen "$z..." allen Functions bereit gestellt.
	126	// Der Returncode dieser Function steuert die weitere Verarbeitung.
	127	global $debug, $land, $zgemkg4, $zgemkg6, $zflur, $zzaehler, $znenner;
[348]	128	$arr = explode("-", $fskennz, 4); // an den Trenn-Strichen aufteilen
[376]	129
	130	// Gemarkung mit oder ohne Land davor? In der Eingabe soll beides zulÃ€ssig sein.
	131	// Bei den SQL-Abfragen in der norGIS-ALKIS-Importer Datenbankstruktur werden abwechselnd beide
	132	// Formate benÃ¶tigt: z.B. ax_gemarkungsteilflur.gemarkung -> 4stellig, gema_shl.gemashl -> 6stellig
	133	// Also gleich beide Formate vorhalten.
	134	$gemkg=trim($arr[0]);
	135
[356]	136	if (count($arr) > 1) {
[425]	137	$zflur=ltrim(h_hinten($arr[1]), '0');
[356]	138	if (count($arr) > 2) {
	139	$zfsnr=trim($arr[2]);
	140	} else {
	141	$zfsnr="";
	142	}
	143	} else {
	144	$zflur="";
	145	$zfsnr="";
	146	}
[376]	147	if ($debug > 1) {echo "<p class='dbg'>Gemkg: '".$gemkg."' Flur: '".$zflur."' NR: '".$zfsnr."'</p>";}
	148
	149	if ($gemkg == "") {
[86]	150	return 0; // Gemeinden oder Gemarkungen listen
[376]	151	} elseif ( ! is_ne_zahl($gemkg)) {
[66]	152	return 1; // Such Name
[376]	153	}
	154
	155	// Gemarkungs-NUMMER wurde eingegeben. Mit oder ohne Land davor?
	156	if (strlen($gemkg) == 4 ) { // Eingabe ohne Land
	157	$zgemkg4=$gemkg; // 4stellige Version ohne Land
	158	$zgemkg6=$land.$gemkg; // 6stellige Version mit Land
	159	} elseif (strlen($gemkg) == 6 ) { // Eingabe mit Land
	160	$zgemkg4=substr($gemkg, 2);
	161	$zgemkg6=$gemkg;
	162	if (substr($gemkg, 0, 2) != $land) { // Passt Eingabe zu Conf?
	163	echo "<p class='err'>Die 6-stellige Gemarkungsnummer '".$zgemkg6."' sollte mit Land '".$land."' beginnen.</p>";
	164	}
	165	} else { // weder noch
	166	$zgemkg4=$gemkg; // kann eigentlich nicht funktionieren
	167	$zgemkg6=$gemkg; // Nullen davor setzen?
	168	echo "<p class='err'>Die Gemarkungsnummer kann 4- oder 6-stellig (mit Land '".$land."') eingegeben werden.</p>";
	169	}
	170
	171	if ($zflur == "") { // keine Eingabe Flur-Nummer
	172	return 2; // also nur Gemarkungs-Nr eingegeben
[66]	173	} elseif ( ! is_ne_zahl($zflur)) {
[126]	174	echo "<p class='err'>Die Flurnummer '".$zflur."' ist nicht numerisch</p>";
[86]	175	return 9;
[376]	176	} elseif ($zfsnr == "") { // Flur eingegeben, aber keine FlurstÃŒcksnummer mehr
[66]	177	return 3; // Flur
	178	} else {
[376]	179	$zn=explode("/", $zfsnr, 2); // Bruchnummer?
[425]	180	$zzaehler=ltrim(h_hinten(trim($zn[0])), '0');
	181	if (count($zn) > 1) {
	182	$znenner=ltrim(h_hinten(trim($zn[1])), '0');
	183	} else {
	184	$znenner="";
	185	}
	186	// if ($debug > 1) {echo "<p class='dbg'>Gemkg: '".$gemkg."' Flur: '".$zflur."' Zaehler: '".$zzaehler."' Nenner: '".$znenner."'</p>";}
[66]	187	if ( ! is_ne_zahl($zzaehler)) {
[126]	188	echo "<p class='err'>FlurstÃŒcksnummer '".$zzaehler."' ist nicht numerisch</p>";
[86]	189	return 9;
[66]	190	} elseif ($znenner == "") {
	191	return 4;
	192	} elseif (is_ne_zahl($znenner)) {
	193	return 5;
	194	} else {
[126]	195	echo "<p class='err'>FlurstÃŒcks-Nenner '".$znenner."' ist nicht numerisch</p>";
[86]	196	return 9;
[66]	197	}
	198	}
	199	}
	200
[282]	201	function flurstueckskoordinaten($gml) {
	202	// Die Koordinaten zu einem FlurstÃŒck aus der Datenbank liefern
[283]	203	// Parameter: gml_id des FlurstÃŒcke
	204	// Return: Array(x,y)
[282]	205	global $epsg;
	206	$sqlk ="SELECT ";
	207	if($epsg == "25832") { // Transform nicht notwendig
[356]	208	$sqlk.="st_x(st_Centroid(wkb_geometry)) AS x, ";
	209	$sqlk.="st_y(st_Centroid(wkb_geometry)) AS y ";
[282]	210	} else {
[356]	211	$sqlk.="st_x(st_transform(st_Centroid(wkb_geometry), ".$epsg.")) AS x, ";
	212	$sqlk.="st_y(st_transform(st_Centroid(wkb_geometry), ".$epsg.")) AS y ";
[128]	213	}
[330]	214	$sqlk.="FROM ax_flurstueck WHERE gml_id= $1 AND endet IS NULL;";
[282]	215	$v=array($gml);
	216	$resk=pg_prepare("", $sqlk);
	217	$resk=pg_execute("", $v);
	218	if (!$resk) {echo "\n<p class='err'>Fehler bei Koordinate.</p>";}
	219	$rowk = pg_fetch_array($resk);
	220	$koor=array("x" => $rowk["x"], "y" => $rowk["y"]);
	221	return $koor;
	222	}
	223
[376]	224	function zeile_flur($gkgnr, $flurnr, $histlnk, $aktuell) {
	225	// Eine Kopf-Zeile zur Flur ausgeben
	226	global $gkz, $gemeinde, $epsg;
[348]	227
[356]	228	if ($aktuell) {$cls=" aktuell";} else {$cls="";}
[283]	229	echo "\n<div class='fl".$cls."' title='Flur'>";
[356]	230	echo "\n\t\t<img class='nwlink' src='ico/Flur.png' width='16' height='16' alt='FL' title='Flur'> ";
[283]	231	$url=$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&gemeinde=".$gemeinde."&epsg=".$epsg."&fskennz=".$gkgnr."-".$flurnr;
	232	echo "<a title='Aktuelle Flurstücke suchen' href='".$url."'>Flur ".$flurnr." </a>";
[376]	233
[356]	234	if ($histlnk) { // Link zur Historie-Suche anbieten
	235	echo " <a class='hislnk' title='Historische Flurstücke der Flur suchen' href='".$url."&hist=j'>Hist.</a>";
[282]	236	}
	237	echo "\n</div>";
	238	return;
	239	}
	240
[283]	241	function zeile_hist_fs($fs_gml, $fskenn, $ftyp, $gknr, $flur, $aktuell) {
[282]	242	// Eine Zeile fÃŒr ein historisches FlurstÃŒck ausgeben
	243	global $gkz, $gemeinde, $epsg, $auskpath;
	244	if ($ftyp == "h") {
[356]	245	$ico="Flurstueck_Historisch_Lnk.png";
[282]	246	$titl="Historisches Flurstück";
	247	} else {
[356]	248	$ico="Flurstueck_Historisch_oR_Lnk.png";
[282]	249	$titl="Historisches Flurstück ohne Raumbezug";
	250	}
[356]	251	if ($aktuell) {$cls=" aktuell";} else {$cls="";}
[283]	252	echo "\n<div class='hi".$cls."' title='".$titl."'>";
[282]	253
	254	// Icon -> Buchnachweis
	255	echo "\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisfshist.php?gkz=".$gkz."&gmlid=".$fs_gml."\")'>";
[284]	256	echo "\n\t\t<img class='nwlink' src='ico/".$ico."' width='16' height='16' alt='Hist' title='".$titl."'>";
[282]	257	echo "\n\t</a>";
	258
	259	// Zeile -> tiefer in die Historie
	260	$flurl =$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&gemeinde=".$gemeinde."&epsg=".$epsg."&hist=j";
	261	$flurl.="&fskennz=".$gknr."-".$flur."-";
	262	echo "\n\thist. Flst. <a href='".$flurl.$fskenn."'>".$fskenn."</a>";
	263
[128]	264	echo "\n</div>";
[282]	265	return;
[128]	266	}
	267
[282]	268	function zeile_nachf_fs($gml, $gknr, $flur, $fskenn, $ftyp) {
[376]	269	// Eine Zeile fÃŒr ein Nachfolger-FlurstÃŒck eines hist. Fs. ausgeben
[282]	270	global $gkz, $gemeinde, $epsg, $auskpath;
[376]	271
[282]	272	$fs=$gknr."-".$flur."-".$fskenn;
	273	switch ($ftyp) {
[283]	274	case "a": // eine FS-Zeile mit Link ausgeben (EinrÃŒckung css passt nicht)
[282]	275	$koor=flurstueckskoordinaten($gml);
[283]	276	zeile_flurstueck($gml, $fskenn, $koor["x"], $koor["y"], "", "", false);
[282]	277	return;
	278	break;
	279	case "h":
[356]	280	$ico="Flurstueck_Historisch_Lnk.png";
[282]	281	$titl="Historisches Flurstück";
	282	$hisparm="&hist=j";
	283	$auskprog="alkisfshist";
	284	break;
	285	case "o":
[356]	286	$ico="Flurstueck_Historisch_oR_Lnk.png";
[282]	287	$titl="Historisches Flurstück ohne Raumbezug";
	288	$hisparm="&hist=j";
	289	$auskprog="alkisfshist";
	290	break;
	291	}
	292	// fÃŒr die Hist.-FÃ€lle:
	293	echo "\n<div class='hn' title='Nachfolger: ".$titl."'>";
	294	echo "\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath.$auskprog.".php?gkz=".$gkz."&gmlid=".$gml."\")'>";
[284]	295	echo "\n\t\t<img class='nwlink' src='ico/".$ico."' width='16' height='16' alt='FS' title='Nachweis'>";
[425]	296	echo "\n\t</a> ";
	297	echo "hist. Flst. <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&gemeinde=".$gemeinde."&epsg=".$epsg."&fskennz=".$fs.$hisparm."'>".$fskenn."</a>";
[282]	298	echo "\n</div>";
	299	return;
	300	}
	301
[86]	302	function ListGemeinden() {
[376]	303	// Bei Leereingabe im Formular die berechtigte(n) Gemeinde(n) auflisten
[86]	304	global $con, $gkz, $gemeinde, $epsg, $debug, $gfilter;
[282]	305	$linelimit=60;
[330]	306
[376]	307	$sql ="SELECT trim(trailing from gemshl) as gemshl, gemname FROM gem_shl ";
[86]	308	switch ($gfilter) {
	309	case 1: // Einzelwert
[399]	310	$sql.="WHERE substring(gemshl from 6 for 3) = '".$gemeinde."' ";
	311	break;
[86]	312	case 2: // Liste
[399]	313	$sql.="WHERE substring(gemshl from 6 for 3) in ('".str_replace(",", "','", $gemeinde)."') ";
	314	break;
[282]	315	default: break;
[86]	316	}
[399]	317	$sql.="ORDER BY gemname LIMIT $1 ;";
[86]	318	$res=pg_prepare("", $sql);
	319	$res=pg_execute("", array($linelimit));
	320	if (!$res) {
	321	echo "\n<p class='err'>Fehler bei Gemeinde</p>";
[376]	322	if ($debug >= 3) {echo "\n<p class='dbg'>".$sql."</p>";} // ++Nur Entw.
[86]	323	return 0;
	324	}
[330]	325	$cnt = 0;
[86]	326	while($row = pg_fetch_array($res)) {
[376]	327	$gnr=$row["gemshl"];
	328	$gemeindename=$row["gemname"];
[399]	329	zeile_gemeinde($gnr, $gemeindename, false);
[330]	330	$cnt++;
[282]	331	}
[330]	332	// Foot
[282]	333	if($cnt == 0) {
[278]	334	echo "\n<p class='anz'>Keine Gemeinde.</p>";
[86]	335	} elseif($cnt >= $linelimit) {
[278]	336	echo "\n<p class='anz' title='Bitte eindeutiger qualifizieren'>".$cnt." Gemeinden ... und weitere</p>";
[86]	337	} elseif($cnt == 1) { // Eindeutig!
	338	return $gnr;
[278]	339	} else {
	340	echo "\n<p class='anz'>".$cnt." Gemeinden</p>";
[86]	341	}
[282]	342	return;
[86]	343	}
	344
[282]	345	function ListGmkgInGemeinde($gkey, $bez) {
	346	// Die Gemarkungen zu einem Gemeinde-Key (aus Link) listen
	347	global $con, $gkz, $gemeinde, $epsg, $debug, $gfilter;
[86]	348	$linelimit=70;
[282]	349
	350	// Head
[283]	351	zeile_gemeinde($gkey, $bez, true);
[282]	352
	353	// Body
[376]	354	$sql ="SELECT gemashl, trim(trailing from gemarkung) AS gemarkung FROM gema_shl WHERE substring(gemshl from 1 for 8) = $1 ORDER BY gemarkung LIMIT $2 ;";
[86]	355	$res=pg_prepare("", $sql);
	356	$res=pg_execute("", array($gkey, $linelimit));
	357	if (!$res) {
	358	echo "\n<p class='err'>Fehler bei Gemarkungen</p>";
[282]	359	return 1;
[86]	360	}
[330]	361	$cnt = 0;
[86]	362	while($row = pg_fetch_array($res)) {
[376]	363	$gnr=$row["gemashl"]; // 6stellig
	364	$gnam=$row["gemarkung"];
[283]	365	zeile_gemarkung($gnr, $gnam, false);
[330]	366	$cnt++;
	367	}
[282]	368	// Foot
[86]	369	if($cnt == 0){
[278]	370	echo "\n<p class='anz'>Keine Gemarkung.</p>";
[86]	371	} elseif($cnt >= $linelimit) {
[278]	372	echo "\n<p class='anz' title='Bitte eindeutiger qualifizieren'>".$cnt." Gemarkungen ... und weitere</p>";
[86]	373	} elseif($cnt == 1) { // Eindeutig!
	374	return $gnr;
[278]	375	} else {
	376	echo "\n<p class='anz'>".$cnt." Gemarkungen</p>";
[86]	377	}
[282]	378	return;
[86]	379	}
	380
[66]	381	function SuchGmkgName() {
[282]	382	// Gemarkung suchen nach Name(-nsanfang)
[86]	383	global $con, $gkz, $gemeinde, $epsg, $debug, $fskennz, $gfilter;
[66]	384	$linelimit=120;
[330]	385	if(preg_match("/\*/",$fskennz)){
	386	$match = trim(preg_replace("/\*/i","%", strtoupper($fskennz)));
[399]	387	// Durchsuchte Namenspalte ist rechts mit Leerstellen aufgefÃŒllt. Darum Wildcard am Ende erzwingen.
	388	if (substr($match, strlen($match), 1) != "%") {$match.="%";}
[330]	389	} else {
	390	$match = trim($fskennz)."%";
[376]	391	}
	392
	393	// Pass auf! GemeindeschlÃŒssel ist in den beiden SchlÃŒsseltabellen linksbÃŒndig gefÃŒllt,
	394	// aber unterschiedlich lang hinten mit Leerstellen aufgefÃŒllt.
[399]	395	$sql ="SELECT substring(g.gemshl from 1 for 8) AS gemshl, g.gemashl, trim(trailing from g.gemarkung) AS gemarkung, trim(trailing from s.gemname) AS gemname "
	396	."FROM gema_shl g JOIN gem_shl s ON substring(g.gemshl from 1 for 8) = substring(s.gemshl from 1 for 8) WHERE g.gemarkung ILIKE $1 ";
[376]	397
[85]	398	switch ($gfilter) {
	399	case 1: // Einzelwert
[376]	400	$sql.="AND substring(g.gemshl from 6 for 3)='".$gemeinde."'"; break;
[85]	401	case 2: // Liste
[376]	402	$sql.="AND substring(g.gemshl from 6 for 3) in ("."'".str_replace(",", "','", $gemeinde)."'".") "; break;
[85]	403	}
[376]	404	$sql.=" ORDER BY s.gemname, g.gemarkung LIMIT $2 ;";
	405
[66]	406	$v=array($match, $linelimit);
	407	$res=pg_prepare("", $sql);
	408	$res=pg_execute("", $v);
	409	if (!$res) {
	410	echo "\n<p class='err'>Fehler bei Gemarkung</p>";
[282]	411	return;
[66]	412	}
[282]	413	$cnt = 0;
[330]	414	$gwgem="";
[66]	415	while($row = pg_fetch_array($res)) {
[376]	416	$gemeindename=$row["gemname"];
[282]	417	if ($gwgem != $gemeindename) { // Gruppierung Gemeinde
	418	$gwgem = $gemeindename;
[376]	419	$skey=$row["gemshl"];
[283]	420	zeile_gemeinde($skey, $gemeindename, false);
[282]	421	}
[376]	422	$gnam=$row["gemarkung"];
	423	$gnr=$row["gemashl"]; // 6stellig
[283]	424	zeile_gemarkung($gnr, $gnam, false); // wenn am Ende nur ein Treffer, dann aktuell=true
[330]	425	$cnt++;
	426	}
[282]	427	// Foot
[66]	428	if($cnt == 0){
[278]	429	echo "\n<p class='anz'>Keine Gemarkung.</p>";
[376]	430	if ($debug > 1) {
[425]	431	/* // Nach Umstellung auf NorGIS-Struktur muss im Mapbender die Gemeinde 3stellig konfiguriert werden
[376]	432	if (strlen($gemeinde) < 3) {
	433	echo "<p class='err'>URL-Parameter &gemeinde=nnn im Mapbender gazetteer_alkis.SRC muss 3stellig sein!<br>Ist aber '".$gemeinde."'.</p>";
[425]	434	} */
[376]	435	if ($debug > 2) {echo "<p class='dbg'>SQL=<br>".$sql."<br>$1 = ".$match."</p>";}
	436	}
[66]	437	} elseif($cnt >= $linelimit) {
[278]	438	echo "\n<p class='anz' title='Bitte eindeutiger qualifizieren'>".$cnt." Gemarkungen ... und weitere</p>";
[66]	439	} elseif($cnt == 1) { // Eindeutig!
[376]	440	return $gnr; // 6stellige Gemarkungsnummer!
[278]	441	} else {
	442	echo "\n<p class='anz'>".$cnt." Gemarkungen</p>";
[66]	443	}
[282]	444	return;
[66]	445	}
	446
[376]	447	function gg_head($gkgnr6, $gkgaktuell) {
	448	// Gemeinde und Gemarkung (G+G) Kopf-Zeilen ausgeben
	449	// Parameter: Gemarkungsnummer (6stellig), aktuell hervorzuhebende Zeile
[348]	450	// Return: true/false ob gefunden
	451
[376]	452	$sqlh ="SELECT g.gemarkung, substring(s.gemshl from 1 for 8) AS gemshl, trim(trailing from s.gemname) AS gemname
	453	FROM gema_shl g JOIN gem_shl s ON g.gemshl=s.gemshl WHERE g.gemashl = $1 ;";
[348]	454
[376]	455	$v=array($gkgnr6);
[282]	456	$resh=pg_prepare("", $sqlh);
	457	$resh=pg_execute("", $v);
[348]	458
[282]	459	if (!$resh) {echo "\n<p class='err'>Fehler bei Gemeinde und Gemarkung.</p>";}
[348]	460
	461	if ($rowh = pg_fetch_array($resh)) {
[376]	462	$gmkg=$rowh["gemarkung"];
	463	$skey=$rowh["gemshl"];
	464	$snam=$rowh["gemname"];
[348]	465	zeile_gemeinde($skey, $snam, false);
[376]	466	zeile_gemarkung($gkgnr6, $gmkg, $gkgaktuell);
[348]	467	return true;
	468	} else {
	469	echo "\n<div class='gk' title='Gemarkung'>";
[356]	470	echo "\n\t\t<img class='nwlink' src='ico/Gemarkung.png' width='16' height='16' alt='GKG' title='Gemarkung'>";
[376]	471	echo " Gemarkung ".$gkgnr6." nicht gefunden!\n</div>";
[348]	472	return false;
	473	}
[282]	474	}
	475
[66]	476	function EineGemarkung($AuchGemkZeile) {
[282]	477	// Kennzeichen bestehend nur aus Gemarkung-SchlÃŒssel wurde eingegeben
[376]	478	global $con, $gkz, $gemeinde, $epsg, $debug, $zgemkg4, $zgemkg6;
[282]	479	$linelimit=120; // max.Fluren/Gemkg
	480
	481	// Head
[348]	482	if ($AuchGemkZeile) { // Kopf davor ausgeben
[376]	483	if (! gg_head($zgemkg6, true)) {
[425]	484	if ($debug > 0) {echo "\n<p class='dbg'>Gem.-Gemkg.-Kopf abgebrochen</p>";}
[348]	485	return false;
	486	}
	487	}
	488
[282]	489	// Body
[425]	490	// ++ ToDo: (optional) nur Fluren ausgeben, in denen auch FlurstÃŒcke enthalten sind.
[376]	491	$sql ="SELECT gemarkungsteilflur AS flur FROM ax_gemarkungsteilflur f WHERE gemarkung= $1 ORDER BY gemarkungsteilflur LIMIT $2 ;";
	492	$v=array($zgemkg4, $linelimit);
[66]	493	$res=pg_prepare("", $sql);
	494	$res=pg_execute("", $v);
[348]	495
[66]	496	if (!$res) {echo "\n<p class='err'>Fehler bei Flur.</p>";}
	497	$zfl=0;
	498	while($row = pg_fetch_array($res)) {
[282]	499	$zflur=$row["flur"];
[376]	500	zeile_flur($zgemkg4, $zflur, false, false);
[66]	501	$zfl++;
	502	}
[348]	503
[282]	504	// Foot
[66]	505	if($zfl == 0) {
[278]	506	echo "\n<p class='anz'>Keine Flur.</p>";
	507	} elseif($zfl >= $linelimit) {
	508	echo "\n<p class='anz'>".$zfl." Fluren ... und weitere</p>";
	509	} elseif($zfl > 1) {
	510	echo "\n<p class='anz'>".$zfl." Fluren</p>";
[66]	511	}
[348]	512	return true;
[66]	513	}
	514
[126]	515	function EineFlur() {
[282]	516	// Kennzeichen aus Gemarkung und FlurNr wurde eingegeben, dazu aktuelle FlurstÃŒcke suchen
[376]	517	global $con, $gkz, $gemeinde, $epsg, $debug, $zgemkg4, $zgemkg6, $zflur;
[356]	518	$linelimit=900; // Wie groÃ kann eine Flur sein?
[66]	519
[282]	520	// Head
[376]	521	if (gg_head($zgemkg6, false)) {
	522	zeile_flur($zgemkg4, $zflur, true, true);
[348]	523	} else {
	524	return false;
	525	}
[282]	526
	527	// Body
[413]	528	$sql ="SELECT f.gml_id, f.flurnummer, f.zaehler, f.nenner, f.gemeindezugehoerigkeit_gemeinde, ";
[86]	529	if($epsg == "25832") { // Transform nicht notwendig
[189]	530	$sql.="st_x(st_Centroid(f.wkb_geometry)) AS x, ";
	531	$sql.="st_y(st_Centroid(f.wkb_geometry)) AS y ";
[128]	532	} else {
[189]	533	$sql.="st_x(st_transform(st_Centroid(f.wkb_geometry), ".$epsg.")) AS x, ";
	534	$sql.="st_y(st_transform(st_Centroid(f.wkb_geometry), ".$epsg.")) AS y ";
[86]	535	}
[376]	536
[420]	537	$sql.="FROM ax_flurstueck f WHERE f.gemarkungsnummer= $1 AND f.flurnummer= $2 AND endet IS NULL "
	538	."ORDER BY cast(f.zaehler AS integer), f.nenner LIMIT $3 ;";
[376]	539	$v=array($zgemkg4, $zflur, $linelimit);
[66]	540	$res=pg_prepare("", $sql);
	541	$res=pg_execute("", $v);
	542	if (!$res) {echo "\n<p class='err'>Fehler bei Flur.</p>";}
	543	$zfs=0;
	544	while($row = pg_fetch_array($res)) {
	545	$fs_gml=$row["gml_id"];
	546	$flur=$row["flurnummer"];
	547	$fskenn=$row["zaehler"];
[283]	548	if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];}
	549	zeile_flurstueck($fs_gml, $fskenn, $row["x"], $row["y"], "", "", false);
[66]	550	$zfs++;
	551	}
[306]	552
	553	// Flur-Foot
[282]	554	if($zfs == 0) {
[278]	555	echo "\n<p class='anz'>Kein Flurstück.</p>";
[66]	556	} elseif($zfs >= $linelimit) {
[278]	557	echo "\n<p class='anz'>".$zfs." Flurstücke... und weitere</p>";
	558	} elseif($zfs > 1) {
	559	echo "\n<p class='anz'>".$zfs." Flurstücke</p>";
[66]	560	}
[348]	561	return true;
[66]	562	}
	563
[126]	564	function HistFlur() {
[376]	565	// Kennzeichen aus Gemarkung und FlurNr wurde eingegeben, "h" dahinter.
[282]	566	// Die Flur nach historischen FlurstÃŒcken durchsuchen
[376]	567	global $con, $gkz, $gemeinde, $epsg, $debug, $scalefs, $auskpath, $land, $zgemkg4, $zgemkg6, $zflur;
[128]	568	$linelimit=500;
[126]	569
[282]	570	// Head
[376]	571	if (gg_head($zgemkg6, false)) {
	572	zeile_flur($zgemkg4, $zflur, true, true);
[348]	573	} else {
	574	return false;
	575	}
[126]	576
[282]	577	// Body
[356]	578	$whcl="WHERE flurstueckskennzeichen like $1 AND endet IS NULL ";
[376]	579
[413]	580	$sql ="SELECT 'h' AS ftyp, gml_id, cast(zaehler AS integer) AS zaehler, cast(nenner AS integer) AS nenner, nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueck ".$whcl
	581	."UNION SELECT 'o' AS ftyp, gml_id, cast(zaehler AS integer) AS zaehler, cast(nenner AS integer) AS nenner, nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueckohneraumbezug ".$whcl
[420]	582	."ORDER BY zaehler, nenner LIMIT $2 ;";
[376]	583
	584	$fskzwhere=$zgemkg6.str_pad($zflur, 3, "0", STR_PAD_LEFT)."%";
[330]	585	$v=array($fskzwhere, $linelimit);
[126]	586	$res=pg_prepare("", $sql);
	587	$res=pg_execute("", $v);
	588	if (!$res) {echo "\n<p class='err'>Fehler bei Historie Flur.</p>";}
	589	$zfs=0;
	590	while($row = pg_fetch_array($res)) {
	591	$ftyp=$row["ftyp"];
	592	$fs_gml=$row["gml_id"]; // fuer Buchausk.
	593	$fskenn=$row["zaehler"];
	594	if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];} // Bruchnummer
[376]	595	zeile_hist_fs($fs_gml, $fskenn, $ftyp, $zgemkg4, $zflur, false);
[126]	596	$zfs++;
	597	}
[282]	598
	599	// Foot
[126]	600	if($zfs == 0) {
[278]	601	echo "\n<p class='anz'>Kein historisches Flurstück.</p>";
	602	#if ($debug > 2) {echo "<p class='dbg'>SQL=<br>".$sql."<br>$1 = ".$fskzwhere."</p>";}
[129]	603	} elseif ($zfs >= $linelimit) {
[278]	604	echo "\n<p class='anz'>".$zfs." historische Flurst. ... und weitere</p>";
	605	} elseif($zfs > 1) {
	606	echo "\n<p class='anz'>".$zfs." historische Flurstücke</p>";
[126]	607	}
[348]	608	return true;
[126]	609	}
	610
[68]	611	function EinFlurstueck() {
[284]	612	// FlurstÃŒckskennzeichen wurde komplett bis zum Zaehler (oder Nenner) eingegeben
	613	// Sonderfall: bei Bruchnummer, mehrere Nenner zum Zaehler suchen wenn kein Nenner eingegeben wurde.
[376]	614	global $con, $gkz, $debug, $epsg, $gemeinde, $fskennz, $zgemkg4, $zgemkg6, $zflur, $zzaehler, $znenner;
[66]	615
[282]	616	// Head
[420]	617	if (gg_head($zgemkg6, false)) { // Kopfzeilen: Gemeinde, Gemarkung, ..
[376]	618	zeile_flur($zgemkg4, $zflur, true, false); // .., Flur
[348]	619	} else {
	620	return false;
	621	}
[128]	622
[282]	623	// Body
[124]	624	$sql ="SELECT f.gml_id, f.flurnummer, f.zaehler, f.nenner, ";
[86]	625	if($epsg == "25832") { // Transform nicht notwendig
[356]	626	$sql.="st_x(st_Centroid(f.wkb_geometry)) AS x, ";
	627	$sql.="st_y(st_Centroid(f.wkb_geometry)) AS y ";
[282]	628	} else {
[356]	629	$sql.="st_x(st_transform(st_Centroid(f.wkb_geometry), ".$epsg.")) AS x, ";
	630	$sql.="st_y(st_transform(st_Centroid(f.wkb_geometry), ".$epsg.")) AS y ";
[86]	631	}
[348]	632	$sql.="FROM ax_flurstueck f WHERE f.gemarkungsnummer= $1 AND f.flurnummer= $2 AND f.zaehler= $3 ";
[376]	633	If ($znenner != "") {
[425]	634	$sql.="AND f.nenner='".$znenner."' ";
[376]	635	}
[420]	636	$sql.="AND endet IS NULL ORDER BY cast(f.zaehler AS integer), cast(f.nenner AS integer);";
[376]	637	$v=array($zgemkg4, $zflur, $zzaehler);
[66]	638	$res=pg_prepare("", $sql);
	639	$res=pg_execute("", $v);
[376]	640	if (!$res) {
	641	echo "\n<p class='err'>Fehler bei Flurstück.</p>";
	642	if ($debug > 2) {echo "<p class='dbg'>SQL = '".$sql."'<br>Parameter $1='".$zgemkg4."' $2='".$zflur."' $3='".$zzaehler."'<p>";}
	643	}
	644
[66]	645	$zfs=0;
	646	while($row = pg_fetch_array($res)) {
	647	$fs_gml=$row["gml_id"];
	648	$flur=$row["flurnummer"];
	649	$fskenn=$row["zaehler"];
[282]	650	if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];}
[283]	651	zeile_flurstueck($fs_gml, $fskenn, $row["x"], $row["y"], "", "", true);
[66]	652	$zfs++;
	653	}
[282]	654	// Foot
[124]	655	if($zfs == 0) {
[282]	656	echo "\n<p class='anz'>Kein aktuelles Flurstück.</p>";
	657	echo "\n<div class='hi' title='in Historie suchen'>";
[356]	658	echo "\n\t\t<img class='nwlink' src='ico/Flurstueck_Historisch.png' width='16' height='16' alt='Historisches Flurstück'> ";
[282]	659	echo "<a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&gemeinde=".$gemeinde."&epsg=".$epsg."&fskennz=".$fskennz."&hist=j'>";
[376]	660	echo $zgemkg4."-".$zflur."-".$zzaehler;
[282]	661	if ($znenner != "") {echo "/".$znenner;}
	662	echo " h - suchen</a>";
[124]	663	echo "\n</div>";
	664	}
[348]	665	return true;
[66]	666	}
	667
[124]	668	function HistFlurstueck() {
[284]	669	// Die Nachfolger-FS-Kennzeichen zu einem Historischen FS sollen recherchiert werden.
[376]	670	global $debug, $land, $zgemkg4, $zgemkg6, $zflur, $zzaehler, $znenner;
[124]	671
[282]	672	// Head
[376]	673	if (gg_head($zgemkg6, false)) {
	674	zeile_flur($zgemkg4, $zflur, true, false);
[348]	675	} else {
	676	return false;
	677	}
[284]	678	echo "\n<hr>";
[128]	679
[282]	680	// Body
	681	// Suche ueber das Flurstueckskennzeichen, gml unbekannt
[376]	682	$fskzwhere=$zgemkg6; // Flurst-Kennz. f. Where
[356]	683	$fskzwhere.=str_pad($zflur, 3, "0", STR_PAD_LEFT);
	684	$fskzwhere.=str_pad($zzaehler, 5, "0", STR_PAD_LEFT);
[284]	685	if ($znenner == "") { // Wenn kein Nenner angegeben wurde,
	686	//wird mit Wildcard und like nach allen Nennern gesucht.
[330]	687	$fskzwhere.="____\_\_"; // fÃŒr like
[284]	688	$whereop=" like ";
[330]	689	// Das Wildcard-Zeichen "_" ist mit Zeichen im Feldinhalt identisch
	690	// "___" = hier kann auch ein Nenner stehen, "\_\_" hier mÃŒssen tatsÃ€chlich __ stehen.
	691	// WARNUNG: nicht standardkonforme Verwendung von Escape in Zeichenkettenkonstante
	692	// z.B.: like '05265600400145____\_\_'
[284]	693	} else { // Ein Nenner wurde angegeben
[356]	694	$fskzwhere.=str_pad($znenner, 4, "0", STR_PAD_LEFT)."__";
[284]	695	$whereop=" = ";
	696	}
[356]	697	$whcl="WHERE flurstueckskennzeichen ".$whereop." $1 AND endet IS NULL ";
[284]	698	$fldlist=" AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner, ";
	699
	700	// NICHT in aktuell suchen wenn explizit historisch gesucht wird
[413]	701	$sql ="SELECT 'h'".$fldlist."nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueck ".$whcl
	702	."UNION SELECT 'o'".$fldlist."nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueckohneraumbezug ".$whcl;
[284]	703
[124]	704	$v=array($fskzwhere);
	705	$res=pg_prepare("", $sql);
	706	$res=pg_execute("", $v);
[330]	707	if (!$res) {
	708	echo "\n<p class='err'>Fehler bei historischem Flurstück.</p>";
	709	if ($debug > 2) {echo "<p class='dbg'>SQL = '".$sql."'<br>Parameter: ".$fskzwhere."<p>";}
[348]	710	return true;
[330]	711	}
	712
[124]	713	$zfs=0;
[284]	714	while($row = pg_fetch_array($res)) { // Schleife Hist-FS
[124]	715	$ftyp=$row["ftyp"];
	716	$fs_gml=$row["gml_id"];
[376]	717	$gknr=$land.$row["gemarkungsnummer"]; // Land davor
[124]	718	$flur=$row["flurnummer"];
	719	$fskenn=$row["zaehler"];
	720	$nachf=$row["nachf"];
[282]	721	if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];}
[284]	722
	723	zeile_hist_fs($fs_gml, $fskenn, $ftyp, $gknr, $flur, true);
[376]	724
[284]	725	if ($nachf == "") {
	726	echo "\n<p class='anz'>keine Nachfolger</p>";
	727	} else {
	728	echo "\n<p class='hn'>Nachfolger-Flurstücke:</p>";
	729	// Direkte Nachfolger ermitteln. In $nachf steht ein Array von FS-Kennzeichen.
	730	// Von den einzelnen Kennz. ist unbekannt, ob diese noch aktuell sind
	731	// oder auch schon wieder historisch.
	732	// Nachfolger in DB suchen um den Status aktuell/historisch zu ermitteln
	733	$stri=trim($nachf, "{}");
	734	$stri="'".str_replace(",", "','", $stri)."'";
	735
[330]	736	$nawhcl="WHERE flurstueckskennzeichen IN ( ".$stri." ) AND endet IS NULL ";
[284]	737
[420]	738	$nasql ="SELECT 'a' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_flurstueck ".$nawhcl
[413]	739	."UNION SELECT 'h' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_historischesflurstueck ".$nawhcl
[425]	740	."UNION SELECT 'o' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_historischesflurstueckohneraumbezug ".$nawhcl
	741	."ORDER BY gemarkungsnummer, flurnummer, zaehler, nenner";
[284]	742
	743	$v=array();
	744	$nares=pg_prepare("", $nasql);
	745	$nares=pg_execute("", $v);
[330]	746	if (!$nares) {
	747	echo "\n<p class='err'>Fehler bei Nachfolger.</p>";
	748	if ($debug > 2) {echo "<p class='dbg'>SQL = '".$nasql."'<p>";}
	749	return;
	750	}
	751
[284]	752	$zfsn=0;
	753	// inner Body
	754	while($narow = pg_fetch_array($nares)) {
	755	$naftyp=$narow["ftyp"];
	756	$nagml=$narow["gml_id"];
[376]	757	$nagknr=$land.$narow["gemarkungsnummer"]; // Land davor, 4 auf 6 Stellen
[284]	758	$naflur=$narow["flurnummer"];
	759	$nafskenn=$narow["zaehler"];
	760	if ($narow["nenner"] != "") {$nafskenn.="/".$narow["nenner"];}
	761	zeile_nachf_fs ($nagml, $nagknr, $naflur, $nafskenn, $naftyp);
	762	$zfsn++;
[124]	763	}
[284]	764	// inner Footer
	765	if ($zfsn == 0) {
	766	echo "\n<p class='anz'>keine Nachfolger</p>";
	767	} elseif ($zfsn > 1) {
	768	echo "\n<p class='anz'>".$zfsn." Nachfolger-Flst.</p>";
	769	}
	770	echo "\n<hr>";
[124]	771	}
	772	$zfs++;
	773	}
[282]	774	// Foot
[124]	775	if($zfs == 0) {
[282]	776	echo "\n<p class='anz'>Kein historisches Flurstück.</p>";
	777	#if ($debug > 2) {echo "\n<p class='dbg'> SQL= ".$sql."\n<br> $1 = FS-Kennz = '".$fskzwhere."'</p>";}
[124]	778	}
	779	return;
	780	}
	781
[66]	782	// Start hier!
[376]	783
[425]	784	// if ($debug >= 1) {echo "\n<p class='dbg'>gemeinde='".$gemeinde."'. gfilter='".$gfilter."'</p>";}
	785
[399]	786	// Validation: Eingabefeld aus Formular.
	787	// Suchbegriff (Gemarkungsname) oder FlurstÃŒcks-Kennzeichen (ll)gggg-fff-zzzz/nnn (11).
	788	// Hier formatierte Meldung und html-Foot.
	789	if (isset($fskennz) and $fskennz != "" ) {
[400]	790	if (!preg_match('#^[0-9a-zA-ZÃ€Ã¶ÃŒÃÃÃÃ* -/]{1,25}$#', $fskennz)) {
[399]	791	echo "<p class='err'>Eingabe unzulässig!</p>";
	792	$fskennz="";
	793	}
[85]	794	} else {
[399]	795	$fskennz="";
[85]	796	}
[399]	797
[282]	798	if($gm != "") { // Self-Link aus Gemeinde-Liste
[278]	799	$trans="Gemarkungen zur Gemeinde";
[282]	800	$gnr=ListGmkgInGemeinde($gm, $bez);
[66]	801	if ($gnr > 0) {
[376]	802	$zgemkg4=$gnr;
	803	$zgemkg6=$land.$zgemkg4;
[66]	804	EineGemarkung(false);
[126]	805	}
[278]	806	} else { // Die Formular-Eingabe interpretieren (kann auch ein Link sein)
[126]	807	$retzer=ZerlegungFsKennz($fskennz);
[425]	808	if ($debug > 1) {echo "\n<p class='dbg'>Return Zerlegung: ".$retzer."</p>";}
[376]	809	switch ($retzer) { // Returnwert der Zerlegung des FS-Kennz.
[86]	810	case 0: // leere Eingabe
[282]	811	if ($gfilter == 1) { // Die GUI ist bereits auf EINE Gemeinde gefiltert
[278]	812	$trans="Liste der Gemarkungen";
	813	SuchGmkgName();
[86]	814	} else {
[278]	815	$trans="Liste der Gemeinden";
	816	ListGemeinden();
[86]	817	}
[282]	818	break;
[86]	819	case 1:
[278]	820	$trans="Suche Gemarkungsname";
[86]	821	$gnr=SuchGmkgName();
	822	if ($gnr > 0) {
[278]	823	$trans="1 Gemarkung, Fluren dazu";
[376]	824	$zgemkg6=$gnr;
	825	$zgemkg4=substr($zgemkg6, 2);
[86]	826	EineGemarkung(false);
[126]	827	}
[282]	828	break;
[86]	829	case 2:
[278]	830	$trans="Fluren in Gemarkung";
[86]	831	EineGemarkung(true);
[282]	832	break;
[86]	833	case 3:
[278]	834	if ($phist) {
	835	$trans="historische Flurst. in Flur";
	836	HistFlur();
	837	} else {
	838	$trans="Flurstücke in Flur";
	839	EineFlur();
	840	}
[282]	841	break;
[86]	842	case 4:
[278]	843	if ($phist) {
	844	$trans="historisches Flurstück";
	845	HistFlurstueck();
	846	} else {
	847	$trans="Flurstück";
	848	EinFlurstueck();
	849	}
[282]	850	break;
[86]	851	case 5:
[278]	852	if ($phist) {
	853	$trans="historisches Flurstück";
	854	HistFlurstueck();
	855	} else {
	856	$trans="Flurstück";
	857	EinFlurstueck();
[282]	858	}
	859	break;
[86]	860	case 9:
[278]	861	$trans="falsche Eingabe";
	862	echo "\n<p class='err'>Bitte ein Flurstückskennzeichen eingegeben, Format 'gggg-fff-zzzz/nnn</p>";
[282]	863	break;
[86]	864	}
[66]	865	}
[282]	866
[399]	867	// Nach Durchlaufen des PHP-Scriptes die zuletzt ausgefÃŒhrte Transaktion im Kopf des Ergebnisrahmens anzeigen.
[356]	868	// Dazu die im HTML-Header definierte Javascript-Function benutzen.
	869	// Alternativ wird auch aus dem Javascript "positionieren Karte" dieser Titel gesetzt.
[283]	870	echo "
	871	<script type='text/javascript'>
	872	transtitle('".$trans."');
	873	</script>";
[66]	874	?>
[330]	875
	876	</body>
[66]	877	</html>

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

Context Navigation

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

Download in other formats: