Context Navigation

source: trunk/mapbender/http/nav/alkisnav_fkt.php @ 315

Revision 315, 13.6 KB checked in by frank.jaeger, 10 years ago (diff)
Feinschliff und Korrektur an Auskunft und Navigation

Rev	Line
[278]	1	<?php
	2	/* Version vom
[282]	3	2013-05-07 Strukturierung des Programms, redundanten Code in Functions zusammen fassen
[284]	4	2013-05-14 Hervorhebung aktuelles Objekt, Title auch auf Icon, IE zeigt sonst alt= als Title dar.
[315]	5	2013-05-15 Function verlegt
	6	2014-02-06 Korrektur zeile_person
[278]	7	*/
	8
[282]	9	// function Typ "zeile_**" = Ausgabe eines Knotens
	10	// - Icon, ggf. mit Link zur Buchauskunft
	11	// - Zeile, ggf. mit Link zur weiteren AuflÃ¶sung untergeordneter Knoten
	12	// Hierin die Encodierung fÃŒr url und HTML.
	13
[284]	14	function is_ne_zahl($wert) {
	15	// Prueft, ob ein Wert ausschlieÃlich aus den Zahlen 0 bis 9 besteht
	16	if (trim($wert, "0..9") == "") {return true;} else {return false;}
	17	}
	18
	19	function ZerlegungGBKennz($gbkennz) {
	20	// Das eingegebene Grundbuch-Kennzeichen auseinander nehmen (gggg-999999z-BVNR)
	21	// Return: 9=Fehler, 0=Listen alle Bezirke 1=Such Bezirk-Name
	22	// 2=Such Bezirk-Nummer, 3=Such Blatt, 4=Such Buchung BVNR
	23	global $zgbbez, $zblatt, $zblattn, $zblattz, $zbvnr; $arr=explode("-", $gbkennz, 3);
	24	$zgbbez=trim($arr[0]);
	25	$zblatt=trim($arr[1]);
	26	$zbvnr=trim($arr[2]);
	27	if ($zgbbez == "") { // keine Eingabe
	28	return 0; // Amtsgerichte oder Bezirke listen
	29	} elseif ( ! is_ne_zahl($zgbbez)) { // Alphabetische Eingabe
	30	return 1; // Such Bezirk-NAME
	31	} elseif ($zblatt == "") {
	32	return 2; // Such Bezirk-NUMMER
	33	} else { // Format von BlattNr pruefen
	34	//'19' linksbÃŒndig
	35	//'000019 ' gefÃŒllt 6 + blank
	36	//'000019A' .. mit Zusatzbuchstabe
	37	//'0300001' gefÃŒllt 7, bei Blattart 5000 "fiktives Blatt"
	38	$len=strlen($zblatt);
	39	if ($len > 0 AND $len < 8) {
	40	if (trim($zblatt, "0..9 ") == "") { // Normalfall: nur Zahlen (und Blank))
	41	$zblattn= rtrim(ltrim($zblatt, "0"), " ");
	42	$zblattz="";
	43	} else { // Sonderfall: Zusatz-Buchstabe am Ende
	44	$zblattn=substr($zblatt,0,$len-1);
	45	$zblattz=strtoupper(substr($zblatt,$len-1,1));
	46	if ((trim($zblattn, "0..9") == "") and (trim($zblattz, "A..Z") == "")) {
	47	$zblattn= ltrim($zblattn, "0"); // ohne fuehrende Nullen
	48	} else {
	49	echo "<p class='err>Format 'Blatt': bis zu 6 Zahlen und ggf. ein Buchstabe</p>";
	50	return 9;
	51	}
	52	}
	53	if ($zbvnr == "") {
	54	return 3; // Such BLATT
	55	} elseif (is_ne_zahl($zbvnr)) {
	56	// $zbvnr=ltrim($zbvnr,"0"); // DB-Format ist integer
	57	// Vorsicht, Wert "0" ist moeglich und gueltig
	58	return 4; // Such Grundstueck
	59	} else {
	60	echo "<p class='err>Die Buchungsstelle (BVNR) '".$zbvnr."' ist nicht numerisch</p>";
	61	return 9;
	62	}
	63	} else {
	64	echo "<p class='err>Das Grundbuch-Blatt '".$zblatt."' ist ungültig.</p>";
	65	return 9;
	66	}
	67	}
	68	}
	69
	70	function suchfeld($suchstring) { // Suchstring Ausgeben UND das Eingabeformular damit belegen
	71	$out="<a title='Dies als Suchbegriff setzen' href='javascript:formular_belegung(\"".$suchstring."-\")'>".$suchstring."</a>";
	72	return $out;
	73	}
	74
	75	function zeile_ag ($ag, $anr, $aktuell) { // Zeile A m t s g e r i c h t
[283]	76	global $gkz, $gemeinde, $epsg, $auskpath;
[282]	77	if ($ag == "") {
	78	$agd=$anr; // Ersatz: Nummer statt Name. Besser: Name immer fÃŒllen
	79	} else {
	80	$agd=htmlentities($ag, ENT_QUOTES, "UTF-8");
	81	}
	82	if ($aktuell) {$cls=" aktuell";}
[283]	83	echo "\n<div class='ga".$cls."' title='Amtsgericht'>";
	84	echo "\n\t\t<img class='nwlink' src='ico/Gericht.ico' width='16' height='16' alt='AG' title='Amtsgericht'> ";
[284]	85	echo "AG <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&gemeinde=".$gemeinde."&epsg=".$epsg."&ag=".$anr."'>";
[282]	86	echo $agd."</a> (".$anr.")";
	87	echo "\n</div>";
	88	return;
	89	}
	90
	91	function zeile_gbbez ($gnam, $zgbbez, $aktuell) { // Zeile Grundbuch - B e z i r k
[283]	92	// Parameter: aktuell = Bool fÃŒr farbliche Markierung der Zeile als aktuell angeklicktes Obj.
[284]	93	global $gkz, $gemeinde, $epsg, $person;
	94	$gnamd=htmlentities($gnam, ENT_QUOTES, "UTF-8");
[282]	95	if ($aktuell) {$cls=" aktuell";}
[283]	96	echo "\n<div class='gk".$cls."' title='GB-Bezirk'>";
	97	echo "\n\t\t<img class='nwlink' src='ico/GB-Bezirk.ico' width='16' height='16' alt='Bez.' title='GB-Bezirk'> ";
[284]	98	echo "<a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&gemeinde=".$gemeinde."&epsg=".$epsg."&gbkennz=".$zgbbez;
	99	echo "&gbbeznam=".urlencode($gnam);
	100	if ($person != "") { // EigentÃŒmer-Suche
	101	echo "&person=".$person."'>";
	102	echo "Bezirk ".$gnamd."</a> (".$zgbbez.")";
	103	} else { // Grundbuch-Suche
	104	echo "'>";
	105	echo "Bezirk ".$gnamd."</a> (".suchfeld($zgbbez).")";
	106	}
	107	echo "\n</div>";
[282]	108	return;
	109	}
	110
	111	function zeile_blatt ($bezirk, $beznam, $blattgml, $blatt, $dienend, $person, $aktuell) {
[283]	112	global $gkz, $gemeinde, $epsg, $auskpath;
[282]	113	// Zeile Grundbuch - B l a t t
	114	$blattd=ltrim($blatt, "0"); // Display-Version ohne fÃŒhrende Nullen
	115	if ( $dienend) {$dientxt="dienendes ";}
	116	$blattlnk=urlencode($blatt); // trailing Blank
	117	if ($beznam != "") {$nam = $beznam." ";}
	118	if ($aktuell) {$cls=" aktuell";}
[283]	119
[284]	120	echo "\n<div class='gb".$cls."' title='".$dientxt."GB-Blatt'>";
[283]	121
[284]	122	// Icon / Nachweis
	123	if ($blattgml == "") { // Link zum Nachweis nur wenn GML bekannt
[282]	124	echo "\n\t<img class='nwlink' src='ico/GBBlatt_link.ico' width='16' height='16' alt='Blatt' title='".$dientxt."GB-Blatt'>";
[284]	125	} else {
[282]	126	echo "\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisbestnw.php?gkz=".$gkz."&gmlid=".$blattgml."\")'>";
	127	echo "\n\t\t<img class='nwlink' src='ico/GBBlatt_link.ico' width='16' height='16' alt='Blatt' title='Nachweis'>";
[284]	128	echo "\n\t</a> ";
[282]	129	}
	130
[284]	131	// Text, Self-Link
	132	echo $nam." <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&gemeinde=".$gemeinde."&epsg=".$epsg;
[282]	133	echo "&blattgml=".$blattgml."&gbkennz=".$bezirk."-".$blattlnk;
	134
	135	echo "&gbbeznam=".urlencode($beznam);
	136
	137	if ($person != "") {echo "&person=".$person;} // nur fÃŒr EigentÃŒmer-Suche
	138	echo "'>Blatt ".$blattd."</a>\n</div>";
	139	return;
	140	}
	141
	142	function zeile_buchung($buchunggml, $bvnr, $blattkennz, $dienend, $aktuell) {
[283]	143	// Zeile B u c h u n g s s t e l l e - GrundstÃŒck ausgeben
[282]	144	global $gkz, $gemeinde, $epsg, $auskpath;
	145	if ($bvnr == 0) {
	146	$bvnra = "-";
	147	} else {
	148	$bvnra = str_pad($bvnr, 4, "0", STR_PAD_LEFT); // auf 4 Stellen
	149	}
	150	if ($diened) {
	151	$ti="dienendes ";
	152	$re="Recht an ";
	153	} else {
	154	$ti="";
	155	$re="";
	156	}
	157	if ($aktuell) {$cls=" aktuell";}
[283]	158	echo "\n<div class='gs".$cls."' title='".$ti."Grundstück'>";
	159	echo "\n\t<img class='nwlink' src='ico/Grundstueck.ico' width='16' height='16' alt='GS' title='".$ti."Grundstück'> ".$re;
[284]	160	if ($blattkennz == "") { // ohne Link
[283]	161	echo "Buchung ".$bvnra;
	162	} else {
	163	$gbkennlnk=urlencode($blattkennz."-".$bvnr); // Trailing Blanks!
	164	echo "<a href='".$_SERVER['SCRIPT_NAME']. "?gkz=". $gkz."&gemeinde=".$gemeinde."&epsg=".$epsg."&buchunggml=".$buchunggml;
	165	echo "&gbkennz=".$gbkennlnk."'>Buchung ".$bvnra."</a>";
	166	}
[282]	167	echo "\n</div>";
[283]	168	return;
	169	}
