source: trunk/var/www/info/alkis/alkisfshist.php @ 128

<?php
/*      Modul: alkisfshist.php

        ALKIS-Buchauskunft, Kommunales Rechenzentrum Minden-Ravensberg/Lippe (Lemgo).
        FlurstÃŒcks-Historie fuer ein FlurstÃŒckskennzeichen aus ALKIS PostNAS

        Version:
        2011-11-03  Entwurf Prototyp
        2011-11-16  Zum aktuellen FS die VorgÀnger suchen

        Sinnvoller Einstieg als Erweiterung der Navigation (Suche in Flur, (auch) nach Hist-FS).
        VerknÌpfung aus aktuellem FS zur Zeit mangels Verweis nicht möglich.
        Oder kann man Sinvoll in einem Array-Feld suchen?

        Um auch VorgÀnger eines aktuellen FlurstÌcks zu finden, mÌssten die Array-Felder mit den Verweisen
        als echte Verbindungstabellen aufgelöst werden (als Nachprozessierung zur Konvertierung in der DB).

        Ein aktuelles FS hat keine Verweise auf VorgÀnger.
        Ein historischs FS (also MIT Raumbezug) hat keine Verweise auf VorgÀnger.

        +++ Eine Geometrische VorgÀnger-Suche dazu realisieren? Oder besser Hist-Layer in Mapfile als Einstieg.
        
        +++ ZusÀtzlicher Parameter x/y (aus WMS-Feature-Info) als Geometrischer Einstieg fÌr historische FS MIT Raumbezug
*/

function fzerleg($fs) {
/*      FlurstÃŒckskennzeichen (20) zerlegen als lesbares Format (wie im Balken):
        Dies FS-Kennz-Format wird auch als Eingabe in der Navigation akzeptiert 
   ....*....1....*....2
   ll    fff     nnnn
     gggg   zzzzz    __
*/
        $fst=rtrim($fs,"_");    
        $zer=substr ($fst, 2, 4)."-".ltrim(substr($fst, 6, 3), "0")."-<b>".ltrim(substr($fst, 9, 5),"0");
        $nenn=ltrim(substr($fst, 14), "0");
        if ($nenn != "") {$zer.="/".$nenn;}
        $zer.="</b>";
        return $zer; 
}

function vornach($dbarr) {
// Datenbank-Array-Feld zeilenweise ausgeben als Selbst-Link
        global $gkz, $idanzeige, $showkey;
        if ($dbarr == "") {
                echo "(keine)";
        } else {
                $stri=trim($dbarr, "{}");
                $arr = split(",",$stri);
                foreach($arr AS $val){
                   echo "Flurst&uuml;ck <a title=' zur Flurst&uuml;ck Historie' href='".$_SERVER['PHP_SELF']."?gkz=".$gkz."&amp;fskennz=".$val;
                        if ($idanzeige) {echo "&amp;id=j";}
                                if ($showkey)   {echo "&amp;showkey=j";}
                        echo "'>".fzerleg($val)."</a><br>";
                }
        }
        return 0;
}

function gemkg_name($gkey) {
// SchlÃŒssel wird ÃŒbergeben, Name in DB nachschlagen
        global $con;
        $sql ="SELECT bezeichnung FROM ax_gemarkung g WHERE g.gemarkungsnummer= $1 ;";
        $v=array($gkey);
        $res=pg_prepare("", $sql);
        $res=pg_execute("", $v);
        if (!$res) {echo "\n<p class='err'>Fehler bei Gemarkung.</p>";}
        $zgmk=0;
        while($row = pg_fetch_array($res)) { // eigentlich nur EINE
                $gmkg=$row["bezeichnung"];
                $zgmk++;
        }
        if ($zgmk == 0) {
                echo "\n<p class='err'>Gemarkung ".$gkey." ist unbekannt.</p>";
                return;
        }
        return $gmkg;
}

