Index: trunk/mapbender/http/nav/alkisnav_fls.php
===================================================================
--- trunk/mapbender/http/nav/alkisnav_fls.php	(revision 283)
+++ trunk/mapbender/http/nav/alkisnav_fls.php	(revision 284)
@@ -7,5 +7,5 @@
 	2013-04-29	Test mit IE
 	2013-05-07  Strukturierung des Programms, redundanten Code in Functions zusammen fassen
-	2013-05-08  Variablen-Namen geordnet, Hervorhebung aktuelles Objekt, in Arbeit ...
+	2013-05-14  Variablen-Namen geordnet, Hervorhebung aktuelles Objekt, Title auch auf Icon, IE zeigt sonst alt= als Title dar.
 */
 $cntget = extract($_GET);
@@ -41,9 +41,4 @@
 
 END;
-
-function is_ne_zahl($wert) {
-	// Prueft, ob ein Wert ausschlieÃlich aus den Zahlen 0 bis 9 besteht
-	if (trim($wert, "0..9") == "") {return true;} else {return false;}
-}
 
 function h_hinten($zahl) {
@@ -158,5 +153,5 @@
 	if ($aktuell) {$cls=" aktuell";}
 	echo "\n<div class='gk".$cls."' title='Gemarkung'>";
-	echo "\n\t\t<img class='nwlink' src='ico/Gemarkung.ico' width='16' height='16' alt='Gemarkung'>";
+	echo "\n\t\t<img class='nwlink' src='ico/Gemarkung.ico' width='16' height='16' alt='GKG' title='Gemarkung'>";
 	echo " OT <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;fskennz=".$gkgnr."'>";		
 	echo  " ".$gnam."</a> (".$gkgnr.")";
@@ -169,5 +164,5 @@
 	if ($aktuell) {$cls=" aktuell";}
 	echo "\n<div class='fl".$cls."' title='Flur'>";
-	echo "\n\t\t<img class='nwlink' src='ico/Flur.ico' width='16' height='16' alt='Flur'> ";
+	echo "\n\t\t<img class='nwlink' src='ico/Flur.ico' width='16' height='16' alt='FL' title='Flur'> ";
 	$url=$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;fskennz=".$gkgnr."-".$flurnr;
 	echo "<a title='Aktuelle Flurst&uuml;cke suchen' href='".$url."'>Flur ".$flurnr." </a>"; 
@@ -194,5 +189,5 @@
 	// Icon -> Buchnachweis
 	echo "\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisfshist.php?gkz=".$gkz."&amp;gmlid=".$fs_gml."\")'>";
-		echo "\n\t\t<img class='nwlink' src='ico/".$ico."' width='16' height='16' alt='Hist'>";
+		echo "\n\t\t<img class='nwlink' src='ico/".$ico."' width='16' height='16' alt='Hist' title='".$titl."'>";
 	echo "\n\t</a>";
 
@@ -232,5 +227,5 @@
 	echo "\n<div class='hn' title='Nachfolger: ".$titl."'>";			
 		echo "\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath.$auskprog.".php?gkz=".$gkz."&amp;gmlid=".$gml."\")'>";
-			echo "\n\t\t<img class='nwlink' src='ico/".$ico."' width='16' height='16' alt='FS'>";
+			echo "\n\t\t<img class='nwlink' src='ico/".$ico."' width='16' height='16' alt='FS' title='Nachweis'>";
 		echo "\n\t</a> ";		
 		echo "Flst. <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;fskennz=".$fs.$hisparm."'>".$fskenn."</a>";					
@@ -464,5 +459,5 @@
 
 function HistFlur() {
-	// Kennzeichen aus Gemarkung und FlurNr wurde eingegeben
+	// Kennzeichen aus Gemarkung und FlurNr wurde eingegeben.
 	// Die Flur nach historischen FlurstÃŒcken durchsuchen
 	global $con, $gkz, $gemeinde, $epsg, $debug, $scalefs, $auskpath, $land, $zgemkg, $zflur;
@@ -506,6 +501,6 @@
 
 function EinFlurstueck() {
-	// FlurstÃŒckskennzeichen wurde komplett bis zum Zaehler eingegeben
-	// Sonderfall: bei Bruchnummer, mehrere Nenner zum Zaehler
+	// FlurstÃŒckskennzeichen wurde komplett bis zum Zaehler (oder Nenner) eingegeben
+	// Sonderfall: bei Bruchnummer, mehrere Nenner zum Zaehler suchen wenn kein Nenner eingegeben wurde.
 	global $con, $gkz, $debug, $epsg, $gemeinde, $fskennz, $zgemkg, $zflur, $zzaehler, $znenner;
 
@@ -555,5 +550,5 @@
 
 function HistFlurstueck() {
-	// Die Nachfolger-FS-Kennzeichen sollen recherchiert werden.
+	// Die Nachfolger-FS-Kennzeichen zu einem Historischen FS sollen recherchiert werden.
 	global $debug, $land, $zgemkg, $zflur, $zzaehler, $znenner;
 
@@ -561,18 +556,31 @@
 	gg_head($zgemkg, false);
 	zeile_flur($zgemkg, $zflur, true, false);
+	echo "\n<hr>";
 
 	// Body
 	// Suche ueber das Flurstueckskennzeichen, gml unbekannt
-	$fldlist=" AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner, ";
-	$whcl.="WHERE flurstueckskennzeichen= $1 ";
-	$sql ="SELECT 'a'".$fldlist."null as nachf FROM ax_flurstueck ".$whcl;
-	$sql.="UNION SELECT 'h'".$fldlist."nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueck ".$whcl;
-	$sql.="UNION SELECT 'o'".$fldlist."nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueckohneraumbezug ".$whcl;
 	$fskzwhere =$land.$zgemkg; // Flurst-Kennz. f. Where
 	$fskzwhere.=str_pad($zflur, 3, "0", $STR_PAD_LEFT);
 	$fskzwhere.=str_pad($zzaehler, 5, "0", $STR_PAD_LEFT);
-	if ($znenner == "") {$fskzwhere.="______";}
-	else {$fskzwhere.=str_pad($znenner, 4, "0", $STR_PAD_LEFT)."__";}
+	if ($znenner == "") {	// Wenn kein Nenner angegeben wurde, 
+		//wird mit Wildcard und like nach allen Nennern gesucht.
+		$fskzwhere.="____\_\_";	// fÃŒr like 
+		// Das Wildcard-Zeichen "_" ist dummerweise mit FÃŒllzeichen im Feldinhalt identisch
+		$whereop=" like ";
+	} else { // Ein Nenner wurde angegeben
+		$fskzwhere.=str_pad($znenner, 4, "0", $STR_PAD_LEFT)."__";
+		$whereop=" = ";
+	}
+	$whcl.="WHERE flurstueckskennzeichen ".$whereop." $1 ";
+	
+	$fldlist=" AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner, ";
+
+	// NICHT in aktuell suchen wenn explizit historisch gesucht wird
+	#$sql ="SELECT 'a'".$fldlist."null as nachf FROM ax_flurstueck ".$whcl." UNION ";
+	$sql ="SELECT 'h'".$fldlist."nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueck ".$whcl;
+	$sql.="UNION SELECT 'o'".$fldlist."nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueckohneraumbezug ".$whcl;
+
 	$v=array($fskzwhere);
+	#echo "<p class='dbg'>SQL=".$sql."<br>WHERE=".$fskzwhere."</p>";  // ++++ TEST
 
 	$res=pg_prepare("", $sql);
@@ -581,5 +589,5 @@
 	$zfs=0;
 
-	while($row = pg_fetch_array($res)) {
+	while($row = pg_fetch_array($res)) { // Schleife Hist-FS
 		$ftyp=$row["ftyp"];
 		$fs_gml=$row["gml_id"];
@@ -589,46 +597,54 @@
 		$nachf=$row["nachf"];
 		if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];}
-		if ($ftyp == "a") { // als aktuelles FS gefunden, das "h" war also unnÃ¶tig!
-			$koor=flurstueckskoordinaten($fs_gml);
-			echo "\n<p>Flurst&uuml;ck ".$fskenn." ist aktuell, nicht historisch</p>";	
-			zeile_flurstueck ($fs_gml, $fskenn, $koor["x"], $koor["y"], $gknr, $flur, true);
-		} else { // Historisches FS gefunden (h oder o)
-			zeile_hist_fs($fs_gml, $fskenn, $ftyp, $gknr, $flur, true);
-			if ($nachf == "") {
-				echo "\n<p class='err'>keine Nachfolger</p>";	
-			} else {
-				echo "\n<p>Nachfolger-Flurst&uuml;cke:</p>";
-				// Direkte Nachfolger ermitteln. In $nachf steht ein Array von FS-Kennzeichen.
-				// Von den einzelnen Kennz. ist unbekannt, ob diese noch aktuell sind 
-				// oder auch schon wieder historisch.
-				// Nachfolger in DB suchen um den Status aktuell/historisch zu ermitteln
-				$stri=trim($nachf, "{}");
-				$stri="'".str_replace(",", "','", $stri)."'";
-				$whcln.="WHERE flurstueckskennzeichen IN ( ".$stri." ) ";
-				$nasql ="SELECT 'a' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_flurstueck ".$whcln;
-				$nasql.="UNION SELECT 'h' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_historischesflurstueck ".$whcln;
-				$nasql.="UNION SELECT 'o' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_historischesflurstueckohneraumbezug ".$whcln;
-				$v=array();
-				$nares=pg_prepare("", $nasql);
-				$nares=pg_execute("", $v);
-				if (!$nares) {echo "\n<p class='err'>Fehler bei Nachfolger.</p>";}
-				$zfsn=0;
-				while($narow = pg_fetch_array($nares)) {
-					$naftyp=$narow["ftyp"];
-					$nagml=$narow["gml_id"];
-					$nagknr=$narow["gemarkungsnummer"];
-					$naflur=$narow["flurnummer"];
-					$nafskenn=$narow["zaehler"];
-					if ($narow["nenner"] != "") {$nafskenn.="/".$narow["nenner"];}
-					zeile_nachf_fs ($nagml, $nagknr, $naflur, $nafskenn, $naftyp);
-					$zfsn++;
-				}
-				if ($zfsn == 0) {
-					echo "\n<p class='anz'>keine Nachfolger gefunden</p>";
-				} else { // if($zfsn > 1)
-					echo "\n<p class='anz'>".$zfsn." Nachfolger-Flurst&uuml;cke</p>";
-				}
+
+		#if ($ftyp == "a") { // als aktuelles FS gefunden, das "h" war also unnÃ¶tig!
+		#	$koor=flurstueckskoordinaten($fs_gml);
+		#	echo "\n<p>Flurst&uuml;ck ".$fskenn." ist aktuell, nicht historisch</p>";	
+		#	zeile_flurstueck ($fs_gml, $fskenn, $koor["x"], $koor["y"], $gknr, $flur, true);
+		#} else { // Historisches FS gefunden (h oder o)
+
+		zeile_hist_fs($fs_gml, $fskenn, $ftyp, $gknr, $flur, true);
+		if ($nachf == "") {
+			echo "\n<p class='anz'>keine Nachfolger</p>";	
+		} else {
+			echo "\n<p class='hn'>Nachfolger-Flurst&uuml;cke:</p>";
+			// Direkte Nachfolger ermitteln. In $nachf steht ein Array von FS-Kennzeichen.
+			// Von den einzelnen Kennz. ist unbekannt, ob diese noch aktuell sind 
+			// oder auch schon wieder historisch.
+			// Nachfolger in DB suchen um den Status aktuell/historisch zu ermitteln
+			$stri=trim($nachf, "{}");
+			$stri="'".str_replace(",", "','", $stri)."'";
+
+			$nawhcl="WHERE flurstueckskennzeichen IN ( ".$stri." ) ";
+
+			$nasql ="SELECT 'a' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_flurstueck ".$nawhcl;
+			$nasql.="UNION SELECT 'h' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_historischesflurstueck ".$nawhcl;
+			$nasql.="UNION SELECT 'o' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_historischesflurstueckohneraumbezug ".$nawhcl;
+
+			$v=array();
+			$nares=pg_prepare("", $nasql);
+			$nares=pg_execute("", $v);
+			if (!$nares) {echo "\n<p class='err'>Fehler bei Nachfolger.</p>";}
+			$zfsn=0;
+			// inner Body
+			while($narow = pg_fetch_array($nares)) {
+				$naftyp=$narow["ftyp"];
+				$nagml=$narow["gml_id"];
+				$nagknr=$narow["gemarkungsnummer"];
+				$naflur=$narow["flurnummer"];
+				$nafskenn=$narow["zaehler"];
+				if ($narow["nenner"] != "") {$nafskenn.="/".$narow["nenner"];}
+				zeile_nachf_fs ($nagml, $nagknr, $naflur, $nafskenn, $naftyp);
+				$zfsn++;
 			}
-		}
+			// inner Footer
+			if ($zfsn == 0) {
+				echo "\n<p class='anz'>keine Nachfolger</p>";
+			} elseif ($zfsn > 1) {
+				echo "\n<p class='anz'>".$zfsn." Nachfolger-Flst.</p>";
+			}
+			echo "\n<hr>";
+		}
+		#} // aktuell ...
 		$zfs++;
 	}