[282]	170
	171	function zeile_gemeinde ($gmdnr, $gmdname, $aktuell) {
[315]	172	// Eine Zeile zu Gemeinde ausgeben, SchlÃŒssel und Name wird ÃŒbergeben
	173	global $gkz, $gemeinde, $epsg;
	174	$stadt=htmlentities($gmdname, ENT_QUOTES, "UTF-8");
	175	$bez=urlencode($gmdname);
	176	if ($aktuell) {$cls=" aktuell";}
	177	echo "\n<div class='gm".$cls."' title='Gemeinde'>";
	178	echo "\n\t\t<img class='nwlink' src='ico/Gemeinde.ico' width='16' height='16' alt='Stadt'>";
	179	echo " Gem. <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&gemeinde=".$gemeinde."&epsg=".$epsg."&gm=".$gmdnr."&bez=".$bez."'>";
	180	echo " ".$stadt."</a> (".$gmdnr.")";
	181	echo "\n</div>";
	182	return;
	183	}
	184
	185	function zeile_flurstueck ($fs_gml, $fskenn, $x, $y, $gmkg, $flur, $aktuell) {
[283]	186	// Zeile mit Icon (Link zum Buch-Nachweis) und Text (Link zum Positionieren)
[282]	187	global $gkz, $gemeinde, $epsg, $auskpath, $scalefs;
	188
[315]	189	if ($aktuell) {$cls=" aktuell";}
[283]	190	echo "\n<div class='fs".$cls."'>";
	191	echo "\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisfsnw.php?gkz=".$gkz."&gmlid=".$fs_gml."\")'>";
[282]	192	echo "\n\t\t<img class='nwlink' src='ico/Flurstueck_Link.ico' width='16' height='16' alt='FS' title='Nachweis'>";
[284]	193	echo "\n\t</a>\n\t";
[282]	194
	195	echo " <a title='Flurstück positionieren 1:".$scalefs."' href='";
	196	echo "javascript:";
	197	echo "transtitle(\"auf Flurstück positioniert\"); ";
	198	echo "parent.parent.parent.mb_repaintScale(\"mapframe1\",".$x.",".$y.",".$scalefs."); ";
	199	echo "parent.parent.showHighlight(".$x.",".$y.");' ";
	200	echo "onmouseover='parent.parent.showHighlight(".$x.",".$y.")' ";
	201	echo "onmouseout='parent.parent.hideHighlight()'>";
	202
	203	if ($gmkg == "" ) {
	204	echo "Flst. "; // Im FS-Teil: Gem+Flur als Knoten darÃŒber ($gmkg und $flur leer)
	205	} else {
	206	echo $gmkg." "; // Im GB-und Nam-Teil in der Zeile angezeigt
	207	}
	208	if ($flur != "" ) {echo $flur."-";}
	209	echo $fskenn."</a>\n</div>";
	210	return;
	211	}
	212
	213	function zeile_person ($persongml, $nachname, $vorname) {
	214	global $gkz, $gemeinde, $epsg, $auskpath;
	215	// Zeile P e r s o n (oder Firma)
[315]	216	$nnam=htmlentities($nachname, ENT_QUOTES, "UTF-8");
[282]	217	$namlnk=urlencode($nachname);
	218	$vnam=htmlentities($vorname, ENT_QUOTES, "UTF-8");
	219	// Link zur Auskunft Person ++ Icon differenzieren nach Eigentuemerart?
[315]	220
[283]	221	echo "<div class='pe'>
	222	<a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisnamstruk.php?gkz=".$gkz."&gemeinde=".$gemeinde."&gmlid=".$persongml."\")'>
[315]	223	<img class='nwlink' src='ico/Eigentuemer.ico' width='16' height='16' alt='EIG' title='Nachweis'>
[284]	224	</a>
[283]	225	<a title='Person' href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&gemeinde=".$gemeinde."&epsg=".$epsg."&person=".$persongml."&name=".$namlnk."'>".$nnam.", ".$vnam."</a>
	226	</div>";
	227	return;
	228	}