function such_vor_arr($fsk) {
// Suchen der VorgÀnger zum aktuellen Flurst. Ausgabe von Selbst-Links Zeilenweise in <td>.
// Akt. FS hat keine Verweise auf VorgÀnger. Darum in den Nachfolger-Verweisen von Hist.-FS suchen.
// Problem: Dies sind Arrays, die nicht performant durchsucht werden können.
        global $gkz, $con, $debug;

        $wherecl="WHERE $1 = ANY (nachfolgerflurstueckskennzeichen) ";

        // Bei kleinere Datenbanken keine spÌrbare Verzögerung bei Suche mit " = ANY(Array)"
        // FÌr grosse BestÀnde zusÀtzlich filtern Ìber indizierte Felder Gemarkung + Flur?
        // Dazu die nÀchsten 2 Zeilen aktivieren.      
//      $wherecl.="AND gemarkungsnummer=".substr($fsk, 2, 4)." ";
//      $wherecl.="AND flurnummer=".ltrim(substr($fsk, 6, 3), "0")." ";
        // Frage: kann das bei Historisierung wechseln? (Umflurung, Umgemarkung). Dann ggf. Fehler (nicht gefunden)

        $sqlv.="SELECT 'h' AS ftyp, gml_id, flurstueckskennzeichen FROM ax_historischesflurstueck h ".$wherecl;
        $sqlv.="UNION ";
        $sqlv.="SELECT 'o' AS ftyp, gml_id, flurstueckskennzeichen FROM ax_historischesflurstueckohneraumbezug o ".$wherecl;
        $sqlv.="ORDER BY flurstueckskennzeichen";

        $v=array($fsk);
        $resv = pg_prepare("", $sqlv);
        $resv = pg_execute("", $v);
        if (!$resv) {
                echo "\n<p class='err'>Fehler bei Vorg&auml;nger-FS.</p>";
                if ($debug > 2) {echo "<p class='dbg'>SQL=<br>".$sqlv."<br>$1='".$fsk."'</p>";}
        }
        $zv=0;
        while($rowv = pg_fetch_array($resv)) {
                $ftyp=$rowv["ftyp"];
                $gmlv=$rowv["gml_id"];
                $vfsk=$rowv["flurstueckskennzeichen"];
                echo "Flurst&uuml;ck <a title='Historie des Vorg&auml;ngerflurst&uuml;cks' href='".$_SERVER['PHP_SELF']."?gkz=".$gkz."&amp;fskennz=".$vfsk."&amp;gmlid=".$gmlv;
                if ($idanzeige) {echo "&amp;id=j";}
                        if ($showkey)   {echo "&amp;showkey=j";}
                echo "'>".fzerleg($vfsk)."</a><br>";
                $zv++;
        }
        if ($zv == 0) {echo "(keine)";}
        return;
}

session_start();
$gkz=urldecode($_REQUEST["gkz"]);
require_once("alkis_conf_location.php");
if ($auth == "mapbender") {require_once($mapbender);}
include("alkisfkt.php");
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
        <meta name="author" content="F. Jaeger krz" >
        <meta http-equiv="cache-control" content="no-cache">
        <meta http-equiv="pragma" content="no-cache">
        <meta http-equiv="expires" content="0">
        <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
        <title>ALKIS Flurst&uuml;cks-Historie</title>
        <link rel="stylesheet" type="text/css" href="alkisauszug.css">
        <link rel="shortcut icon" type="image/x-icon" href="ico/Flurstueck_Historisch.ico">
        <style type='text/css' media='print'>
                .noprint {visibility: hidden;}
        </style>
</head>
<body>
<?php
$gmlid = urldecode($_REQUEST["gmlid"]);
$fskennz = urldecode($_REQUEST["fskennz"]);
$id = isset($_GET["id"]) ? $_GET["id"] : "n";
if ($id == "j") {$idanzeige=true;} else {$idanzeige=false;}
$keys = isset($_GET["showkey"]) ? $_GET["showkey"] : "n";
if ($keys == "j") {$showkey=true;} else {$showkey=false;}
$con = pg_connect("host=".$dbhost." port=" .$dbport." dbname=".$dbname." user=".$dbuser." password=".$dbpass);
if (!$con) echo "<p class='err'>Fehler beim Verbinden der DB</p>\n";
// if ($debug > 1) {echo "<p class='err'>DB=".$dbname.", user=".$dbuser."</p>";}

// Such-Parameter bekommen? Welche?
if ($gmlid != "") { // Ja, die GML wurde uebergeben
        $parmtyp="GML";
        $parmval=$gmlid;
        $whereclause="WHERE gml_id= $1 ";
        $v = array($gmlid);
} else {        // Alternativ: das FlurstÃŒcks-Kennzeichen wurde ÃŒbergeben
        if ($fskennz != "") {
                $parmtyp="Flurst&uuml;ckskennzeichen";
                $parmval=$fskennz;
                $whereclause="WHERE flurstueckskennzeichen= $1 "; // hinten auffuellen mit _ auf 20 Stellen
                $v = array($fskennz);
        } else { // Pfui!
                $parmtyp="";
                echo "<p class='err'>Parameter 'gmlid' oder 'fskennz' fehlt.</p>";
        }
}

