1) {echo "\n
Session nicht gesetzt
";} } elseif ( !isset($_SESSION["mb_user_name"]) ) { if ($dbg > 1) {echo "\nusername nicht gesetzt
";} } else { $customer = $_SESSION["mb_user_name"]; // angemeldeter Benutzer } if ($customer == "") { // Wer bin ich? echo "Aufruf nur aus Mapbender erlaubt.
"; return 0; } elseif ($customer == $mb_guest_user) { // in conf festgelegt echo "Eine Anmeldung im Mapbender ist notwendig.
"; return 0; // gast-User darf nix } else { return 1; // echter User, ist erlaubt } } else { echo "\nDie Berechtigungs-Prüfung ist falsch konfiguriert
"; return 0; // verboten } } function footer($gmlid, $link, $append) { // Einen Seitenfuß ausgeben. // Die Parameter &gkz= und &gmlid= kommen in allen Modulen einheitlich vor // Den URL-Parameter "&showkey=j/n" umschalten lassen. // $append wird angehängt wenn gefüllt. Anwendung: &eig=j bei FSNW, <yp=m/p/o bei Lage global $gkz, $showkey, $hilfeurl, $debug, $dbg, $customer; echo "\n\n"; return 0; } function UnqKatAmt($t1, $t2){ // Wenn der Datenbestand aus NBA-Verfahren mehrerer Katasterämter gemixt wurde, dann muss beim SQL-JOIN auf einige Schlüsseltabellen // zusätzlich dafür gesort werden, dass nur die Schlüssel des gleichen Katasteramtes verwendet werden. Sonst bekommt man redundante Treffer. // Benötigt den Alias der zu verbindenden Tabellen. // Liefert einen String zum Einfügen hinter "JOIN .. ON". global $katAmtMix; // aus Conf if ($katAmtMix){ return "AND substr(".$t1.".gml_id,1,6) = substr(".$t2.".gml_id,1,6) "; } else { return ""; } } function LnkStf(){ // Link-Staffeltab - Die Parameter showkey und nodebug im href eines -Tag an ein anderes Modul weiter geben. // Gibt einen String zurück, der im href eingefügt wird. global $debug, $dbg, $showkey; if ($showkey) { // Schlüssel anzeigen $ret="&showkey=j"; } else { $ret=""; } // Nur relevant in einer Entwicklungsumgebung: // Falls debug-Ausgaben erlaubt sind (conf) kann man das temporär einschränken, umgekehrt nicht. // $dbg = aktueller Arbeitswert, $debug = aus Conf. if ($dbg === 0 AND $debug > 0){ $ret.="&nodebug=j"; } return $ret; } function DsKy($derKey, $Tipp){ // Display Key - Optional einen ALKIS-internen Schlüsselwert vor dem entschlüsselten Wert ausgeben. // Die Option wird gesteuert durch einen Schalter im Seitenfuß. // Liefert einen HTML-Text zur Verwendung in einem Echo-Befehl. Zur Verkettung mit Literalen. global $showkey; $Tipp = str_replace("*", "Schlüssel", $Tipp); // häufig verwendet if ($showkey and $derKey != "") { $html="(".$derKey.") "; } else { $html=""; } return $html; } function ber_bs_zaehl($gmls) { // Berechtigte Buchungs-Stellen zählen. // Buchungstelle dienend <(Recht)an< Buchungstelle herrschend $sql ="SELECT count(sh.gml_id) AS anz FROM ax_buchungsstelle sd JOIN ax_buchungsstelle sh ON sd.gml_id=ANY(sh.an) " ."WHERE sd.gml_id= $1 AND sh.endet IS NULL AND sd.endet IS NULL;"; $v = array($gmls); // GML dienende Buchungs-Stelle $resan = pg_prepare("", $sql); $resan = pg_execute("", $v); if (!$resan) {echo "\nFehler bei 'berechtigte Buchungsstellen zählen'.
";} $rowan = pg_fetch_assoc($resan); $anz=$rowan["anz"]; pg_free_result($resan); return $anz; // Funktionswert = Anzahl der berechtigten Buchungen } function buchung_anzg($gmlbs, $eig, $jsfenster, $gml_fs, $trtyp) { // In einem FS-Nachw. EINE Buchungsstelle anzeigen. // Parameter: // $gmlbs: GML-ID der anzuzeigenden Buchungs-Stelle // $eig: Eigentümer ausgeben j/n // $jsfenster: Javascript-Funktion zum Verlassen des Feature-Info-Fensters verwenden (bool) // $gml_fs: GML-ID des Flurstücke (nur bei erstem Aufruf in einem FS-Nachweis notwendig) // $trtyp: Tabellen-Zeilen-Typ. Werte: 1="mit GS-Link", 2="ohne GS-Link", 3="ohne GS-Link +Zeile einfärben" global $gkz, $dbg, $showkey, $bartgrp, $barttypgrp, $stufe, $katAmtMix; $sqlbs="SELECT sh.gml_id AS hgml, sh.buchungsart, sh.laufendenummer as lfd, sh.zaehler, sh.nenner, sh.nummerimaufteilungsplan as nrpl, sh.beschreibungdessondereigentums as sond, " // Buchungs-Stelle herrschend ."b.gml_id AS g_gml, b.bezirk, b.buchungsblattnummermitbuchstabenerweiterung as blatt, b.blattart, z.bezeichnung, a.beschreibung AS bart, a.dokumentation AS barttitle, w.beschreibung AS blattartv " ."FROM ax_buchungsstelle sh " ."JOIN ax_buchungsblatt b ON b.gml_id=sh.istbestandteilvon " ."LEFT JOIN ax_buchungsblattbezirk z ON z.land=b.land AND z.bezirk=b.bezirk ".UnqKatAmt("z","b") ."LEFT JOIN ax_buchungsart_buchungsstelle a ON sh.buchungsart = a.wert " // entschl. Buchungsart ."LEFT JOIN ax_blattart_buchungsblatt w ON b.blattart = w.wert " // entschl. Blatt-Art ."WHERE sh.gml_id= $1 AND sh.endet IS NULL AND b.endet IS NULL AND z.endet IS NULL;"; $v = array($gmlbs); // ID dienende Buchungs-Stelle $resbs = pg_prepare("", $sqlbs); $resbs = pg_execute("", $v); if (!$resbs) { echo "\nFehler bei 'Buchungsstelle ausgeben'.
"; if ($dbg > 2) {echo "\nSQL=
".htmlentities(str_replace("$1", "'".$gmlbs."'", $sqlbs), ENT_QUOTES, "UTF-8")."
Die Abfrage liefert mehr als eine (".$zeianz.") Buchung!
"; if ($dbg > 2) {echo "\nSQL=
".htmlentities(str_replace("$1","'".$gmlid."'",$sqlbs), ENT_QUOTES, "UTF-8")."
Bezirk | " ."\n\t\t\t\t".DsKy($blattkeyber, 'Blattart-*').$blattartber." | " ."\n\t\t\t\tLfd-Nr | " ."\n\t\t\t
".DsKy($rowbs["bezirk"], 'GB-Bezirk-*').$beznam." | " ."\n\t\t\t\t".$blatt." | " ."\n\t\t\t\t".$lfd." | " ."\n\t\t\t
".$rowbs["zaehler"]."/".$rowbs["nenner"]." Anteil am Flurstück
"; } if ($nrpl != "") { echo "\n\t\t\tNummer ".$nrpl." im Aufteilungsplan.
"; } if ($sond != "") { echo "\n\t\t\tVerbunden mit dem Sondereigentum: ".$sond."
"; } echo "\n\t\t"; // 2-3 echo "\n\t\tFehler bei 'berechtigte Buchungsstellen'.
"; if ($dbg > 2) {echo "\nSQL=
".htmlentities(str_replace("$1", "'".$gmls."'", $sql), ENT_QUOTES, "UTF-8")."
Fehler bei Eigentümer
"; if ($dbg > 2) {echo "\nSQL=
".str_replace("$1", "'".$gmlid."'", $sqln )."
".$beschr."
"; } else { echo "\n\t\t\t".$adrv."
"; } } else { // Namensnummer echo "\n\t\t".$namnum."
\n\t\tAnlass=".$anlass."
";} // Andere Namensnummern? Relation: ax_namensnummer >bestehtAusRechtsverhaeltnissenZu> ax_namensnummer // Die Relation 'Namensnummer' besteht aus Rechtsverhältnissen zu 'Namensnummer' sagt aus, dass mehrere Namensnummern zu einer Rechtsgemeinschaft gehören können. // Die Rechtsgemeinschaft selbst steht unter einer eigenen AX_Namensnummer, die zu allen Namensnummern der Rechtsgemeinschaft eine Relation besitzt. $diePerson=""; if ($akadem != "") {$diePerson=$akadem." ";} $diePerson.=$nachnam; if ($vorname != "") {$diePerson.=", ".$vorname;} if ($nbest != "") {$diePerson.=". ".$nbest;} if ($gebdat != "") {$diePerson.=", geb. ".$gebdat;} if ($gebnam != "") {$diePerson.=", geb. ".$gebnam;} $diePerson=htmlentities($diePerson, ENT_QUOTES, "UTF-8"); if ($eiartkey == "") {$eiart="Eigentümer" ;} // Default echo "\n\t\t\t".$diePerson."
\n\t\tFehler bei Adressen
"; if ($dbg > 2) {echo "\nSQL=
".str_replace("$1", "'".$gmlpers."'", $sqla)."
";
if ($str.$hsnr != "") {echo $str." ".$hsnr."
";}
if ($plz.$ort != "") {echo $plz." ".$ort;}
if ($land != "" and $land != "DEUTSCHLAND") {echo ", ".$land;}
echo "
weitere Adresse
".$zaehler."/".$nenner." Anteil
Rechtsgemeinschaft = '".$rechtsg."'
";} if ($rechtsg !== '9999') { echo "\n(Die Person mit der ID '".$gmlpers."' fehlt im Datenbestand)
"; } echo "\n\t\tEntstehung | " ."\n\t\t\t".$entsteh." | \n\t\t
";
$arrart=explode(",", trim($dbzeart, "{}"));
foreach($arrart AS $artval) { // Eine Zeile für jedes Element von "zeigtaufexternes_art"
$artval=trim($artval, '"');
$artpos=strpos($artval, '#');
if ($artpos > 0) { // AED
$artkey=substr($artval, $artpos + 1);
switch ($artkey) { // keine Schlüsseltabelle?
case '5100':
$arttxt="Grundstückshinweis (aus ALB-Historie)";
$artinfo="";
break;
case '5200':
$arttxt="Entstehung des Flurstücks";
$artinfo="'Entstehung des Flurstücks' enthält das Jahr der Entstehung, die lfd. Nr. der Fortführung und den Schlüssel der Fortführungsart zur manuellen Recherche in den Grundbuchakten.";
break;
case '5300':
$arttxt="Letzte Fortführung des Flurstücks";
$artinfo="'Letzte Fortführung' enthält das Jahr der letzten Fortführung, die lfd. Nr. der Fortführung und den Schlüssel der Fortführungsart zur manuellen Recherche in den Grundbuchakten.";
break;
default:
$arttxt=$artval;
$artinfo="";
}
if ($showkey) {echo "(".$artkey.") ";}
echo $arttxt." "; } else { $artpos=strpos($artval, '/'); if ($artpos > 0) { // ibR $artkey=substr($artval, $artpos + 1); $arttxt=substr($artval, 0, $artpos); echo DsKy($artkey, 'Fortführungsart').$arttxt." "; } } } echo " | \n\t\t\t";
$arrname=explode(",", trim($dbzename, "{}")); // Eine Zeile für jedes Element von "zeigtaufexternes_name"
foreach($arrname AS $val) {echo trim($val, '"')." ";} echo " | \n\t\t