[282]	229
	230	function GB_Buchung_FS ($linelimit, $blattgbkenn) {
[283]	231	// Zu einem Grundbuch-Blatt (identifiziert ÃŒber seine gml_id) suchen der
[284]	232	// Buchungen (Gruppenwechsel) und FlurstÃŒcke (Links)
	233	global $gemeinde, $blattgml, $epsg, $gfilter, $debug;
[283]	234
[278]	235	// SQL-Bausteine vorbereiten
	236	// SQL vorne gleich
[282]	237	$sql1 ="SELECT s1.laufendenummer AS lfd, s1.gml_id AS bsgml, f.gml_id, f.flurnummer, f.zaehler, f.nenner, f.gemeinde, ";
	238	if($epsg == "25832") { // Transform nicht notwendig
[278]	239	$sql1.="st_x(st_centroid(f.wkb_geometry)) AS x, ";
	240	$sql1.="st_y(st_centroid(f.wkb_geometry)) AS y, ";
	241	} else {
	242	$sql1.="st_x(st_transform(st_centroid(f.wkb_geometry), ".$epsg.")) AS x, ";
	243	$sql1.="st_y(st_transform(st_centroid(f.wkb_geometry), ".$epsg.")) AS y, ";
	244	}
	245	$sql1.="g.gemarkung, g.gemarkungsname ";
	246	$sql1.="FROM alkis_beziehungen vbg ";
[282]	247	$sql1.="JOIN ax_buchungsstelle s1 ON vbg.beziehung_von = s1.gml_id ";
[278]	248
	249	// Zwischen-JOIN verschieden
[282]	250	$sqlz1 ="JOIN alkis_beziehungen vfb ON s1.gml_id = vfb.beziehung_zu ";
	251
	252	$sqlz2 ="JOIN alkis_beziehungen vss ON vss.beziehung_von = s1.gml_id ";
	253	$sqlz2.="JOIN ax_buchungsstelle s2 ON vss.beziehung_zu = s2.gml_id ";
	254	$sqlz2.="JOIN alkis_beziehungen vfb ON s2.gml_id = vfb.beziehung_zu ";
	255
[278]	256	// SQL hinten gleich
[282]	257	$sql2 ="JOIN ax_flurstueck f ON vfb.beziehung_von = f.gml_id ";
	258	$sql2.="JOIN pp_gemarkung g ON f.land=g.land AND f.gemarkungsnummer=g.gemarkung ";
	259	$sql2.="WHERE vbg.beziehung_zu= $1 AND vbg.beziehungsart='istBestandteilVon' AND vfb.beziehungsart='istGebucht' ";
[278]	260	switch ($gfilter) {
	261	case 1: // Einzelwert
	262	$sql2.="AND g.gemeinde=".$gemeinde." "; break;
	263	case 2: // Liste
	264	$sql2.="AND g.gemeinde in (".$gemeinde.") "; break;
	265	}
	266	$sql2.="ORDER BY cast(s1.laufendenummer AS integer), f.gemarkungsnummer, f.flurnummer, f.zaehler, f.nenner LIMIT $2 ;";
[282]	267
[278]	268	// Abfrage: d i r e k t e B u c h u n g e n
[282]	269	// Blatt <vbg/istBestandteilVon< Buchungsstelle <vfb/istGebucht< FlurstÃŒck
	270	#$sql=$sql1.$sqlz1.$sql2; // Direkte Buchungen
	271
[278]	272	$v=array($blattgml, $linelimit);
	273	$res=pg_prepare("", $sql1.$sqlz1.$sql2);
[282]	274	$res=pg_execute("", $v);
[278]	275	if (!$res) {
	276	echo "\n<p class='err'>Fehler bei Buchung und Flurstück.</p>";
	277	#if ($debug >= 3) {echo "\n<p class='err'>".$sql1.$sqlz1.$sql2."</p>";}
[282]	278	return;
[278]	279	}
	280	$zfs1=0;
	281	$gwbv="";
	282	while($row = pg_fetch_array($res)) {
	283	$bvnr=$row["lfd"];
	284	$bsgml=$row["bsgml"]; // Buchungsstelle gml_id
[282]	285	if ($gwbv != $bvnr) { // Gruppierung Buchungs-Stelle (BVNR)
	286	$gwbv = $bvnr;
	287	zeile_buchung($bsgml, $bvnr, $blattgbkenn, false, false);
[283]	288	}
[278]	289	$fs_gml=$row["gml_id"];
	290	$gmkg=$row["gemarkungsname"];
	291	$flur=$row["flurnummer"];
	292	$fskenn=$row["zaehler"];
	293	if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];} // BruchNr
	294	$x=$row["x"];
	295	$y=$row["y"];
	296	zeile_flurstueck ($fs_gml, $fskenn, $x, $y, $gmkg, $flur, false);