if ($parmtyp != "") { // einer der beiden erlaubten FÀlle
        // UNION-Abfrage auf 3 Àhnliche Tabellen, darin aber immer nur 1 Treffer.

        $felder="gml_id, flurnummer, zaehler, nenner, flurstueckskennzeichen, amtlicheflaeche, zeitpunktderentstehung, gemarkungsnummer, ";

        $sqlu ="SELECT 'a' AS ftyp, ".$felder."null AS nach, null AS vor, null AS \"name\" ";
        $sqlu.="FROM ax_flurstueck f ".$whereclause;
        $sqlu.="UNION ";
        $sqlu.="SELECT 'h' AS ftyp, ".$felder."nachfolgerflurstueckskennzeichen AS nach, vorgaengerflurstueckskennzeichen AS vor, name ";
        $sqlu.="FROM ax_historischesflurstueck h ".$whereclause;
        $sqlu.="UNION ";
        $sqlu.="SELECT 'o' AS ftyp, ".$felder."nachfolgerflurstueckskennzeichen AS nach, vorgaengerflurstueckskennzeichen AS vor, name ";
        $sqlu.="FROM ax_historischesflurstueckohneraumbezug o ".$whereclause;
        
        // "name" (FF-Nummer) ist uneinheitlich nach derzeitigem Schema.
        // Hier spÀter herein nehmen, wenn einheitlich als array in allen DBs und Tabellen definiert:
        //   f.name character varying,   o.name character varying[]
        
        $resu = pg_prepare("", $sqlu);
        $resu = pg_execute("", $v);
        if ($rowu = pg_fetch_array($resu)) {
                $ftyp=$rowu["ftyp"];
                $gmkgnr=$rowu["gemarkungsnummer"];
                $flurnummer=$rowu["flurnummer"];
                $zaehler=$rowu["zaehler"];
                $nenner=$rowu["nenner"];
                $flstnummer=$zaehler;
                if ($nenner > 0) {$flstnummer.="/".$nenner;} // BruchNr
                $fskenn=$rowu["flurstueckskennzeichen"];
                $flae=number_format($rowu["amtlicheflaeche"],0,",",".") . " m&#178;";
                $name=$rowu["name"]; // in DB ein Array
                $arrn = split(",", trim($name, "{}") ); // PHP-Array
                $gemkname= gemkg_name($gmkgnr);
                $entsteh=$rowu["zeitpunktderentstehung"];
                $vor=$rowu["vor"];
                $nach=$rowu["nach"];
                if ($gmlid == "") {$gmlid=$rowu["gml_id"];} // fÃŒr selbst-link-Umschalter ueber footer
        } else {
                if ($debug > 1) {echo "<br><p class='err'>Fehler! Kein Treffer f&uuml;r ".$parmtyp." = '".$parmval."'</p><br>";}
                if ($debug > 2) {echo "<p class='dbg'>SQL=<br>".$sqlu."<br>$1=".$parmtyp." = '".$parmval."'</p>";}
        }
}

switch ($ftyp) { // Unterschiede Historisch/Aktuell
        case 'a': 
                $wert = "aktuell";
                $ico= "Flurstueck.ico";
                $cls= "kennzfs";        
        break;
        case 'h': 
                $wert = "historisch<br>(mit Raumbezug)";
                $ico= "Flurstueck_Historisch.ico"; //
                $cls= "kennzfsh";
        break;
        case 'o': 
                $wert = "historisch<br>ohne Raumbezug";
                $ico= "Flurstueck_Historisch_oR.ico";
                $cls= "kennzfsh";
        break;
        default:
                $wert = "<b>nicht gefunden: ".$parmtyp." = '".$parmval."'</b>";
                $ico= "Flurstueck_Historisch.ico";
                $cls= "kennzfsh";
        break;
}

// Balken
echo "<p class='fshis'>ALKIS Flurst&uuml;ck ".$gmkgnr."-".$flurnummer."-".$flstnummer."&nbsp;</p>\n";
echo "\n<h2><img src='ico/".$ico."' width='16' height='16' alt=''> Flurst&uuml;ck Historie</h2>\n";

echo "\n<table class='outer'>\n<tr>\n\t<td>"; // linke Seite
        // darin Tabelle Kennzeichen
        echo "\n\t<table class='".$cls."' title='Flurst&uuml;ckskennzeichen'>\n\t<tr>";
                echo "\n\t\t<td class='head'>Gmkg</td>\n\t\t<td class='head'>Flur</td>\n\t\t<td class='head'>Flurst-Nr.</td>\n\t</tr>";
                echo "\n\t<tr>\n\t\t<td title='Gemarkung'>";
                if ($showkey) {echo "<span class='key'>".$gmkgnr."</span><br>";}
                echo $gemkname."&nbsp;</td>";
                echo "\n\t\t<td title='Flurnummer'>".$flurnummer."</td>";
                echo "\n\t\t<td title='Flurst&uuml;cksnummer (Z&auml;hler / Nenner)'><span class='wichtig'>".$flstnummer."</span></td>\n\t</tr>";
        echo "\n\t</table>";
echo "\n\t</td>\n\t<td>"; // rechte Seite
        // FS-Daten 2 Spalten
        echo "\n\t<table class='fsd'>";
                echo "\n\t<tr>\n\t\t<td>Entstehung</td>";
                        echo "\n\t\t<td>".$entsteh."</td>";
                echo "\n\t</tr>";
                echo "\n\t<tr>";
                        echo "\n\t\t<td>letz. Fortf</td>";
                        echo "\n\t\t<td title='Jahrgang / Fortf&uuml;hrungsnummer - Fortf&uuml;hrungsart'>";
                                foreach($arrn AS $val) { // Zeile f. jedes Element
                                        echo trim($val, '"')."<br>";
                                }
                        echo "</td>";
                echo "\n\t</tr>";
        echo "\n\t</table>";
        if ($idanzeige) {linkgml($gkz, $gmlid, "Flurst&uuml;ck"); }
echo "\n\t</td>\n</tr>\n</table>";

if ($debug > 2) {echo "<p class='dbg'>FF= ".$name."</p>";}

if ($ftyp == "a") { // Aktuell -> Historie
        echo "\n<p class='nwlink noprint'>weitere Auskunft: ";
                echo "<a href='alkisfsnw.php?gkz=".$gkz."&amp;gmlid=".$gmlid."&amp;eig=n";
                        if ($idanzeige) {echo "&amp;id=j";}
                        if ($showkey)   {echo "&amp;showkey=j";}
                        echo "' title='Flurst&uuml;cksnachweis'>Flurst&uuml;ck ";
                        echo "<img src='ico/Flurstueck_Link.ico' width='16' height='16' alt=''>";
                echo "</a>";
}
echo "\n<hr>";

echo "<table class='outer'>";
        echo "\n<tr>
                <td class='head'>Flurst&uuml;ck</td>
                <td class='head'>Vorg&auml;nger</td>
                <td class='head'>Nachfolger</td>
        </tr>"; // Head
        
        // Spalte 1: F l u r s t Ì c k
        echo "\n<tr>\n\t<td>";
                echo "<img src='ico/".$ico."' width='16' height='16' alt=''> ".$wert;
                echo "<br>Fl&auml;che <span class='flae'>".$flae."</span>";
        echo "</td>";

        // Spalte 2: V o r g À n g e r
        echo "\n\t<td>";
        switch ($ftyp) { // Unterschiede Historisch/Aktuell
                case 'a':
                        such_vor_arr($fskenn);
                break;
                case 'h':
                        if ($vor == "") {
                                echo "Geometrische Suche<br>(noch nicht m&ouml;glich)";
                        } else {
                                vornach($vor);
                        }
                break;
                case 'o':
                        vornach($vor);
                break;
        }
        echo"</td>";

        // Spalte 3: N a c h f o l g e r
        echo "\n\t<td>";
                vornach($nach);
        echo "</td>\n</tr>";
echo "\n</table>";

if ($debug > 1) {
        $z=1;
        while($rowu = pg_fetch_array($resu)) {
                $ftyp=$rowu["ftyp"];
                echo "<p class='dbg'>Mehr als EIN Eintrag gefunden: '".$ftyp."' (".$z.")</p>";
                $z++;
        }
}
?>

<form action=''>
        <div class='buttonbereich noprint'>
        <hr>
                <input type='button' name='back'  value='&lt;&lt;' title='Zur&uuml;ck'  onClick='javascript:history.back()'>&nbsp;
                <input type='button' name='print' value='Druck' title='Seite Drucken' onClick='window.print()'>&nbsp;
                <input type='button' name='close' value='X' title='Fenster schlie&szlig;en' onClick='window.close()'>
        </div>
</form>

<?php footer($gkz, $gmlid, $idumschalter, $idanzeige, $_SERVER['PHP_SELF']."?", $hilfeurl, "&amp;eig=".$eig, $showkey); ?>

</body>
</html>