Changeset 315 for trunk/info/info/alkis/alkisfkt.php

Timestamp:

02/06/14 16:40:10 (10 years ago)

Author:

frank.jaeger

Message:

Feinschliff und Korrektur an Auskunft und Navigation

File:

• trunk/info/info/alkis/alkisfkt.php (modified) (12 diffs)

trunk/info/info/alkis/alkisfkt.php

@@ -5 +5 @@
 
         Version:
-        2010-12-17  Astrid Emde: Prepared Statements (pg_query -> pg_prepare + pg_execute)
-        2011-11-01  *Left* Join - Fehlertoleranz bei unvollstaendigen Schluesseltabellen
-        2011-11-02  Parameter debug in function eigentuemer
-        2011-11-17  Variable ($debug, $idanzeige, $showkey) von Parameter nach global. Die heißen in allen Programmteilen gleich.
-        2014-01-22      Eigentuemerart: Mehr Werte und Zugriff auf DB-SchlÃŒssel-Tabelle 
+        2010-12-17 Astrid Emde: Prepared Statements (pg_query -> pg_prepare + pg_execute)
+        2011-11-01 *Left* Join - Fehlertoleranz bei unvollstaendigen Schluesseltabellen
+        2011-11-02 Parameter debug in function eigentuemer
+        2011-11-17 Variable ($debug, $idanzeige, $showkey) von Parameter nach global. Die heißen in allen Programmteilen gleich.
+        2014-01-22 Eigentuemerart: Mehr Werte und Zugriff auf DB-SchlÃŒssel-Tabelle
+        2014-02-06 Korrektur EigentÃŒmerart
 */
 
@@ -73 +74 @@
 function kurz_namnr($lang) {
         // Namensnummer kuerzen. Nicht benoetigte Stufen der Dezimalklassifikation abschneiden
-        $kurz=str_replace(".00","",$lang);      // leere Stufen (nur am Ende)
-        $kurz=str_replace("0000","",$kurz);     // ganz leer (am Anfang)
-        $kurz=ltrim($kurz, "0");                                // fuehrende Nullen am Anfang
-        $kurz=str_replace(".0",".",$kurz);      // fuehrende Null jeder Stufe
+        $kurz=str_replace(".00","",$lang); // leere Stufen (nur am Ende)
+        $kurz=str_replace("0000","",$kurz); // ganz leer (am Anfang)
+        $kurz=ltrim($kurz, "0"); // fuehrende Nullen am Anfang
+        $kurz=str_replace(".0",".",$kurz); // fuehrende Null jeder Stufe
         return $kurz;
 }
@@ -169 +170 @@
                 $j++;
         } // Ende Flurstueck
+        pg_free_result($resf);
         return $j;
 }
@@ -176 +178 @@
         // Sp.1 = Namennummer, Sp. 2 = Name / Adresse, Sp. 3 = Link
         // Parameter:
-        //              $gmlid = ID des GB-Blattes
-        //              $mitadresse = Option (true/false) ob auch die Adresszeile ausgegeben werden soll
+        //      $gmlid = ID des GB-Blattes
+        //      $mitadresse = Option (true/false) ob auch die Adresszeile ausgegeben werden soll
         // Return = Anzahl Namensnummern
 
@@ -195 +197 @@
         $sqln="SELECT n.gml_id, n.laufendenummernachdin1421 AS lfd, n.zaehler, n.nenner, ";
         $sqln.="n.artderrechtsgemeinschaft AS adr, n.beschriebderrechtsgemeinschaft as beschr, n.eigentuemerart, n.anlass ";
-        $sqln.="FROM ax_namensnummer n ";
-        $sqln.="JOIN alkis_beziehungen b ON b.beziehung_von=n.gml_id ";
-        $sqln.="WHERE b.beziehung_zu= $1 "; // id blatt
-        $sqln.="AND b.beziehungsart='istBestandteilVon' ";
-        $sqln.="ORDER BY laufendenummernachdin1421;";
+        $sqln.="FROM ax_namensnummer n JOIN alkis_beziehungen b ON b.beziehung_von=n.gml_id ";
+        $sqln.="WHERE b.beziehung_zu= $1 AND b.beziehungsart='istBestandteilVon' ORDER BY laufendenummernachdin1421;";
 
         $v = array($gmlid);
@@ -245 +244 @@
                         // aus welchen Namensnummern die aktuelle entstanden ist.
 
-                // Schleife 2: P e r s o n  
+                // Schleife 2: P e r s o n
                 // Beziehung: ax_person  <benennt<  ax_namensnummer
                 $sqlp ="SELECT p.gml_id, p.nachnameoderfirma, p.vorname, p.geburtsname, p.geburtsdatum, p.namensbestandteil, p.akademischergrad ";
@@ -276 +275 @@
                         }
                         // Spalte 2 = Angaben