[283]	297	$zfs1++;
[278]	298	}
	299	// "nichts gefunden" erst melden, wenn auch Teil 2 (Rechte an) nichts findet
[284]	300	if($zfs1 > 1) { // ab 2
	301	echo "\n<p class='anz'>".$zfs1." Flurstücke zum Grundbuch";
	302	if($zfs1 >= $linelimit) {
	303	echo "... und weitere"; //++ BlÃ€ttern einfÃŒhren?
	304	}
	305	echo "</p>";
	306	}
[278]	307	if($zfs1 > 0) {echo "<hr>";} // Trennen
[282]	308
[278]	309	// Abfrage: R e c h t e a n / d i e n e n d e B u c h u n g e n
[282]	310	$v=array($blattgml, $linelimit);
[278]	311	$res=pg_prepare("", $sql1.$sqlz2.$sql2);
[282]	312	$res=pg_execute("", $v);
[278]	313	if (!$res) {
	314	echo "\n<p class='err'>Fehler bei Recht an Buchung.</p>";
	315	#if ($debug >= 3) {echo "\n<p class='dbg'>".$sql1.$sqlz2.$sql2."</p>";}
[282]	316	return;
[278]	317	}
	318	$zfs2=0;
	319	$gwbv="";
	320	while($row = pg_fetch_array($res)) {
	321	$bvnr=$row["lfd"];
	322	$bsgml=$row["bsgml"]; // Buchungsstelle gml_id
[282]	323	if ($gwbv != $bvnr) { // Gruppierung Buchung (BVNR) - dienend
	324	$gwbv = $bvnr;
	325	zeile_buchung($bsgml, $bvnr, $blattgbkenn, true, false);
[283]	326	}
[278]	327	$fs_gml=$row["gml_id"];
	328	$gmkg=$row["gemarkungsname"];
	329	$flur=$row["flurnummer"];
	330	$fskenn=$row["zaehler"];
	331	if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];} // Bruchnummer
	332	zeile_flurstueck ($fs_gml, $fskenn, $row["x"], $row["y"], $gmkg, $flur, false);
[283]	333	$zfs2++;
[278]	334	}
	335	// Foot
[283]	336	if($zfs1 + $zfs2 == 0) {
[278]	337	echo "\n<p class='anz'>Kein Flurstück im berechtigten Bereich.</p>";
	338	} elseif($zfs2 > 1) { // keine Meldung "nichts gefunden - Rechte an" wenn Treffer in Teil 1
	339	echo "\n<p class='anz'>".$zfs2." Rechte an Flurst.";
[284]	340	if($zfs2 >= $linelimit) {
	341	echo "... und weitere"; // BlÃ€ttern einfÃŒhren?
	342	}
	343	echo "</p>";
	344	}
[278]	345	return;
	346	}
	347
	348	?>

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

Download in other formats: