Changeset 284 for trunk


Ignore:
Timestamp:
05/14/13 18:26:41 (7 years ago)
Author:
frank.jaeger
Message:

Mapbender-Navigation verbessert.

Location:
trunk/mapbender/http/nav
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • trunk/mapbender/http/nav/alkisnav.css

    r283 r284  
    4040div.fs          {color: navy;           margin-left: 20px; margin-top: 0px;} /* Flurstueck */ 
    4141div.hi          {color: gray;           margin-left: 20px; margin-top: 0px;} /* Historie */ 
    42 div.hn          {color: gray;           margin-left: 20px; margin-top: 0px;} /* Historie-Nachfolger */ 
     42div.hn, p.hn    {color: gray;           margin-left: 20px; margin-top: 0px;} /* Historie-Nachfolger */ 
    4343 
    4444div.stu         {color: maroon; font-size: 13px;} /* Strasse - Ueberschrift */ 
  • trunk/mapbender/http/nav/alkisnav_adr.php

    r283 r284  
    55        2013-04-29      Test mit IE 
    66        2013-05-07  Strukturierung des Programms 
    7         2013-05-08  in Arbeit ... 
     7        2013-05-14  Feinkorrekturen. 
    88 
    99        ToDo: 
  • trunk/mapbender/http/nav/alkisnav_eig.php

    r283 r284  
    1010        2013-04-29      Darstellung mit IE 
    1111        2013-05-07  Strukturierung des Programms, redundanten Code in Functions zusammen fassen 
    12         2013-05-08  Hervorhebung aktuelles Objekt, in Arbeit ... 
     12        2013-05-14  Hervorhebung aktuelles Objekt, Parameter "gbkennz" auswerten, 
     13                                        Title auch auf Icon, IE zeigt sonst alt= als Title dar. 
    1314*/ 
    1415$cntget = extract($_GET); 
     
    5051        if(isset($name)) { // Familiensuche 
    5152                echo "\n<div class='back' title='Andere Personen mit diesem Nachnamen'>"; 
    52                         echo "\n\t\t<img class='nwlink' src='ico/Eigentuemer_2.ico' width='16' height='16' alt='FAM'> "; 
     53                        echo "\n\t\t<img class='nwlink' src='ico/Eigentuemer_2.ico' width='16' height='16' alt='FAM' title='Andere Personen mit diesem Nachnamen'> "; 
    5354                        echo "\n<a class='back' href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;name=".$name."'>\"".$name."\"</a>"; 
    5455                echo "\n</div>\n<br>";   
     
    9293        <td valign='top'> 
    9394                <a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisnamstruk.php?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;gmlid=".$person."\")'> 
    94                         <img class='nwlink' src='ico/Eigentuemer.ico' width='16' height='16' alt='EIG'> 
     95                        <img class='nwlink' src='ico/Eigentuemer.ico' width='16' height='16' alt='EIG' title='Nachweis'> 
    9596                </a> 
    9697        </td> 
     
    177178// Alternativ wÃŒrde eine Hilfstabelle benötigt, in der im PostProcessing  
    178179// das GB-zu-Gemeinde-VerhÀltnis vorbereitet wird. 
    179         global $gkz, $gemeinde, $epsg, $name, $person, $blattgml, $debug, $bltbez, $bltblatt, $bltseite; 
     180        global $gkz, $gemeinde, $epsg, $name, $person, $blattgml, $debug, $bltbez, $bltblatt, $bltseite, $kennztyp, $zgbbez; 
     181        # $zblatt, $zblattn, $zblattz, $zbvnr; 
    180182        $linelimit=150; 
     183 
     184        // Head 
    181185        familiensuche(); 
    182186        personendaten(); 
     187 
     188        // Body 
    183189        // Suche nach GrundbÃŒchern der Person 
    184         $sql ="SELECT gb.gml_id AS gml_g, gb.buchungsblattnummermitbuchstabenerweiterung as blatt, b.bezeichnung AS beznam "; 
     190        $sql ="SELECT gb.gml_id AS gml_g, gb.buchungsblattnummermitbuchstabenerweiterung as blatt, b.bezirk, b.bezeichnung AS beznam "; 
    185191        $sql.="FROM alkis_beziehungen bpn "; 
    186192        $sql.="JOIN ax_namensnummer n ON bpn.beziehung_von=n.gml_id "; 
     
    189195        $sql.="JOIN ax_buchungsblattbezirk b ON gb.land = b.land AND gb.bezirk = b.bezirk "; 
    190196        $sql.="WHERE bpn.beziehung_zu= $1 AND bpn.beziehungsart='benennt' AND bng.beziehungsart='istBestandteilVon' "; 
     197 
     198        // Parameter $gbkennz, z.B. nach Klick auf Zeile "Bezirk" 
     199        if ($kennztyp > 1) { // 2=Such Bezirk-Nummer, 3=Such Blatt, 4=Such Buchung BVNR 
     200                #if ($debug > 0) {echo "<p class='dbg'>Filter Bezirk '".$zgbbez."'<p>";} 
     201                $sql.="AND b.bezirk = ".$zgbbez." "; 
     202                $bezirkaktuell = true; 
     203        } else { 
     204                $bezirkaktuell = false; 
     205        } 
     206 
    191207        if ($bltbez.$bltblatt != "") { // BlÀttern, Fortsetzen bei ... 
    192208                $sql.="AND ((b.bezeichnung > '".$bltbez."') "; 
    193209                $sql.="OR (b.bezeichnung = '".$bltbez."' AND gb.buchungsblattnummermitbuchstabenerweiterung > '".$bltblatt."')) "; 
    194210        } 
     211 
    195212        $sql.="ORDER BY b.bezeichnung, gb.buchungsblattnummermitbuchstabenerweiterung LIMIT $2 ;"; 
    196213 
     
    208225        } 
    209226        $cnt = 0; 
     227        $gwbez=""; 
    210228        while($row = pg_fetch_array($res)) { 
     229                $beznr=$row["bezirk"]; 
     230                if ($gwbez != $beznr) { // Gruppenwechsel Bezirk 
     231                        $beznam=$row["beznam"]; 
     232                        $gwbez=$beznr; 
     233                        zeile_gbbez ($beznam, $beznr, $bezirkaktuell); 
     234                } 
    211235                $gml=$row["gml_g"]; 
    212                 $beznam=$row["beznam"]; 
    213236                $blatt=$row["blatt"]; 
    214237                zeile_blatt($zgbbez, $beznam, $gml, $blatt, false, $person, false); 
    215238                $cnt++; 
    216239        } 
     240 
     241        // Foot 
    217242        if($cnt == 0) {  
    218243                echo "\n<p class='anz'>Kein Grundbuch zum Eigent&uuml;mer</p>"; 
    219244        } elseif($cnt >= $linelimit) { 
    220245                echo "\n<p class='blt'>".$cnt." Grundb. zum Eigent."; 
     246 
     247                // BlÀttern 
    221248                $nxtbltbez=urlencode($beznam); 
    222249                $nxtbltblatt=urlencode($blatt); 
     
    241268        global $gkz, $gemeinde, $name, $person, $blattgml, $epsg, $gfilter, $debug; 
    242269        if($backlink) { // Erneuter Ansatz bei Person oder GB möglich. 
     270 
    243271                // Namen ermitteln 
    244272                $sql ="SELECT nachnameoderfirma, vorname FROM ax_person WHERE gml_id = $1 "; 
     
    248276                if (!$res) {echo "\n<p class='err'>Fehler bei Eigent&uuml;mer</p>";} 
    249277                $row = pg_fetch_array($res); // nur eine Zeile 
    250                 $nnam=htmlentities($row["nachnameoderfirma"], ENT_QUOTES, "UTF-8"); 
    251                 $vnam=htmlentities($row["vorname"], ENT_QUOTES, "UTF-8"); 
    252  
    253                 // +++ Function zeile_person nutzen ? 
    254                 echo "\n\t<div class='back' title='zur&uuml;ck zur Person'>"; 
    255                         echo "\n\t\t<img class='nwlink' src='ico/Eigentuemer.ico' width='16' height='16' alt='EIG'> "; 
    256                         echo "\n\t<a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;person=".$person."'>"; 
    257                         echo $nnam.", ".$vnam."</a><br>";                
    258                 echo "</div>"; 
     278                zeile_person($person, $row["nachnameoderfirma"], $row["vorname"]); 
    259279 
    260280                // Grundbuch-Daten ermitteln 
    261281                $sql ="SELECT gb.gml_id AS gml_g, gb.buchungsblattnummermitbuchstabenerweiterung as blatt, b.bezirk, b.bezeichnung AS beznam "; 
    262282                $sql.="FROM ax_buchungsblatt gb JOIN ax_buchungsblattbezirk b ON gb.land=b.land AND gb.bezirk=b.bezirk "; 
    263                 $sql.="WHERE gb.gml_id= $1 ;"; 
     283                $sql.="WHERE gb.gml_id= $1 LIMIT 1 ;"; 
    264284                $v=array($blattgml); 
    265285                $res=pg_prepare("", $sql); 
     
    271291                $beznam=$row["beznam"]; 
    272292                $blatt=$row["blatt"]; 
     293                zeile_gbbez ($beznam, $bezirk, false); 
    273294                zeile_blatt($bezirk, $beznam, $blattgml, $blatt, false, $person, true);  
    274295        } 
    275         #GB_Buchung_FS(200, $bezirk."-".$blatt); // Blatt > GrundstÃŒck > Flurst. (max. 200) 
    276         GB_Buchung_FS(200, ""); // ohne den Link auf "Buchung" 
     296        GB_Buchung_FS(250, ""); // Blatt > Grundst. > FS, max. 250, ohne Link "Buchung" 
    277297        return; 
    278298} 
     
    288308// Stufe 2 und 3 nacheinander verwendet werden. Dies ist wahrscheinlich ÃŒbersichtlicher,  
    289309// weil "ungefiltert" in "2+3" zu lange Listen entstehen wÃŒrden, die durchblÀttert werden mÃŒssen.  
    290         global $gkz, $gemeinde, $epsg, $name, $person, $blattgml, $gfilter, $debug, $bltbez, $bltblatt, $bltbvnr, $bltseite, $bltrecht; 
     310        global $gkz, $gemeinde, $epsg, $name, $person, $blattgml, $gfilter, $debug, $bltbez, $bltblatt, $bltbvnr, $bltseite, $bltrecht, $kennztyp, $zgbbez; 
    291311        $linelimit=80; // als Limit "Anzahl FlurstÃŒcke" in den beiden folgenden Abfragen 
    292312        // darf nun etwas knapper sein, weil man jetzt blÀttern kann 
     
    336356        $sql2.="WHERE bpn.beziehung_zu= $1 AND bpn.beziehungsart='benennt' AND bng.beziehungsart='istBestandteilVon' "; 
    337357        $sql2.="AND vbg.beziehungsart='istBestandteilVon' AND vfb.beziehungsart='istGebucht' "; 
     358 
     359        // Parameter $gbkennz nach Klick auf Zeile "Bezirk" 
     360        if ($kennztyp > 1) { // 2=Such Bezirk-Nummer, 3=Such Blatt, 4=Such Buchung BVNR 
     361                #if ($debug > 0) {echo "<p class='dbg'>Filter Bezirk '".$zgbbez."'<p>";} 
     362                $sql2.="AND b.bezirk = ".$zgbbez." "; 
     363                $bezirkaktuell = true; 
     364        } else { 
     365                $bezirkaktuell = false; 
     366        } 
     367 
    338368        switch ($gfilter) { // Gemeinde-Filter 
    339369                case 1: // Einzelwert 
     
    387417                                $beznam=$row["beznam"]; 
    388418                                $gwgb=""; 
    389                                 # Zeile ausgeben? 
    390                                 if($debug > 0) {echo "<p class='dbg'>Bezirk ".$bezirk."</p<>";} 
     419                                zeile_gbbez($beznam, $gwbez, $bezirkaktuell); 
    391420                        } 
    392421                        $gb_gml=$row["gml_g"]; 
     
    401430                                $gwbv = $bvnr; 
    402431                                $bsgml=$row["bsgml"]; 
    403                                 zeile_buchung($bsgml, $bvnr, "", false, false); // ohne Link! 
    404                         #       zeile_buchung($bsgml, $bvnr, $bezirk."-".$blatt, false, false); 
     432                                zeile_buchung($bsgml, $bvnr, "", false, false); //ohne Link 
    405433                        } 
    406434                        $fs_gml=$row["gml_id"]; 
     
    414442                if($zfs1 == 0) { 
    415443                        if ($bltrecht == "ohne") {echo "\n<p class='anz'>Keine direkte Buchung gefunden.</p>";} 
    416                 } elseif($zfs1 >= $linelimit) { // das Limit war zu knapp, das  B l À t t e r n  anbieten 
    417                         echo "\n<p class='blt'>".$zfs1." Flurst&uuml;cke"; 
     444                } elseif($zfs1 >= $linelimit) { // das Limit war zu knapp 
     445                        echo "\n<p class='blt'>"; 
     446                        if ($bltseite > 1) {echo "weitere ";} 
     447                        echo $zfs1." Flurst&uuml;cke"; 
     448                        // B l À t t e r n  (eine Folgeseite anbieten) 
    418449                        $nxtbltbez=urlencode($beznam); 
    419450                        $nxtbltblatt=urlencode($blatt); 
    420451                        $nxtbltseite=$bltseite + 1; 
    421                         echo "\n - <a class='blt' href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;person=".$person."&amp;bltbez=".$nxtbltbez."&amp;bltblatt=".$nxtbltblatt."&amp;bltbvnr=".$bvnr."&amp;bltseite=".$nxtbltseite."&amp;bltrecht=ohne' "; 
     452                        echo "\n - <a class='blt' href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;person=".$person; 
     453                        echo "&amp;gbkennz=".$zgbbez; // Filter Bezirk 
     454                        echo "&amp;bltbez=".$nxtbltbez."&amp;bltblatt=".$nxtbltblatt."&amp;bltbvnr=".$bvnr."&amp;bltseite=".$nxtbltseite."&amp;bltrecht=ohne' "; 
    422455                        echo "title='Bl&auml;ttern ab ".htmlentities($beznam)." Blatt ".$blatt." BVNR ".$bvnr."'>weitere</a>"; 
    423456                        echo "</p>"; 
    424                 } elseif($zfs1 > 1) { // Meldung (Plural) ab 2  
    425                         echo "\n<p class='anz'>".$zfs1." Flurst&uuml;cke zum Eigent&uuml;mer</p>"; // im Limit 
     457                } elseif($zfs1 > 1) { // Meldung (Plural) ab 2, im Limit 
     458                        echo "\n<p class='anz'>"; 
     459                        if ($bltseite > 1) {echo "weitere ";} 
     460                        echo $zfs1; 
     461                        if ($kennztyp > 1) { 
     462                                echo " Flurst. zum Eigent. im GB-Bezirk</p>";  
     463                        } else { 
     464                                echo " Flurst&uuml;cke zum Eigent&uuml;mer</p>";  
     465                        } 
    426466                } 
    427467        }        
     
    443483                } 
    444484                $zfs2=0; 
    445                 $gwgb=""; 
     485                $gwbez=""; 
     486                #gwgb=""; 
    446487                while($row = pg_fetch_array($res)) {     
     488                        $bezirk=$row["bezirk"]; 
     489                        if ($gwbez != $bezirk) { // Gruppierung Bezirk 
     490                                $gwbez=$bezirk; 
     491                                $beznam=$row["beznam"]; 
     492                                $gwgb=""; 
     493                                zeile_gbbez($beznam, $gwbez, $bezirkaktuell); 
     494                        } 
    447495                        $gb_gml=$row["gml_g"]; 
    448496                        if ($gwgb != $gb_gml) {  // Gruppierung Blatt (Grundbuch) 
     
    475523                        } 
    476524                } elseif($zfs2 >= $linelimit) { // das Limit war zu knapp, das  B l À t t e r n  anbieten 
    477                         echo "\n<p class='blt'>".$zfs2." Rechte an Flurst."; 
     525                        echo "\n<p class='blt'>"; 
     526                        if ($bltseite > 1) {echo "weitere ";} 
     527                        echo $zfs2." Rechte an Flurst."; 
    478528                        $nxtbltbez=urlencode($beznam); 
    479529                        $nxtbltblatt=urlencode($blatt); 
    480530                        $nxtbltseite=$bltseite + 1; 
    481                         echo "\n - <a class='blt' href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;person=".$person."&amp;bltbez=".$nxtbltbez."&amp;bltblatt=".$nxtbltblatt."&amp;bltbvnr=".$bvnr."&amp;bltseite=".$nxtbltseite."&amp;bltrecht=nur' "; 
     531                        echo "\n - <a class='blt' href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;person=".$person; 
     532                        echo "&amp;gbkennz=".$zgbbez; // Filter Bezirk 
     533                        echo "&amp;bltbez=".$nxtbltbez."&amp;bltblatt=".$nxtbltblatt."&amp;bltbvnr=".$bvnr."&amp;bltseite=".$nxtbltseite."&amp;bltrecht=nur' "; 
    482534                        echo "title='Bl&auml;ttern ab ".htmlentities($beznam)." Blatt ".$blatt." BVNR ".$bvnr."'>weitere</a>"; 
    483535                        echo "</p>"; 
    484536                } elseif($zfs2 > 1) { // ab 2 
    485                         echo "\n<p class='anz'>".$zfs2." Rechte an Flurst.</p>"; // im Limit             
     537                        echo "\n<p class='anz'>"; 
     538                        if ($bltseite > 1) {echo "weitere ";} 
     539                        echo $zfs2." Rechte an Flurst.</p>"; // im Limit                 
    486540                } 
    487541        } // ENDE FÀlle mit "Rechte an" 
     
    510564} 
    511565 
    512 ## Aus Link "Buchung" kommen folgende Parameter: 
    513 # ?gkz=250&gemeinde=20&epsg=31467 
    514 # &buchunggml=DENW15AL1000Bj2m 
    515 # &gbkennz=2619-000025+-8 
    516 ## Weder buchunggml noch gbkennz werden ausgewertet. 
    517 ## Name fehlt (zum drÃŒber setzen) 
    518 ## vorlÀufige Lösung: Link verhindern. 
     566$kennztyp=ZerlegungGBKennz($gbkennz); // Grundbuch-Kennzeichen aus Parameter zerlegen: $z__  
     567// 2=Such Bezirk-Nummer, 3=Such Blatt, 4=Such Buchung BVNR 
    519568 
    520569// Quo Vadis? 
     
    532581        // Die Filtereinstellung beeinflusst die Such-Strategie: 
    533582        if ($gfilter == 0) {                    // Keine Filterung auf "Gemeinde": große Datenmenge 
    534  
    535                 $trans="Grundb&uuml;cher zum Eigent&uuml;mer"; 
     583                if ($kennztyp > 1) { 
     584                        $trans = "Grundb&uuml;cher in ".$zgbbez." von .."; // Filter GB-Bez 
     585                } else { 
     586                        $trans = "Grundb&uuml;cher von .."; // Name steht darunter 
     587                } 
    536588                getGBbyPerson(); 
    537589                // Also schrittweise erst mal Stufe 2 = GrundbÃŒcher zur Person suchen. 
    538590                if(isset($blattgml) ) { // Es wurde nur EIN Grundbuch zu der Person gefunden. 
    539                         $trans="1 Blatt zum Eigent&uuml;mer"; 
     591                        $trans = "1 Blatt zum Eigent&uuml;mer"; 
    540592                        getFSbyGB(false);       // Dann dazu auch gleich die Stufe 3 hinterher, aber ohne Backlink. 
    541                 }  
    542  
     593                } 
    543594        } else {                                                // mit Filter auf Gemeinde: weniger Daten? 
    544                 $trans="Grundb. und Flurst. zum Eigent&uuml;mer"; 
     595                if ($kennztyp > 1) { 
     596                        #trans="Grundb. und Flurst. in ".$zgbbez." von .. "; // zu lang 
     597                        $trans="Grdb. und Flst. von .. in .."; // Filter GB-Bez, 
     598                        // darunter sind dann Name und Bezirk farblich markiert 
     599                } else { 
     600                        $trans="Grundb. und Flurst. von .."; // der EigentÃŒmer steht darunter 
     601                } 
    545602                getGBuFSbyPerson();             // Schritte 2+3 gleichzeitig, dabei Gemeinde-Filter auf Stufe 3 
    546603        } 
  • trunk/mapbender/http/nav/alkisnav_fkt.php

    r283 r284  
    22/* Version vom  
    33        2013-05-07  Strukturierung des Programms, redundanten Code in Functions zusammen fassen 
    4         2013-05-08  Hervorhebung aktuelles Objekt, in Arbeit ... 
     4        2013-05-14  Hervorhebung aktuelles Objekt, Title auch auf Icon, IE zeigt sonst alt= als Title dar. 
    55*/ 
    66 
     
    1010// Hierin die Encodierung fÃŒr url und HTML. 
    1111 
     12function is_ne_zahl($wert) { 
     13        // Prueft, ob ein Wert ausschließlich aus den Zahlen 0 bis 9 besteht 
     14        if (trim($wert, "0..9") == "") {return true;} else {return false;} 
     15} 
     16 
     17function ZerlegungGBKennz($gbkennz) { 
     18        // Das eingegebene Grundbuch-Kennzeichen auseinander nehmen (gggg-999999z-BVNR) 
     19        // Return: 9=Fehler, 0=Listen alle Bezirke 1=Such Bezirk-Name 
     20        //  2=Such Bezirk-Nummer, 3=Such Blatt, 4=Such Buchung BVNR 
     21        global $zgbbez, $zblatt, $zblattn, $zblattz, $zbvnr; 
     22        $arr=explode("-", $gbkennz, 3); 
     23        $zgbbez=trim($arr[0]); 
     24        $zblatt=trim($arr[1]); 
     25        $zbvnr=trim($arr[2]); 
     26        if ($zgbbez == "") { // keine Eingabe 
     27                return 0; // Amtsgerichte oder Bezirke listen 
     28        } elseif ( ! is_ne_zahl($zgbbez)) { // Alphabetische Eingabe 
     29                return 1; // Such Bezirk-NAME 
     30        } elseif ($zblatt == "") { 
     31                return 2; // Such Bezirk-NUMMER 
     32        } else { // Format von BlattNr pruefen 
     33        //'19'      linksbÃŒndig 
     34        //'000019 ' gefÃŒllt 6 + blank 
     35        //'000019A' .. mit Zusatzbuchstabe 
     36        //'0300001' gefÃŒllt 7, bei Blattart 5000 "fiktives Blatt" 
     37                $len=strlen($zblatt); 
     38                if ($len > 0 AND $len < 8) {             
     39                        if (trim($zblatt, "0..9 ") == "") { // Normalfall: nur Zahlen (und Blank)) 
     40                                $zblattn= rtrim(ltrim($zblatt, "0"), " "); 
     41                                $zblattz=""; 
     42                        } else { // Sonderfall: Zusatz-Buchstabe am Ende 
     43                                $zblattn=substr($zblatt,0,$len-1); 
     44                                $zblattz=strtoupper(substr($zblatt,$len-1,1));  
     45                                if ((trim($zblattn, "0..9") == "") and (trim($zblattz, "A..Z") == "")) { 
     46                                        $zblattn= ltrim($zblattn, "0"); // ohne fuehrende Nullen 
     47                                } else { 
     48                                        echo "<p class='err>Format 'Blatt': bis zu 6 Zahlen und ggf. ein Buchstabe</p>";         
     49                                        return 9; 
     50                                } 
     51                        } 
     52                        if ($zbvnr == "") { 
     53                                return 3; // Such BLATT 
     54                        } elseif (is_ne_zahl($zbvnr)) {          
     55                                // $zbvnr=ltrim($zbvnr,"0"); // DB-Format ist integer 
     56                                // Vorsicht, Wert "0" ist moeglich und gueltig 
     57                                return 4; // Such Grundstueck 
     58                        } else { 
     59                                echo "<p class='err>Die Buchungsstelle (BVNR) '".$zbvnr."' ist nicht numerisch</p>"; 
     60                                return 9; 
     61                        } 
     62                } else { 
     63                        echo "<p class='err>Das Grundbuch-Blatt '".$zblatt."' ist ung&uuml;ltig.</p>"; 
     64                        return 9; 
     65                } 
     66        } 
     67} 
     68 
     69function suchfeld($suchstring) {        // Suchstring Ausgeben UND das Eingabeformular damit belegen 
     70        $out="<a title='Dies als Suchbegriff setzen' href='javascript:formular_belegung(\"".$suchstring."-\")'>".$suchstring."</a>"; 
     71        return $out; 
     72} 
     73 
    1274function zeile_ag ($ag, $anr, $aktuell) {       // Zeile  A m t s g e r i c h t 
    1375        global $gkz, $gemeinde, $epsg, $auskpath; 
     
    1981        if ($aktuell) {$cls=" aktuell";} 
    2082        echo "\n<div class='ga".$cls."' title='Amtsgericht'>"; 
    21                 echo "\n\t\t<img class='nwlink' src='ico/Gericht.ico' width='16' height='16' alt='Amtsgericht'> "; 
     83                echo "\n\t\t<img class='nwlink' src='ico/Gericht.ico' width='16' height='16' alt='AG' title='Amtsgericht'> "; 
    2284                echo "AG <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;ag=".$anr."'>";             
    2385                echo $agd."</a> (".$anr.")"; 
     
    2789 
    2890function zeile_gbbez ($gnam, $zgbbez, $aktuell) {       // Zeile Grundbuch - B e z i r k 
    29         global $gkz, $gemeinde, $epsg, $auskpath; 
     91        // Parameter: aktuell = Bool fÃŒr farbliche Markierung der Zeile als aktuell angeklicktes Obj. 
     92        global $gkz, $gemeinde, $epsg, $person; 
    3093        $gnamd=htmlentities($gnam, ENT_QUOTES, "UTF-8"); 
    3194        if ($aktuell) {$cls=" aktuell";}         
    3295        echo "\n<div class='gk".$cls."' title='GB-Bezirk'>"; 
    33                 echo "\n\t\t<img class='nwlink' src='ico/GB-Bezirk.ico' width='16' height='16' alt='Bez.'> "; 
    34                 echo "<a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;gbkennz=".$zgbbez."'>";                
    35                 echo "Bezirk ".$gnamd."</a> (".suchfeld($zgbbez).")";                    
     96        echo "\n\t\t<img class='nwlink' src='ico/GB-Bezirk.ico' width='16' height='16' alt='Bez.' title='GB-Bezirk'> "; 
     97        echo "<a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;gbkennz=".$zgbbez; 
     98        echo "&amp;gbbeznam=".urlencode($gnam); 
     99        if ($person != "") { // EigentÃŒmer-Suche 
     100                echo "&amp;person=".$person."'>"; 
     101                echo "Bezirk ".$gnamd."</a> (".$zgbbez.")";              
     102        } else {  // Grundbuch-Suche 
     103                echo "'>"; 
     104                echo "Bezirk ".$gnamd."</a> (".suchfeld($zgbbez).")";            
     105        } 
    36106        echo "\n</div>"; 
    37  
    38107        return; 
    39108} 
     
    47116        if ($beznam != "") {$nam = $beznam." ";} 
    48117        if ($aktuell) {$cls=" aktuell";}         
     118 
    49119        echo "\n<div class='gb".$cls."' title='".$dientxt."GB-Blatt'>"; 
     120 
     121        // Icon / Nachweis 
    50122        if ($blattgml == "") { // Link zum Nachweis nur wenn GML bekannt 
    51                 echo "\n\t<img class='nwlink' src='ico/GBBlatt_link.ico' width='16' height='16' alt='Blatt'>"; 
     123                echo "\n\t<img class='nwlink' src='ico/GBBlatt_link.ico' width='16' height='16' alt='Blatt' title='".$dientxt."GB-Blatt'>"; 
    52124        } else { 
    53125                echo "\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisbestnw.php?gkz=".$gkz."&amp;gmlid=".$blattgml."\")'>"; 
    54                         echo "\n\t\t<img class='nwlink' src='ico/GBBlatt_link.ico' width='16' height='16' alt='Blatt'>"; 
     126                        echo "\n\t\t<img class='nwlink' src='ico/GBBlatt_link.ico' width='16' height='16' alt='Blatt' title='Nachweis'>"; 
    55127                echo "\n\t</a> "; 
    56128        } 
     129 
     130        // Text, Self-Link 
    57131        echo $nam." <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg; 
    58132        echo "&amp;blattgml=".$blattgml."&amp;gbkennz=".$bezirk."-".$blattlnk; 
     
    82156        if ($aktuell) {$cls=" aktuell";}         
    83157        echo "\n<div class='gs".$cls."' title='".$ti."Grundst&uuml;ck'>"; 
    84         echo "\n\t<img class='nwlink' src='ico/Grundstueck.ico' width='16' height='16' alt='GS'> ".$re; 
     158        echo "\n\t<img class='nwlink' src='ico/Grundstueck.ico' width='16' height='16' alt='GS'  title='".$ti."Grundst&uuml;ck'> ".$re; 
    85159        if ($blattkennz == "") { // ohne Link 
    86160                echo "Buchung ".$bvnra; 
     
    100174        echo "\n<div class='fs".$cls."'>"; 
    101175        echo "\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisfsnw.php?gkz=".$gkz."&amp;gmlid=".$fs_gml."\")'>"; 
    102                 echo "\n\t\t<img class='nwlink' src='ico/Flurstueck_Link.ico' width='16' height='16' alt='FS'>"; 
     176                echo "\n\t\t<img class='nwlink' src='ico/Flurstueck_Link.ico' width='16' height='16' alt='FS' title='Nachweis'>"; 
    103177        echo "\n\t</a>\n\t";                     
    104178 
     
    129203        // Link zur Auskunft Person ++ Icon differenzieren? Firma/Person 
    130204 
    131 // 2013-05-08 DIV statt br 
    132205echo "<div class='pe'> 
    133206        <a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisnamstruk.php?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;gmlid=".$gml."\")'> 
    134                 <img class='nwlink' src='ico/Eigentuemer.ico' width='16' height='16' alt='EIG'> 
     207                <img class='nwlink' src='ico/Eigentuemer.ico' width='16' height='16' alt='EIG' title='Nachweis'> 
    135208        </a>             
    136209        <a title='Person' href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;person=".$persongml."&amp;name=".$namlnk."'>".$nnam.", ".$vnam."</a> 
     
    140213 
    141214function GB_Buchung_FS ($linelimit, $blattgbkenn) { 
    142 // Zu einem Grundbuch-Blatt (identifiziert ÃŒber seine gml_id) suchen der  
    143 // Buchungen (Gruppenwechsel) und FlurstÃŒcke (Links) 
     215        // Zu einem Grundbuch-Blatt (identifiziert ÃŒber seine gml_id) suchen der  
     216        // Buchungen (Gruppenwechsel) und FlurstÃŒcke (Links) 
    144217        global $gemeinde, $blattgml, $epsg, $gfilter, $debug; 
    145218 
     
    208281                $zfs1++; 
    209282        } 
    210         #if($zfs1 == 0) { // "nichts gefunden" erst melden, wenn auch Teil 2 (Rechte an) nichts findet 
    211         #} else 
    212         if($zfs1 >= $linelimit) { 
    213                 echo "\n<p class='anz'>... und weitere</p>"; // +++  BlÀttern einfÃŒhren? 
    214         } elseif($zfs1 > 1) { // ab 2 
    215                 echo "\n<p class='anz'>".$zfs1." Flurst&uuml;cke zum Grundbuch</p>"; 
     283        // "nichts gefunden" erst melden, wenn auch Teil 2 (Rechte an) nichts findet 
     284        if($zfs1 > 1) { // ab 2 
     285                echo "\n<p class='anz'>".$zfs1." Flurst&uuml;cke zum Grundbuch"; 
     286                if($zfs1 >= $linelimit) { 
     287                        echo "... und weitere"; //++ BlÀttern einfÃŒhren? 
     288                } 
     289                echo "</p>"; 
    216290        } 
    217291        if($zfs1 > 0) {echo "<hr>";} // Trennen 
     
    246320        if($zfs1 + $zfs2 == 0) {  
    247321                echo "\n<p class='anz'>Kein Flurst&uuml;ck im berechtigten Bereich.</p>"; 
    248         } elseif($zfs >= $linelimit) { 
    249                 echo "\n<p class='anz'>... und weitere</p>"; // BlÀttern einfÃŒhren? 
    250322        } elseif($zfs2 > 1) { // keine Meldung "nichts gefunden - Rechte an" wenn Treffer in Teil 1 
    251                 echo "\n<p class='anz'>".$zfs2." Rechte an Flurst.</p>"; 
     323                echo "\n<p class='anz'>".$zfs2." Rechte an Flurst."; 
     324                if($zfs2 >= $linelimit) { 
     325                        echo "... und weitere"; // BlÀttern einfÃŒhren? 
     326                } 
     327                echo "</p>"; 
    252328        } 
    253329        return; 
  • trunk/mapbender/http/nav/alkisnav_fls.htm

    r95 r284  
    3737<ul> 
    3838        <script type="text/javascript" language="JavaScript"> 
    39                 document.writeln("<li><a target='_self' href='alkisnav_eig.htm?gkz=" + gkz + "&amp;gemeinde=" + gem + "'>Adresse</a></li>"); 
     39                document.writeln("<li><a target='_self' href='alkisnav_adr.htm?gkz=" + gkz + "&amp;gemeinde=" + gem + "'>Adresse</a></li>"); 
    4040                document.writeln("<li><a target='_self' href='alkisnav_eig.htm?gkz=" + gkz + "&amp;gemeinde=" + gem + "'>Name</a></li>"); 
    4141                document.writeln("<li class='aktiveTab'>Flurst&uuml;ck</li>"); 
  • trunk/mapbender/http/nav/alkisnav_fls.php

    r283 r284  
    77        2013-04-29      Test mit IE 
    88        2013-05-07  Strukturierung des Programms, redundanten Code in Functions zusammen fassen 
    9         2013-05-08  Variablen-Namen geordnet, Hervorhebung aktuelles Objekt, in Arbeit ... 
     9        2013-05-14  Variablen-Namen geordnet, Hervorhebung aktuelles Objekt, Title auch auf Icon, IE zeigt sonst alt= als Title dar. 
    1010*/ 
    1111$cntget = extract($_GET); 
     
    4141 
    4242END; 
    43  
    44 function is_ne_zahl($wert) { 
    45         // Prueft, ob ein Wert ausschließlich aus den Zahlen 0 bis 9 besteht 
    46         if (trim($wert, "0..9") == "") {return true;} else {return false;} 
    47 } 
    4843 
    4944function h_hinten($zahl) { 
     
    158153        if ($aktuell) {$cls=" aktuell";} 
    159154        echo "\n<div class='gk".$cls."' title='Gemarkung'>"; 
    160         echo "\n\t\t<img class='nwlink' src='ico/Gemarkung.ico' width='16' height='16' alt='Gemarkung'>"; 
     155        echo "\n\t\t<img class='nwlink' src='ico/Gemarkung.ico' width='16' height='16' alt='GKG' title='Gemarkung'>"; 
    161156        echo " OT <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;fskennz=".$gkgnr."'>";             
    162157        echo  " ".$gnam."</a> (".$gkgnr.")"; 
     
    169164        if ($aktuell) {$cls=" aktuell";} 
    170165        echo "\n<div class='fl".$cls."' title='Flur'>"; 
    171         echo "\n\t\t<img class='nwlink' src='ico/Flur.ico' width='16' height='16' alt='Flur'> "; 
     166        echo "\n\t\t<img class='nwlink' src='ico/Flur.ico' width='16' height='16' alt='FL' title='Flur'> "; 
    172167        $url=$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;fskennz=".$gkgnr."-".$flurnr; 
    173168        echo "<a title='Aktuelle Flurst&uuml;cke suchen' href='".$url."'>Flur ".$flurnr." </a>";  
     
    194189        // Icon -> Buchnachweis 
    195190        echo "\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisfshist.php?gkz=".$gkz."&amp;gmlid=".$fs_gml."\")'>"; 
    196                 echo "\n\t\t<img class='nwlink' src='ico/".$ico."' width='16' height='16' alt='Hist'>"; 
     191                echo "\n\t\t<img class='nwlink' src='ico/".$ico."' width='16' height='16' alt='Hist' title='".$titl."'>"; 
    197192        echo "\n\t</a>"; 
    198193 
     
    232227        echo "\n<div class='hn' title='Nachfolger: ".$titl."'>";                         
    233228                echo "\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath.$auskprog.".php?gkz=".$gkz."&amp;gmlid=".$gml."\")'>"; 
    234                         echo "\n\t\t<img class='nwlink' src='ico/".$ico."' width='16' height='16' alt='FS'>"; 
     229                        echo "\n\t\t<img class='nwlink' src='ico/".$ico."' width='16' height='16' alt='FS' title='Nachweis'>"; 
    235230                echo "\n\t</a> ";                
    236231                echo "Flst. <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&amp;gemeinde=".$gemeinde."&amp;epsg=".$epsg."&amp;fskennz=".$fs.$hisparm."'>".$fskenn."</a>";                                      
     
    464459 
    465460function HistFlur() { 
    466         // Kennzeichen aus Gemarkung und FlurNr wurde eingegeben 
     461        // Kennzeichen aus Gemarkung und FlurNr wurde eingegeben. 
    467462        // Die Flur nach historischen FlurstÃŒcken durchsuchen 
    468463        global $con, $gkz, $gemeinde, $epsg, $debug, $scalefs, $auskpath, $land, $zgemkg, $zflur; 
     
    506501 
    507502function EinFlurstueck() { 
    508         // FlurstÃŒckskennzeichen wurde komplett bis zum Zaehler eingegeben 
    509         // Sonderfall: bei Bruchnummer, mehrere Nenner zum Zaehler 
     503        // FlurstÃŒckskennzeichen wurde komplett bis zum Zaehler (oder Nenner) eingegeben 
     504        // Sonderfall: bei Bruchnummer, mehrere Nenner zum Zaehler suchen wenn kein Nenner eingegeben wurde. 
    510505        global $con, $gkz, $debug, $epsg, $gemeinde, $fskennz, $zgemkg, $zflur, $zzaehler, $znenner; 
    511506 
     
    555550 
    556551function HistFlurstueck() { 
    557         // Die Nachfolger-FS-Kennzeichen sollen recherchiert werden. 
     552        // Die Nachfolger-FS-Kennzeichen zu einem Historischen FS sollen recherchiert werden. 
    558553        global $debug, $land, $zgemkg, $zflur, $zzaehler, $znenner; 
    559554 
     
    561556        gg_head($zgemkg, false); 
    562557        zeile_flur($zgemkg, $zflur, true, false); 
     558        echo "\n<hr>"; 
    563559 
    564560        // Body 
    565561        // Suche ueber das Flurstueckskennzeichen, gml unbekannt 
    566         $fldlist=" AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner, "; 
    567         $whcl.="WHERE flurstueckskennzeichen= $1 "; 
    568         $sql ="SELECT 'a'".$fldlist."null as nachf FROM ax_flurstueck ".$whcl; 
    569         $sql.="UNION SELECT 'h'".$fldlist."nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueck ".$whcl; 
    570         $sql.="UNION SELECT 'o'".$fldlist."nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueckohneraumbezug ".$whcl; 
    571562        $fskzwhere =$land.$zgemkg; // Flurst-Kennz. f. Where 
    572563        $fskzwhere.=str_pad($zflur, 3, "0", $STR_PAD_LEFT); 
    573564        $fskzwhere.=str_pad($zzaehler, 5, "0", $STR_PAD_LEFT); 
    574         if ($znenner == "") {$fskzwhere.="______";} 
    575         else {$fskzwhere.=str_pad($znenner, 4, "0", $STR_PAD_LEFT)."__";} 
     565        if ($znenner == "") {   // Wenn kein Nenner angegeben wurde,  
     566                //wird mit Wildcard und like nach allen Nennern gesucht. 
     567                $fskzwhere.="____\_\_"; // fÃŒr like  
     568                // Das Wildcard-Zeichen "_" ist dummerweise mit FÃŒllzeichen im Feldinhalt identisch 
     569                $whereop=" like "; 
     570        } else { // Ein Nenner wurde angegeben 
     571                $fskzwhere.=str_pad($znenner, 4, "0", $STR_PAD_LEFT)."__"; 
     572                $whereop=" = "; 
     573        } 
     574        $whcl.="WHERE flurstueckskennzeichen ".$whereop." $1 "; 
     575         
     576        $fldlist=" AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner, "; 
     577 
     578        // NICHT in aktuell suchen wenn explizit historisch gesucht wird 
     579        #$sql ="SELECT 'a'".$fldlist."null as nachf FROM ax_flurstueck ".$whcl." UNION "; 
     580        $sql ="SELECT 'h'".$fldlist."nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueck ".$whcl; 
     581        $sql.="UNION SELECT 'o'".$fldlist."nachfolgerflurstueckskennzeichen as nachf FROM ax_historischesflurstueckohneraumbezug ".$whcl; 
     582 
    576583        $v=array($fskzwhere); 
     584        #echo "<p class='dbg'>SQL=".$sql."<br>WHERE=".$fskzwhere."</p>";  // ++++ TEST 
    577585 
    578586        $res=pg_prepare("", $sql); 
     
    581589        $zfs=0; 
    582590 
    583         while($row = pg_fetch_array($res)) { 
     591        while($row = pg_fetch_array($res)) { // Schleife Hist-FS 
    584592                $ftyp=$row["ftyp"]; 
    585593                $fs_gml=$row["gml_id"]; 
     
    589597                $nachf=$row["nachf"]; 
    590598                if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];} 
    591                 if ($ftyp == "a") { // als aktuelles FS gefunden, das "h" war also unnötig! 
    592                         $koor=flurstueckskoordinaten($fs_gml); 
    593                         echo "\n<p>Flurst&uuml;ck ".$fskenn." ist aktuell, nicht historisch</p>";        
    594                         zeile_flurstueck ($fs_gml, $fskenn, $koor["x"], $koor["y"], $gknr, $flur, true); 
    595                 } else { // Historisches FS gefunden (h oder o) 
    596                         zeile_hist_fs($fs_gml, $fskenn, $ftyp, $gknr, $flur, true); 
    597                         if ($nachf == "") { 
    598                                 echo "\n<p class='err'>keine Nachfolger</p>";    
    599                         } else { 
    600                                 echo "\n<p>Nachfolger-Flurst&uuml;cke:</p>"; 
    601                                 // Direkte Nachfolger ermitteln. In $nachf steht ein Array von FS-Kennzeichen. 
    602                                 // Von den einzelnen Kennz. ist unbekannt, ob diese noch aktuell sind  
    603                                 // oder auch schon wieder historisch. 
    604                                 // Nachfolger in DB suchen um den Status aktuell/historisch zu ermitteln 
    605                                 $stri=trim($nachf, "{}"); 
    606                                 $stri="'".str_replace(",", "','", $stri)."'"; 
    607                                 $whcln.="WHERE flurstueckskennzeichen IN ( ".$stri." ) "; 
    608                                 $nasql ="SELECT 'a' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_flurstueck ".$whcln; 
    609                                 $nasql.="UNION SELECT 'h' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_historischesflurstueck ".$whcln; 
    610                                 $nasql.="UNION SELECT 'o' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_historischesflurstueckohneraumbezug ".$whcln; 
    611                                 $v=array(); 
    612                                 $nares=pg_prepare("", $nasql); 
    613                                 $nares=pg_execute("", $v); 
    614                                 if (!$nares) {echo "\n<p class='err'>Fehler bei Nachfolger.</p>";} 
    615                                 $zfsn=0; 
    616                                 while($narow = pg_fetch_array($nares)) { 
    617                                         $naftyp=$narow["ftyp"]; 
    618                                         $nagml=$narow["gml_id"]; 
    619                                         $nagknr=$narow["gemarkungsnummer"]; 
    620                                         $naflur=$narow["flurnummer"]; 
    621                                         $nafskenn=$narow["zaehler"]; 
    622                                         if ($narow["nenner"] != "") {$nafskenn.="/".$narow["nenner"];} 
    623                                         zeile_nachf_fs ($nagml, $nagknr, $naflur, $nafskenn, $naftyp); 
    624                                         $zfsn++; 
    625                                 } 
    626                                 if ($zfsn == 0) { 
    627                                         echo "\n<p class='anz'>keine Nachfolger gefunden</p>"; 
    628                                 } else { // if($zfsn > 1) 
    629                                         echo "\n<p class='anz'>".$zfsn." Nachfolger-Flurst&uuml;cke</p>"; 
    630                                 } 
     599 
     600                #if ($ftyp == "a") { // als aktuelles FS gefunden, das "h" war also unnötig! 
     601                #       $koor=flurstueckskoordinaten($fs_gml); 
     602                #       echo "\n<p>Flurst&uuml;ck ".$fskenn." ist aktuell, nicht historisch</p>";        
     603                #       zeile_flurstueck ($fs_gml, $fskenn, $koor["x"], $koor["y"], $gknr, $flur, true); 
     604                #} else { // Historisches FS gefunden (h oder o) 
     605 
     606                zeile_hist_fs($fs_gml, $fskenn, $ftyp, $gknr, $flur, true); 
     607                if ($nachf == "") { 
     608                        echo "\n<p class='anz'>keine Nachfolger</p>";    
     609                } else { 
     610                        echo "\n<p class='hn'>Nachfolger-Flurst&uuml;cke:</p>"; 
     611                        // Direkte Nachfolger ermitteln. In $nachf steht ein Array von FS-Kennzeichen. 
     612                        // Von den einzelnen Kennz. ist unbekannt, ob diese noch aktuell sind  
     613                        // oder auch schon wieder historisch. 
     614                        // Nachfolger in DB suchen um den Status aktuell/historisch zu ermitteln 
     615                        $stri=trim($nachf, "{}"); 
     616                        $stri="'".str_replace(",", "','", $stri)."'"; 
     617 
     618                        $nawhcl="WHERE flurstueckskennzeichen IN ( ".$stri." ) "; 
     619 
     620                        $nasql ="SELECT 'a' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_flurstueck ".$nawhcl; 
     621                        $nasql.="UNION SELECT 'h' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_historischesflurstueck ".$nawhcl; 
     622                        $nasql.="UNION SELECT 'o' AS ftyp, gml_id, gemarkungsnummer, flurnummer, zaehler, nenner FROM ax_historischesflurstueckohneraumbezug ".$nawhcl; 
     623 
     624                        $v=array(); 
     625                        $nares=pg_prepare("", $nasql); 
     626                        $nares=pg_execute("", $v); 
     627                        if (!$nares) {echo "\n<p class='err'>Fehler bei Nachfolger.</p>";} 
     628                        $zfsn=0; 
     629                        // inner Body 
     630                        while($narow = pg_fetch_array($nares)) { 
     631                                $naftyp=$narow["ftyp"]; 
     632                                $nagml=$narow["gml_id"]; 
     633                                $nagknr=$narow["gemarkungsnummer"]; 
     634                                $naflur=$narow["flurnummer"]; 
     635                                $nafskenn=$narow["zaehler"]; 
     636                                if ($narow["nenner"] != "") {$nafskenn.="/".$narow["nenner"];} 
     637                                zeile_nachf_fs ($nagml, $nagknr, $naflur, $nafskenn, $naftyp); 
     638                                $zfsn++; 
    631639                        } 
    632                 } 
     640                        // inner Footer 
     641                        if ($zfsn == 0) { 
     642                                echo "\n<p class='anz'>keine Nachfolger</p>"; 
     643                        } elseif ($zfsn > 1) { 
     644                                echo "\n<p class='anz'>".$zfsn." Nachfolger-Flst.</p>"; 
     645                        } 
     646                        echo "\n<hr>"; 
     647                } 
     648                #} // aktuell ... 
    633649                $zfs++; 
    634650        } 
  • trunk/mapbender/http/nav/alkisnav_grd.php

    r283 r284  
    88        2013-04-29      Test mit IE 
    99        2013-05-07  Strukturierung des Programms, redundanten Code in Functions zusammen fassen 
    10         2013-05-08  Hervorhebung aktuelles Objekt, in Arbeit ... 
     10        2013-05-14  Hervorhebung aktuelles Objekt. Title "Nachweis" auch auf Icon. 
    1111*/ 
    1212$cntget = extract($_GET); 
     
    4646 
    4747END; 
    48  
    49 function suchfeld($suchstring) {        // Suchstring Ausgeben UND das Eingabeformular damit belegen 
    50         $out="<a title='Dies als Suchbegriff setzen' href='javascript:formular_belegung(\"".$suchstring."-\")'>".$suchstring."</a>"; 
    51         return $out; 
    52 } 
    53  
    54 function is_ne_zahl($wert) { 
    55         // Prueft, ob ein Wert ausschließlich aus den Zahlen 0 bis 9 besteht 
    56         if (trim($wert, "0..9") == "") {return true;} else {return false;} 
    57 } 
    58  
    59 function ZerlegungGBKennz($gbkennz) { 
    60         // Das eingegebene Grundbuch-Kennzeichen auseinander nehmen (gggg-999999z-BVNR) 
    61         // Return: 9=Fehler, 0=Listen alle Bezirke 1=Such Bezirk-Name 
    62         //  2=Such Bezirk-Nummer, 3=Such Blatt, 4=Such Buchung BVNR 
    63         global $debug, $zgbbez, $zblatt, $zblattn, $zblattz, $zbvnr;     
    64         $arr=explode("-", $gbkennz, 3); 
    65         $zgbbez=trim($arr[0]); 
    66         $zblatt=trim($arr[1]); 
    67         $zbvnr=trim($arr[2]); 
    68         if ($zgbbez == "") { // keine Eingabe 
    69                 return 0; // Amtsgerichte oder Bezirke listen 
    70         } elseif ( ! is_ne_zahl($zgbbez)) { // Alphabetische Eingabe 
    71                 return 1; // Such Bezirk-NAME 
    72         } elseif ($zblatt == "") { 
    73                 return 2; // Such Bezirk-NUMMER 
    74         } else { // Format von BlattNr pruefen 
    75         //'19'      linksbÃŒndig 
    76         //'000019 ' gefÃŒllt 6 + blank 
    77         //'000019A' .. mit Zusatzbuchstabe 
    78         //'0300001' gefÃŒllt 7, bei Blattart 5000 "fiktives Blatt" 
    79                 $len=strlen($zblatt); 
    80                 if ($len > 0 AND $len < 8) {             
    81                         if (trim($zblatt, "0..9 ") == "") { // Normalfall: nur Zahlen (und Blank)) 
    82                                 $zblattn= rtrim(ltrim($zblatt, "0"), " "); 
    83                                 $zblattz=""; 
    84                         } else { // Sonderfall: Zusatz-Buchstabe am Ende 
    85                                 $zblattn=substr($zblatt,0,$len-1); 
    86                                 $zblattz=strtoupper(substr($zblatt,$len-1,1));  
    87                                 if ((trim($zblattn, "0..9") == "") and (trim($zblattz, "A..Z") == "")) { 
    88                                         $zblattn= ltrim($zblattn, "0"); // ohne fuehrende Nullen 
    89                                 } else { 
    90                                         echo "<p class='err>Format 'Blatt': bis zu 6 Zahlen und ggf. ein Buchstabe</p>";         
    91                                         return 9; 
    92                                 } 
    93                         } 
    94                         if ($zbvnr == "") { 
    95                                 return 3; // Such BLATT 
    96                         } elseif (is_ne_zahl($zbvnr)) {          
    97                                 // $zbvnr=ltrim($zbvnr,"0"); // DB-Format ist integer 
    98                                 // Vorsicht, Wert "0" ist moeglich und gueltig 
    99                                 return 4; // Such Grundstueck 
    100                         } else { 
    101                                 echo "<p class='err>Die Buchungsstelle (BVNR) '".$zbvnr."' ist nicht numerisch</p>"; 
    102                                 return 9; 
    103                         } 
    104                 } else { 
    105                         echo "<p class='err>Das Grundbuch-Blatt '".$zblatt."' ist ung&uuml;ltig.</p>"; 
    106                         return 9; 
    107                 } 
    108         } 
    109 } 
    11048 
    11149function ListAG($liste_ag, $aktuell) { 
Note: See TracChangeset for help on using the changeset viewer.