-                        $eiart=eigentuemerart($rown["eigentuemerart"]);
-                        echo "\n\t\t<p class='geig' title='Eigent&uuml;merart ".$eiart."'>".$diePerson."</p>\n\t</td>";
+                        $eiartkey=$rown["eigentuemerart"];
+                        $eiart=eigentuemerart($eiartkey);
+                        echo "\n\t\t<p class='geig' title='Eigent&uuml;merart: ".$eiart."'>".$diePerson."</p>\n\t</td>";
 
                         // Spalte 3 = Link
                         echo "\n\t<td>\n\t\t<p class='nwlink noprint'>";
                                 if ($idanzeige) {linkgml($gkz, $rowp["gml_id"], "Person"); echo "&nbsp";}
+                                if ($showkey) {echo "<span class='key'>(".$eiartkey.")</span> ";}
                                 echo "\n\t\t<a href='".$lnkvor."alkisnamstruk.php?gkz=".$gkz."&amp;gmlid=".$rowp[0];
                                 if ($idanzeige) {echo "&amp;id=j";}
@@ -292 +293 @@
                                 // Schleife 3:  A d r e s s e  (OPTIONAL)
                                 $sqla ="SELECT a.gml_id, a.ort_post, a.postleitzahlpostzustellung AS plz, a.strasse, a.hausnummer, a.bestimmungsland ";
-                                $sqla.="FROM ax_anschrift a ";
-                                $sqla.="JOIN alkis_beziehungen b ON a.gml_id=b.beziehung_zu ";
+                                $sqla.="FROM ax_anschrift a JOIN alkis_beziehungen b ON a.gml_id=b.beziehung_zu ";
                                 $sqla.="WHERE b.beziehung_von= $1 AND b.beziehungsart='hat';"; // ORDER?
-
                                 $gmlp=$rowp["gml_id"]; // Person
                                 $v = array($gmlp);
                                 $resa = pg_prepare("", $sqla);
                                 $resa = pg_execute("", $v);
-
                                 if (!$resa) {
                                         echo "\n\t<p class='err'>Fehler bei Adressen</p>\n";
                                         if ($debug > 2) {echo "<p class='err'>SQL=<br>".$sqla."<br>$1=gml= '".$gmlp."'</p>";}
                                 }
-
                                 $j=0;
                                 while($rowa = pg_fetch_array($resa)) {
@@ -343 +340 @@
                                         $j++;
                                 }
+                                pg_free_result($resa);
                         } // End if
+
                         // 'keine Adresse' kann vorkommen, z.B. "Deutsche Telekom AG"
                         $i++; // cnt Person
@@ -370 +369 @@
                 if ($debug > 0) {echo "<p class='dbg'>keine Namensnummern zum Blatt</p>";}
                 if ($debug > 2) {echo "<p class='dbg'>Namensnummern: SQL=<br>".$sqln."<br>$1=gml(Blatt)= '".$gmlid."'</p>";}
-        }       
+        }
+        pg_free_result($resn);
         return $n; 
 } // End Function eigentuemer
@@ -403 +403 @@
         // Die hÀufigsten Werte direkt aus den Programmcode liefern, ggf. angepasst.
         // FÃŒr seltene Werte in der Datenbank nachschlagen.
-        // SchlÃŒsseltabelle dazu aus GeoInfoDok ist vorhanden seit 2014-01-22.
+        // SchlÃŒsseltabelle dazu ist vorhanden seit 2014-01-22.
         // Hier Verwendung fÃŒr Text zum Link.
         // FÃŒr korrekte Wiedergabe der amtlichen Werte einen Join auf Tabelle verwenden statt dieser Function. 
+        global $debug;
         switch ($key) {
                 case 1000: $wert = "Nat&uuml;rliche Person"; break; // singular fuer Link-Text
@@ -425 +426 @@
                         if ($res) {
                                 $row=pg_fetch_array($res);
-                                $wert==htmlentities($row["bezeichner"], ENT_QUOTES, "UTF-8");
+                                $wert=htmlentities($row["bezeichner"], ENT_QUOTES, "UTF-8");
+                                if ($wert == "") {$wert="** Eigent&uuml;merart '".$key."' nicht gefunden **";}
                         } else {
-                                echo "\n\t<p class='err'>Fehler bei DB-Zugriff auf SchlÃŒssel EigentÃŒmerart.</p>\n";
-                                $wert = "** Unbekannte Eigent&uuml;merart '".$key."' **";
-                        }
+                                echo "\n\t<p class='err'>Fehler bei DB-Zugriff auf EigentÃŒmerart.</p>\n";
+                                $wert="** Unbekannte Eigent&uuml;merart '".$key."' **";
+                        }
+                        pg_free_result($res);
                         break;
         }
         return $wert;
 }
-
 
 // Entschluesslung ax_buchungsblatt.blattart