';
//
// # für ht_rf_vk
// echo '"DE|'.$z.'|ObAktiv";"1"';
// echo '
' . getVarName($v_variable) . '
';
echo '
' . $t_variable . '
';
echo '
';
var_dump ($v_variable);
echo ' ';
echo '
';
echo '
' . $t_info . '
';
echo '
|
'));
fncElement ("lmnTabelle.X", $Vorgaben, array ());
}
fncElement ("lmnTabelle.C", $Vorgaben, array ("", " "));
fncElement ("lmnHtmlSchleuse", $Vorgaben, array ('' . $t_titel . '
'));
fncElement ("lmnTabelle.X", $Vorgaben, array ());
}
}
fncElement ("lmnTabelle.C", $Vorgaben, array ("", " "));
fncElement ("lmnHtmlSchleuse", $Vorgaben, array ('|
'));
fncElement ("lmnTabelle.X", $Vorgaben, array ());
fncElement ("lmnTabelle.C", $Vorgaben, array ("", " "));
fncElement ("lmnVerweis.AZTFUC", $Vorgaben, array ($txtNachrichtSchreiben));
fncElement ("lmnTabelle.X", $Vorgaben, array ());
fncElement ("lmnTabelle.YZ", $Vorgaben, array ("", "cssOoTbMdMxSp"));
fncElement ("lmnBox.Z", $Vorgaben, array ());
fncElement ("lmnTabelle.X", $Vorgaben, array ());
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["Sortierung"]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["Sortierung"] as $idItem => $x)
if (fncDatensatz ("DsAktiv.F", $Vorgaben, array ($datDatenbank, $idItem)))
{
fncElement ("lmnTabelle.C", $Vorgaben, array ("", " cssCcTbEt"));
fncElement ("lmnBox.A", $Vorgaben, array ("", "cssCcBxEt||" . $t_anker . $idItem));
fncElement ("lmnKapitel.AZ", $Vorgaben, array (fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idItem, "Titel"))));
if (fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idItem, "TBild")))
{
fncElement ("lmnBild.RLF", $Vorgaben, array (fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idItem, "TBild")) . "|" . $bxhUBild));
}
# Beschreibung
if (!$obUBeschreibung and $t_beschreibung = fncFeld ("dtfWert.FN", $Vorgaben, array ($datDatenbank, $idItem, "Beschreibung")))
{
# Anker setzen
foreach ($r_phrasen as $t_phrase => $i_ziel)
{
$t_beschreibung = str_replace ($t_phrase, '' . $t_phrase . ' ', $t_beschreibung);
}
fncElement ("lmnHtmlSchleuse", $Vorgaben, array ('' . $t_beschreibung . '
'));
}
if ($vrwInternet = fncFeld ("dtfWert", $Vorgaben, array ($datDatenbank, $idItem, "vrwInternet")))
{
// fncElement ("lmnZwischentitel.P", $Vorgaben, array (fncPhrase ($Vorgaben, array ("Website", "G"))));
fncElement ("lmnVerweis.AZXH", $Vorgaben, array ("", $vrwInternet));
}
# zurück
fncElement ("lmnHtmlSchleuse", $Vorgaben, array ('(zurück)
'));
fncElement ("lmnBox.Z", $Vorgaben, array ());
fncElement ("lmnTabelle.X", $Vorgaben, array ());
}
fncElement ("lmnTabelle.C", $Vorgaben, array ());
fncElement ("lmnBox.A", $Vorgaben, array ("", " cssCcBxRc"));
fncElement ("lmnTabelle.X", $Vorgaben, array ());
fncElement ("lmnTabelle.YZ", $Vorgaben, array ("", "cssOoTbMdMxSp"));
}
else // Liste statt Matrix
{
# Ziel Anhang
$q_anhang = "&" . $varZsJahr . "=" . $_REQUEST[$varZsJahr];
# Blättern erzeugen
fncElement ("lmnBlaettern.E", $Vorgaben, array ($datDatenbank, $varChap, $zhlDsJeSeite));
$zhlSeite = $_REQUEST[$varChap];
$obLinie = 0;
$txGemerkteInitiale = "";
$cdGemerkteKategorie = "";
$o_text = false;
$o_verweis = false;
if ($o_u_galerie)
{
$cssTbListe = "";
}
else
{
$cssTbListe = " cssSystemVolleBreite";
}
fncElement ("lmnUmfluss.R", $Vorgaben, array ());
$z_elemente_in_zeile = 0;
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["Blaettern"][$zhlSeite]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["Blaettern"][$zhlSeite] as $idItem => $tmp)
{
$z_elemente_in_zeile++;
$obLinie++;
$txTitelItem = fncText ("ftxKuerzen", array (fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idItem, "Titel")), $zhlTitelKuerzen));
$txAktuelleInitiale = mb_substr ($txTitelItem, 0, 1);
$cdAktuelleKategorie = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "Kategorie"));
if ($obUGruNacKat and $cdAktuelleKategorie != $cdGemerkteKategorie) // in Kategorien gruppiert
{
fncElement ("lmnZwischentitel.P", $Vorgaben, array (fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idItem, "Kategorie"))));
$cdGemerkteKategorie = $cdAktuelleKategorie;
}
elseif ($obListeAZ and $txAktuelleInitiale != $txGemerkteInitiale)
{
fncElement ("lmnZwischentitel.", $Vorgaben, array ($txAktuelleInitiale));
$txGemerkteInitiale = $txAktuelleInitiale;
}
elseif (!$o_u_galerie and !$obListeAZ and $obLinie > 1)
{
// fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
fncElement ("lmnBox.A", $Vorgaben, array ("", " cssCcMdULinie"));
fncElement ("lmnLinie.", $Vorgaben, array ());
fncElement ("lmnBox.Z", $Vorgaben, array ());
}
if ($o_u_galerie)
{
fncElement ("lmnBox.A", $Vorgaben, array ("", " cssCcMdUGalerie"));
}
if ($o_u_zoom)
{
}
elseif ($obDetailsAus or fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "ObDetailsAus")))
{
if ($idTermin = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "vrwTermin")))
{
fncElement ("lmnVerweis.AIJH", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ($datTermine, $idTermin, "Titel")), $varTmItem . "=" . $idTermin));
$o_verweis = true;
$k_verweistyp = 'Tm';
}
elseif ($idKuenstler = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "vrwKuenstler")))
{
fncElement ("lmnVerweis.AIJH", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ($datKuenstler, $idKuenstler, "Titel")), $varKnItem . "=" . $idKuenstler));
$o_verweis = true;
$k_verweistyp = 'Kn';
}
elseif ($idBeitrag = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "vrwBeitrag")))
{
fncElement ("lmnVerweis.AIJH", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ($datChronik, $idBeitrag, "Titel")), $varChItem . "=" . $idBeitrag));
$o_verweis = true;
$k_verweistyp = 'Ch';
}
elseif ($idDokument = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "vrwDokument")))
{
fncElement ("lmnVerweis.AIJH", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ($datDokumente, $idDokument, "Titel")), $varDkItem . "=" . $idDokument));
$o_verweis = true;
$k_verweistyp = 'Dk';
}
elseif ($idProdukt = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "vrwProdukt")))
{
fncElement ("lmnVerweis.AIJH", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ($datKatalog, $idProdukt, "Titel")), $varKtItem . "=" . $idProdukt));
$o_verweis = true;
$k_verweistyp = 'Kt';
}
elseif ($idReferenz = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "vrwReferenz")))
{
fncElement ("lmnVerweis.AIJH", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ($datReferenzen, $idReferenz, "Titel")), $varRfItem . "=" . $idReferenz));
$o_verweis = true;
$k_verweistyp = 'Rf';
}
elseif ($idKunde = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "vrwKunde")))
{
fncElement ("lmnVerweis.AIJH", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ($datKunden, $idKunde, "Titel")), $varKdItem . "=" . $idKunde));
$o_verweis = true;
$k_verweistyp = 'Kd';
}
elseif ($idPartner = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "vrwPartner")))
{
fncElement ("lmnVerweis.AIJH", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ($datPartner, $idPartner, "Titel")), $varPrItem . "=" . $idPartner));
$o_verweis = true;
$k_verweistyp = 'Pr';
}
elseif ($idJob = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "vrwJob")))
{
fncElement ("lmnVerweis.AIJH", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ($datJobs, $idJob, "Titel")), $varJbItem . "=" . $idJob));
$o_verweis = true;
$k_verweistyp = 'Jb';
}
elseif ($idMitarbeiter = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "vrwMitarbeiter")))
{
fncElement ("lmnVerweis.AIJH", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ($datMitarbeiter, $idMitarbeiter, "Titel")), $varMtItem . "=" . $idMitarbeiter));
$o_verweis = true;
$k_verweistyp = 'Mt';
}
elseif ($idThema = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "vrwThema")))
{
fncElement ("lmnVerweis.ANJH", $Vorgaben, array ("", $idThema));
$o_verweis = true;
$k_verweistyp = 'Nh';
}
elseif ($vrwInternet = fncFeld ("dtfWert", $Vorgaben, array ($datDatenbank, $idItem, "vrwInternet")))
{
fncElement ("lmnVerweis.AXJH", $Vorgaben, array ("", $vrwInternet));
$o_verweis = true;
$k_verweistyp = 'ws';
}
else
{
$o_verweis = false;
$k_verweistyp = '';
}
}
else
{
fncElement ("lmnVerweis.ANJH", $Vorgaben, array ($txtDetailsAnsehen, $_REQUEST[PAGE] . "|" . $varItem . "=" . $idItem . $q_anhang));
$o_verweis = true;
$k_verweistyp = '';
}
if ($o_verweis) // wenn keine Details, dann komplette Beschreibung in Übersicht zeigen
{
$zhlBeschreibungKuerzen = 0;
$zhlTitelKuerzen = 0;
}
#.#
// echo $k_verweistyp;
fncElement ("lmnTabelle.ABC", $Vorgaben, array ("", "||" . $cssTbListe));
switch ($k_verweistyp)
{
case 'Ch':
{
$n_a_mod_sym = fncVorgaben ($Vorgaben, $k_verweistyp . "AModSym.N");
if ($n_a_mod_sym)
{
fncElement ("lmnBild.LF", $Vorgaben, array ($n_a_mod_sym . "|"));
}
}
break;
default:
{
$d_termin = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "fTermin"));
if ($d_termin)
{
fncElement ("lmnKalenderblatt.L", $Vorgaben, array ($d_termin));
}
elseif ($obKalenderblatt)
{
if (fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "dtmBeginn")))
{
fncElement ("lmnKalenderblatt.", $Vorgaben, array (fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "dtmBeginn"))));
}
}
else
{
if ($obULogo and fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idItem, "Logo")))
{
fncElement ("lmnBild.RLF", $Vorgaben, array (fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idItem, "Logo")) . "|" . $bxhUBild));
}
elseif (fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idItem, "TBild")))
{
if ($o_u_zoom)
{
$s_ob_zoom = 'Z';
}
else
{
$s_ob_zoom = '';
}
fncElement ("lmnBild.RLF" . $s_ob_zoom, $Vorgaben, array (fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idItem, "TBild")) . "|" . $bxhUBild, '', 'U,' . $idItem . ',' . $idCat . ',' . $Vorgaben["curZone"] . ',' . $o_archiv));
}
}
break;
}
}
if (!$o_u_galerie)
{
fncElement ("lmnTabelle.D", $Vorgaben, array ("", $cssTbListe));
}
if ($obBewerten)
{
$o_text = true;
if ($obDetailsAus or fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "ObDetailsAus")))
{
fncElement ("lmnBewerten.B", $Vorgaben, array ($datDatenbank, $idItem, $datBewerten, $varItem . "=" . $idItem . "&" . $varChap . "=" . $Vorgaben["Data"][$datDatenbank][$idItem]["+chap"]));
}
else
{
fncElement ("lmnBewerten", $Vorgaben, array ($datDatenbank, $idItem));
}
}
if (!$o_archiv)
{
if ($t_preisnulltext and !fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "Preis")))
{
$s_option_preis = 'N';
}
else
{
$s_option_preis = '';
}
// fncElement ("lmnPreis.ER" . $s_option_preis, $Vorgaben, array ($datDatenbank . "|" . $idItem . "|Preis|" . $t_preisnulltext));
fncElement ("lmnPreis.ER" . $s_option_preis, $Vorgaben, array ($datDatenbank . "|" . $idItem . "|Preis|" . $t_preisnulltext . '|' . fncFeld ("dtfWert.", $Vorgaben, array ($datDatenbank, $idItem, "tVorPreis"))));
}
# Titel
if ($obListeAZ)
{
$t_format = 'lmnAbsatz';
}
else
{
$t_format = 'lmnRubrik';
}
if (!$o_u_titel_verbergen)
{
$o_text = true;
fncElement ($t_format . ".AZ", $Vorgaben, array ($txTitelItem));
# akademischer Titel
$t_akadem_titel = fncFeld ("dtfWert.FN", $Vorgaben, array ($datDatenbank, $idItem, "txtTitel"));
if ($t_akadem_titel)
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ($t_akadem_titel));
}
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
}
# Beschreibung
if (!$obUBeschreibung and $txtBeschreibung = fncFeld ("dtfWert.FN", $Vorgaben, array ($datDatenbank, $idItem, "Beschreibung")))
{
$o_text = true;
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncText ("ftxKuerzen", array ($txtBeschreibung, $zhlBeschreibungKuerzen))));
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
}
# Aufgabenbereich
fncElement ("lmnBlock.RA", $Vorgaben, array (fncPhrase ($Vorgaben, array ("Aufgabenbereich", "G")), $datDatenbank . "|" . $idItem . "|txtAufgabe"));
# in der Firma seit
if (fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "dtmEintritt")))
{
$zhAlter = funDatum ("Alter.8", $Vorgaben, array (fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "dtmEintritt")), $Vorgaben["Heute"][8]));
$zhJahre = $zhAlter["Jahre"];
unset ($zhAlter);
if ($zhJahre)
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ("bei uns seit " . $zhJahre . " " . fncText ("ftxEinheit", array ($zhJahre, "Jahr", "Jahren", "Jahren"))));
}
else
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ("neu bei uns "));
}
}
if (mb_strstr ($Optionen, "T")) // nur bei Modul Termine
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncFeld ("dtfWert.NES", $Vorgaben, array ($datDatenbank, $idItem, "dtmBeginn", "", "DXL"))));
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncFeld ("dtfWert.NE", $Vorgaben, array ($datDatenbank, $idItem, "hrzBeginn")) . ", " . fncFeld ("dtfWert.NE", $Vorgaben, array ($datDatenbank, $idItem, "Staette"))));
}
if ($obBewerten and $obBewText)
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
fncElement ("lmnBewerten.T", $Vorgaben, array ($datDatenbank, $idItem));
}
# Sockel
if ($o_text and !$obListeAZ)
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
}
fncElement ("lmnTabelle.XYZ", $Vorgaben, array ());
if ($o_verweis)
{
fncElement ("lmnVerweis.Z", $Vorgaben, array ());
}
if ($o_u_galerie)
{
fncElement ("lmnBox.Z", $Vorgaben, array ());
}
if (!$o_u_galerie)
{
fncElement ("lmnUmfluss", $Vorgaben, array ());
}
if ($z_waagerecht and $z_elemente_in_zeile == $z_waagerecht)
{
$z_elemente_in_zeile = 0;
fncElement ("lmnUmfluss", $Vorgaben, array ());
}
}
# Blättern
if ($idCat)
{
$vrwAnhang = $varCat . "=" . $idCat;
}
else
{
$vrwAnhang = "";
}
fncElement ("lmnBlaettern.F", $Vorgaben, array ($datDatenbank, $varChap, $vrwAnhang, $zhlBElemente, $obBAZ, $zhlBAbk, $obBSeitenzahl));
fncElement ("lmnUmfluss", $Vorgaben, array ());
}
}
}
else // 1.Übersicht der Kategorien
{
# Ziel Anhang
$q_anhang = "&" . $varZsJahr . "=" . $_REQUEST[$varZsJahr];
# Exklusiv/Multi
if ($obMKategorien) // multiple Kategorien
{
$fldKategorie = "mltKategorien";
}
else // exklusive Kategorie
{
$fldKategorie = "Kategorie";
}
# Sortieren
sortiereDatenbankNachCode ($Vorgaben, $datKategorien, $knzCatSort);
if ($txtEinleitung)
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ($txtEinleitung));
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
}
if ($obZufCBild) // zufälliges Bild?;
{
$r_kategoriebilder = findeZufallsKategorieBilder ($Vorgaben, $datDatenbank);
}
fncDatenbank ("dtbStatistik.S", $Vorgaben, array ($datDatenbank, $fldKategorie, $Vorgaben["Data"][$datKategorien][0]["Sortierung"]));
fncElement ("lmnUmfluss.", $Vorgaben, array ()); // wenn rechts Navi U gesetzt ist, sollen Kategorie-Kachel nicht ungleichmäßig angezeigt werden
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["+Statistik"][$fldKategorie]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["+Statistik"][$fldKategorie] as $idCat => $zhlMenge)
if ($zhlMenge)
{
# Parameter
if (!$idCat)
{
$txtTitel = $t_kategorie_weitere;
$txtZiel = $_REQUEST[PAGE] . "|" . $varCat . "=!";
}
else
{
$txtTitel = fncFeld ("dtfWert", $Vorgaben, array ($datKategorien, $idCat, "Titel"));
$txtZiel = $_REQUEST[PAGE] . "|" . $varCat . "=" . $idCat;
}
# Anhang anhängen
$txtZiel .= $q_anhang;
# Kategoriebild
$dtnBild = "";
if ($obZufCBild) // zufälliges Bild?;
{
// echo __LINE__; var_dump ($r_kategoriebilder);
// var_dump ($idCat);
// var_dump ($bldSammler);
if (isset ($r_kategoriebilder[$idCat]) and $r_kategoriebilder[$idCat])
{
// echo "J";
$dtnBild = $r_kategoriebilder[$idCat];
}
else
{
// echo "N";
$dtnBild = $n_kategoriestandardbild;
}
}
elseif (fncFeld ("dtfWert.N", $Vorgaben, array ($datKategorien, $idCat, "Bild")))
{
$dtnBild = fncFeld ("dtfWert.N", $Vorgaben, array ($datKategorien, $idCat, "Bild"));
}
if ($dtnBild)
{
$cssHgBild = "background: url('" . $Vorgaben["Ordner"]["CBilder"] . $dtnBild . "') center center no-repeat; background-size: cover; ";
}
else
{
$cssHgBild = "";
}
# Vorhang
// if ($dnKatVorhBild)
// {
// $cssHgVorh = "background: url('" . $Vorgaben["Ordner"]["CBilder"] . $dnKatVorhBild . "') center bottom repeat-x; ";
// }
// else
// {
// $cssHgVorh = "";
// }
# Ausgabe
fncElement ("lmnVerweis.ANJ", $Vorgaben, array ($txtTitel, $txtZiel));
fncElement ("lmnBox.A", $Vorgaben, array ("", " cssOoBxMdKt1"));
fncElement ("lmnBox.A", $Vorgaben, array ("", " cssOoBxMdKt2"));
fncElement ("lmnBox.A", $Vorgaben, array ("", " cssOoBxMdKt3"));
fncElement ("lmnBox.A", $Vorgaben, array ("", " cssOoBxMdKt4 | width: " . $bxhKBild . "px; height: " . $bxhKBild . "px; " . $cssHgBild));
fncElement ("lmnTabelle.ABC", $Vorgaben, array ("", " | width: " . $bxhKBild . "px; height: " . $bxhKBild . "px; vertical-align: bottom; "));
if (!$obCLegende)
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ($txtTitel, " cssOoTfLtA cssOoTfRb cssOoTsLtA cssOoTsRb cssOoSnLt cssOoSnRb cssOoTxMdKt"));
}
fncElement ("lmnTabelle.XYZ", $Vorgaben, array ());
fncElement ("lmnBox.Z", $Vorgaben, array ());
fncElement ("lmnBox.Z", $Vorgaben, array ());
fncElement ("lmnBox.Z", $Vorgaben, array ());
if ($obCLegende)
{
fncElement ("lmnBox.A", $Vorgaben, array ("", " cssOoBxMdKt5 | width: " . $bxhKBild . "px; height: 70px; "));
fncElement ("lmnRubrik.AZ", $Vorgaben, array ($txtTitel));
fncElement ("lmnBox.Z", $Vorgaben, array ());
}
fncElement ("lmnBox.Z", $Vorgaben, array ());
fncElement ("lmnVerweis.Z", $Vorgaben, array ());
}
if ($obZufCBild) // zufälliges Bild?;
{
// unset ($bldSammler);
unset ($r_kategoriebilder);
}
fncElement ("lmnUmfluss", $Vorgaben, array ());
}
}
}
}
break;
case "lmnBewerten":
{
/*
B - Bewerten (sonst nur Anzeige)
D - Bewertung in die Db schreiben
T - Anzeige als Text
*/
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
list ($datDatenbank, $idID, $datBw, $txtLoc) = $Parameter;
unset ($Parameter);
# Debug
// //$dbgVariable = "datDatenbank"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "idID"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "datBw"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "txtLoc"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# abgegebene Bewertung speichern
if (mb_strstr ($Optionen, "D"))
{
if (isset ($_REQUEST[RATE]) and $_REQUEST[RATE]) // Bewerten
{
list ($idRate, $wrtRate) = explode (",", $_REQUEST[RATE]);
# Debug
//$dbgInfo = "ist gleich"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
funDatenbank ("datAendern", $Vorgaben, array ($datBw, $Vorgaben["curLang"] . "|" . $idRate . "|" . strval (md5 ($Vorgaben["curIP"])), "Wert", $wrtRate));
$_REQUEST[RATE] = 0;
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idRate, "BwSm", 0));
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idRate, "BwAn", 0));
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idRate, "BwDs", 0));
if (is_array ($Vorgaben["Data"][$datBw][0]["Sortierung"])) foreach ($Vorgaben["Data"][$datBw][0]["Sortierung"] as $idBew => $X)
{
# Debug
//$dbgVariable = "idBew"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
list ($xxSprache, $idItem) = explode ("|", $idBew);
if ($xxSprache == $Vorgaben["curLang"] and $idItem == $idRate)
{
# neue Bewertung
$zhlBewertung = $Vorgaben["Data"][$datBw][$idBew]["Wert"] / 1;
# Debug
//$dbgVariable = "xxSprache"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "idItem"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "zhlBewertung"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# bisherige Bewertungen auslesen
$BwSm = fncFeld ("dtfWert", $Vorgaben, array ($datDatenbank . "|" . $xxSprache, $idItem, "BwSm"));
$BwAn = fncFeld ("dtfWert", $Vorgaben, array ($datDatenbank . "|" . $xxSprache, $idItem, "BwAn"));
$BwDs = fncFeld ("dtfWert", $Vorgaben, array ($datDatenbank . "|" . $xxSprache, $idItem, "BwDs"));
# Debug
//$dbgVariable = "BwSm"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "BwAn"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "BwDs"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# neue Bewertung hinzufügen
$BwSm += $zhlBewertung;
$BwAn++;
$BwDs = fncZahl ("zhlRunden", array ($BwSm / $BwAn));
# Debug
//$dbgVariable = "BwSm"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "BwAn"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "BwDs"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idItem, "BwSm|" . $xxSprache, $BwSm));
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idItem, "BwAn|" . $xxSprache, $BwAn));
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idItem, "BwDs|" . $xxSprache, $BwDs));
}
}
fncDatenbank ("dtbSchreiben", $Vorgaben, array ());
}
}
elseif (mb_strstr ($Optionen, "T")) // als Text
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncPhrase ($Vorgaben, array ("Bewertung")) . ": " . fncFeld ("dtfWert.E", $Vorgaben, array ($datDatenbank, $idID, "BwDs")) . " (" . fncFeld ("dtfWert.E", $Vorgaben, array ($datDatenbank, $idID, "BwAn")) . ")"));
}
else // zeige Sterne
{
# aktuelle Bewertung auslesen
$curBw = fncFeld ("dtfWert", $Vorgaben, array ($datDatenbank, $idID, "BwDs"));
# Debug
// //$dbgInfo = "aktuelle Bewertung auslesen"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
// // $datRtReisetipps = $Vorgaben["Data"]["datRtReisetipps"];
// //$dbgVariable = "datDatenbank"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "idID"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "curBw"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Ausgabe
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxBwG"));
for ($Z = 1; $Z <= 5; $Z++)
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxBwH cssOoBxBwL" . $Z));
}
if (mb_strstr ($Optionen, "B")) // Bewerten
{
for ($Z = 1; $Z <= $curBw; $Z++)
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxBwH cssOoBxBwB" . $Z));
}
if ($Vorgaben["curLid"])
{
$txtLoc .= "&" . LANG . "=" . $Vorgaben["curLid"];
}
for ($Z = 1; $Z <= 5; $Z++)
{
$txtBew = "&" . RATE . "=" . $idID . "," . $Z;
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxBwH cssOoBxBwBb"));
fncElement ("lmnVerweis.ANJ", $Vorgaben, array (fncPhrase ($Vorgaben, array ("jetztBewerten", "G")), $_REQUEST[PAGE] . "|" . $txtLoc . $txtBew));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.AZ", array ("", "", "cssOoBxBwBxH"));
fncElement ("lmnVerweis.Z", $Vorgaben, array ());
}
for ($Z = 1; $Z <= 5; $Z++)
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
for ($Z = 1; $Z <= $curBw; $Z++)
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
}
else // nur anzeigen
{
for ($Z = 1; $Z <= $curBw; $Z++)
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxBwH cssOoBxBwA" . $Z));
}
for ($Z = 1; $Z <= $curBw; $Z++)
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
}
for ($Z = 1; $Z <= 5; $Z++)
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
}
break;
case "lmnBlaettern":
{
/*
B - Design B
C - Design C
E - Kapitel erzeugen
F - Fußzeile
O - oben links (sonst unten rechts)
P - Portal
S - simpel links/rechts blättern
Z - Zeitsteuerung
*/
if (mb_strstr ($Optionen, "E")) // Kapitel erzeugen
{
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
list ($datDatenbank, $varChap, $zhlDsJeSeite) = $Parameter;
unset ($Parameter);
# Debug
// debug ('Kapitel erzeugen');
// $_d = '$datDatenbank'; debugVariable ($_d = substr ($_d, 1), $$_d);
// $_d = '$Optionen'; debugVariable ($_d = substr ($_d, 1), $$_d);
// $d_datenbank = $Vorgaben["Data"][$datDatenbank][2];
// $_d = '$d_datenbank'; debugVariable ($_d = substr ($_d, 1), $$_d);
// debug ('/Kapitel erzeugen');
if (mb_strstr ($Optionen, "Z")) // Zeitsteuerung
{
$optAktiv = "Z";
}
else
{
$optAktiv = "";
}
$zhlLfdKapitelNr = 1;
$Z = 0;
$Vorgaben["Data"][$datDatenbank][0]["Blaettern"] = array ();
if (isset ($Vorgaben["Data"][$datDatenbank][0]["Sortierung"]))
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["Sortierung"]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["Sortierung"] as $idID => $tmp)
if (fncDatensatz ("DsAktiv.F" . $optAktiv, $Vorgaben, array ($datDatenbank, $idID)))
{
// echo "|".$idID."|".$Vorgaben["Data"][$datDatenbank][$idID]["+flt"]."| ";
if (is_array ($regBezirke)) foreach ($regBezirke as $ID => $Bezirk) if ($ID <= 23) // Es gibt nur 23 Hauptbezirke
{
if ($regBelegteBezirke[$ID] == 1)
{
$Verweis = "./?" . PAGE . "=" . $Vorgaben["curModPages"][$Vorgaben["curLang"]][$Vorgaben["curZone"]]["lmnImmobilien.M"] . "&bz=" . $ID;
$PfadBild = $Vorgaben["Ordner"]["CDesign"] . "_karte_" . $ID . "x1_oo.gif";
}
else
{
$Verweis = "#Do";
$PfadBild = $Vorgaben["Ordner"]["CDesign"] . "_karte_" . $ID . "x2_oo.gif";
}
$Vorgaben["htmRumpf"][] = " ";
$Vorgaben["htmRumpf"][] = " ";
if (is_array ($regBelegteBezirke)) foreach ($regBelegteBezirke as $ID => $Ob) if ($ID <= 23) // Es gibt nur 23 Hauptbezirke
{
$Vorgaben["htmRumpf"][] = "
";
}
$Vorgaben["htmRumpf"][] = "
";
if (is_array ($regBelegteBezirke)) foreach ($regBelegteBezirke as $ID => $X) if ($ID <= 23) // Es gibt nur 23 Hauptbezirke
{
$Vorgaben["htmRumpf"][] = "
";
}
unset ($regBelegteBezirke);
$Vorgaben["htmRumpf"][] = "
";
}
else
{
$tmpEinzel[] = "";
}
if ($regKapitelInListe[$LfdKapitelNr]["Start"] == $regKapitelInListe[$LfdKapitelNr]["Ende"])
{
$tmpEinzel[] = $regKapitelInListe[$LfdKapitelNr]["Start"];
}
else
{
$tmpEinzel[] = $regKapitelInListe[$LfdKapitelNr]["Start"] . "–" . $regKapitelInListe[$LfdKapitelNr]["Ende"];
}
if ($LfdKapitelNr != $_REQUEST[$varChap])
{
$tmpEinzel[] = " ";
}
else
{
$tmpEinzel[] = "";
}
if (is_array ($tmpEinzel))
{
$tmpAlle[] = implode ("", $tmpEinzel);
}
}
unset ($tmpEinzel);
if (count ($tmpAlle) > 1) if (is_array ($tmpAlle)) // d.h. es passen nicht alle Objekte auf eine Seite, also blättern
{
$txtFusszeile = " Blättern: " . implode (" | ", $tmpAlle);
}
unset ($tmpAlle);
# Debug
// //$dbgVariable = "tmpSammler"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "regKapitelInListe"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$obTrenner = 0;
if (is_array ($regKapitelInListe[$_REQUEST[$varChap]]["IDs"])) foreach ($regKapitelInListe[$_REQUEST[$varChap]]["IDs"] as $ID => $lfdNr)
{
if ($obTrenner++)
{
fncElement ("lmnLinie.O", $Vorgaben, array ());
}
fncElement ("lmnVerweis.ANJ", $Vorgaben, array ("zum Exposé", $_REQUEST[PAGE] . "|" . $Vorgaben["regVars"]["varItem"] . "=" . $ID));
fncElement ("lmnBox.A", $Vorgaben, array ("", "cssOoBxOb"));
fncElement ("lmnTabelle.ABC", $Vorgaben, array ("", "||cssSystemVolleBreite"));
if ($Vorgaben["Data"][$datDatenbank][$ID]["BildT"])
{
fncElement ("lmnBild.RLK", $Vorgaben, array ($Vorgaben["Data"][$datDatenbank][$ID]["BildT"]));
}
fncElement ("lmnTabelle.D", $Vorgaben, array ("", "cssSystemVolleBreite"));
fncElement ("lmnBlock.K", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Ueberschrift"));
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
fncElement ("lmnTabelle.ABC", $Vorgaben, array ());
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|BezirkKiez"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Zimmer"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|WohnFlaecheQm"));
fncElement ("lmnTabelle.D", $Vorgaben, array ());
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Adresse"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|ObjektID"));
fncElement ("lmnTabelle.XYZ", $Vorgaben, array ());
fncElement ("lmnTabelle.D", $Vorgaben, array ("", "cssSystemVolleBreite"));
if (mb_strstr ($Optionen, "F")) // Wohnen zum Kauf
{
fncElement ("lmnPreis", $Vorgaben, array ($datDatenbank . "|" . $ID . "|KaufpreisJeQm"));
}
elseif (mb_strstr ($Optionen, "G")) // Gewerbe zur Miete
{
fncElement ("lmnPreis", $Vorgaben, array ($datDatenbank . "|" . $ID . "|WarmMwst"));
}
elseif (mb_strstr ($Optionen, "H")) // Gewerbe zum Kauf
{
fncElement ("lmnPreis", $Vorgaben, array ($datDatenbank . "|" . $ID . "|KaufpreisJeQmMwst"));
}
elseif (mb_strstr ($Optionen, "A")) // Appartements
{
fncElement ("lmnPreis", $Vorgaben, array ($datDatenbank . "|" . $ID . "|Warm"));
}
elseif (mb_strstr ($Optionen, "M")) // Wohnen zur Miete
{
fncElement ("lmnPreis", $Vorgaben, array ($datDatenbank . "|" . $ID . "|Warm"));
}
fncElement ("lmnTabelle.XYZ", $Vorgaben, array ());
fncElement ("lmnBox.Z", $Vorgaben, array ());
fncElement ("lmnVerweis.Z", $Vorgaben, array ());
}
unset ($regKapitelInListe);
fncElement ("lmnLinie.OD", $Vorgaben, array ());
fncElement ("lmnBox.A", $Vorgaben, array ("", "cssOoBxBl"));
fncElement ("lmnHtmlSchleuse", $Vorgaben, array ($txtFusszeile));
fncElement ("lmnBox.Z", $Vorgaben, array ());
}
}
}
else // Details
{
$ID = $_REQUEST[$Vorgaben["regVars"]["varItem"]];
switch (fncFeld ("dtfWert", $Vorgaben, array ($datDatenbank, $ID, "KategorieKurz")))
{
case "WM":
{
$Optionen = "M";
}
break;
case "WK":
{
$Optionen = "F";
}
break;
case "GM":
{
$Optionen = "G";
}
break;
case "GK":
{
$Optionen = "H";
}
break;
}
fncNavi ("SetTitle", $Vorgaben, array ($Vorgaben["Data"][$datDatenbank][$ID]["Ueberschrift"]));
fncElement ("lmnVerweis.AZN", $Vorgaben, array ("zurück zur Übersicht", $_REQUEST[PAGE]));
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
fncElement ("lmnLinie", $Vorgaben, array ());
fncElement ("lmnBlock.TK", $Vorgaben, array ("Auf einen Blick…"));
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|ObjektID"));
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Adresse"));
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Groesse"));
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Lage"));
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Zimmer"));
if (mb_strstr ($Optionen, "M")) // Wohnen zur Miete
{
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Nettokalt"));
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|BeHzKo"));
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Warm"));
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Kaution"));
}
elseif (mb_strstr ($Optionen, "F")) // Wohnen zum Kauf
{
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Kaufpreis"));
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|KaufpreisJeQm"));
}
elseif (mb_strstr ($Optionen, "G")) // Gewerbe zur Miete
{
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|NettokaltMwst"));
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|BeHzKoMwst"));
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|WarmMwst"));
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Kaution"));
}
elseif (mb_strstr ($Optionen, "H")) // Gewerbe zum Kauf
{
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|KaufpreisMwst"));
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|KaufpreisJeQmMwst"));
}
elseif (mb_strstr ($Optionen, "A")) // Appartements
{
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Nettokalt"));
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|BeHzKo"));
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Warm"));
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Kaution"));
}
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Provision"));
fncElement ("lmnBlock.TG", $Vorgaben, array ("Besichtigung"));
if ($Vorgaben["Data"][$datDatenbank][$ID]["BesDatum1"] and $Vorgaben["Data"][$datDatenbank][$ID]["BesDatum1"] >= $Vorgaben["Heute"][8])
{
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|BesTermin1"));
}
if ($Vorgaben["Data"][$datDatenbank][$ID]["BesDatum2"] and $Vorgaben["Data"][$datDatenbank][$ID]["BesDatum2"] >= $Vorgaben["Heute"][8])
{
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|BesTermin2"));
}
fncElement ("lmnBlock.TZ", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|BesichtigungsTermin"));
fncElement ("lmnBlock.TF", $Vorgaben, array ());
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|ObjektBeschr"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|AusstattungBeschr"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|LageBeschr"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|BezirkKiez"));
fncElement ("lmnRubrik.AZ", $Vorgaben, array ("Stadtplan anzeigen"));
fncElement ("lmnVerweis.AZXU", $Vorgaben, array ("Objekt auf GoogleMaps anzeigen", "maps.google.de/maps?q=" . $Vorgaben["Data"][$datDatenbank][$ID]["Adresse"]));
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|WohnungsTyp"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|EtageEtagenZahl"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|ObAufzug"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|ObEBK"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|ObBalkonTerrasse"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|ObGartenNutzung"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|ObRollstuhlGerecht"));
fncElement ("lmnRubrik.AZ", $Vorgaben, array ("frei ab"));
if (!$Vorgaben["Data"][$datDatenbank][$ID]["Bezugsfertig"] or $Vorgaben["Data"][$datDatenbank][$ID]["Bezugsfertig"] <= $Vorgaben["Heute"][8])
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ("sofort"));
}
else
{
fncElement ("lmnBlock", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Bezugsfertig"));
}
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|HeizungsArt"));
if (mb_strstr ($Optionen, "M")) // Wohnen zur Miete
{
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Haustiere"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|ObBetreutesWohnen"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Staffelmiete"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|ObWBS"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|ObGarageSP"));
if ($Vorgaben["Data"][$datDatenbank][$ID]["ObGarageSP"])
{
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|SPMiete"));
}
}
elseif (mb_strstr ($Optionen, "F")) // Wohnen zum Kauf
{
}
elseif (mb_strstr ($Optionen, "G")) // Gewerbe zur Miete
{
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Staffelmiete"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|ObGarageSP"));
if ($Vorgaben["Data"][$datDatenbank][$ID]["ObGarageSP"])
{
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|SPMieteMwst"));
}
}
elseif (mb_strstr ($Optionen, "H")) // Gewerbe zum Kauf
{
}
elseif (mb_strstr ($Optionen, "A")) // Appartements
{
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Haustiere"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|ObBetreutesWohnen"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|Staffelmiete"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|ObWBS"));
fncElement ("lmnBlock.RA", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|ObGarageSP"));
}
fncElement ("lmnZwischentitel", $Vorgaben, array ("Bilder"));
$IS24BilderReihenfolge = explode (",", $Vorgaben["IS24BilderReihenfolge"]);
if (is_array ($IS24BilderReihenfolge)) foreach ($IS24BilderReihenfolge as $Bild) if ($Bild = trim ($Bild)) for ($Z = 0; $Z < 10; $Z++)
{
if ($Z)
{
$BildFeld = $Bild . $Z;
}
else
{
$BildFeld = $Bild;
}
$BildDatei = $Vorgaben["Data"][$datDatenbank][$ID][$BildFeld];
$BildTitel = fncFeld ("dtfBezeichner", $Vorgaben, array ($datDatenbank, $BildFeld, $ID));
if ($BildDatei)
{
fncElement ("lmnBild.RLKZ", $Vorgaben, array ($BildDatei, $BildTitel));
}
}
unset ($IS24BilderReihenfolge);
fncElement ("lmnUmfluss", $Vorgaben, array ());
if ($Vorgaben["Data"][$datDatenbank][$ID]["Expose"])
{
fncElement ("lmnZwischentitel", $Vorgaben, array ("Kurzexposé als PDF"));
fncElement ("lmnVerweis.AZP", $Vorgaben, array ("Kurzexposé als PDF", $Vorgaben["Data"][$datDatenbank][$ID]["Expose"]));
}
if ($Vorgaben["Data"][$datDatenbank][$ID]["Video"] or $Vorgaben["Data"][$datDatenbank][$ID]["Video2"] or $Vorgaben["Data"][$datDatenbank][$ID]["Video3"])
{
fncElement ("lmnZwischentitel", $Vorgaben, array ("Video(s)"));
if ($Vorgaben["Data"][$datDatenbank][$ID]["Video"])
{
fncElement ("lmnVerweis.AZV", $Vorgaben, array ("", $Vorgaben["Data"][$datDatenbank][$ID]["Video"]));
}
if ($Vorgaben["Data"][$datDatenbank][$ID]["Video2"])
{
fncElement ("lmnVerweis.AZV", $Vorgaben, array ("", $Vorgaben["Data"][$datDatenbank][$ID]["Video2"]));
}
if ($Vorgaben["Data"][$datDatenbank][$ID]["Video3"])
{
fncElement ("lmnVerweis.AZV", $Vorgaben, array ("", $Vorgaben["Data"][$datDatenbank][$ID]["Video3"]));
}
}
if ($Vorgaben["Data"][$datDatenbank][$ID]["BesichtigungsTermin"])
{
fncElement ("lmnZwischentitel", $Vorgaben, array ("Besichtigung"));
fncElement ("lmnBlock", $Vorgaben, array ("", $datDatenbank . "|" . $ID . "|BesichtigungsTermin"));
}
fncElement ("lmnZwischentitel", $Vorgaben, array ("Interesse? Nehmen Sie Kontakt auf:"));
fncElement ("lmnVerweis.AZF", $Vorgaben, array ("Frage zum Objekt stellen", "1|" . $ID));
fncElement ("lmnVerweis.AZF", $Vorgaben, array ("Grundriss anfordern", "4|" . $ID));
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
fncElement ("lmnZwischentitel", $Vorgaben, array ("Oder füllen Sie gleich unseren Bewerbungsbogen aus:"));
fncElement ("lmnVerweis.AZF", $Vorgaben, array ("Bewerbungsbogen ausfüllen", "2|" . $ID));
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
fncElement ("lmnRubrik.AZ", $Vorgaben, array ("Ihrer Bewerbung fügen Sie bitte bei:"));
fncElement ("lmnStichpunkt.AZ", $Vorgaben, array ("Kopie Personalausweis (Vor- und Rückseite)"));
fncElement ("lmnStichpunkt.AZ", $Vorgaben, array ("Einkommensnachweis"));
fncElement ("lmnStichpunkt.AZ", $Vorgaben, array ("Mietfreiheitsbestätigung Ihres derzeitigen/letzten Vermieters"));
}
}
}
}
break;
case "lmnHtmlSchleuse":
{
list ($txtInhalt) = $Parameter;
unset ($Parameter);
# Ausgabe
$Vorgaben["htmRumpf"][] = $txtInhalt;
}
break;
case "lmnLogo":
{
/*
Q - Suche
*/
unset ($Parameter);
if (mb_strstr ($Optionen, "Q"))
{
}
else
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.AZ", array ("", fncVorgaben ($Vorgaben, "txtHomeButton.N"), "cssNwCursor cssNwGoHome", "", "", "location='./'; "));
}
}
break;
case "lmnLinie":
{
/*
D - durchgezogen
L - im Lesetext
O - ohne Abstand oben und unten
P - gepunktet
p - PDF
Q - Suche
S - gestrichelt
*/
$Parameter[] = "";
list ($txtInhalt) = $Parameter;
unset ($Parameter);
if (mb_strstr ($Optionen, "Q"))
{
}
elseif (mb_strstr ($Optionen, "p"))
{
$Vorgaben['PDF']->SetLineWidth(0.05);
$Vorgaben['PDF']->SetDrawColor(99,99,99);
$Vorgaben['PDF']->Line(20,$Vorgaben['PDF']->GetY(),190, $Vorgaben['PDF']->GetY());
}
else
{
list ($Oben, $Unten) = explode (",", $txtInhalt . ",");
$Oben /= 1;
$Unten /= 1;
if (mb_strstr ($Optionen, "L"))
{
$Oben = 11;
}
elseif (!$Oben)
{
$Oben = 3;
}
if (!$Unten)
{
$Unten = 10;
}
if (mb_strstr ($Optionen, "O"))
{
$Oben = 0;
$Unten = 0;
}
$stlLinie = "padding: " . $Oben . "px 0px " . $Unten . "px 0px; ";
if (mb_strstr ($Optionen, "D"))
{
$klsLinie = "cssOoBxLnD";
}
elseif (mb_strstr ($Optionen, "P"))
{
$klsLinie = "cssOoBxLnP";
}
elseif (mb_strstr ($Optionen, "S"))
{
$klsLinie = "cssOoBxLnS";
}
else
{
$klsLinie = "cssOoBxLnN";
}
# Ausgabe
// $Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.ABC", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "", $stlLinie));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", $klsLinie));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
// $Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.XYZ", array ());
}
}
break;
case "lmnSuche":
{
/*
B - Farbschema B (sonst A)
K - EIngabefeld Kurzfassung
L - Eingabefeld Langfassung
Q - Suche
*/
// list ($Sprache) = $Parameter;
unset ($Parameter);
# Debug
//$dbgInfo = "lmnSuche"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
//$dbgVariable = "Optionen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Parameter"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if (mb_strstr ($Optionen, "Q")) // Suche
{
}
else
{
$obSuchfeld = 0;
$obZeigen = 0;
$vrbSearch = SEARCH . "-" . $Vorgaben["curLang"];
$wrtSearch = "";
if (isset ($_REQUEST[$vrbSearch]))
{
$wrtSearch = $_REQUEST[$vrbSearch];
}
# Debug
//$dbgVariable = "wrtSearch"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if (mb_strstr ($Optionen, "K") or mb_strstr ($Optionen, "L")) // EIngabefeld
{
$obSuchfeld = 1;
if (mb_strstr ($Optionen, "K")) // EIngabefeld Kurzfassung
{
if (trim ($wrtSearch) or !isset ($Vorgaben["curModPages"][$Vorgaben["curLang"]][$Vorgaben["curZone"]]["lmnSuche."]) or $_REQUEST[PAGE] != $Vorgaben["curModPages"][$Vorgaben["curLang"]][$Vorgaben["curZone"]]["lmnSuche."])
{
$obZeigen = 1;
}
$cssBxSr = " cssOoBxSrK";
$brtSuchfeld = 26;
}
elseif (mb_strstr ($Optionen, "L")) // Eingabefeld Langfassung
{
$obZeigen = 1;
$cssBxSr = " cssOoBxSrL";
$brtSuchfeld = 36;
}
}
if (mb_strstr ($Optionen, "B"))
{
$optVerweis = "B";
}
else
{
$optVerweis = "";
}
# Ausgabe
if ($obSuchfeld) // nur Suchfeld
{
if ($obZeigen)
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", $cssBxSr));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.ABC", array ());
/*
Lupe links?
fncElement ("lmnVerweis.AZG", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.X", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.C", array ());
*/
$Vorgaben["htmRumpf"][] = fncBaustein ("bstEgText", array ($vrbSearch, $wrtSearch, $brtSuchfeld, "", "", "", "", " cssOoNpSc"));
$Vorgaben["OpenFields"][$vrbSearch] = 1;
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.X", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.C", array ());
fncElement ("lmnVerweis.AZG" . $optVerweis, $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.XYZ", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
}
else
{
if (!trim ($wrtSearch)) // kein Suchwort gesetzt
{
fncElement ("lmnSuche.L", $Vorgaben, array ());
}
else // Suchwort gesetzt
{
$Vorgaben["Heuhaufen"] = array ();
# Debug
// $dbgHeuhaufen = $Vorgaben["Heuhaufen"];
// //$dbgVariable = "dbgHeuhaufen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Heuhaufen zusammenfegen
fncElement ("lmnFormatieren.Q", $Vorgaben, array ());
# Debug
$dbgHeuhaufen = $Vorgaben["Heuhaufen"];
//$dbgVariable = "dbgHeuhaufen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Suchen
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", " cssOoBxSrTr"));
$zhlTreffer = 0;
$Steg = 0;
if (is_array ($Vorgaben["Heuhaufen"]))
foreach ($Vorgaben["Heuhaufen"] as $idID => $txtHeuhaufen)
{
if (!isset ($Vorgaben["HeuTitel"][$idID]))
{
$Vorgaben["HeuTitel"][$idID] = "";
}
if (fncText ("ftxSuchen", array ($wrtSearch, $txtHeuhaufen)))
{
$zhlTreffer = 1;
if ($Steg++)
{
fncElement ("lmnLinie", $Vorgaben, array ());
}
fncElement ("lmnVerweis.ANJ", $Vorgaben, array ($Vorgaben["HeuTitel"][$idID], $idID));
if ($Vorgaben["HeuTitel"][$idID])
{
fncElement ("lmnRubrik.AZ", $Vorgaben, array ($Vorgaben["HeuTitel"][$idID]));
}
else
{
fncElement ("lmnRubrik.AZ", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ("xdbNhKp", $idID, "Menu"))));
}
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncText ("ftxKuerzen", array ($txtHeuhaufen, 300))));
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
fncElement ("lmnVerweis.Z", $Vorgaben, array ());
fncElement ("lmnUmfluss.", $Vorgaben, array ());
}
}
if (!$zhlTreffer)
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ("Die Suche nach »" . $wrtSearch . "« brachte leider keine Ergebnisse."));
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
}
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
# Titel ändern
$Vorgaben["Data"]["xdbNhKp"][$_REQUEST[PAGE]]["Titel"] = "Suche nach »" . $wrtSearch . "«";
}
}
}
}
break;
case "lmnFahne":
{
/*
P - Portal
S - Small
M - Medium
L - Large
*/
list ($Sprache) = $Parameter;
unset ($Parameter);
if (mb_strstr ($Optionen, "P"))
{
$cssFahne = " cssPortalFahneGr cssPortalFahne" . $Sprache;
}
elseif (mb_strstr ($Optionen, "L"))
{
$cssFahne = " cssOoBxFhGrL cssOoBxFhL" . $Sprache;
}
elseif (mb_strstr ($Optionen, "M"))
{
$cssFahne = " cssOoBxFhGrM cssOoBxFhM" . $Sprache;
}
else // S
{
$cssFahne = " cssOoBxFhGrS cssOoBxFhS" . $Sprache;
}
# Ausgabe
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.AZ", array ("", "", $cssFahne));
}
break;
case "lmnZitat":
{
/*
Q - Suche
*/
list ($txtInhalt) = $Parameter;
unset ($Parameter);
list ($txtText, $txtUrheber) = explode ("|", $txtInhalt);
if (mb_strstr ($Optionen, "Q"))
{
if ($txtInhalt)
{
$Vorgaben["Heuhaufen"][$Vorgaben["curHhID"]] .= $txtText . " " . $txtUrheber . " ";
}
}
else
{
# Ausgabe
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.ABC", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxZt1"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxZt2"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxZt3"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxZt4"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstAbsatz.AZ", array ($txtText, " cssOoTfLtA cssOoTfZt cssOoTsLtA cssOoTsZt cssOoSnLt cssOoSnZt"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstAbsatz.AZ", array ($txtUrheber, " cssOoTfLtA cssOoTfZt cssOoTfZa cssOoTsLtA cssOoTsZt cssOoTsZa cssOoSnLt cssOoSnZt cssOoSnZa"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.XYZ", array ());
}
}
break;
case "lmnFacebook":
{
/*
Q - Suche
*/
list ($txtInhalt, $txtReferenz) = $Parameter;
unset ($Parameter);
if (mb_strstr ($Optionen, "Q"))
{
$Vorgaben["Heuhaufen"][$Vorgaben["curHhID"]] .= "Facebook ";
}
else
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxFb1"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxFb2"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxFb3"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstIFrame.N", array ("http://www.facebook.com/plugins/like.php?href=" . urlencode ($txtReferenz), "450x40"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstUmfluss", array ());
}
}
break;
case "lmnBildVerweis":
{
/*
Q - Suche
*/
list ($txtInhalt, $txtReferenz) = $Parameter;
unset ($Parameter);
if (mb_strstr ($Optionen, "Q"))
{
}
else
{
$onClick = "window._blank = window.open ('" . fncText ("ftxInternet", array ($txtReferenz)) . "')";
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", $txtReferenz, "cssOoBxBlVw", "", "", $onClick));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBldbox.VL", array ($Vorgaben["Ordner"]["CBilder"], $txtInhalt));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
}
break;
case "lmnVideo":
{
/*
Q - Suche
*/
list ($txtInhalt, $txtReferenz) = $Parameter;
unset ($Parameter);
if (mb_strstr ($Optionen, "Q"))
{
$Vorgaben["Heuhaufen"][$Vorgaben["curHhID"]] .= "Video " . $txtInhalt . " ";
}
else
{
if (mb_strstr ($Optionen, "1"))
{
$rdnQuelle = $Vorgaben["Ordner"]["Download"];
}
else
{
$rdnQuelle = $Vorgaben["Ordner"]["Media"];
}
$pfdVideo = $rdnQuelle . $txtReferenz;
list ($brVideo, $hhVideo) = explode ("x", fncVorgaben ($Vorgaben, "GrVideo"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxVd"));
$Vorgaben["htmRumpf"][] = fncHTML ("embed.A", array ("src", $pfdVideo, "width", $brVideo, "height", $hhVideo, "hidden", "false", "autostart", "false")) . fncHTML ("embed.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstUmfluss", array ());
}
}
break;
case "lmnYouTube":
{
/*
Q - Suche
*/
list ($txtInhalt) = $Parameter;
unset ($Parameter);
if (mb_strstr ($Optionen, "Q"))
{
}
else
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxYt1"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxYt2"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxYt3"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstIFrame.N", array ("http://www.youtube.com/embed/" . $txtInhalt . "?rel=0", fncVorgaben ($Vorgaben, "GrYouTube")));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstUmfluss", array ());
}
}
break;
case "lmnGoogleMap":
{
/*
A - Adresse aus Vorgaben nehmen
F - Adresse der Filiale
Q - Suche
*/
list ($txtInhalt, $txtReferenz) = $Parameter;
unset ($Parameter);
if (mb_strstr ($Optionen, "Q"))
{
}
else
{
if (mb_strstr ($Optionen, "F"))
{
$txtAdresse = fncVorgaben ($Vorgaben, "FlStrasse") . "+" .fncVorgaben ($Vorgaben, "FlPLZ") . "+" .fncVorgaben ($Vorgaben, "FlOrt");
}
if (mb_strstr ($Optionen, "A"))
{
$txtAdresse = fncVorgaben ($Vorgaben, "Strasse") . "+" .fncVorgaben ($Vorgaben, "PLZ") . "+" .fncVorgaben ($Vorgaben, "Ort");
}
else
{
$txtAdresse = $txtReferenz;
}
if (!$txtInhalt)
{
$txtInhalt = fncVorgaben ($Vorgaben, "Firma");
}
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxGg1"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxGg2"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxGg3"));
// $Vorgaben["htmRumpf"][] = fncBaustein ("bstIFrame.N", array ("http://maps.google.de/maps?hl=" . $Vorgaben["curLang"] . "&q=" . str_replace ("(", "", str_replace (")", "", $txtAdresse)) . "&ie=UTF8&z=14&output=embed", fncVorgaben ($Vorgaben, "GrGoogleMap")));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstIFrame.N", array ("http://maps.google.de/maps?hl=" . $Vorgaben["curLang"] . "&q=" . str_replace ("(", "", str_replace (")", "", $txtAdresse)) . "+(" . $txtInhalt . ")&ie=UTF8&z=14&output=embed", fncVorgaben ($Vorgaben, "GrGoogleMap")));
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
fncElement ("lmnVerweis.AZXU", $Vorgaben, array ("Größere Kartenansicht","http://maps.google.de/maps?hl=" . $Vorgaben["curLang"] . "&q=" . $txtAdresse . "+(" . $txtInhalt . ")&ie=UTF8&z=16"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstUmfluss", array ());
}
}
break;
case "lmnStichpunkt":
{
/*
A - auf
p - PDF
Q - Suche
R - rund
U - unsichtbar
Z - zu
*/
list ($txtInhalt) = $Parameter;
unset ($Parameter);
if (mb_strstr ($Optionen, "Q"))
{
if ($txtInhalt)
{
$Vorgaben["Heuhaufen"][$Vorgaben["curHhID"]] .= $txtInhalt . " ";
}
}
elseif (mb_strstr ($Optionen, "p"))
{
if ($txtInhalt)
{
$Vorgaben['PDF']->SetFont('DejaVu','',12);
$Vorgaben['PDF']->Cell(3.5,$Vorgaben['varPDFLineHeight'], '•','',0);
$Vorgaben['PDF']->SetTextColor(0,0,0);
$Vorgaben['PDF']->MultiCell(0 , $Vorgaben['varPDFLineHeight'] , $txtInhalt, 0, "L");
}
else
{
$Vorgaben['PDF']->SetFont('DejaVu','',12);
$Vorgaben['PDF']->Ln(2.5);
}
}
else
{
// $txtInhalt = fncText ("ftxWandeln.H", array ($txtInhalt));
if (mb_strstr ($Optionen, "U")) // unsichtbar
{
$cssStichpunkt = " cssOoBxStU";
}
else // R - rund
{
$cssStichpunkt = " cssOoBxStR";
}
if (mb_strstr ($Optionen, "A"))
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", $cssStichpunkt));
if ($txtInhalt)
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstAbsatz.AZ", array ($txtInhalt, " cssOoTfLtA cssOoTsLtA cssOoSnLt cssOoSnSt"));
}
}
if (mb_strstr ($Optionen, "Z"))
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
}
}
break;
case "lmnUmfluss":
{
/*
L - nur links
Q - Suche
R - nur rechts
*/
unset ($Parameter);
$optUmfluss = "";
if (mb_strstr ($Optionen, "Q"))
{
}
else
{
if (mb_strstr ($Optionen, "L"))
{
$optUmfluss = "L";
}
elseif (mb_strstr ($Optionen, "R"))
{
$optUmfluss = "R";
}
# Ausgabe
$Vorgaben["htmRumpf"][] = fncBaustein ("bstUmfluss", array ($optUmfluss));
}
}
break;
case "lmnKontaktblock":
{
/*
Q - Suche
*/
unset ($Parameter);
if (mb_strstr ($Optionen, "Q"))
{
}
else
{
# Ausgabe
fncElement ("lmnZwischentitel.P", $Vorgaben, array (fncPhrase ($Vorgaben, array ("KontaktAufnehmen", "G"))));
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncPhrase ($Vorgaben, array ("habenSieFragen", "G")) . " " . fncText ("ftxTelefon.G", array ($Vorgaben["Data"]["datVorgaben"][1]["Telefon"], $Vorgaben["curLang"])) . " " . fncPhrase ($Vorgaben, array ("oderSchreibenSie")) . ":"));
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ());
fncElement ("lmnVerweis.AZFU", $Vorgaben, array (fncPhrase ($Vorgaben, array ("NachrichtSchreiben", "G"))));
}
}
break;
case "lmnKontaktdaten":
{
/*
A - Adressblock
B - Bildnachweis
E - E-Mail
F - Firma
I - Internet
L - Labelcode
M - Inhaber 2
N - Inhaber
P - Ansprechpartner
Q - Suche
R - Register
S - Steuernr.
T - Telefon
U - UstID
X - Telefax
Z - Firmenzusatz
*/
unset ($Parameter);
if (mb_strstr ($Optionen, "Q")) // Suche
{
if (mb_strstr ($Optionen, "A")) // Adressblock
{
$Vorgaben["Heuhaufen"][$Vorgaben["curHhID"]] .= fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Strasse")) . " " . fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "PLZ")) . " " . fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Ort")) . " ";
}
elseif (mb_strstr ($Optionen, "E")) // E-Mail
{
$Vorgaben["Heuhaufen"][$Vorgaben["curHhID"]] .= "E-Mail ";
}
elseif (mb_strstr ($Optionen, "F")) // Firma
{
$Vorgaben["Heuhaufen"][$Vorgaben["curHhID"]] .= fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Firma")) . " ";
}
elseif (mb_strstr ($Optionen, "P")) // Ansprechpartner
{
$Vorgaben["Heuhaufen"][$Vorgaben["curHhID"]] .= fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "AnsprVN")) . " " . fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "AnsprNN")) . " ";
}
elseif (mb_strstr ($Optionen, "Z")) // Firmenzusatz
{
$Vorgaben["Heuhaufen"][$Vorgaben["curHhID"]] .= fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "FirmaZusatz")) . " ";
}
elseif (mb_strstr ($Optionen, "N")) // Inhaber
{
$Vorgaben["Heuhaufen"][$Vorgaben["curHhID"]] .= fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Inhaber")) . " ";
}
elseif (mb_strstr ($Optionen, "M")) // Inhaber
{
$Vorgaben["Heuhaufen"][$Vorgaben["curHhID"]] .= fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Inhaber2")) . " ";
}
elseif (mb_strstr ($Optionen, "R")) // Register
{
// fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Register"))));
$Vorgaben["Heuhaufen"][$Vorgaben["curHhID"]] .= fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Register")) . " ";
}
}
else
{
# Ausgabe
if (mb_strstr ($Optionen, "A")) // Adressblock
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Strasse"))));
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "PLZ")) . " " . fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Ort"))));
}
elseif (mb_strstr ($Optionen, "E")) // E-Mail
{
fncElement ("lmnVerweis.AZEU", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "EMail")), fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "EMail"))));
}
elseif (mb_strstr ($Optionen, "F")) // Firma
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Firma"))));
}
elseif (mb_strstr ($Optionen, "T")) // Telefon
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncText ("ftxTelefon.G", array ($Vorgaben["Data"]["datVorgaben"][1]["Telefon"], $Vorgaben["curLang"]))));
}
elseif (mb_strstr ($Optionen, "X")) // Telefax
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncText ("ftxTelefon.G", array ($Vorgaben["Data"]["datVorgaben"][1]["Telefax"], $Vorgaben["curLang"]))));
}
elseif (mb_strstr ($Optionen, "P")) // Ansprechpartner
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "AnsprVN")) . " " . fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "AnsprNN"))));
}
elseif (mb_strstr ($Optionen, "I")) // Internet
{
fncElement ("lmnVerweis.AZXU", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Internet")), fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Internet"))));
}
elseif (mb_strstr ($Optionen, "Z")) // Firmenzusatz
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "FirmaZusatz"))));
}
elseif (mb_strstr ($Optionen, "N")) // Inhaber
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Inhaber"))));
}
elseif (mb_strstr ($Optionen, "M")) // Inhaber 2
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Inhaber2"))));
}
elseif (mb_strstr ($Optionen, "R")) // Register
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Register"))));
}
elseif (mb_strstr ($Optionen, "U")) // UstID
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "UstID"))));
}
elseif (mb_strstr ($Optionen, "S")) // Steuernr
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "StNr"))));
}
elseif (mb_strstr ($Optionen, "L")) // Labelcode
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Labelcode"))));
}
elseif (mb_strstr ($Optionen, "B")) // Bildnachweis
{
fncElement ("lmnAbsatz.AZ", $Vorgaben, array (fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "BldNWStd"))));
}
}
}
break;
case "lmnAusgabe":
{
/*
P - Portal
F - Formular
Z - Zoom
*/
unset ($Parameter);
// fncElement ("lmnRumpf." . $Optionen, $Vorgaben, array ());
// echo implode ("\n", $Vorgaben["htmRumpf"]);
fncElement ("lmnRumpf." . $Optionen, $Vorgaben, array ());
fncElement ("lmnKopf." . $Optionen, $Vorgaben, array ()); // Kopf muss nach Rumpf erzeugt werden
echo implode ("\n", $Vorgaben["htmKopf"]);
echo implode ("\n", $Vorgaben["htmRumpf"]);
# Debug
// $datImmobilien = $Vorgaben["Data"]["datImmobilien"][0];
// //$dbgVariable = "datImmobilien"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $funLaufzeiten = $Vorgaben["funLaufzeiten"];
unset ($Vorgaben);
}
break;
case "lmnKopf":
{
/*
P - Portal
F - Formular
Z - Zoom
*/
unset ($Parameter);
if (mb_strstr ($Optionen, "P") or mb_strstr ($Optionen, "F") or mb_strstr ($Optionen, "Z"))
{
$optMeta = "P";
}
else
{
$optMeta = "";
}
$Vorgaben["htmKopf"][] = funAltBaustein ("Kopf.Start", $Vorgaben, array ());
if (!isset ($Vorgaben["Data"]["xdbNhKp"][$Vorgaben["curPage"]]["Sprache"]))
{
$Vorgaben["Data"]["xdbNhKp"][$Vorgaben["curPage"]]["Sprache"] = "";
}
$Vorgaben["htmKopf"][] = fncBaustein ("bstMeta." . $optMeta, array
(
$Vorgaben["Data"]["datVorgaben"][1]["Firma"],
$Vorgaben["Data"]["xdbNhKp"][$Vorgaben["curPage"]]["Sprache"],
fncFeld ("dtfWert.N", $Vorgaben, array ("xdbNhKp", $Vorgaben["curPage"], "Titel")),
fncFeld ("dtfWert.N", $Vorgaben, array ("xdbNhKp", $Vorgaben["curPage"], "Seitenbeschreibung")),
fncFeld ("dtfWert.N", $Vorgaben, array ("xdbNhKp", $Vorgaben["curPage"], "Suchbegriffe")),
$Vorgaben["Data"]["datVorgaben"][1]["GgID"], $Vorgaben["Data"]["datVorgaben"][1]["YhID"]
));
$Vorgaben["htmKopf"][] = fncBaustein ("bstTitle", array (fncText ("ftxWandeln.F", array ($Vorgaben["curTitle1"])), fncText ("ftxWandeln.F", array ($Vorgaben["curTitle2"]))));
$Vorgaben["htmKopf"][] = funAltBaustein ("CSS", $Vorgaben, array ());
$Vorgaben["htmKopf"][] = funAltBaustein ("FavIcon", $Vorgaben, array ());
$Vorgaben["htmKopf"][] = funAltBaustein ("Skript.Start", $Vorgaben, array ());
$Vorgaben["htmKopf"][] = funAltBaustein ("Skript.Kontrolle", $Vorgaben, array ());
$Vorgaben["htmKopf"][] = funAltBaustein ("Skript.Optionen", $Vorgaben, array ());
$Vorgaben["htmKopf"][] = funAltBaustein ("Skript.Fernschreiber", $Vorgaben, array ());
$Vorgaben["htmKopf"][] = funAltBaustein ("Skript.FrameKiller", $Vorgaben, array ());
$Vorgaben["htmKopf"][] = funAltBaustein ("Skript.Ende", $Vorgaben, array ());
$Vorgaben["htmKopf"][] = funAltBaustein ("Kopf.Ende", $Vorgaben, array ());
}
break;
case "lmnRumpf":
{
/*
P - Portal
F - Formular
Z - Zoom
*/
unset ($Parameter);
$Vorgaben["htmRumpf"][] = funAltBaustein ("Rumpf.Start", $Vorgaben, array ());
if (mb_strstr ($Optionen, "P")) // Portal
{
# Portal Kopf
fncElement ("lmnFormular.AP", $Vorgaben, array ());
// $Vorgaben["htmRumpf"][] = funAltBaustein ("Rahmen.Oben.Portal", $Vorgaben, array ());
fncElement ("lmnRahmen.AP", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" cssPortalKopfBox1"));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.123", $Vorgaben, array ("cssSystemVolleBreite"));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" cssPortalKopfBox2"));
$Vorgaben["htmRumpf"][] = $Vorgaben["curTitle1"] . "" . $Vorgaben["Benutzer"]["Name"] . " " . fncAltBild ("Anzeigen.xfrage", $Vorgaben, array ($Vorgaben["Ordner"]["SDesign"] . "portal_frage.gif", 0, "margin-right: 2px !important; margin-right: 3px;")) . " ";
}
else
{
$ObLoginHilfe = "";
}
$Vorgaben["htmRumpf"][] = $ObLoginHilfe . "" . $Titel . "
";
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" cssExtraRahmen," . $BoxStil)); // 3. Box: enthält den grauen Rahmen
if ($ObInfoBox)
{
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" cssExtraInfoBox"));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.123", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funExtraSymbol ("Aktiv", $Vorgaben, 0, "info-m", 0,0,0,0);
$Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.33", $Vorgaben, array (" cssExtraInfoText"));
$Vorgaben["htmRumpf"][] = $InfoBoxText . "" . funEingabe ("Auswahl", $Vorgaben, array ($FeldID, $Vorgaben["Formular"][$FeldID]["Kandidaten"])) . $Signal . " ";
}
break;
case "Optionen":
{
$Vorgaben["htmRumpf"][] = funEingabe ("Optionen", $Vorgaben, array ($FeldID, $Vorgaben["Formular"][$FeldID]["Kandidaten"]));
if (is_array ($Vorgaben["Formular"][$FeldID]["Kandidaten"]))
foreach ($Vorgaben["Formular"][$FeldID]["Kandidaten"] as $AuswahlID => $AuswahlText) if ($AuswahlText)
{
$Vorgaben["OpenFields"][$FeldID . $AuswahlID] = 1;
}
}
break;
case "Radio":
{
$Vorgaben["htmRumpf"][] = funEingabe ("Radio", $Vorgaben, array ($FeldID, $Vorgaben["Formular"][$FeldID]["Kandidaten"])) . "" . $_REQUEST[$FeldID] . "
";
}
break;
case "Datei":
{
$Vorgaben["htmRumpf"][] = "(folgt im nächsten Schritt)
";
}
break;
case "Datum":
{
$Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.123", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" ,padding: 1px 0px 1px 2px; "));
if ($Datenbank[$idID][$fldFeld] and $Datenbank[$idID][$fldFeld] != -1)
{
$_REQUEST["NewValue"] = funDatum ("Konvertieren.8.10", $Vorgaben, array ($Datenbank[$idID][$fldFeld]));
}
else
{
$_REQUEST["NewValue"] = funDatum ("Heute.10", $Vorgaben, array ());
}
$Vorgaben["htmRumpf"][] = funEingabe ("Text.NurLesen", $Vorgaben, array ($FeldID, 10)) . "";
$Suffix = $VerweisEnde;
$Werte = array ();
for ($Z = 0; $Z <= $Max; $Z++)
{
$BewertungPrefix = array ();
$BewertungSuffix = "";
if ($ObAenderbar)
{
$BildTitel = "";
$VerweisTitel = "Setze Anwesenheit auf " . funZahl ("Formatieren.Viertelbruch", $Vorgaben, array ($Z / 2)) . " Mitarbeiter";
$BewertungPrefix[] = " wurde umgeräumt auf neue Methode --> muss noch gecheckt werden
{
if ($ThisCoord == $_REQUEST["OpenCoord"] and fncFeld ("dtfObRechte.AS", $Vorgaben, array ($datDatenbank, $fldFeld, $idID)))
{
}
else
{
# Wert auslesen
$Wert = $Vorgaben["Data"][$datDatenbank][$idID][$fldFeld];
list ($ActiveDB, $ActiveID, $ActiveField) = explode (",", $_REQUEST["ActiveCoord" . $Vorgaben["curModul"]]);
// if ($datDatenbank . "," . $idID . "," . $fldFeld == $_REQUEST["ActiveCoord" . $Vorgaben["curModul"]]) // wenn schon aktiv, dann Markierung entfernen
if ($datDatenbank == $ActiveDB and $idID == $ActiveID) // wenn schon aktiv, dann Markierung entfernen
{
$Prefix = BasisVerweis_47 ("Intern." . $fldFeld . $idID, $Vorgaben, "Markieren", 0, "document.frmMvd.ActiveCoord" . $Vorgaben["curModul"] . ".value = ''; document.frmMvd.submit();", "cssPortalVerweis1", 0);
}
else // markieren
{
$Prefix = BasisVerweis_47 ("Intern." . $fldFeld . $idID, $Vorgaben, "Markieren", 0, "document.frmMvd.ActiveCoord" . $Vorgaben["curModul"] . ".value = '" . $datDatenbank . "," . $idID . "," . $fldFeld . "'; document.frmMvd.submit();", "cssPortalVerweis1", 0);
}
$Suffix = BasisVerweis_47 ("Ende", 0,0,0,0,0,0);
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array ($Rechts . $Festausschluss . ",font-size: 12px; " . $Padding, $FeldTitel));
$Vorgaben["htmRumpf"][] = $SpanVorspann . $Vorspann . $Prefix . $Wert . $Suffix . $SpanNachspann;
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
}
}
break;
case "dftProzent": // --> wurde umgeräumt auf neue Methode --> muss noch gecheckt werden
{
if ($ThisCoord == $_REQUEST["OpenCoord"] and fncFeld ("dtfObRechte.AS", $Vorgaben, array ($datDatenbank, $fldFeld, $idID)))
{
}
else
{
# Wert auslesen
$Wert = $Vorgaben["Data"][$datDatenbank][$idID][$fldFeld];
if ((1 * $Wert) == $Wert)
{
$Wert = funZahl ("Formatieren.DE.0", $Vorgaben, array ($Wert)) . " %";
}
else
{
$Wert = "—";
}
if ($ObAenderbar)
{
$Prefix = $VerweisStart;
$Suffix = $VerweisEnde;
}
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array ($Rechts . $Festausschluss . ",font-size: 12px; " . $Padding, $FeldTitel));
$Vorgaben["htmRumpf"][] = $SpanVorspann . $Vorspann . $Prefix . $Wert . $Suffix . $SpanNachspann;
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
}
}
break;
case "dftStatus": // --> wurde umgeräumt auf neue Methode --> muss noch gecheckt werden
{
if ($ThisCoord == $_REQUEST["OpenCoord"] and fncFeld ("dtfObRechte.AS", $Vorgaben, array ($datDatenbank, $fldFeld, $idID)))
{
}
else
{
# Wert auslesen
$Wert = $Vorgaben["Data"][$datDatenbank][$idID][$fldFeld];
$CPlanung = $_REQUEST["Planung"];
$FilterArbeitsgruppen = $_REQUEST["Arbeitsgruppen"];
$CMitarbeiter = $idID;
$CEintrittsdatum = $Vorgaben["Data"]["datMitarbeiter"][$CMitarbeiter]["Eintrittsdatum"];
$CAustrittsdatum = $Vorgaben["Data"]["datMitarbeiter"][$CMitarbeiter]["Austrittsdatum"];
$CDatum = $fldFeld;
$SpanVorspann = "";
$SpanNachspann = " ";
# Titel bei MouseOver
$FeldTitel = $Vorgaben["Data"]["datMitarbeiter"][$CMitarbeiter]["VornameNachname"] . " am " . $Vorgaben["Data"]["datMitarbeiter"][0]["FeldTitel"][$CDatum];
// $FeldTitel = $Vorgaben["Data"]["datMitarbeiter"][$CMitarbeiter]["NameVorname"] . ", " . $Datum];
if ($Wert and (!$CPlanung or $CPlanung == 1 and (!$FilterArbeitsgruppen or $Vorgaben["Data"]["datArbeitsgruppen"][$FilterArbeitsgruppen]["Typ"]))) // Dienst oder Abwesenheit gesetzt oder Übersicht oder Planung Arbeitsgruppen aber keine AG gewählt oder automatische AG gewählt
{
$Arbeitsgruppen = explode (",", $Wert);
$ArbeitsgruppenTitel = array ();
$ArbeitsgruppenKurz = array ();
if (is_array ($Arbeitsgruppen)) foreach ($Arbeitsgruppen as $Arbeitsgruppe)
{
$ArbeitsgruppenTitel[] = $Vorgaben["Data"]["datArbeitsgruppen"][$Arbeitsgruppe]["Titel"];
$ArbeitsgruppenKurz[] = $Vorgaben["Data"]["datArbeitsgruppen"][$Arbeitsgruppe]["Initiale"];
}
$Titel = implode (", ", $ArbeitsgruppenTitel);
$Wert = implode (", ", $ArbeitsgruppenKurz);
}
elseif ($Wert and $CPlanung == 1 and $FilterArbeitsgruppen) // Planung: Arbeitsgruppen + Arbeitsgruppe gewählt
{
$Arbeitsgruppen = explode (",", $Wert);
$MerkeArbeitsgruppen = array ();
$ObVorhanden = 0;
if (is_array ($Arbeitsgruppen)) foreach ($Arbeitsgruppen as $Arbeitsgruppe)
{
$Arbeitsgruppe = trim ($Arbeitsgruppe);
if ($Arbeitsgruppe == $FilterArbeitsgruppen)
{
$ObVorhanden = 1;
}
else
{
$MerkeArbeitsgruppen[] = $Arbeitsgruppe;
}
}
$ArbeitsgruppenKurz = array ();
if (is_array ($MerkeArbeitsgruppen)) foreach ($MerkeArbeitsgruppen as $Arbeitsgruppe)
{
$ArbeitsgruppenKurz[] = $Vorgaben["Data"]["datArbeitsgruppen"][$Arbeitsgruppe]["Initiale"];
}
$Vorspann = implode (", ", $ArbeitsgruppenKurz);
if ($ObVorhanden)
{
$Wert = $Vorgaben["Data"]["datArbeitsgruppen"][$FilterArbeitsgruppen]["Initiale"];
$Titel = $Vorgaben["Data"]["datArbeitsgruppen"][$FilterArbeitsgruppen]["Titel"] . " entfernen";
if ($Vorspann)
{
$Vorspann .= ", ";
}
if ($Vorgaben["Benutzer"]["DiensteEntfernenGesperrt"])
{
$ObAenderbar = 0;
}
}
elseif ($ObAenderbar and !$Vorgaben["Data"][$datDatenbank][0]["GesperrteFelder"][$CMitarbeiter][$fldFeld] and !$Vorgaben["Data"][$datDatenbank][0]["NurLesen"][$fldFeld] and !$Vorgaben["Data"]["Limiter"][$FilterArbeitsgruppen][$CDatum] and $CEintrittsdatum <= $CDatum and (!$CAustrittsdatum or $CAustrittsdatum >= $CDatum)) // Gesperrtefelder muß hier eigentlich nicht mehr abgefragt werden, ist doch schon in ObAenderbar enthalten?
{
$Wert = "+";
$Titel = $Vorgaben["Data"]["datArbeitsgruppen"][$FilterArbeitsgruppen]["Titel"] . " setzen";
if ($Vorspann)
{
$Vorspann .= ", ";
}
}
else
{
$Wert = "";
}
}
elseif ($Wert and (!$CPlanung or $CPlanung < 0)) // Abwesenheiten planen
{
$Werte = explode (",", $Wert);
if ($Werte[0] < 0)
{
if ($Vorgaben["Benutzer"]["AbwesenheitenEntfernenGesperrt"][$Werte[0]] or $Vorgaben["Benutzer"]["AbwesenheitenGesperrt"][$CPlanung] or ($idID != $Vorgaben["Benutzer"]["BenutzerID"] and ($Vorgaben["Benutzer"]["FremdAbwesenheitenGesperrt"][$CPlanung] or $Vorgaben["Benutzer"]["FremdAbwesenheitenGesperrt"][$Werte[0]])))
{
$ObAenderbar = 0;
}
$Titel = $Vorgaben["Data"]["DispoPlanung"][$Wert];
if ($Werte[0] == -10 or $Werte[0] == -11)
{
$Wert = "(" . mb_substr ($Titel, 0, 2) . ")";
}
else
{
$Wert = mb_substr ($Titel, 0, 2);
}
}
else
{
// $Wert = "";
$Arbeitsgruppen = explode (",", $Wert);
$ArbeitsgruppenTitel = array ();
$ArbeitsgruppenKurz = array ();
if (is_array ($Arbeitsgruppen)) foreach ($Arbeitsgruppen as $Arbeitsgruppe)
{
$ArbeitsgruppenTitel[] = $Vorgaben["Data"]["datArbeitsgruppen"][$Arbeitsgruppe]["Titel"];
$ArbeitsgruppenKurz[] = $Vorgaben["Data"]["datArbeitsgruppen"][$Arbeitsgruppe]["Initiale"];
}
$Titel = implode (", ", $ArbeitsgruppenTitel);
$Wert = "" . implode (", ", $ArbeitsgruppenKurz) . " ";
}
}
elseif ($ObAenderbar and !$Vorgaben["Data"][$datDatenbank][0]["GesperrteFelder"][$CMitarbeiter][$fldFeld] and !$Vorgaben["Data"][$datDatenbank][0]["GesperrteMitarbeiter"][$CMitarbeiter] and !$Vorgaben["Data"][$datDatenbank][0]["NurLesen"][$fldFeld] and !$Vorgaben["Data"]["Limiter"][$FilterArbeitsgruppen][$CDatum] and $CEintrittsdatum <= $CDatum and (!$CAustrittsdatum or $CAustrittsdatum >= $CDatum) and ($CPlanung == 1 and !$Vorgaben["Data"]["datArbeitsgruppen"][$FilterArbeitsgruppen]["Typ"] or $CPlanung < 0)) // nur manuelle AGs planbar und Abwesenheiten
{
$Wert = "+";
if ($CPlanung == -1 or $CPlanung == -6) // Gleitzeit oder Urlaub
{
$Titel = $Vorgaben["Data"]["DispoPlanung"][$CPlanung] . " beantragen";
}
elseif ($CPlanung < 0) // sonstige Abwesenheiten setzen
{
if ($Vorgaben["Benutzer"]["AbwesenheitenGesperrt"][$CPlanung] or ($idID != $Vorgaben["Benutzer"]["BenutzerID"] and $Vorgaben["Benutzer"]["FremdAbwesenheitenGesperrt"][$CPlanung]))
{
$ObAenderbar = 0;
$Wert = "";
}
else
{
$Titel = $Vorgaben["Data"]["DispoPlanung"][$CPlanung] . " setzen";
}
}
else // Arbeitsgruppe
{
$Titel = $Vorgaben["Data"]["datArbeitsgruppen"][$FilterArbeitsgruppen]["Titel"] . " setzen";
}
}
else
{
$Wert = "";
}
# Darf man das Feld ändern?
if ($ObAenderbar and !$Vorgaben["Data"][$datDatenbank][0]["GesperrteFelder"][$CMitarbeiter][$fldFeld] and (!$Vorgaben["Data"][$datDatenbank][0]["GesperrteMitarbeiter"][$CMitarbeiter] or $Werte[0] == -6) and !$Vorgaben["Data"][$datDatenbank][0]["NurLesen"][$fldFeld] and $CEintrittsdatum <= $CDatum and (!$CAustrittsdatum or $CAustrittsdatum >= $CDatum) and ($CPlanung < 0 or $Vorgaben["Data"][$datDatenbank][0]["fldDetails"] == $fldFeld or !$Vorgaben["Data"]["datArbeitsgruppen"][$FilterArbeitsgruppen]["Typ"]))
{
$Prefix = BasisVerweis_47 ("Intern." . $fldFeld . $CMitarbeiter, $Vorgaben, $Titel, 0, "document.frmMvd.ChangeCoord.value = '" . $datDatenbank . "," . $CMitarbeiter . "," . $fldFeld . "'; document.frmMvd.submit();", " cssPortalVerweis2", 0);
$Suffix = "".BasisVerweis_47 ("Ende", 0,0,0,0,0,0);
}
else // wenn das Feld nicht zu ändern ist, muß es trotzdem einen Namen kriegen, damit es korrekt angesprungen wird
{
$Prefix = " ";
$Suffix = " ";
}
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array ($Rechts . $Festausschluss . ",font-size: 12px; " . $Padding, $FeldTitel));
$Vorgaben["htmRumpf"][] = $SpanVorspann . $Vorspann . $Prefix . $Wert . $Suffix . $SpanNachspann;
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
}
}
break;
case "dftMultiSwitch": // --> wurde umgeräumt auf neue Methode --> muss noch gecheckt werden
{
if ($ThisCoord == $_REQUEST["OpenCoord"] and fncFeld ("dtfObRechte.AS", $Vorgaben, array ($datDatenbank, $fldFeld, $idID)))
{
}
else
{
# Wert auslesen
$Wert = $Vorgaben["Data"][$datDatenbank][$idID][$fldFeld];
$CPlanung = $_REQUEST["Planung"];
switch ($CPlanung)
{
case -1: // Gleitzeit
$Frage = "Soll die gesamte beantragte Gleitzeit im gewählten Zeitraum genehmigt werden?";
break;
case -6: // Urlaub
$Frage = "Soll der gesamte beantragte Erholungsurlaub im gewählten Zeitraum genehmigt werden?";
break;
}
$Symbol = "symbol_multiswitch.gif";
$Padding = "padding: 2px 6px 0px 6px; ";
$Prefix = BasisVerweis_47 ("Intern.MultiSwitch" . $idID, $Vorgaben, "Alle genehmigen?", 0, "if (confirm ('" . $Frage . "')) { document.frmMvd.ChangeCoord.value = '" . $datDatenbank . "," . $idID . "," . $fldFeld . "'; document.frmMvd.submit(); }", 0, $datDatenbank . $fldFeld . $idID . ":" . $Symbol);
$Wert = fncAltBild ("Anzeigen." . $datDatenbank . $fldFeld . $idID, $Vorgaben, array ($Vorgaben["Ordner"]["SDesign"] . $Symbol));
$Suffix = BasisVerweis_47 ("Ende", 0,0,0,0,0,0);
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array ($Rechts . $Festausschluss . ",font-size: 12px; " . $Padding, $FeldTitel));
$Vorgaben["htmRumpf"][] = $SpanVorspann . $Vorspann . $Prefix . $Wert . $Suffix . $SpanNachspann;
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
}
}
break;
case "dftKennwort":
{
if ($ThisCoord == $_REQUEST["OpenCoord"] and fncFeld ("dtfObRechte.AS", $Vorgaben, array ($datDatenbank, $fldFeld, $idID)))
{
// echo 88;
$Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.123", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" ,padding: 1px 0px 1px 3px; "));
$_REQUEST["NewValue"] = "";
$Vorgaben["htmRumpf"][] = funEingabe ("Kennwort", $Vorgaben, array ("NewValue"));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.33", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" ,padding: 2px 6px 1px 0px; white-space: nowrap; "));
$Vorgaben["htmRumpf"][] = " ••••••• ";
}
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array ($Rechts . $Festausschluss . ",font-size: 12px; " . $Padding, $FeldTitel));
$Vorgaben["htmRumpf"][] = $SpanVorspann . $Vorspann . $Prefix . $Wert . $Suffix . $SpanNachspann;
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
}
}
break;
case "dftRechte":
{
if ($ThisCoord == $_REQUEST["OpenCoord"] and fncFeld ("dtfObRechte.AS", $Vorgaben, array ($datDatenbank, $fldFeld, $idID)))
{
# in Vorgaben wird die max. Anzahl Admins unter MaxAdmins festgelegt, darf nicht überschritten werden
if (is_array ($Vorgaben["Data"][$datDatenbank])) foreach ($Vorgaben["Data"][$datDatenbank] as $ID => $X) if ($Vorgaben["Data"][$datDatenbank][$ID][$Vorgaben["Data"][$datDatenbank][0]["fldID"]] and $ID != $idID and (1 * $Vorgaben["Data"][$datDatenbank][$ID]["Rechte"]) == 3)
{
$AnzahlAdmins++;
}
if ($AnzahlAdmins >= $Vorgaben["MaxAdmins"]) // max. Anzahl Admins erreicht, keine weiteren zulassen
{
$Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$fldFeld]["regOffAuswahl"][3] = "";
}
# nur Rechte zeigen bis maximal die des angemeldeten Benutzers
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$fldFeld]["regOffAuswahl"])) foreach ($Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$fldFeld]["regOffAuswahl"] as $AuswahlID => $X) if ($AuswahlID > $Vorgaben["Benutzer"]["Level"])
{
$Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$fldFeld]["regOffAuswahl"][$AuswahlID] = "";
}
$Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.123", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" ,padding: 0px 0px 1px 1px; "));
$_REQUEST["NewValue"] = $Vorgaben["Data"][$datDatenbank][$idID][$fldFeld];
$Vorgaben["htmRumpf"][] = BasisVerweis_47 ("Intern." . $fldFeld . $idID, $Vorgaben, 0,0,0,0,0) . funEingabe ("Auswahl", $Vorgaben, array ("NewValue", $Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$fldFeld]["regOffAuswahl"], 1)) . BasisVerweis_47 ("Ende", 0,0,0,0,0,0);
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.33", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" ,padding: 1px 6px 1px 0px; white-space: nowrap; "));
$Vorgaben["htmRumpf"][] = " " . fncAltBild ("Geviert", $Vorgaben, array (14, 13)) . " " . implode ("/", $MerkeFarben[$Farbe]) . " " . fncAltBild ("Geviert", $Vorgaben, array (1, 20)) . "" . $Vorgaben["Data"]["datArbeitsgruppen"][$idID]["Initiale"] . " " . $Vorgaben["Data"]["datArbeitsgruppen"][$idID]["Titel"] . " " . fncAltBild ("Geviert", $Vorgaben, array (1, 20)) . "Legende :" . $Gruppe . "
"));
fncElement ("lmnAbsatz.AZ", $Vorgaben, array ($Gruppe, " cssPortalGruppe cssPpLt" . $cssErste));
# Debug
// //$dbgVariable = "Felder"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$Vorgaben["curTbHg"] = 1; // Startwert für abwechselnde Zeilenfarbe setzen
if (is_array ($Felder))
foreach ($Felder as $Feld)
if (!isset ($Vorgaben["Benutzer"]["VersteckteFelder"][$datDatenbank][$Feld]) or !$Vorgaben["Benutzer"]["VersteckteFelder"][$datDatenbank][$Feld])
{
// $ZellStil = funDatenbank ("ZellStil", $Vorgaben, array ($datDatenbank, $idID, $Feld));
$Vorgaben["curTbHg"] = fncZahl ("zhlKippeln", array ($Vorgaben["curTbHg"])); // abwechselnde Zeilenfarbe
if ($datDatenbank == $ActiveDB and $idID == $ActiveID and $Feld == $ActiveField)
{
$cssZelle = " cssPpTbHgAk";
}
else
{
$cssZelle = " cssPpTbHgNr" . $Vorgaben["curTbHg"];
}
// $Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.3223", $Vorgaben, array ($cssZelle));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.XY", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.BC", array ("", "", "", $cssZelle));
fncElement ("lmnDfAnzeigen.BTN", $Vorgaben, array ($datDatenbank, $idID, $Feld));
// $Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.33", $Vorgaben, array ($cssZelle));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.X", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.C", array ("", "", "", $cssZelle));
if (isset ($Vorgaben["Data"][$datDatenbank][0]["VokabelFelder"][$Feld]) and $Vorgaben["Data"][$datDatenbank][0]["VokabelFelder"][$Feld])
{
if (is_array ($Vorgaben["AktiveSprachen"])) foreach ($Vorgaben["AktiveSprachen"] as $Sprache)
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.AB", array ("", "", "", " ", "", "cssSystemRechtsUmflossen"));
if (count ($Vorgaben["AktiveSprachen"]) > 1)
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.C", array ("", "", "", " "));
fncElement ("lmnFahne.P", $Vorgaben, array ($Sprache));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.X", array ());
}
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.C", array ("", "", "", " "));
fncElement ("lmnDfAnzeigen", $Vorgaben, array ($datDatenbank, $idID, $Feld, $Sprache));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.XYZ", array ());
}
}
else
{
fncElement ("lmnDfAnzeigen", $Vorgaben, array ($datDatenbank, $idID, $Feld));
}
}
}
unset ($Felder);
$Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.321", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
}
elseif (mb_strstr ($Optionen, "G"))
{
list ($datDatenbank, $idID) = $Parameter;
unset ($Parameter);
if (mb_strstr (mb_strtoupper ($Vorgaben["Data"][$datDatenbank][0]["GelbeBoxOptionen"]), "X")) // ohne Rahmen also
{
$Klasse2 = " cssPortalGelbeBox2x";
$Klasse3a = " cssPortalGelbeBox3x";
}
else
{
$Klasse2 = " cssPortalGelbeBox2";
$Klasse3a = " cssPortalGelbeBox3a";
}
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["AnzeigeFelder"]["GelbeBox"])) foreach ($Vorgaben["Data"][$datDatenbank][0]["AnzeigeFelder"]["GelbeBox"] as $Nr => $Feld)
{
if (!$Nr and !$Feld) // 1. Feld = Überschrift
{
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" cssPortalGelbeBox1"));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" cssPortalGelbeBox3"));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array ($Klasse3a));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.123", $Vorgaben, array ("xcssSystemVolleBreite ")); // beim Abgleich IE FF rausgenommen
}
elseif (!$Nr) // 1. Feld = Überschrift
{
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" cssPortalGelbeBox1"));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array ($Klasse2));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Absatz", $Vorgaben, array ($Feld, " cssPpLt cssSystemFett cssPortalGelbeBoxZelle"));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" cssPortalGelbeBox3"));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array ($Klasse3a));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.123", $Vorgaben, array ("xcssSystemVolleBreite ")); // beim Abgleich IE FF rausgenommen
}
else switch ($Feld)
{
default:
{
list ($Feld, $Zusatz) = explode (".", $Feld);
if (mb_strtoupper ($Zusatz) == "X") // Zeige kein Label
{
// $Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.3223.2", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.XY", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.BC", array ("2", "", "", "", ""));
}
else
{
// $Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.3223", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.XY", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.BC", array ("", "", "", "", ""));
fncElement ("lmnDfAnzeigen.BT", $Vorgaben, array ($datDatenbank, $idID, $Feld));
// $Vorgaben["htmRumpf"][] = funEingabe ("Label.GelbeBox", $Vorgaben, array ($Vorgaben["Data"][$datDatenbank][0]["FeldBezeichner"][$Feld]));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.33", $Vorgaben, array ("cssSystemFestAusschluss"));
}
// $Vorgaben["htmRumpf"][] = funEingabe ("Universal." . $datDatenbank . "." . $idID . "." . $Feld . ".GelbeBox", $Vorgaben, array ($Vorgaben["Data"][$datDatenbank]));
fncElement ("lmnDfAnzeigen.G", $Vorgaben, array ($datDatenbank, $idID, $Feld));
}
break;
case "...":
{
// $Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.3223.2", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.XY", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.BC", array ("2", "", "", "", ""));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" cssPortalGelbeBoxZwischen"));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" cssPortalGelbeBoxPunkte"));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
}
break;
case "===":
{
// $Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.3223.2", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.XY", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.BC", array ("2", "", "", "", ""));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" cssPortalGelbeBoxZwischen"));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.A", $Vorgaben, array (" cssPortalGelbeBoxLinien"));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
}
break;
}
}
// $Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.3223.2", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.XY", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.BC", array ("2", "", "", "", ""));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box", $Vorgaben, array (" cssPortalGelbeBox4"));
$Vorgaben["htmRumpf"][] = funAltBaustein ("Tabelle.321", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$Vorgaben["htmRumpf"][] = funAltBaustein ("Box.Z", $Vorgaben, array ());
break;
}
}
break;
case "lmnBild":
{
/*
F - fixes Maß wird geliefert
K - klein / sonst Original
M - mittel / sonst Original
G - groß / sonst Original
D - quadratisches Bild mit Seitenlänge K, M oder G
X - Zoomgröße / sonst Original
A - Aktuelle Größe
B - kleiner
C - noch kleiner
*
L - linksbündig (sonst rechtsbündig)
N - nicht umfließend
P - Portal
p - PDF
Q - Suche
R - mit Rahmen
S - strecken > nichtproportionales Seitenverhältnis
Z - Zoom
---
V - versetzt, d.h. das Bild bringt bringt selbst den Abstand mit: 5px 0px 2px 7px;
*/
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
list ($txtInhalt, $txtReferenz, $q_zoom) = $Parameter;
unset ($Parameter);
# var
$optQuad = "";
if (mb_strstr ($Optionen, "Q"))
{
if ($txtReferenz)
{
$Vorgaben["Heuhaufen"][$Vorgaben["curHhID"]] .= $txtReferenz . " ";
}
}
elseif (mb_strstr ($Optionen, "p"))
{
# Bild
$p_bild = $Vorgaben["Ordner"]["CBilder"] . $txtInhalt;
$Vorgaben['PDF']->Image($p_bild, 22.5, $Vorgaben['PDF']->GetY() + 1, 0, 80);
$Vorgaben['PDF']->Ln(84);
# Legende
if ($txtReferenz)
{
$Vorgaben['PDF']->SetLineWidth(0.1);
$Vorgaben['PDF']->SetDrawColor(255,255,255);
$Vorgaben['PDF']->Line($Vorgaben['PDF']->GetX()+5.4,$Vorgaben['PDF']->GetY()-7.5,$Vorgaben['PDF']->GetX()+5.4, $Vorgaben['PDF']->GetY()+11);
$Vorgaben['PDF']->SetLineWidth(0.05);
$Vorgaben['PDF']->SetDrawColor(99,99,99);
$Vorgaben['PDF']->Line($Vorgaben['PDF']->GetX()+5,$Vorgaben['PDF']->GetY()-7.5,$Vorgaben['PDF']->GetX()+5, $Vorgaben['PDF']->GetY()+11);
$Vorgaben['PDF']->SetFont('DejaVu','',11);
$Vorgaben['PDF']->Cell(7,0, " ",'',0);
$Vorgaben['PDF']->MultiCell(90 , 4.5 , $txtReferenz, 0, "L");
$Vorgaben['PDF']->Ln(10);
}
else
{
$Vorgaben['PDF']->Ln(1);
}
}
else
{
$bldDatei = $txtInhalt;
if (mb_strstr ($Optionen, "K")) // klein
{
$bldBreite = $Vorgaben["Data"]["datVorgaben"][1]["BldGrK"];
$bldHoehe = 0;
}
elseif (mb_strstr ($Optionen, "M")) // mittel
{
$bldBreite = $Vorgaben["Data"]["datVorgaben"][1]["BldGrM"];
$bldHoehe = 0;
}
elseif (mb_strstr ($Optionen, "G")) // groß
{
$bldBreite = $Vorgaben["Data"]["datVorgaben"][1]["BldGrG"];
$bldHoehe = 0;
}
elseif (mb_strstr ($Optionen, "F")) // fixes Maß geliefert
{
list ($bldDatei, $bldBxH) = explode ("|", $txtInhalt . "|");
list ($bldBreite, $bldHoehe, $optQuad) = explode ("x", $bldBxH . "xx");
}
elseif (mb_strstr ($Optionen, "X"))
{
if (mb_strstr ($Optionen, "A"))
{
$bldBreite = $Vorgaben["Data"]["datVorgaben"][1]["BldGrA"];
$bldHoehe = 0;
}
elseif (mb_strstr ($Optionen, "B"))
{
$bldBreite = $Vorgaben["Data"]["datVorgaben"][1]["BldGrB"];
$bldHoehe = 0;
}
elseif (mb_strstr ($Optionen, "C"))
{
$bldBreite = $Vorgaben["Data"]["datVorgaben"][1]["BldGrC"];
$bldHoehe = 0;
}
else
{
$bldBreite = $_REQUEST[$Vorgaben["regVars"]["varWidth"]] - $Vorgaben["Data"]["datVorgaben"][1]["BldGrXB"];
$bldHoehe = $_REQUEST[$Vorgaben["regVars"]["varHeight"]] - $Vorgaben["Data"]["datVorgaben"][1]["BldGrXH"];
}
}
else
{
$bldBreite = 0;
$bldHoehe = 0;
}
if (mb_strstr ($Optionen, "D")) // quadratisches Bild
{
$bldHoehe = $bldBreite;
$optQuad = "Q";
}
# Umgebung
if (mb_strstr ($Optionen, "P")) // Portal
{
$cssBoxA = " cssPortalBildBoxL";
}
else // Index
{
# Ausrichtung
if (mb_strstr ($Optionen, "L")) // links
{
$cssBoxA = " cssOoBxBlL";
}
else // rechts
{
$cssBoxA = " cssOoBxBlR";
}
}
if (mb_strstr ($Optionen, "Z"))
{
$obZoom = 1;
}
else
{
$obZoom = 0;
}
# Ausgabe
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", " cssOoBxBlHg" . $cssBoxA));
if ($obZoom)
{
fncElement ("lmnVerweis.ALJ", $Vorgaben, array ("Zoom", $Vorgaben['cur_modul'] . ',' . $q_zoom));
}
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBldbox." . $Optionen . $optQuad, array ($Vorgaben["Ordner"]["CBilder"], $bldDatei, $bldBreite, $bldHoehe, $txtReferenz));
if ($obZoom)
{
fncElement ("lmnVerweis.Z", $Vorgaben, array ());
}
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
}
break;
case "lmnThema":
{
/*
p - PDF
S = Thema auslesen und setzen, sonst nur Platzhalter
*/
$Parameter[] = "";
list ($txtInhalt) = $Parameter;
unset ($Parameter);
if (!isset ($Vorgaben["curPage"]))
{
$Vorgaben["curPage"] = "";
}
if (mb_strstr ($Optionen, "p"))
{
$Vorgaben['PDF']->AddPage();
$Vorgaben['PDF']->SetFont('DejaVu','',19);
$Vorgaben['PDF']->MultiCell(130 , 8 , $txtInhalt, 0, "L");
$Vorgaben['PDF']->Ln(6);
$p_logo = $Vorgaben["Ordner"]["CBilder"] . $Vorgaben["Data"]["datVorgaben"][1]["fPDFLogo"];
$Vorgaben['PDF']->Image($p_logo, 162, 5, 26);
$Vorgaben['PDF']->SetLineWidth(0.05);
$Vorgaben['PDF']->SetDrawColor(99,99,99);
$Vorgaben['PDF']->Line(0,$Vorgaben['PDF']->GetY()-3.5,210,$Vorgaben['PDF']->GetY()-3.5);
}
elseif (mb_strstr ($Optionen, "S"))
{
if ((!isset ($Vorgaben["Data"]["xdbNhKp"][$Vorgaben["curPage"]]["ObThemaAus"]) or !$Vorgaben["Data"]["xdbNhKp"][$Vorgaben["curPage"]]["ObThemaAus"]) and isset ($Vorgaben["WoIstThemaLang"]) and $Vorgaben["WoIstThemaLang"]) // wenn ThemaLang existiert, wird es (erst) hier ausgetauscht, damit es in den Autos noch überschrieben werden kann
{
if (!$txtThema = fncFeld ("dtfWert.", $Vorgaben, array ("xdbNhKp", $Vorgaben["curPage"], "Titel")))
{
$txtThema = fncFeld ("dtfWert.", $Vorgaben, array ("xdbNhKp", $Vorgaben["curPage"], "Menu"));
}
$Vorgaben["htmRumpf"][$Vorgaben["WoIstThemaLang"]] = fncBaustein ("bstBox.A", array ("", "", " cssOoBxTh")) . fncBaustein ("bstAbsatz.AZ", array ($txtThema, " cssOoTfLtA cssOoTfRb cssOoTfZw cssOoTfUk cssOoTfKp cssOoTfTh cssOoTsLtA cssOoTsRb cssOoTsZw cssOoTsUk cssOoTsKp cssOoTsTh cssOoSnLt cssOoSnRb cssOoSnZw cssOoSnTh cssOoSnUk cssOoSnKp")) . fncBaustein ("bstBox.Z", array ());
}
}
else
{
$Vorgaben["WoIstThemaLang"] = count ($Vorgaben["htmRumpf"]);
$Vorgaben["htmRumpf"][] = "";
}
}
break;
case "lmnKapitel":
case "lmnUKapitel":
case "lmnZwischentitel":
{
/*
P - Pfeil nach oben
p - PDF
Q - Suche
R - rechtsbündig
s - Starter
*/
list ($txtInhalt) = $Parameter;
unset ($Parameter);
if (mb_strstr ($Optionen, "Q"))
{
if ($txtInhalt)
{
$Vorgaben["Heuhaufen"][$Vorgaben["curHhID"]] .= $txtInhalt . " ";
}
}
elseif (mb_strstr ($Optionen, "p"))
{
if ($txtInhalt)
{
$Vorgaben['PDF']->SetFont('DejaVu','B',12);
if (!mb_strstr ($Optionen, "s")) // Abstand vor nur wenn nicht Starter
{
$Vorgaben['PDF']->Ln(2.5);
}
$Vorgaben['PDF']->MultiCell(130 , 5 , $txtInhalt, 0, "L");
}
else
{
$Vorgaben['PDF']->SetFont('DejaVu','',12);
$Vorgaben['PDF']->Ln(2.5);
}
}
else
{
// $txtInhalt = fncText ("ftxWandeln.H", array ($txtInhalt));
if (mb_strstr ($Optionen, "R"))
{
$cssAusrichtung = " cssSystemRechts";
}
else
{
$cssAusrichtung = "";
}
if (!$txtInhalt)
{
$txtInhalt = " ";
}
switch ($Aktion)
{
case "lmnKapitel":
{
$cssAbsatz = " cssOoTfLtA cssOoTfRb cssOoTfZw cssOoTfUk cssOoTfKp cssOoTsLtA cssOoTsRb cssOoTsZw cssOoTsUk cssOoTsKp cssOoSnLt cssOoSnRb cssOoSnZw cssOoSnUk cssOoSnKp";
$cssBox = " cssOoBxKp";
}
break;
case "lmnUKapitel":
{
$cssAbsatz = " cssOoTfLtA cssOoTfRb cssOoTfZw cssOoTfUk cssOoTsLtA cssOoTsRb cssOoTsZw cssOoTsUk cssOoSnLt cssOoSnRb cssOoSnZw cssOoSnUk";
$cssBox = " cssOoBxUk";
}
break;
case "lmnZwischentitel":
{
$cssAbsatz = " cssOoTfLtA cssOoTfRb cssOoTfZw cssOoTsLtA cssOoTsRb cssOoTsZw cssOoSnLt cssOoSnRb cssOoSnZw";
$cssBox = " cssOoBxZw";
}
break;
}
# Ausgabe
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", $cssBox));
if (mb_strstr ($Optionen, "P"))
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.AZ", array ("", "nach oben", "cssOoBxPfO", "", "", "location='#oben'"));
}
$Vorgaben["htmRumpf"][] = fncBaustein ("bstAbsatz.AZ", array ($txtInhalt, $cssAbsatz . $cssAusrichtung));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
}
break;
case "lmnAbsatz":
case "lmnRubrik":
{
/*
A - Auf
B - Design B (sonst A)
C - Design C (sonst A)
O - ohne Abstand links/rechts
p - PDF
Q - Suche
R - rechtsbündig
Z - Zu
*/
$Parameter[] = "";
$Parameter[] = "";
list ($txtInhalt, $txtReferenz) = $Parameter;
unset ($Parameter);
if (mb_strstr ($Optionen, "Q"))
{
if ($txtInhalt)
{
$Vorgaben["Heuhaufen"][$Vorgaben["curHhID"]] .= $txtInhalt . " ";
}
}
elseif (mb_strstr ($Optionen, "p"))
{
if (mb_strstr ($Optionen, "R"))
{
$k_ausrichtung = "R";
}
else
{
$k_ausrichtung = "L";
}
if ($Aktion == 'lmnRubrik')
{
$Vorgaben['PDF']->SetFont('DejaVu','B',12);
$Vorgaben['PDF']->MultiCell(0 , $Vorgaben['varPDFLineHeight'] , $txtInhalt, 0, $k_ausrichtung);
}
else
{
$Vorgaben['PDF']->SetFont('DejaVu','',12);
$r_zeilen = explode ('¦', $txtInhalt);
foreach ($r_zeilen as $t_zeile)
{
if ($t_zeile)
{
$Vorgaben['PDF']->MultiCell(0 , $Vorgaben['varPDFLineHeight'] , $t_zeile, 0, $k_ausrichtung);
}
else // Leerzeile
{
$Vorgaben['PDF']->Ln(2.5);
}
}
}
}
else
{
// $txtInhalt = fncText ("ftxWandeln.H", array ($txtInhalt));
if (mb_strstr ($Optionen, "R"))
{
$cssAusrichtung = " cssSystemRechts";
}
else
{
$cssAusrichtung = "";
}
switch ($Aktion)
{
case "lmnRubrik":
{
$cssAbsatz = " cssOoTfLtA cssOoTfRb cssOoTsLtA cssOoTsRb cssOoSnLt cssOoSnRb";
}
break;
case "lmnAbsatz":
{
if ($txtReferenz)
{
$cssAbsatz = $txtReferenz;
}
elseif (mb_strstr ($Optionen, "O"))
{
if (mb_strstr ($Optionen, "C"))
{
$cssAbsatz = " cssOoTfLtA cssOoTfLtB cssOoTfLtC cssOoTsLtA cssOoTsLtB cssOoTsLtC";
}
elseif (mb_strstr ($Optionen, "B"))
{
$cssAbsatz = " cssOoTfLtA cssOoTfLtB cssOoTsLtA cssOoTsLtB";
}
else // Design A
{
$cssAbsatz = " cssOoTfLtA cssOoTsLtA";
}
}
else
{
if (mb_strstr ($Optionen, "C"))
{
$cssAbsatz = " cssOoTfLtA cssOoTfLtB cssOoTfLtC cssOoTsLtA cssOoTsLtB cssOoTsLtC cssOoSnLt";
}
elseif (mb_strstr ($Optionen, "B"))
{
$cssAbsatz = " cssOoTfLtA cssOoTfLtB cssOoTsLtA cssOoTsLtB cssOoSnLt";
}
else // Design A
{
$cssAbsatz = " cssOoTfLtA cssOoTsLtA cssOoSnLt";
}
}
}
break;
}
$txtAbsatz = $txtInhalt;
if (!$txtAbsatz)
{
$txtAbsatz = " ";
$cssAbsatz = " cssOoTsLz";
}
# Ausgabe
$Vorgaben["htmRumpf"][] = fncBaustein ("bstAbsatz." . $Optionen, array ($txtAbsatz, $cssAbsatz . $cssAusrichtung));
}
}
break;
case "lmnPreis":
{
/*
E - mit Einheit
N - Nulltext ausgeben (sonst bei null nichts ausgeben)
R - rechtsbündig
V - nur volle Euro ausgeben
*/
list ($txtInhalt) = $Parameter;
unset ($Parameter);
$o_ausgabe = false;
// list ($datDatenbank, $idID, $fldFeld, $t_nulltext) = explode ("|", $txtInhalt . '|');
list ($datDatenbank, $idID, $fldFeld, $t_nulltext, $t_vorspann) = explode ("|", $txtInhalt . '||');
if ($t_vorspann)
{
$t_vorspann .= ' ';
}
else
{
$t_vorspann = '';
}
if (isset ($Vorgaben["Data"][$datDatenbank][$idID][$fldFeld]) and $Vorgaben["Data"][$datDatenbank][$idID][$fldFeld])
{
$o_ausgabe = true;
list ($txtEuro, $txtCent) = explode (",", fncZahl ("zhlFormatieren.D2", array ($Vorgaben["Data"][$datDatenbank][$idID][$fldFeld])));
if (mb_strstr ($Optionen, "V")) // nur volle Euro ausgeben
{
$txtKomma = "";
$txtCent = " ";
}
else
{
$txtKomma = ",";
}
if (mb_strstr ($Optionen, "E")) // mit Einheit
{
if ($txtWaehrung = fncFeld ("dtfEinheit", $Vorgaben, array ($datDatenbank, $fldFeld, 1)))
{
}
else
{
$txtWaehrung = "€";
}
}
else
{
$txtWaehrung = "";
}
}
elseif (mb_strstr ($Optionen, "N"))
{
$o_ausgabe = true;
}
if ($o_ausgabe)
{
$cssEuro = " cssOoTfLtA cssOoTfPe cssOoTsLtA cssOoTsPe cssOoSnLt cssOoSnPe";
$cssCent = " cssOoTfLtA cssOoTfPe cssOoTfPc cssOoTsLtA cssOoTsPe cssOoTsPc cssOoSnLt cssOoSnPe cssOoSnPc";
# Ausrichtung
if (mb_strstr ($Optionen, "R")) // rechtsbündig
{
$stlBox = "float: right; ";
}
else
{
$stlBox = "";
}
# Ausgabe
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", " cssOoBxPr", $stlBox));
if (mb_strstr ($Optionen, "N")) //
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstAbsatz.AZ", array ($t_nulltext, $cssEuro));
}
else
{
fncElement ("lmnHtmlSchleuse", $Vorgaben, array ('' . $txtEuro . $txtKomma . ' ' . $txtCent . ' ' . $txtWaehrung . ' '));
fncElement ("lmnHtmlSchleuse", $Vorgaben, array ('' . $t_vorspann . $txtEuro . $txtKomma . ' ' . $txtCent . ' ' . $txtWaehrung . ' '));
}
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
}
break;
case "lmnDachzeile":
{
/*
Z - Zusatz
*/
unset ($Parameter);
# Ausgabe
if (mb_strstr ($Optionen, "Z"))
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstAbsatz.AZ", array (fncFeld ("dtfWert.", $Vorgaben, array ("datVorgaben", 1, "DachzeileZusatz")), " cssOoTfLtA cssOoTfDc cssOoTfDz cssOoTsLtA cssOoTsDc cssOoTsDz cssOoSnLt cssOoSnDc cssOoSnDz"));
}
else
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstAbsatz.AZ", array (fncFeld ("dtfWert.", $Vorgaben, array ("datVorgaben", 1, "Dachzeile")), " cssOoTfLtA cssOoTfDc cssOoTsLtA cssOoTsDc cssOoSnLt cssOoSnDc"));
}
}
break;
case "lmnBilderVorladen":
{
unset ($Parameter);
# checken !!!
$Vorgaben["htmRumpf"][] = fncAltBild ("Vorladen", $Vorgaben, array ());
}
break;
case "lmnImpressum":
{
/*
B - Design B (sonst A)
C - Design C (sonst A)
R - txtInhalt steht rechts
*/
list ($txtInhalt, $txtReferenz) = $Parameter;
unset ($Parameter);
# var
$txtRInhalt = "";
$idImpressum = "";
if (mb_strstr ($Optionen, "C")) // Design C
{
$optDesign = "C";
}
elseif (mb_strstr ($Optionen, "B")) // Design B
{
$optDesign = "B";
}
else
{
$optDesign = "";
}
if (mb_strstr ($Optionen, "R")) // txtInhalt steht rechts
{
$txtRInhalt = $txtInhalt;
$txtInhalt = "";
}
if (isset ($Vorgaben["Data"]["xdbNhKp"][0]["ExklusivIDs"]["ObImpressum"][$Vorgaben["curLang"] . ";0"]))
{
$idImpressum = $Vorgaben["Data"]["xdbNhKp"][0]["ExklusivIDs"]["ObImpressum"][$Vorgaben["curLang"] . ";0"];
}
$idAGB = "";
if (isset ($Vorgaben["Data"]["xdbNhKp"][0]["ExklusivIDs"]["ObAGB"]))
{
$idAGB = $Vorgaben["Data"]["xdbNhKp"][0]["ExklusivIDs"]["ObAGB"][$Vorgaben["curLang"] . ";0"];
}
# Ausgabe
fncElement ("lmnBox.A", $Vorgaben, array ("", " cssOoBxIm"));
fncElement ("lmnTabelle.ABC", $Vorgaben, array ("", "|| cssOoTbIm"));
if ($txtInhalt)
{
$obElement = 1;
fncElement ("lmnAbsatz.AZ" . $optDesign, $Vorgaben, array ($txtInhalt));
}
if ($idImpressum)
{
if ($obElement)
{
fncElement ("lmnTabelle.D", $Vorgaben, array ());
fncElement ("lmnAbsatz.AZO" . $optDesign, $Vorgaben, array ("|"));
fncElement ("lmnTabelle.D", $Vorgaben, array ());
}
$obElement = 1;
fncElement ("lmnVerweis.AZNT" . $optDesign, $Vorgaben, array ($Vorgaben["Data"]["xdbNhKp"][$idImpressum]["Menu"], $idImpressum));
}
if ($idAGB)
{
if ($obElement)
{
fncElement ("lmnTabelle.D", $Vorgaben, array ());
fncElement ("lmnAbsatz.AZO" . $optDesign, $Vorgaben, array ("|"));
fncElement ("lmnTabelle.D", $Vorgaben, array ());
}
$obElement = 1;
fncElement ("lmnVerweis.AZNT" . $optDesign, $Vorgaben, array ($Vorgaben["Data"]["xdbNhKp"][$idAGB]["Menu"], $idAGB));
}
if ($txtRInhalt)
{
if ($obElement)
{
fncElement ("lmnTabelle.D", $Vorgaben, array ());
fncElement ("lmnAbsatz.AZO" . $optDesign, $Vorgaben, array ("|"));
fncElement ("lmnTabelle.D", $Vorgaben, array ());
}
fncElement ("lmnAbsatz.AZ" . $optDesign, $Vorgaben, array ($txtRInhalt));
}
fncElement ("lmnTabelle.YZ", $Vorgaben, array ());
fncElement ("lmnBox.Z", $Vorgaben, array ());
}
break;
case "lmnFormatieren":
{
/*
D - Design laden
E - Elemente/Details
p - PDF
Q - Heuhaufen für Suche bilden
S - Symbole
--- sonst Inhalt laden
*/
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
list ($b_details, $varEChap, $k_modul, $i_kopf) = $Parameter;
unset ($Parameter);
# Debug
// //$dbgVariable = "datDatenbank"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Optionen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$obInhalteBox = 0;
if (mb_strstr ($Optionen, "E")) // Elemente/Details
{
$obInhalteBox = 1;
$cssBxNh = " cssOoBxDt";
$b_kopf = "xdb" . $k_modul . "Kp";
}
elseif (mb_strstr ($Optionen, "D")) // Design laden
{
if ($Vorgaben["curPage"])
{
$b_details = "datDesign";
}
else
{
$b_details = "datStart";
}
}
elseif (mb_strstr ($Optionen, "S")) // Symbole
{
$smbKennung = $b_details;
$b_details = "datSmElemente";
}
else // sonst Inhalt laden
{
$varEChap = "varNhEChap";
$b_details = "datNhDetails";
$b_kopf = "xdbNhKp";
$obInhalteBox = 1;
$cssBxNh = " cssOoBxNh";
if (mb_strstr ($Optionen, "Q")) // Heuhaufen für Suche bilden
{
# Erstbehandlung für Suche, füge Menüeintrag und Thema zum Heuhaufen hinzu
if (is_array ($Vorgaben["Data"]["xdbNhKp"][0]["Sortierung"]))
foreach ($Vorgaben["Data"]["xdbNhKp"][0]["Sortierung"] as $idID => $tmp)
if (fncDatensatz ("DsAktiv.SZ", $Vorgaben, array ("xdbNhKp", $idID)))
{
if (!isset ($Vorgaben["Heuhaufen"][$idID]))
{
$Vorgaben["Heuhaufen"][$idID] = "";
}
$Vorgaben["Heuhaufen"][$idID] .= fncFeld ("dtfWert.F", $Vorgaben, array ("xdbNhKp", $idID, "Menu")) . " ";
$Vorgaben["Heuhaufen"][$idID] .= fncFeld ("dtfWert.F", $Vorgaben, array ("xdbNhKp", $idID, "Titel")) . " ";
}
}
# Debug
// //$dbgVariable = "zhlSeite"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
# Seite übergeben
if (isset ($_REQUEST[$varEChap]))
{
$zhlSeite = $_REQUEST[$varEChap];
}
else
{
$zhlSeite = "";
}
if (mb_strstr ($Optionen, "S")) // Symbole
{
# 1. Durchlauf: Sind Zweilzeiler dabei?
$OptionZweizeiler = "";
if (is_array ($Vorgaben["Data"][$b_details][0]["Sortierung"]))
foreach ($Vorgaben["Data"][$b_details][0]["Sortierung"] as $idID => $tmp)
if ($Vorgaben["Data"][$b_details][$idID]["Besitzer"] == $smbKennung)
{
switch ($Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$b_details][$idID]["Type"]]["Element"])
{
case "lmnSymbol.PF":
case "lmnSymbol.PFU":
case "lmnSymbol.PG":
case "lmnSymbol.IF":
case "lmnSymbol.IFU":
case "lmnSymbol.IFX":
case "lmnSymbol.IFUX":
case "lmnSymbol.IFC":
case "lmnSymbol.IFCU":
case "lmnSymbol.IFM":
case "lmnSymbol.IFMU":
case "lmnSymbol.IFMK":
{
// $t_inhalt = $Vorgaben["Data"][$b_details][$idID]["Inhalt"];
//
// list ($vrbFilter, $datDatenbank, $fldFelder) = explode ("|", $t_inhalt . "||||");
//
// if (fncFeld ("dtfObRechte.S", $Vorgaben, array ($datDatenbank, $fldFelder)))
// if (fncFeld ("dtfObRechte.F", $Vorgaben, array ($smbKennung, $vrbFilter)))
// {
$OptionZweizeiler = "W";
// }
}
break;
}
}
// if (fncFeld ("dtfObRechte.AS", $Vorgaben, array ($datDatenbank, $fldFeld, $idID)))
# 2. Durchlauf: Formatieren
if (is_array ($Vorgaben["Data"][$b_details][0]["Sortierung"]))
foreach ($Vorgaben["Data"][$b_details][0]["Sortierung"] as $idID => $tmp)
if ($Vorgaben["Data"][$b_details][$idID]["Besitzer"] == $smbKennung)
{
fncElement ($Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$b_details][$idID]["Type"]]["Element"] . $OptionZweizeiler, $Vorgaben, array ($Vorgaben["Data"][$b_details][$idID]["Inhalt"], $Vorgaben["Data"][$b_details][$idID]["Referenz"] . ";" . $smbKennung));
}
}
elseif (mb_strstr ($Optionen, "Q")) // Heuhaufen für Suche bilden
{
# Zweitbehandlung für Suche, füge Text aus Elementen zum Heuhaufen hinzu
if (isset ($Vorgaben["Data"][$b_details][0]["Sortierung"]))
if (is_array ($Vorgaben["Data"][$b_details][0]["Sortierung"]))
foreach ($Vorgaben["Data"][$b_details][0]["Sortierung"] as $idID => $tmp)
if (fncDatensatz ("DsAktiv.SZ", $Vorgaben, array ($b_details, $idID)))
{
# Debug
// //$dbgVariable = "idID"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$obOK = 0;
if (mb_strstr ($Optionen, "E") and $Vorgaben["Data"][$b_details][$idID]["Besitzer"] == $Vorgaben["curHhItem"])
{
$obOK = 1;
}
if (!mb_strstr ($Optionen, "E") and fncDatensatz ("DsAktiv.SZ", $Vorgaben, array ($Vorgaben["Data"][$b_details][0]["Besitzer"], $Vorgaben["Data"][$b_details][$idID]["Besitzer"])))
{
$obOK = 1;
$Vorgaben["curHhID"] = $Vorgaben["Data"][$b_details][$idID]["Besitzer"];
// if ($Vorgaben["Data"][$b_details][0]["Besitzer"])
}
# Debug
// //$dbgVariable = "obOK"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if ($obOK)
{
fncElement ($Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$b_details][$idID]["Type"]]["Element"] . "Q", $Vorgaben, array ($Vorgaben["Data"][$b_details][$idID]["Inhalt"], $Vorgaben["Data"][$b_details][$idID]["Referenz"]));
}
}
}
elseif (mb_strstr ($Optionen, "p")) // PDF
{
if (mb_strstr ($Optionen, "E")) // Elemente/Details
{
formatiereDetails ($Vorgaben, $b_details, $i_kopf);
}
else
{
$x = '';
$i_kopf = '';
$t_titel = '';
if (isset ($Vorgaben["Data"][$b_kopf][0]["Sortierung"]))
if (is_array ($Vorgaben["Data"][$b_kopf][0]["Sortierung"]))
foreach ($Vorgaben["Data"][$b_kopf][0]["Sortierung"] as $i_kopf => $x)
if (isset ($Vorgaben["Data"][$b_kopf][$i_kopf]["ObPDF"]))
if ($Vorgaben["Data"][$b_kopf][$i_kopf]["ObPDF"])
// if (fncDatensatz ("DsAktiv.SZ", $Vorgaben, array ($b_kopf, $i_kopf)))
{
# Titel setzen
$t_titel = fncFeld ("dtfWert.NF", $Vorgaben, array ($b_kopf, $i_kopf, "Titel"));
fncElement ("lmnThema.p", $Vorgaben, array ($t_titel));
formatiereDetails ($Vorgaben, $b_details, $i_kopf);
}
}
}
elseif (mb_strstr ($Optionen, "D")) // Design
{
if (isset ($Vorgaben["Data"][$b_details][0]["Sortierung"]))
if (is_array ($Vorgaben["Data"][$b_details][0]["Sortierung"]))
foreach ($Vorgaben["Data"][$b_details][0]["Sortierung"] as $idID => $tmp)
if (fncDatensatz ("DsAktiv.FZ", $Vorgaben, array ($b_details, $idID)))
{
$i_type = $Vorgaben["Data"][$b_details][$idID]["Type"];
fncElement ($Vorgaben["Data"]["datTypen"][$i_type]["Element"], $Vorgaben, array ($Vorgaben["Data"][$b_details][$idID]["Inhalt"], $Vorgaben["Data"][$b_details][$idID]["Referenz"]));
}
}
else // Inhaltebox aus dat Nh Elemente bzw. dat Details
{
# Inhaltebox
if ($obInhalteBox)
{
fncElement ("lmnBox.A", $Vorgaben, array ("", $cssBxNh));
}
# Vorbereiten
$i_vorherige_type = '';
# neu
if (isset ($Vorgaben["Data"][$b_details][0]["Blaettern"][$zhlSeite]))
if (is_array ($Vorgaben["Data"][$b_details][0]["Blaettern"][$zhlSeite]))
foreach ($Vorgaben["Data"][$b_details][0]["Blaettern"][$zhlSeite] as $idID => $tmp)
if (fncDatensatz ("DsAktiv.FZ", $Vorgaben, array ($b_details, $idID)))
{
// echo "..".$idID."..inh";
# aktuelle Type
$t_aktuelle_type = $Vorgaben['Data'][$b_details][$idID]['Type'];
$q_zoom = '';
# Bezug zur vorhergehenden Type prüfen
if ($i_vorherige_type)
{
# vorherige Type
$t_vorherige_type = $Vorgaben['Data'][$b_details][$i_vorherige_type]['Type'];
# Leerzeile vor Zwischentitel entfernen
if ($t_aktuelle_type == "lmnCzb" and ($t_vorherige_type == "lmnCba" and !$Vorgaben["Data"][$b_details][$i_vorherige_type]["Inhalt"]))
{
$Vorgaben["Data"][$b_details][$i_vorherige_type]['+flt'] = 0;
}
# Leerzeile nach Zwischentitel entfernen
if (($t_aktuelle_type == "lmnCba" and !$Vorgaben["Data"][$b_details][$idID]["Inhalt"]) and $t_vorherige_type == "lmnCzb")
{
$Vorgaben["Data"][$b_details][$idID]['+flt'] = 0;
}
}
# übergebe aktuelle ID als Vorgänger ID
$i_vorherige_type = $idID;
}
$obTabelle = 0; // automatisch Tabelle schließen mit Tabellenfuß
$obTabOffen = 0; // automatisch Tabelle öffnen mit Tabelle öffnen
$o_aufmacher_offen = false;
# neu
if (isset ($Vorgaben["Data"][$b_details][0]["Blaettern"][$zhlSeite]))
if (is_array ($Vorgaben["Data"][$b_details][0]["Blaettern"][$zhlSeite]))
foreach ($Vorgaben["Data"][$b_details][0]["Blaettern"][$zhlSeite] as $idID => $tmp)
if (fncDatensatz ("DsAktiv.FZ", $Vorgaben, array ($b_details, $idID)))
{
$t_aktuelle_type = $Vorgaben['Data'][$b_details][$idID]['Type'];
if ($t_aktuelle_type == "lmnCta" or $t_aktuelle_type == "lmnCtb")
{
if (!$obTabOffen)
{
fncElement ("lmnTabelle.SO", $Vorgaben, array ());
$obTabOffen = 1;
}
$obTabelle = 1;
}
elseif ($obTabelle)
{
fncElement ("lmnTabelle.SF", $Vorgaben, array ());
$obTabOffen = 0;
$obTabelle = 0;
}
# Aufmacher kommen gemeinsam in eine Box
if (isset ($Vorgaben['r_aufmacher'][$t_aktuelle_type]) and $Vorgaben['r_aufmacher'][$t_aktuelle_type])
{
if (!$o_aufmacher_offen)
{
# Aufmacher als Fußleiste oder an der Seite
if (fncVorgaben ($Vorgaben, $Vorgaben['r_aufmacher'][$t_aktuelle_type] . "ObAFuss.R"))
{
$c_box = 'cssOoBxMdAfFsG1';
}
else
{
$c_box = 'cssOoBxMdAfStG1';
}
fncElement ('lmnBox.A', $Vorgaben, array ('', $c_box));
}
$o_aufmacher_offen = true;
}
elseif ($o_aufmacher_offen)
{
fncElement ("lmnBox.Z", $Vorgaben, array ());
$o_aufmacher_offen = false;
}
if ($t_aktuelle_type)
{
if (isset ($Vorgaben["Data"]["datTypen"][$t_aktuelle_type]["obZoom"]))
if ($Vorgaben["Data"]["datTypen"][$t_aktuelle_type]["obZoom"])
{
$q_zoom = 'D,' . $idID . ',,' . $Vorgaben["curZone"] . ',';
}
# bei Download indirekt (Link per E-Mail) den Namen der Datenbank mitliefern
if (isset ($Vorgaben["Data"]["datTypen"][$t_aktuelle_type]["obForm"]))
if ($Vorgaben["Data"]["datTypen"][$t_aktuelle_type]["obForm"])
{
$Vorgaben["Data"][$b_details][$idID]["Referenz"] .= ";" . $Vorgaben['cur_modul'] . ",D," . $idID;
}
fncElement ($Vorgaben["Data"]["datTypen"][$t_aktuelle_type]["Element"], $Vorgaben, array ($Vorgaben["Data"][$b_details][$idID]["Inhalt"], $Vorgaben["Data"][$b_details][$idID]["Referenz"], $q_zoom));
}
}
if ($obTabelle)
{
fncElement ("lmnTabelle.SF", $Vorgaben, array ());
}
if ($o_aufmacher_offen)
{
fncElement ("lmnBox.Z", $Vorgaben, array ());
}
# testweise: Umfluss immer nach Details
fncElement ("lmnUmfluss", $Vorgaben, array ());
# Inhaltebox
if ($obInhalteBox)
{
fncElement ("lmnBox.Z", $Vorgaben, array ());
}
}
}
break;
case "lmnNavigation":
{
/*
B - Bereiche
K - Kasten (Standard)
L - Leiste
P - Piktogramme
T - Tafel
U - Untermenü des aktiven Menüpunktes
*/
unset ($Parameter);
# Anhang
$t_anhang_lang = ($_REQUEST[LANG]) ? '&' . LANG . '=' . $_REQUEST[LANG] : '';
$t_anhang_zone = ($_REQUEST[ZONE]) ? '&' . ZONE . '=' . $_REQUEST[ZONE] : '';
if (!isset ($Vorgaben["Data"]["xdbNhKp"][$Vorgaben["curPage"]]["ObNaviAus"]) or !$Vorgaben["Data"]["xdbNhKp"][$Vorgaben["curPage"]]["ObNaviAus"])
{
if (mb_strstr ($Optionen, "T")) // Tafel
{
$r_module = array ();
$r_kategorien_sortiert = array ();
$r_anzahl_je_kategorie = array ();
$i_inhalte = '';
$x = '';
$p_modul = '';
$n_datenbank = '';
$n_kategorien = '';
$v_kategorie = '';
$t_sortiercode = '';
$i_kategorie = '';
$t_kategorie = '';
$z_unterpunkt = 0;
$z_steg = 0;
# finde gesetzte Module
$r_module = findeGesetzteModule ($Vorgaben);
# Ausgabe
fncElement ("lmnTabelle.ABC", $Vorgaben, array ('', '||cssCcMenuTafelT'));
if (is_array ($Vorgaben['Data']['xdbNhKp'][0]['Sortierung']))
foreach ($Vorgaben['Data']['xdbNhKp'][0]['Sortierung'] as $i_inhalte => $x)
if (fncDatensatz ('DsAktiv.SZ', $Vorgaben, array ('xdbNhKp', $i_inhalte)))
{
$z_unterpunkt = $Vorgaben['Data']['xdbNhKp'][$i_inhalte]['Hierarchie'];
if (!$z_unterpunkt)
{
# ab dem 2. Element Steg setzen
$z_steg++;
if ($z_steg)
{
fncElement ("lmnTabelle.D", $Vorgaben, array ());
}
fncElement ("lmnBox.A", $Vorgaben, array ("", 'cssCcMenuTafelE'));
# gib Verweis aus
fncElement ("lmnBox.A", $Vorgaben, array ("", 'cssCcMenuTafelH'));
fncElement ('lmnVerweis.AZNTU', $Vorgaben, array ('', $i_inhalte));
fncElement ("lmnBox.Z", $Vorgaben, array ());
if (isset ($r_module[$i_inhalte]))
if ($r_module[$i_inhalte])
{
# merke Vorsilbe
$p_modul = $r_module[$i_inhalte];
$n_datenbank = 'xdb' . $p_modul . 'Kp';
$n_kategorien = 'dat' . $p_modul . 'Kategorien';
$v_kategorie = $Vorgaben['regVars']['var' . $p_modul . 'Cat'];
fncDatenbank ('dtbLesen', $Vorgaben, array ($n_datenbank));
fncDatenbank ('dtbLesen', $Vorgaben, array ($n_kategorien));
fncFilter ('fltDatenbank.OZ', $Vorgaben, array ($n_datenbank));
$t_sortiercode = fncVorgaben ($Vorgaben, $p_modul . 'CSort.NR');
sortiereDatenbankNachCode ($Vorgaben, $n_kategorien, $t_sortiercode);
if (isset ($Vorgaben['Data'][$n_kategorien][0]['Sortierung']))
{
$r_kategorien_sortiert = $Vorgaben['Data'][$n_kategorien][0]['Sortierung'];
}
$r_anzahl_je_kategorie = zaehleArtikelJeKategorie ($Vorgaben, $n_datenbank);
# Artikel in Kategorien?
foreach ($r_kategorien_sortiert as $i_kategorie => $x)
if (isset ($r_anzahl_je_kategorie[$i_kategorie]))
if ($r_anzahl_je_kategorie[$i_kategorie])
{
$t_kategorie = fncFeld ('dtfWert.FN', $Vorgaben, array ($n_kategorien, $i_kategorie, 'Titel'));
gibKategorieVerweisAus ($Vorgaben, $v_kategorie, $i_kategorie, $t_kategorie, $i_inhalte);
}
# Artikel ja, aber nicht in Kategorie, also in "Weitere"
if (isset ($r_anzahl_je_kategorie[0]))
if ($r_anzahl_je_kategorie[0])
{
$t_kategorie = fncVorgaben ($Vorgaben, $p_modul . 'CWeitere.N');
$i_kategorie = '!';
gibKategorieVerweisAus ($Vorgaben, $v_kategorie, $i_kategorie, $t_kategorie, $i_inhalte);
}
}
# zeige Untermenüpunkte
$r_unterpunkte = explode (',', $Vorgaben['Data']['xdbNhKp'][$i_inhalte]['+ntrHierarchie']);
foreach ($r_unterpunkte as $i_inhalte)
if (fncDatensatz ('DsAktiv.SZ', $Vorgaben, array ('xdbNhKp', $i_inhalte)))
{
fncElement ('lmnVerweis.AZNTU', $Vorgaben, array ('', $i_inhalte));
}
fncElement ("lmnBox.Z", $Vorgaben, array ());
}
}
fncElement ("lmnTabelle.XYZ", $Vorgaben, array ());
unset ($r_anzahl_je_kategorie);
unset ($r_kategorien_sortiert);
unset ($r_module);
}
elseif (mb_strstr ($Optionen, "P"))
{
$i_inhalte = '';
$x = '';
$s_piktogramm = '';
$z = 0;
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", 'cssCcPkG'));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.AZ", array ("", "", 'cssCcPkD cssCcPkDL'));
if (is_array ($Vorgaben["Data"]["xdbNhKp"][0]["Sortierung"]))
foreach ($Vorgaben["Data"]["xdbNhKp"][0]["Sortierung"] as $i_inhalte => $x)
if ($Vorgaben["Data"]["xdbNhKp"][$i_inhalte]["+flt"])
{
$s_piktogramm = $Vorgaben["Data"]["xdbNhKp"][$i_inhalte]["Piktogramm"];
$t_titel = $Vorgaben["Data"]["xdbNhKp"][$i_inhalte]["Menu"];
$j_ziel = "location='./?" . PAGE . "=" . $i_inhalte . $t_anhang_lang . "'";
if ($i_inhalte == $_REQUEST[PAGE])
{
$s_aktiv = 'a';
}
else
{
$s_aktiv = '';
}
if ($s_piktogramm)
{
if ($z++)
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.AZ", array ("", "", 'cssCcPkDM'));
}
// $Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", fncFeld ("dtfWert.FN", $Vorgaben, array ("datNhBereiche", $idBereich, "Titel")), " cssOoBxNvBrZn" . $idBereich, "", "", $j_ziel));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.AZ", array ("", $t_titel, 'cssCcPkE cssCcPkE' . $s_piktogramm . $s_aktiv . ' cssNwCursor', '', '', $j_ziel));
}
}
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.AZ", array ("", "", 'cssCcPkD cssCcPkDR'));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
elseif (mb_strstr ($Optionen, "B")) // Bereiche
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", "cssOoBxNvBrGs"));
if (isset ($Vorgaben["Data"]["datNhBereiche"][0]["Sortierung"]))
if (is_array ($Vorgaben["Data"]["datNhBereiche"][0]["Sortierung"]))
foreach ($Vorgaben["Data"]["datNhBereiche"][0]["Sortierung"] as $idBereich => $tmp)
if ($Vorgaben["Data"]["datNhBereiche"][$idBereich]["+flt"])
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", " cssOoBxNvBrZn0Au"));
if ($idBereich != $Vorgaben["curZone"])
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", fncFeld ("dtfWert.FN", $Vorgaben, array ("datNhBereiche", $idBereich, "Titel")), " cssOoBxNvBrZn" . $idBereich, "", "", "location='./?" . ZONE . "=" . $idBereich . $t_anhang_lang . "'"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.AZ", array ("", "", " cssOoBxNvBrZn0In"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
else // Bereich gewählt
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", " cssOoBxNvBrZn" . $idBereich . "a"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.AZ", array ("", "", " cssOoBxNvBrZn0In"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
elseif (mb_strstr ($Optionen, "L")) // Leiste
{
// list ($Indize) = $Parameter;
// $Indize /= 1;
$MarkierteThemen = fncAltMenu ("MarkierteThemen", $Vorgaben, array ());
$ObUnterThemen = fncAltMenu ("ObUnterThemen", $Vorgaben, array ());
# Debug
// $dbgNhInh = $Vorgaben["Data"]["xdbNhKp"];
// //$dbgVariable = "dbgNhInh"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if ($Vorgaben["curZone"])
{
$csFarbe0i = " cssOoMnKl0Br" . $Vorgaben["curZone"];
$csFarbe0a = " cssOoMnKl0Br" . $Vorgaben["curZone"] . "a";
$csFarbe1i = " cssOoMnKl1Br" . $Vorgaben["curZone"];
$csFarbe1a = " cssOoMnKl1Br" . $Vorgaben["curZone"] . "a";
}
else
{
$csFarbe0i = "";
$csFarbe0a = "";
$csFarbe1i = "";
$csFarbe1a = "";
}
$Vorgaben["htmRumpf"][] = " ";
# Einleitung Level 1
$Vorgaben["htmRumpf"][] = "
";
# Schleife Level 1
if (is_array ($Vorgaben["Data"]["xdbNhKp"]))
foreach ($Vorgaben["Data"]["xdbNhKp"] as $idLevel0 => $tmp)
if ($Vorgaben["Data"]["xdbNhKp"][$idLevel0]["+flt"])
if (!$Vorgaben["Data"]["xdbNhKp"][$idLevel0]["Hierarchie"])
{
# Klasse
if ($idLevel0 == $Vorgaben["curPage"] or (isset ($Vorgaben["Data"]["xdbNhKp"][$idLevel0]["+nvgOpen"]) and $Vorgaben["Data"]["xdbNhKp"][$idLevel0]["+nvgOpen"]))
{
$Klasse1 = " cssOoMnKlL0Aktiv cssOoMnKl0Br0a" . $csFarbe0a;
}
else
{
$Klasse1 = " cssOoMnKlL0Inaktiv cssOoMnKl0Br0" . $csFarbe0i;
}
$Vorgaben["htmRumpf"][] = " ";
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", fncFeld ("dtfWert.FN", $Vorgaben, array ("xdbNhKp", $idLevel0, "Menu")), ' cssNwCursor' . $Klasse1, "", "", "location='./?" . PAGE . "=" . $idLevel0 . $t_anhang_zone . $t_anhang_lang . "'"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstAbsatz.AZ", array ($Vorgaben["Data"]["xdbNhKp"][$idLevel0]["Menu"], " cssOoTsLtA cssOoTsMn0 cssOoSnMn0"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
if ($Vorgaben["Data"]["xdbNhKp"][$idLevel0]["+ntrHierarchie"])
{
# Einleitung Level 2
$Vorgaben["htmRumpf"][] = " ";
# Schleife Level 2
if (is_array ($Vorgaben["Data"]["xdbNhKp"]))
foreach ($Vorgaben["Data"]["xdbNhKp"] as $idLevel1 => $tmp)
if ($Vorgaben["Data"]["xdbNhKp"][$idLevel1]["+flt"])
if ($Vorgaben["Data"]["xdbNhKp"][$idLevel1]["Hierarchie"] == $idLevel0)
{
# Klasse
if (isset ($MarkierteThemen[$idLevel1]) and $MarkierteThemen[$idLevel1])
{
$Klasse2 = " cssOoMnKlL1Aktiv cssOoMnKl1Br0a" . $csFarbe1a;
}
else
{
$Klasse2 = " cssOoMnKlL1Inaktiv cssOoMnKl1Br0" . $csFarbe1i;
}
$Vorgaben["htmRumpf"][] = " ";
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", fncFeld ("dtfWert.FN", $Vorgaben, array ("xdbNhKp", $idLevel1, "Menu")), ' cssNwCursor' . $Klasse2, "", "", "location='./?" . PAGE . "=" . $idLevel1 . $t_anhang_zone . $t_anhang_lang . "'"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstAbsatz.AZ", array ($Vorgaben["Data"]["xdbNhKp"][$idLevel1]["Menu"], " cssOoTsLtA cssOoTsMn0 cssOoTsMn1 cssOoSnMn0 cssOoSnMn1"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
if ($Vorgaben["Data"]["xdbNhKp"][$idLevel1]["+ntrHierarchie"])
{
# Einleitung Level 3
$Vorgaben["htmRumpf"][] = " ";
# Schleife Level 3
if (is_array ($Vorgaben["Data"]["xdbNhKp"]))
foreach ($Vorgaben["Data"]["xdbNhKp"] as $idLevel2 => $tmp)
if ($Vorgaben["Data"]["xdbNhKp"][$idLevel2]["+flt"])
if ($Vorgaben["Data"]["xdbNhKp"][$idLevel2]["Hierarchie"] == $idLevel1)
{
# Klasse
if (isset ($MarkierteThemen[$idLevel2]) and $MarkierteThemen[$idLevel2])
{
$Klasse3 = " cssOoMnKlL2Aktiv";
}
else
{
$Klasse3 = " cssOoMnKlL2Inaktiv";
}
$Vorgaben["htmRumpf"][] = " ";
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", fncFeld ("dtfWert.FN", $Vorgaben, array ("xdbNhKp", $idLevel2, "Menu")), $Klasse3, "", "", "location='./?" . PAGE . "=" . $idLevel2 . $t_anhang_zone . $t_anhang_lang . "'"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstAbsatz.AZ", array ($Vorgaben["Data"]["xdbNhKp"][$idLevel2]["Menu"], " cssOoTsLtA cssOoTsMn0 cssOoTsMn1 cssOoTsMn2"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
# Abschluß Element Level 3
$Vorgaben["htmRumpf"][] = " ";
}
# Abschluß Level 3
$Vorgaben["htmRumpf"][] = " ";
}
# Abschluß Element Level 2
$Vorgaben["htmRumpf"][] = " ";
}
# Abschluß Level 2
$Vorgaben["htmRumpf"][] = " ";
}
# Abschluß Element Level 1
$Vorgaben["htmRumpf"][] = " ";
}
# Abschluß Menü
$Vorgaben["htmRumpf"][] = " ";
$Vorgaben["htmRumpf"][] = "
" . fncAltBild ("Anzeigen." . $Anker . $Modul . "x" . $Indize, $Vorgaben, array ($Vorgaben["Ordner"]["SDesign"] . "portal_pfeilrechts.gif")) . " " . BasisVerweis_47 ("Ende", 0,0,0,0,0,0);
$HTML[] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$HTML[] = funAltBaustein ("Tabelle.33", $Vorgaben, array ());
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array (", padding-bottom: 15px; "));
$HTML[] = BasisVerweis_47 ("Intern", $Vorgaben, $Titel, 0, $Ziel, " cssPortalVerweis1", $Anker . $Modul . "x" . $Indize . ":portal_pfeilrechts.gif");
if ($Titel)
{
$HTML[] = "" . $Titel . " " . $Text . "";
$Ergebnis = implode ("\n", $HTML);
unset ($HTML);
unset ($Vorgaben);
break;
case "UMFLUSS": // funAltBaustein
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array (", clear: both; ")) . funAltBaustein ("Box.Z", $Vorgaben, array ());
$Ergebnis = implode ("\n", $HTML);
unset ($HTML);
unset ($Vorgaben);
break;
case "LAUFTEXTNEU": // funAltBaustein
list ($Text) = $Parameter;
$VersatzPixel = (1 * $Aktion2);
$TempoMilliSekunden = (1 * $Aktion3);
$OBLinksRechts = $Aktion4;
$Verhalten = $Prefix = $Suffix = $PreSuffix = $Trenner = "";
if ($VersatzPixel < 1)
{
$VersatzPixel = 1;
}
if ($TempoMilliSekunden < 1)
{
$TempoMilliSekunden = 1;
}
if ($OBLinksRechts)
{
$Verhalten = " behavior=\"alternate\"";
$Prefix = " ";
$Suffix = " ";
}
if ($ObPreSuffix)
{
$PreSuffix = " " . $ObPreSuffix . " ";
}
if ($ObTrenner)
{
$Trenner = " " . $ObTrenner . " ";
}
$HTML[] = "" . $Prefix . $PreSuffix . "" . $Titel . " " . $Trenner . $Text . $PreSuffix . $Suffix . " ";
$Ergebnis = implode ("\n", $HTML);
unset ($HTML);
unset ($Vorgaben);
break;
case "LAUFTEXTALT": // funAltBaustein
list ($Titel, $Text, $ObPreSuffix, $ObTrenner) = $Parameter;
$VersatzPixel = (1 * $Aktion2);
$TempoMilliSekunden = (1 * $Aktion3);
$OBLinksRechts = $Aktion4;
$Verhalten = $Prefix = $Suffix = $PreSuffix = $Trenner = "";
if ($VersatzPixel < 1)
{
$VersatzPixel = 1;
}
if ($TempoMilliSekunden < 1)
{
$TempoMilliSekunden = 1;
}
if ($OBLinksRechts)
{
$Verhalten = " behavior=\"alternate\"";
$Prefix = " ";
$Suffix = " ";
}
if ($ObPreSuffix)
{
$PreSuffix = " " . $ObPreSuffix . " ";
}
if ($ObTrenner)
{
$Trenner = " " . $ObTrenner . " ";
}
$HTML[] = "" . $Prefix . $PreSuffix . "" . $Titel . " " . $Trenner . $Text . $PreSuffix . $Suffix . " ";
$Ergebnis = implode ("\n", $HTML);
unset ($HTML);
unset ($Vorgaben);
break;
case "TABELLE": // wird abgelöst // funAltBaustein
$Parameter[] = "";
$Parameter[] = "";
list ($KlassenStile, $ObTitel) = $Parameter;
$TKlasse = $ObTKlasse = $ObTStil = $TStil = $ObZKlasse = $ZKlasse = $ObZStil = $ZStil = $Horizontal = $Vertikal = $Titel = "";
$CellSpacing = " cellSpacing=\"0\""; // cellspacing geht nicht über CSS wg. IE
switch (1 * $Aktion2)
{
case 123: // Tabelle + Zelle
list ($TKlasseStil,$ZKlasseStil) = explode ("+", $KlassenStile . "+");
list ($ObTKlasse,$ObTStil) = explode (",", $TKlasseStil . ",");
list ($ObZKlasse,$ObZStil) = explode (",", $ZKlasseStil . ",");
break;
case 1: // nur Tabelle
case 12:
list ($ObTKlasse,$ObTStil) = explode (",", $KlassenStile . ",");
break;
case 3: // nur Zelle
case 23:
case 33:
case 3223:
list ($ObZKlasse,$ObZStil) = explode (",", $KlassenStile . ",");
break;
}
if (trim ($ObTitel))
{
$Titel = " title=\"" . $ObTitel . "\"";
}
if (trim ($ObTKlasse))
{
$TKlasse = " class=\"" . $ObTKlasse . "\"";
}
if (trim ($ObTStil))
{
$TStil = " style=\"" . $ObTStil . "\"";
}
if (trim ($ObZKlasse))
{
$ZKlasse = " class=\"" . $ObZKlasse . "\"";
}
if (trim ($ObZStil))
{
$ZStil = " style=\"" . $ObZStil . "\"";
}
if ($VerbindeHorizontal = (1 * $Aktion3))
{
$Horizontal = " colSpan=\"" . $VerbindeHorizontal . "\"";
}
if ($VerbindeVertikal = (1 * $Aktion4))
{
$Vertikal = " rowSpan=\"" . $VerbindeVertikal . "\"";
}
switch (1 * $Aktion2)
{
case 1:
$HTML[] = " ";
break;
case 2:
$HTML[] = " ";
break;
case 3:
$HTML[] = " ";
break;
case 10:
$HTML[] = " ";
break;
case 12:
$HTML[] = " ";
$HTML[] = " ";
break;
case 20:
$HTML[] = " ";
break;
case 21:
$HTML[] = " ";
$HTML[] = " ";
break;
case 22:
$HTML[] = " ";
$HTML[] = " ";
break;
case 23:
$HTML[] = " ";
$HTML[] = " ";
break;
case 30:
$HTML[] = " ";
break;
case 32:
$HTML[] = " ";
$HTML[] = " ";
break;
case 33:
$HTML[] = " ";
$HTML[] = " ";
break;
case 123:
$HTML[] = " ";
$HTML[] = " ";
$HTML[] = " ";
break;
case 321:
$HTML[] = " ";
$HTML[] = " ";
$HTML[] = " ";
break;
case 3223:
$HTML[] = " ";
$HTML[] = " ";
$HTML[] = " ";
$HTML[] = " ";
break;
}
$Ergebnis = implode ("\n", $HTML);
unset ($HTML);
unset ($Vorgaben);
break;
case "BOX": // funAltBaustein
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
list ($KlassenStile, $ObTitel, $Inhalt) = $Parameter;
unset ($Parameter);
list ($ObKlasse, $ObStil) = explode (",", $KlassenStile . ",");
$Optionen = $Aktion2;
$Prefix = fncHTML ("div.A", array ("class", $ObKlasse, "style", $ObStil, "title", $ObTitel));
$Suffix = fncHTML ("div.Z", array ());
if (mb_strstr ($Optionen, "A"))
{
// $HTML[] = " ";
$HTML[] = $Prefix;
}
elseif (mb_strstr ($Optionen, "Z"))
{
// $HTML[] = " ";
$HTML[] = $Suffix;
}
else // Quickbox
{
$HTML[] = $Prefix;
$HTML[] = $Inhalt;
$HTML[] = $Suffix;
}
$Ergebnis = implode ("\n", $HTML);
unset ($HTML);
unset ($Vorgaben);
break;
unset ($Vorgaben);
case "KOPF": // funAltBaustein
switch (mb_strtoupper ($Aktion2))
{
case "START": // funAltBaustein
if (!isset ($Vorgaben["RefreshIntervall"]))
{
$Vorgaben["RefreshIntervall"] = 0;
}
if (!isset ($Vorgaben["RefreshAnker"]))
{
$Vorgaben["RefreshAnker"] = "";
}
$RefreshIntervall = 1 * $Vorgaben["RefreshIntervall"];
$RefreshAnker = $Vorgaben["RefreshAnker"];
$HTML[] = " ";
$HTML[] = " ";
$HTML[] = " ";
if ($RefreshIntervall or $RefreshAnker)
{
$Verweis = "";
if ($RefreshAnker)
{
$Verweis = "; URL=#" . $RefreshAnker;
}
$HTML[] = " ";
$HTML[] = " ";
break;
case "ENDE": // funAltBaustein
$HTML[] = " ";
$HTML[] = " ";
break;
}
break;
case "FRAME": // funAltBaustein
$FrameName = $Aktion3;
list ($VerweisZiel) = $Parameter;
$HTML[] = "";
$htmAnker = "" . $htmSpanTan . "‹ " . $htmSpanTan . "› ";
$htmVorspann = " ";
list ($Aktion, $Optionen) = explode (".", $AktOpt . ".");
$HTML = array ();
switch (mb_strtoupper ($Aktion))
{
case "SPRUNG":
list ($Ziel) = $Parameter;
unset ($Parameter);
$HTML[] = $htmVorspann;
$HTML[] = "
» ";
$HTML[] = "
Block " . htmlentities ($Legende) . " ";
// $HTML[] = " ";
break;
case "Z":
unset ($Parameter);
$HTML[] = " ";
$HTML[] = " ";
break;
}
break;
case "INFO":
list ($Legende) = $Parameter;
unset ($Parameter);
$HTML[] = $htmVorspann;
$HTML[] = $htmAnker . " Info " . htmlentities ($Legende) . " ";
$HTML[] = " ";
break;
case "VARIABLE":
list ($VariablenBezeichner, $VariablenWert) = $Parameter;
unset ($Parameter);
switch (mb_strtoupper ($Optionen))
{
default:
$HTML[] = $htmVorspann;
if (!is_array ($VariablenWert))
{
$HTML[] = $htmAnker . " Variable " . $VariablenBezeichner . " | " . nl2br (htmlentities ($VariablenWert)) . " | ";
}
elseif (!$VariablenWert)
{
$HTML[] = $htmAnker . " Variable " . $VariablenBezeichner . " || ";
}
else
{
$HTML[] = $htmAnker . " Variable " . $htmSpanTan . "Array " . $VariablenBezeichner . " | " . nl2br (htmlentities ($VariablenWert)) . " |
";
}
elseif (!$VariablenWert)
{
$HTML[] = "" . $VariablenBezeichner . " ||
";
}
else foreach ($VariablenWert as $Schluessel => $Wert)
{
$HTML[] = fncDebug ("Variable.R", array ($ObDebug, $VariablenBezeichner . "[" . $Schluessel . "]", $Wert));
}
break;
}
break;
}
$Ergebnis = "\n" . implode ("\n", $HTML);
unset ($HTML);
unset ($VariablenWert);
return $Ergebnis;
}
unset ($Parameter);
}
function funSpecial ($AktOpt, $Vorgaben, $Parameter)
{
list ($Aktion, $Optionen) = explode (".", $AktOpt . ".");
switch (mb_strtoupper ($Aktion))
{
case "SFHPREISERRECHNEN": // SFH
{
# Hauptsaison/Nebensaison ermitteln
list ($monStart, $monEnde) = explode ("-", $Vorgaben["Data"]["datVorgaben"][1]["HSaison"]);
# Preislisten ziehen
$regPreislisten = fncAltRegister ("Ziehen", $Vorgaben, array ("datSPreise", "ID", "Datum"));
$regPreislisten = fncAltRegister ("Sortieren", $Vorgaben, array ($regPreislisten));
if (is_array ($Vorgaben["Data"]["datReservierungen"])) foreach ($Vorgaben["Data"]["datReservierungen"] as $idRes => $tmp)
{
unset ($tmp);
if ($Vorgaben["Data"]["datReservierungen"][$idRes]["ID"])
{
# reservierter Zeitraum
if (!$Vorgaben["Data"]["datReservierungen"][$idRes]["PlanAnreise"])
{
$Vorgaben["Data"]["datReservierungen"][0]["GesperrteFelder"][$idRes]["PlanAbreise"] = 1;
}
if (!$Vorgaben["Data"]["datReservierungen"][$idRes]["Rechnung"]) // keine Rechnung
{
$Vorgaben["Data"]["datReservierungen"][0]["GesperrteFelder"][$idRes]["RgVersenden"] = 1;
}
if (!$Vorgaben["Data"]["datReservierungen"][$idRes]["RgNr"] or !$Vorgaben["Data"]["datReservierungen"][$idRes]["RgDatum"])
{
$Vorgaben["Data"]["datReservierungen"][0]["GesperrteFelder"][$idRes]["RgErstellen"] = 1;
}
# bestätigter Zeitraum
if (!$Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnreise"]) // kein bestätigter Zeitraum
{
$Vorgaben["Data"]["datReservierungen"][0]["GesperrteFelder"][$idRes]["BestAbreise"] = 1;
$Vorgaben["Data"]["datReservierungen"][0]["GesperrteFelder"][$idRes]["RgVersenden"] = 1;
$Vorgaben["Data"]["datReservierungen"][0]["GesperrteFelder"][$idRes]["RgErstellen"] = 1;
}
else // gebuchter Zeitraum liegt vor
{
# Preise ermitteln
$Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnzahlNaechteHS"] = 0;
$Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnzahlNaechteNS"] = 0;
# Zeitraum tageweise....
$regZeitraum = funDatum ("Zeitraum.TageweiseNeu.Wo.8", $Vorgaben, array ($Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnreise"], funDatum ("Konvertieren.8.8", $Vorgaben, array ($Vorgaben["Data"]["datReservierungen"][$idRes]["BestAbreise"], -1))));
if (is_array ($regZeitraum)) foreach ($regZeitraum as $Datum => $X)
{
$Datum3 = funDatum ("Konvertieren.8.3.NoCheck", $Vorgaben, array ($Datum));
$StartHS8 = funDatum ("Konvertieren.10.8.NoCheck", $Vorgaben, array ("1." . $monStart . "." . $Datum3[2]));
$EndeHS8 = funDatum ("Konvertieren.10.8", $Vorgaben, array ("0." . $monEnde . "." . $Datum3[2]));
if ($Datum >= $StartHS8 and $Datum <= $EndeHS8) // Hauptsaison
{
$Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnzahlNaechteHS"]++;
}
else // Nebensaison
{
$Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnzahlNaechteNS"]++;
}
}
unset ($regZeitraum);
$NaechteGesamt = $Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnzahlNaechteHS"] + $Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnzahlNaechteNS"];
$Vorgaben["Data"]["datReservierungen"][$idRes]["TageHSNS"] = $Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnzahlNaechteHS"] . "/" . $Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnzahlNaechteNS"];
# welche Preisliste?
$idPreisliste = 0;
if (is_array ($regPreislisten)) foreach ($regPreislisten as $idID => $Datum) if ($Datum <= $Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnreise"])
{
$idPreisliste = $idID;
}
# Berechnung + Bemerkungen
$PreisBemerkung = array ();
$PreisBemerkung[] = "zugrunde liegende Preisliste: " . $Vorgaben["Data"]["datSPreise"][$idPreisliste]["Titel"];
# für Rechnung
$Vorgaben["Data"]["datReservierungen"][$idRes]["+txtE1"] = "vielen Dank für Ihre Reservierung in unserem Spree-Ferienhaus. Wir bestätigen Ihnen folgenden Reisezeitraum:";
$Vorgaben["Data"]["datReservierungen"][$idRes]["+txtE2"] = "Der Gesamtpreis für Ihren Aufenthalt wird wie folgt berechnet:";
# Hauptsaison
$Vorgaben["Data"]["datReservierungen"][$idRes]["+PreisPNHS"] = $Vorgaben["Data"]["datSPreise"][$idPreisliste]["PreisPNHS"];
$PreisHS = $Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnzahlNaechteHS"] * $Vorgaben["Data"]["datSPreise"][$idPreisliste]["PreisPNHS"];
$Vorgaben["Data"]["datReservierungen"][$idRes]["+PreisHS"] = $PreisHS;
// $Vorgaben["Data"]["datReservierungen"][$idRes]["+txtHS"] = fncFeld ("dtfWert", $Vorgaben, array ("datReservierungen", $idRes, "BestAnzahlNaechteHS")) . " Tage Hauptsaison à " . fncFeld ("dtfWert.E", $Vorgaben, array ("datReservierungen", $idRes, "+PreisPNHS"));
if ($PreisHS)
{
$Vorgaben["Data"]["datReservierungen"][$idRes]["+txtHS"] = $Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnzahlNaechteHS"] . funZahl ("Zusatz", $Vorgaben, array ($Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnzahlNaechteHS"], "Nacht", "Nächte", 1)) . " à " . fncFeld ("dtfWert.E", $Vorgaben, array ("datSPreise", $idPreisliste, "PreisPNHS")) . " (Hauptsaison)";
$PreisBemerkung[] = $Vorgaben["Data"]["datReservierungen"][$idRes]["+txtHS"];
}
# Nebensaison
$Vorgaben["Data"]["datReservierungen"][$idRes]["+PreisPNNS"] = $Vorgaben["Data"]["datSPreise"][$idPreisliste]["PreisPNNS"];
$PreisNS = $Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnzahlNaechteNS"] * $Vorgaben["Data"]["datSPreise"][$idPreisliste]["PreisPNNS"];
$Vorgaben["Data"]["datReservierungen"][$idRes]["+PreisNS"] = $PreisNS;
if ($PreisNS)
{
$Vorgaben["Data"]["datReservierungen"][$idRes]["+txtNS"] = $Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnzahlNaechteNS"] . funZahl ("Zusatz", $Vorgaben, array ($Vorgaben["Data"]["datReservierungen"][$idRes]["BestAnzahlNaechteNS"], "Nacht", "Nächte", 1)) . " à " . fncFeld ("dtfWert.E", $Vorgaben, array ("datSPreise", $idPreisliste, "PreisPNNS")) . " (Nebensaison)";
$PreisBemerkung[] = $Vorgaben["Data"]["datReservierungen"][$idRes]["+txtNS"];
}
# Rabatte?
$Rabatt = 0;
if ($Vorgaben["Data"]["datSPreise"][$idPreisliste]["Rabatt14"] and $NaechteGesamt >= 14)
{
$Rabatt = $Vorgaben["Data"]["datSPreise"][$idPreisliste]["Rabatt14"];
$Vorgaben["Data"]["datReservierungen"][$idRes]["+txtRb"] = $Rabatt . " % Rabatt für 14 Tage oder mehr";
}
elseif ($Vorgaben["Data"]["datSPreise"][$idPreisliste]["Rabatt7"] and $NaechteGesamt >= 7)
{
$Rabatt = $Vorgaben["Data"]["datSPreise"][$idPreisliste]["Rabatt7"];
$Vorgaben["Data"]["datReservierungen"][$idRes]["+txtRb"] = $Rabatt . " % Rabatt für 7 Tage oder mehr";
}
$ErrechneterPreis = $PreisHS + $PreisNS;
$PreisNachlass = 0;
if ($Rabatt)
{
$PreisNachlass = fncZahl ("zhlRunden", array (($ErrechneterPreis * $Rabatt / 100), 2));
$PreisBemerkung[] = "gewährter Rabatt: " . $Rabatt . " % (auf " . funZahl ("Formatieren.DE.2", $Vorgaben, array ($ErrechneterPreis)) . " Euro) = " . funZahl ("Formatieren.DE.2", $Vorgaben, array ($PreisNachlass)) . " Euro";
}
$Vorgaben["Data"]["datReservierungen"][$idRes]["+PreisNachlass"] = $PreisNachlass;
# weitere Posten
$WeiterePosten = 0;
# Endreinigung
if ($Vorgaben["Data"]["datSPreise"][$idPreisliste]["Endreinigung"])
{
$Vorgaben["Data"]["datReservierungen"][$idRes]["+Endreinigung"] = $Vorgaben["Data"]["datSPreise"][$idPreisliste]["Endreinigung"];
$WeiterePosten += $Vorgaben["Data"]["datSPreise"][$idPreisliste]["Endreinigung"];
$Vorgaben["Data"]["datReservierungen"][$idRes]["+txtEr"] = "Endreinigung";
$PreisBemerkung[] = "Endreinigung: " . funZahl ("Formatieren.DE.2", $Vorgaben, array ($Vorgaben["Data"]["datSPreise"][$idPreisliste]["Endreinigung"])) . " Euro";
// $PreisBemerkung[] = $Vorgaben["Data"]["datReservierungen"][$idRes]["+txtEr"];
}
# Zubehör
// if ($Vorgaben["Data"]["datSPreise"][$idPreisliste]["BettW"] and $Vorgaben["Data"]["datReservierungen"][$idRes]["AnzahlBettW"])
// {
// $WeiterePosten += $Vorgaben["Data"]["datSPreise"][$idPreisliste]["BettW"] * $Vorgaben["Data"]["datReservierungen"][$idRes]["AnzahlBettW"];
// $PreisBemerkung[] = $Vorgaben["Data"]["datReservierungen"][$idRes]["AnzahlBettW"] . " x Bettwäsche à " .funZahl ("Formatieren.DE.2", $Vorgaben, array ($Vorgaben["Data"]["datSPreise"][$idPreisliste]["BettW"])) . " Euro";
// }
// if ($Vorgaben["Data"]["datSPreise"][$idPreisliste]["HandT"] and $Vorgaben["Data"]["datReservierungen"][$idRes]["AnzahlHandT"])
// {
// $WeiterePosten += $Vorgaben["Data"]["datSPreise"][$idPreisliste]["HandT"] * $Vorgaben["Data"]["datReservierungen"][$idRes]["AnzahlHandT"];
// $PreisBemerkung[] = $Vorgaben["Data"]["datReservierungen"][$idRes]["AnzahlHandT"] . " x Handtücher à " .funZahl ("Formatieren.DE.2", $Vorgaben, array ($Vorgaben["Data"]["datSPreise"][$idPreisliste]["HandT"])) . " Euro";
// }
# Endpreis berechnen
$Vorgaben["Data"]["datReservierungen"][$idRes]["ErrechneterPreis"] = $ErrechneterPreis - $PreisNachlass + $WeiterePosten;
$Vorgaben["Data"]["datReservierungen"][$idRes]["PreisBemerkung"] = implode (", ", $PreisBemerkung);
$Vorgaben["Data"]["datReservierungen"][$idRes]["Endsumme"] = $Vorgaben["Data"]["datReservierungen"][$idRes]["ErrechneterPreis"] + $Vorgaben["Data"]["datReservierungen"][$idRes]["ZuAbschlag"] + $Vorgaben["Data"]["datReservierungen"][$idRes]["ZuAbschlag2"];
# Anzahlung
$Vorgaben["Data"]["datReservierungen"][$idRes]["txtAnz"] = "Bitte überweisen Sie die Anzahlung in Höhe von " . fncFeld ("dtfWert.E", $Vorgaben, array ("datReservierungen", $idRes, "Anzahlung")) . " bis zum " . fncFeld ("dtfWert.E", $Vorgaben, array ("datReservierungen", $idRes, "TmAnzahlung")) . ".";
$Vorgaben["Data"]["datReservierungen"][$idRes]["Restzahlung"] = $Vorgaben["Data"]["datReservierungen"][$idRes]["Endsumme"] - $Vorgaben["Data"]["datReservierungen"][$idRes]["Anzahlung"];
if ($Vorgaben["Data"]["datReservierungen"][$idRes]["TmRestzahlung"])
{
$Vorgaben["Data"]["datReservierungen"][$idRes]["txtGes"] = "Bitte überweisen Sie den Betrag bis zum " . fncFeld ("dtfWert.E", $Vorgaben, array ("datReservierungen", $idRes, "TmRestzahlung")) . ".";
$Vorgaben["Data"]["datReservierungen"][$idRes]["txtRes"] = "Die Restbetrag in Höhe von " . fncFeld ("dtfWert.E", $Vorgaben, array ("datReservierungen", $idRes, "Restzahlung")) . " wird zum " . fncFeld ("dtfWert.E", $Vorgaben, array ("datReservierungen", $idRes, "TmRestzahlung")) . " fällig.";
$Vorgaben["Data"]["datReservierungen"][$idRes]["txtHw1"] = "Bitte beachten Sie die Zahlungstermine, denn Sie erhalten keine gesonderte Rechnung für die Restzahlung.";
$Vorgaben["Data"]["datReservierungen"][$idRes]["txtHw2"] = "Mit Eingang der Anzahlung bei uns wandelt sich Ihre Reservierung in eine feste Buchung unseres Ferienhauses.";
}
else
{
$Vorgaben["Data"]["datReservierungen"][$idRes]["txtGes"] = "Bitte überweisen Sie den Betrag bis zum " . fncFeld ("dtfWert.E", $Vorgaben, array ("datReservierungen", $idRes, "BestAnreise")) . ".";
}
$Vorgaben["Data"]["datReservierungen"][$idRes]["txtHw3"] = "Zwei bis drei Wochen vor Anreise erhalten Sie die genauen Informationen für die Schlüsselübergabe.";
$Vorgaben["Data"]["datReservierungen"][$idRes]["txtHw4"] = "Für sämtlichen Schriftverkehr benutzen Sie bitte die unten aufgeführte Postadresse.";
$Vorgaben["Data"]["datReservierungen"][$idRes]["txtHw5"] = "Viel Spaß bei Ihrer Urlaubsvorbereitung und eine angenehme Anreise wünscht Ihnen";
unset ($PreisBemerkung);
}
}
}
$Ergebnis = $Vorgaben;
unset ($regPreislisten);
unset ($Vorgaben);
}
break;
case "ERMITTLEBELEGUNG": // SFH
{
// $Ergebnis = $Ergebnis;
# Belegung ermitteln
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["Titel"][0] = "frei";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["Titel"][1] = "reserviert";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["Titel"][2] = "mehrfach reserviert";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["Titel"][3] = "gebucht";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["Titel"][4] = "mehrfach gebucht";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["Titel"][5] = "gebucht + reserviert";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["Titel"][6] = "gebucht + mehrfach reserviert";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["Titel"][7] = "mehrfach gebucht + reserviert";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["Titel"][8] = "mehrfach gebucht + mehrfach reserviert";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["ZellKlasse"][1] = "cssPortalKalenderMarkiert1";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["ZellKlasse"][2] = "cssPortalKalenderMarkiert2";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["ZellKlasse"][3] = "cssPortalKalenderMarkiert3";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["ZellKlasse"][4] = "cssPortalKalenderMarkiert4";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["ZellKlasse"][5] = "cssPortalKalenderMarkiert3";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["ZellKlasse"][6] = "cssPortalKalenderMarkiert3";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["ZellKlasse"][7] = "cssPortalKalenderMarkiert4";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["ZellKlasse"][8] = "cssPortalKalenderMarkiert4";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["VerweisKlasse"][1] = "cssPortalVerweis3";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["VerweisKlasse"][2] = "cssPortalVerweis3";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["VerweisKlasse"][3] = "cssPortalVerweis3";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["VerweisKlasse"][4] = "cssPortalVerweis3";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["VerweisKlasse"][5] = "cssPortalVerweis3";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["VerweisKlasse"][6] = "cssPortalVerweis3";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["VerweisKlasse"][7] = "cssPortalVerweis3";
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][0]["VerweisKlasse"][8] = "cssPortalVerweis3";
/*
$Vorgaben["Data"]["datReservierungen"][0]["Symbole"]["BestWarnung"] = "status_warnung"; // Symbol in Legende
$Vorgaben["Data"]["datReservierungen"][0]["Symbole"]["PlanWarnung"] = "status_warnung"; // Symbol in Legende
-*/
# zuerst die Gebuchten durchgehen
$Sammler = array ();
if (is_array ($Vorgaben["Data"]["datReservierungen"])) foreach ($Vorgaben["Data"]["datReservierungen"] as $idID => $X) if ($Vorgaben["Data"]["datReservierungen"][$idID]["ID"]) if ($Vorgaben["Data"]["datReservierungen"][$idID]["BestAnreise"])
{
$Vorgaben["Data"]["datReservierungen"][0]["GesperrteFelder"][$idID]["PlanAnreise"] = 1;
$Vorgaben["Data"]["datReservierungen"][0]["GesperrteFelder"][$idID]["PlanAbreise"] = 1;
$Zeitraum = funDatum ("Zeitraum.TageweiseNeu.Wo.8", $Vorgaben, array ($Vorgaben["Data"]["datReservierungen"][$idID]["BestAnreise"], funDatum ("Konvertieren.8.8", $Vorgaben, array ($Vorgaben["Data"]["datReservierungen"][$idID]["BestAbreise"], -1))));
//$dbgVariable = "Zeitraum"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if (is_array ($Zeitraum)) foreach ($Zeitraum as $Datum8 => $X) if (mb_strstr ($Optionen, "A") or $Datum8 >= $Vorgaben["Heute"][8])
{
if ($Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][$Datum8])
{
$Vorgaben["Data"]["datReservierungen"][$idID]["BestWarnung"] = 1;
$Vorgaben["Data"]["datReservierungen"][$Sammler[$Datum8]]["BestWarnung"] = 1;
if (mb_strstr ($Optionen, "D"))
{
$Status = 4;
}
else
{
$Status = 3;
}
}
else
{
$Status = 3;
$Sammler[$Datum8] = $idID;
}
if (!$Vorgaben["Data"]["datReservierungen"][$idID]["BestWarnung"])
{
$Vorgaben["Data"]["datReservierungen"][$idID]["BestWarnung"] = 0;
}
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][$Datum8] = $Status;
}
# Status
if ($Vorgaben["Data"]["datReservierungen"][$idID]["BestAbreise"] < $Vorgaben["Heute"][8])
{
$Vorgaben["Data"]["datReservierungen"][$idID]["Status"] = 2;
}
else
{
$Vorgaben["Data"]["datReservierungen"][$idID]["Status"] = 1;
}
}
//$dbgVariable = "Sammler"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$dbgRes = $Vorgaben["Data"]["datReservierungen"];
// //$dbgVariable = "dbgRes"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# dann die Reservierungen...
$Sammler = array ();
if (mb_strstr ($Optionen, "R")) if (is_array ($Vorgaben["Data"]["datReservierungen"])) foreach ($Vorgaben["Data"]["datReservierungen"] as $idID => $X) if ($Vorgaben["Data"]["datReservierungen"][$idID]["ID"]) if (!$Vorgaben["Data"]["datReservierungen"][$idID]["BestAnreise"]) if ($Vorgaben["Data"]["datReservierungen"][$idID]["PlanAnreise"])
{
$Zeitraum = funDatum ("Zeitraum.TageweiseNeu.Wo.8", $Vorgaben, array ($Vorgaben["Data"]["datReservierungen"][$idID]["PlanAnreise"], funDatum ("Konvertieren.8.8", $Vorgaben, array ($Vorgaben["Data"]["datReservierungen"][$idID]["PlanAbreise"], -1))));
if (is_array ($Zeitraum)) foreach ($Zeitraum as $Datum8 => $X) if (mb_strstr ($Optionen, "A") or $Datum8 >= $Vorgaben["Heute"][8])
{
switch ($Status = $Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][$Datum8])
{
case 1:
{
$Vorgaben["Data"]["datReservierungen"][$idID]["PlanWarnung"] = 1;
$Vorgaben["Data"]["datReservierungen"][$Sammler[$Datum8]]["PlanWarnung"] = 1;
if (mb_strstr ($Optionen, "D"))
{
$Status = 2;
}
else
{
$Status = 1;
}
}
break;
case 2:
{
$Vorgaben["Data"]["datReservierungen"][$idID]["PlanWarnung"] = 1;
// $Status = 2;
}
break;
case 3:
{
$Vorgaben["Data"]["datReservierungen"][$idID]["PlanWarnung"] = 1;
if (mb_strstr ($Optionen, "D"))
{
$Status = 5;
}
else
{
$Status = 3;
}
}
break;
case 4:
{
$Vorgaben["Data"]["datReservierungen"][$idID]["PlanWarnung"] = 1;
$Status = 7;
}
break;
case 5:
{
$Vorgaben["Data"]["datReservierungen"][$idID]["PlanWarnung"] = 1;
$Status = 6;
}
break;
case 6:
{
$Vorgaben["Data"]["datReservierungen"][$idID]["PlanWarnung"] = 1;
// $Status = 6;
}
break;
case 7:
{
$Vorgaben["Data"]["datReservierungen"][$idID]["PlanWarnung"] = 1;
$Status = 8;
}
break;
case 8:
{
$Vorgaben["Data"]["datReservierungen"][$idID]["PlanWarnung"] = 1;
// $Status = 6;
}
break;
case false: // also frei
{
$Status = 1;
$Sammler[$Datum8] = $idID;
}
break;
}
if (!$Vorgaben["Data"]["datReservierungen"][$idID]["PlanWarnung"])
{
$Vorgaben["Data"]["datReservierungen"][$idID]["PlanWarnung"] = 0;
}
$Vorgaben["Data"]["datReservierungen"][0]["Belegung"]["Termine"][$Datum8] = $Status;
}
# Status
switch ($Vorgaben["Data"]["datReservierungen"][$idID]["Status"])
{
case 2:
break;
default:
$Vorgaben["Data"]["datReservierungen"][$idID]["Status"] = 1;
break;
}
}
//$dbgVariable = "Sammler"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$Ergebnis = $Vorgaben;
unset ($Vorgaben);
}
break;
}
return $Ergebnis;
}
function funKeks ($Aktion, $Vorgaben, $Parameter)
{
/*
SCHREIBEN
if (funKeks ("Schreiben", $Vorgaben, array ("kksVariable", $regRegister, $zahHaltbarkeit)))
{
}
LESEN
$regRegister = funKeks ("Lesen", $Vorgaben, array ("kksVariable")))
*/
list ($Aktion1, $Aktion2, $Aktion3) = explode (".", $Aktion);
switch (mb_strtoupper ($Aktion1))
{
case "SCHREIBEN":
list ($kksVariable, $regRegister, $zahHaltbarkeit) = $Parameter;
# Register keksgerecht umformen, also als ein String
$tmpRegister = array ();
if (is_array ($regRegister)) foreach ($regRegister as $Vorgabe => $Wert) if ($Vorgabe and $Wert)
{
$tmpRegister[] = $Vorgabe . "=" . $Wert;
}
$kksWert = implode ("|", $tmpRegister);
# Verfallsdatum
$zahHaltbarkeit /= 1;
if ($zahHaltbarkeit)
{
$zahHaltbarkeit = time() + 60 * 60 * 24 * $zahHaltbarkeit;
}
# Schreiben
if ($Vorgaben["ObDebug"])
{
$dbgBlock = "Debug-Mode. Dieser Cookie würde gesetzt werden:"; echo fncDebug ("Block.A", array ($Vorgaben["ObDebug"], $dbgBlock));
//$dbgVariable = "kksVariable"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "kksWert"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$dbgBlock = ""; echo fncDebug ("Block.Z", array ($Vorgaben["ObDebug"], $dbgBlock));
}
elseif (setcookie ($kksVariable, $kksWert, $zahHaltbarkeit))
{
$Ergebnis = true;
}
else
{
$Ergebnis = false;
}
break;
case "LESEN":
list ($kksVariable) = $Parameter;
$regRegister = array ();
$tmpRegister = explode ("|", $_REQUEST[$kksVariable]);
if (is_array ($tmpRegister)) foreach ($tmpRegister as $VorgabeWert)
{
list ($Vorgabe, $Wert) = explode ("=", $VorgabeWert);
if ($Vorgabe and $Wert)
{
$regRegister[$Vorgabe] = $Wert;
}
}
$Ergebnis = $regRegister;
break;
}
return $Ergebnis;
}
function funAuswahl ($Aktion, $Vorgaben, $Parameter)
{
/*
DATUM6
list ($regAuswahl, $regGesAuswahl, $MerkeJahr, $mrkLetzterErlaubterTermin) = funAuswahl ("Datum6", $Vorgaben, array ($regAuswahl, $regGesAuswahl, $Aeltester6, $Juengster6, $BelegteWerte, $J, $M, $MerkeJahr, $mrkLetzterErlaubterTermin));
*/
list ($Aktion1, $Aktion2, $Aktion3) = explode (".", $Aktion);
switch (mb_strtoupper ($Aktion1))
{
case "DATUM6":
list ($regOffAuswahl, $regGesAuswahl, $Aeltester6, $Juengster6, $BelegteWerte, $J, $M, $MerkeJahr, $mrkLetzterErlaubterTermin, $mrkLetzterJahresTermin) = $Parameter;
$Termin = (sprintf ("%04d", $J) . sprintf ("%02d", $M)) / 1;
# Debug
// //$dbgVariable = "mrkLetzterErlaubterTermin"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "J"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "MerkeJahr"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "M"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Termin"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if ($Termin >= $Aeltester6 and $Termin <= $Juengster6)
{
if ($J != $MerkeJahr) // Gruppierer setzen, bevor neues Jahr beginnt
{
if ($mrkLetzterJahresTermin)
{
$regGesAuswahl["~" . $mrkLetzterJahresTermin] = "---------------------";
}
if ($mrkLetzterErlaubterTermin)
{
$regOffAuswahl["~" . $mrkLetzterErlaubterTermin] = "---------------------";
}
}
$MerkeJahr = $J;
$mrkLetzterJahresTermin = $Termin;
if (!$BelegteWerte[$Termin])
{
$regOffAuswahl[$Termin] = sprintf ("%02d", $M) . "/" . sprintf ("%04d", $J);
$mrkLetzterErlaubterTermin = $Termin;
}
$regGesAuswahl[$Termin] = sprintf ("%02d", $M) . "/" . sprintf ("%04d", $J);
}
$Ergebnis = array ($regOffAuswahl, $regGesAuswahl, $MerkeJahr, $mrkLetzterErlaubterTermin, $mrkLetzterJahresTermin);
break;
}
return $Ergebnis;
}
function fncHTML ($Aktion, $Parameter)
{
/*
BEISPIEL für alle gültig
$HTML[] = fncHTML ("xxx.A", array ("class", "cssInhaltVerweis1"));
$HTML[] = fncHTML ("xxx.Z", array ());
!
A
AREA
BODY
BR
DIV
EMBED
FORM
HTML
IFRAME
IMG
INPUT
MAP
META
OPTION
P
SCRIPT
SELECT
SMALL
SPAN
SUB
SUP
TABLE
TD
TEXTAREA
TITLE
TR
WBR
*/
list ($RohBefehl, $Optionen) = explode (".", $Aktion . ".");
$Attribute = array ();
for ($Z = 0; isset ($Parameter[$Z]) and $Parameter[$Z]; $Z += 2)
{
$Attribute[mb_strtoupper (trim ($Parameter[$Z]))] = trim ($Parameter[($Z + 1)]);
}
# Herzstück: Tabelle aller erlaubten Befehle mit allen erlaubten Attributen (Schreibweise & Reihenfolge wird hier festgelegt)
$Befehlsvorrat = array
(
"!" => array
(
0
),
"A" => array
(
2, "a", "title", "name", "id", "href", "target", "class", "style", "onClick", "onMouseOver", "onMouseOut"
),
"AREA" => array
(
1, "area", "title", "alt", "href", "onClick", "onMouseOver", "onMouseOut", "shape", "coords"
),
"BODY" => array
(
2, "body"
),
"BR" => array
(
1, "br"
),
"DIV" => array
(
2, "div", "id", "title", "class", "style", "onClick", "onMouseOver", "onMouseOut"
),
"EMBED" => array
(
2, "embed", "src", "width", "height", "hidden", "autoStart"
),
"FORM" => array
(
2, "form", "name", "id", "method", "encType", "onSubmit"
),
"HTML" => array
(
2, "html"
),
"IFRAME" => array
(
2, "iFrame", "name", "src", "class", "style", "width", "height", "scrolling", "marginHeight", "frameBorder", "marginWidth"
),
"IMG" => array
(
1, "img", "name", "src", "class", "style", "width", "height", "border", "usemap"
),
"INPUT" => array
(
1, "input", "type", "name", "value", "onFocus", "maxLength", "size", "onChange", ":readOnly", "class", "style"
),
"MAP" => array
(
2, "map", "name"
),
"META" => array
(
1, "meta", "name", "http-equiv", "content"
),
"OPTION" => array
(
2, "option", "value", ":selected", ":disabled"
),
"P" => array
(
2, "p", "class", "style"
),
"SCRIPT" => array
(
2, "script", "language", "src"
),
"SELECT" => array
(
2, "select", "name", "size", "onChange", "style"
),
"SMALL" => array
(
2, "small"
),
"SPAN" => array
(
2, "span", "title", "class", "style"
),
"SUB" => array
(
2, "sub"
),
"SUP" => array
(
2, "sup"
),
"TABLE" => array
(
2, "table", "title", "class", "style", "onClick", "onMouseOver", "onMouseOut", "cellSpacing"
),
"TD" => array
(
2, "td", "title", "class", "style", "colSpan", "rowSpan"
),
"TEXTAREA" => array
(
2, "textArea", "title", "name", "onFocus", "cols", "rows", "wrap", "style"
),
"TITLE" => array
(
2, "title"
),
"TR" => array
(
2, "tr"
),
"WBR" => array
(
1, "wbr"
),
);
# Ausgabe
$HTML = array ();
if ($Satz = $Befehlsvorrat[mb_strtoupper ($RohBefehl)]) switch ($RohBefehl)
{
case "!":
{
list ($Text) = $Parameter;
$HTML[] = " ";
}
break;
default:
{
$AnzahlElemente = array_shift ($Satz);
$Befehl = array_shift ($Satz);
if (mb_strstr ($Optionen, "Z"))
{
$HTML[] = "";
}
elseif (mb_strstr ($Optionen, "Z"))
{
$HTML[] = "";
}
else
{
$HTML[] = "<" . $Befehl;
if (is_array ($Satz))
foreach ($Satz as $Element)
{
if ($Element[0] == ":")
{
$Element = mb_substr ($Element, 1);
$obStandAlone = 1;
}
else
{
$obStandAlone = 0;
}
if (isset ($Attribute[mb_strtoupper ($Element)]))
{
$Attribut = $Attribute[mb_strtoupper ($Element)];
}
else
{
$Attribut = "";
}
if ($obStandAlone)
{
if ($Attribut)
{
$HTML[] = " " . $Element;
}
}
elseif ($Attribut != "") // aber null (0) ist zugelassen!
{
$HTML[] = " " . $Element . "=\"" . $Attribut . "\"";
}
}
if ($AnzahlElemente == 1) // XML-konform korrektes Schließen von Solitärelementen
{
$HTML[] = " />";
}
else
{
$HTML[] = ">";
}
}
}
break;
}
$Ergebnis = implode ("", $HTML);
unset ($Parameter);
unset ($HTML);
unset ($Attribute);
unset ($Satz);
unset ($Befehlsvorrat);
return $Ergebnis;
}
function funAnfrage ($Aktion, $Vorgaben, $Parameter)
{
/*
AUSWERTEN
$Anfrage = funAnfrage ("Auswerten", $Vorgaben, array ($RohAnfrage, $Zuweiser, $Verbinder, $Einleiter));
*/
list ($Aktion1) = explode (".", $Aktion);
switch (mb_strtoupper ($Aktion1))
{
case "AUSWERTEN":
list ($RohAnfrage, $Zuweiser, $Verbinder, $Einleiter) = $Parameter;
if (!$Einleiter)
{
$Einleiter = "?";
}
if (!$Verbinder)
{
$Verbinder = "&";
}
if (!$Zuweiser)
{
$Zuweiser = "=";
}
if (mb_strstr ($RohAnfrage, $Einleiter))
{
list ($Vorspann, $Anfrage) = explode ($Einleiter, $RohAnfrage);
}
else
{
$Vorspann = "";
$Anfrage = $RohAnfrage;
}
$Ergebnis = array ();
$Ergebnis["Vorspann"] = trim ($Vorspann);
$Teile = explode ($Verbinder, $Anfrage);
if (is_array ($Teile)) foreach ($Teile as $Teil)
{
list ($Variable, $Wert) = explode ($Zuweiser, $Teil);
$Ergebnis["Werte"][trim ($Variable)] = trim ($Wert);
}
//$dbgVariable = "RohAnfrage"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "Vorspann"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "Anfrage"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
break;
}
return $Ergebnis;
}
function funXML ($Aktion, $Vorgaben, $Parameter)
{
/*
START
list ($XML, $Ebene) = funXML ("Start", $Vorgaben, array ());
DATA-XML
list ($XML[], $Ebene) = funXML ("Data-XML", $Vorgaben, array ($Details, $Ebene, $datID));
*/
list ($Aktion1, $Aktion2, $Aktion3) = explode (".", $Aktion);
switch (mb_strtoupper ($Aktion1))
{
case "START":
{
unset ($Parameter);
unset ($Vorgaben);
$XML = array ("");
$Ebene = 0;
$Ergebnis = array ($XML, $Ebene);
unset ($XML);
}
break;
case "DATA-XML":
{
list ($Details, $Ebene, $datID) = $Parameter;
unset ($Parameter);
# Name aus Wert erzeugen?
if (mb_strtoupper ($Details["Element"]) == "=WERT")
{
list ($datDatenbank, $datFeld) = explode (":", $Details["Datenbank"]);
$Details["Datenbank"] = $datDatenbank; // hier darf ab jetzt nur noch die DB stehen
$Details["Element"] = fncFeld ("dtfWert.", $Vorgaben, array ($datDatenbank, $datID, $datFeld));
}
switch (mb_strtoupper ($Details["Typ"]))
{
case "START": //
{
$XML = funText ("Kette", $Vorgaben, array ($Ebene, "\t")) . "<" . $Details["Element"] . ">";
$Ebene++;
}
break;
case "OPEN": //
{
$Ebene--;
$XML = funText ("Kette", $Vorgaben, array ($Ebene, "\t")) . ">";
$Ebene++;
}
break;
case "END": // oder />
{
$Ebene--;
if ($Details["Element"])
{
$XML = funText ("Kette", $Vorgaben, array ($Ebene, "\t")) . "";
}
else
{
$XML = funText ("Kette", $Vorgaben, array ($Ebene, "\t")) . "/>";
}
}
break;
}
unset ($Details);
unset ($Vorgaben);
$Ergebnis = array ($XML, $Ebene);
}
break;
case "LEERZEILENENTFERNEN":
{
list ($XMLmit) = $Parameter;
unset ($Parameter);
unset ($Vorgaben);
$XMLohne = array ();
if (is_array ($XMLmit)) foreach ($XMLmit as $Zeile) if (strval ($Zeile) != "")
{
$XMLohne[] = $Zeile;
}
$Ergebnis = $XMLohne;
unset ($XMLohne);
unset ($XMLmit);
}
break;
}
return $Ergebnis;
}
function funImport ($Aktion, $Vorgaben, $Parameter)
{
/*
OB
$Wert = funImport ("Ob", $Vorgaben, array ($Wert));
*/
list ($Aktion1, $Aktion2, $Aktion3) = explode (".", $Aktion);
switch (mb_strtoupper ($Aktion1))
{
case "OB":
list ($Wert) = $Parameter;
if ($Wert)
{
$Wert = 1;
}
else
{
$Wert = 0;
}
$Ergebnis = $Wert;
break;
}
return $Ergebnis;
}
function funFarbe ($Aktion, $Vorgaben, $Parameter)
{
/*
MISCHEN
$Mischfarbe = funFarbe ("Mischen", $Vorgaben, array ($Farbe1, $Farbe2);
*/
list ($Aktion1, $Aktion2, $Aktion3) = explode (".", $Aktion);
switch (mb_strtoupper ($Aktion1))
{
case "MISCHEN":
list ($Farbe1, $Farbe2) = $Parameter;
if (!$Farbe1)
{
$Farbe1 = "#FFFFFF";
}
if (!$Farbe2)
{
$Farbe2 = "#FFFFFF";
}
if ($Farbe1[0] != "#")
{
$Farbe1 = "#" . $Farbe1;
}
if ($Farbe2[0] != "#")
{
$Farbe2 = "#" . $Farbe2;
}
# 1. Farbe
$R1 = hexdec (mb_substr ($Farbe1, 1, 2)) / 255;
$G1 = hexdec (mb_substr ($Farbe1, 3, 2)) / 255;
$B1 = hexdec (mb_substr ($Farbe1, 5, 2)) / 255;
# 2. Farbe
$R2 = hexdec (mb_substr ($Farbe2, 1, 2)) / 255;
$G2 = hexdec (mb_substr ($Farbe2, 3, 2)) / 255;
$B2 = hexdec (mb_substr ($Farbe2, 5, 2)) / 255;
# Mischfarbe
$MR = sprintf ("%02X", fncZahl ("zhlRunden", array ($R1 * $R2 * 255)));
$MG = sprintf ("%02X", fncZahl ("zhlRunden", array ($G1 * $G2 * 255)));
$MB = sprintf ("%02X", fncZahl ("zhlRunden", array ($B1 * $B2 * 255)));
$Mischfarbe = "#" . $MR . $MG . $MB;
$Ergebnis = $Mischfarbe;
break;
}
return $Ergebnis;
}
function funText ($Aktion, $Vorgaben, $Parameter) // alt
{
/*
GROSS
$Text = funText ("Gross", $Vorgaben, array ($Text));
2ERGRUPPEN
$Text = funText ("2erGruppen", $Vorgaben, array ($Text));
INTERNET
$Text = funText ("Internet.frei-Host", $Vorgaben, array ($Text));
$Text = funText ("Internet.frei-http", $Vorgaben, array ($Text));
TELEFON
$Text = funText ("Telefon", $Vorgaben, array ($Text));
$Text = funText ("Telefon.2erGruppen", $Vorgaben, array ($Text));
WANDELN
$Text = funText ("Wandeln.Umbruch.DB-Eingabe", $Vorgaben, array ($Text));
$Text = funText ("Wandeln.Umbruch.Eingabe-DB", $Vorgaben, array ($Text));
$Text = funText ("Wandeln.Umbruch.DB-Fliesstext", $Vorgaben, array ($Text));
TICKET
- erzeugt ein Ticket (MD5) aus den gegebenen Textstücken
$Text = funText ("Ticket", $Vorgaben, array (array ($Text1, $Text2), $Bindeglied));
KETTE
- setzt eine Kette aus Anzahl x Glied zusammen
$Text = funText ("Kette", $Vorgaben, array ($Anzahl, $Glied));
HERVORHEBEN
$Text = funText ("Hervorheben." . $Klasse, $Vorgaben, array ($Text, $Phrasen));
*/
list ($Aktion1, $Aktion2, $Aktion3) = explode (".", $Aktion . "..");
switch (mb_strtoupper ($Aktion1))
{
case "GROSS":
list ($Text) = $Parameter;
$Text = str_replace ("ß", "SS", $Text);
$Text = mb_strtoupper ($Text);
$Ergebnis = $Text;
break;
case "INTERNET":
list ($Text) = $Parameter;
# Debug
//$dbgVariable = "Text"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
switch (mb_strtoupper ($Aktion2))
{
case "FREI-HOST":
# evtl HTTP-Vorspann entfernen
if (mb_strtoupper (mb_substr ($Text, 0, 7)) == "HTTP://")
{
$Text = mb_substr ($Text, 7);
}
# evtl. Pfad + Query entfernen
$Trenne = explode ("/", $Text);
$Text = $Trenne[0];
break;
case "FREI-HTTP":
# HTTP-Vorspann ergänzen
if (mb_strtoupper (mb_substr ($Text, 0, 7)) != "HTTP://")
{
$Text = "http://" . $Text;
}
break;
}
# Debug
//$dbgVariable = "Text"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$Ergebnis = $Text;
break;
case "2ERGRUPPEN":
list ($Text) = $Parameter;
$Laenge = mb_strlen ($Text);
$Sammler = array ();
if (!funZahl ("Ungerade", $Vorgaben, array ($Laenge)))
{
$Start = 0;
}
else
{
$Start = 1;
$Sammler[] = mb_substr ($Text, 0, 1);
}
for ($Z = $Start; $Z < $Laenge; $Z += 2)
{
$Sammler[] = mb_substr ($Text, $Z, 2);
}
$Ergebnis = implode (" ", $Sammler);
break;
case "TELEFON":
list ($Text) = $Parameter;
if (mb_substr ($Text, 0, 3) == "+49")
{
$Text = "0" . trim (mb_substr ($Text, 3));
}
list ($Vorwahl, $Rufnummer) = explode (" ", $Text);
switch (mb_strtoupper ($Aktion2))
{
case "2ERGRUPPEN":
$Vorwahl = funText ("2erGruppen", $Vorgaben, array ($Vorwahl));
$Rufnummer = funText ("2erGruppen", $Vorgaben, array ($Rufnummer));
break;
}
$Text = "(" . $Vorwahl . ") " . $Rufnummer;
$Ergebnis = $Text;
break;
case "WANDELN":
list ($Text) = $Parameter;
switch (mb_strtoupper ($Aktion2))
{
case "UMBRUCH":
switch (mb_strtoupper ($Aktion3))
{
case "DB-EINGABE":
$Text = str_replace ("){3,}", "" . $Phrase . " ", $Text);
}
$Ergebnis = $Text;
break;
}
return $Ergebnis;
}
function ladeRechte (& $Vorgaben)
{
$i_recht = '';
$x = '';
$t_objekt = '';
$t_zustand = '';
$t_wert1 = '';
$t_wert2 = '';
$t_wert3 = '';
$z_level = 0;
fncDatenbank ('dtbLesen', $Vorgaben, array ('bRechte'));
if (is_array ($Vorgaben["Data"]["bRechte"][0]["Kopfzeile"]))
foreach ($Vorgaben["Data"]["bRechte"][0]["Kopfzeile"] as $i_recht => $x)
{
list ($t_objekt, $t_zustand, $t_wert1, $t_wert2, $t_wert3) = explode (".", $i_recht . "....");
$z_level = fncFeld ('dtfWert.RN', $Vorgaben, array ('bRechte', 1, $i_recht)) / 1;
// $z_level = fncFeld ('dtfWert.RN', $Vorgaben, array ('bRechte', 1, $i_recht));
// echo '|'.$i_recht.'|'.$z_level.'|".$Text1." ".$Text2." ".$Text3."
";
$HTML = array ();
$Stil = "";
switch (mb_strtoupper ($Aktion2))
{
case 1: // erste Gruppe oben kein Abstand
$Stil = "padding-top: 1px; ";
break;
}
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array (" cssPortalGruppe cssPpLt, font-size: 12px; " . $Stil));
$HTML[] = funAltBaustein ("Tabelle.123", $Vorgaben, array ("cssSystemFett, font-size: 12px; "));
$HTML[] = $Text1;
$HTML[] = funAltBaustein ("Tabelle.33", $Vorgaben, array (", padding-left: 10px;"));
$HTML[] = $Text2;
$HTML[] = funAltBaustein ("Tabelle.33", $Vorgaben, array (", padding-left: 10px;"));
$HTML[] = $Text3;
$HTML[] = funAltBaustein ("Tabelle.321", $Vorgaben, array ());
$HTML[] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$Ergebnis = implode ("\n", $HTML);
unset ($HTML);
unset ($Vorgaben);
break;
case "UNILABEL":
list ($DB, $Feld) = $Parameter;
$FeldTyp = $Vorgaben["Data"][$DB][0]["FeldTypen"][$Feld][0];
$Zeile1 = $Vorgaben["Data"][$DB][0]["FeldBezeichner"][$Feld];
$Zeile2 = $Vorgaben["Data"][$DB][0]["FeldBezeichner2"][$Feld];
// $Zeile3 = $Vorgaben["Data"][$DB][0]["FeldBezeichner3"][$Feld];
$Ausrichtung = $Padding = "";
# Ausrichtung
if (mb_strtoupper ($Aktion2) == "GRUPPE")
{
$Ausrichtung = " cssSystemZentriert";
if (!$Feld or $Feld[0] == "/") // wenn die anderen Felder gruppiert sind, aber bei einer Spakte die Gruppe leer sein soll, dann mit "/" beginnen lassen.
{
$Zeile1 = "";
}
else
{
$Zeile1 = $Feld;
}
}
else switch ($FeldTyp)
{
case "ID":
case "Tonne":
case "Zahl":
case "Betrag":
case "Prozent":
case "Rechts":
case "Stunden":
$Ausrichtung = " cssSystemRechts";
break;
}
# Fett/Normal
if (mb_strtoupper ($Aktion2) == "NORMAL")
{
$KlasseZeile1 = "cssSystemNormal";
}
else
{
$KlasseZeile1 = "cssSystemFett";
}
# Symbol
switch ($FeldTyp)
{
case "Tonne":
$Symbol = "portal_tonne.gif";
break;
case "Symbol":
$Symbol = "portal_" . $Vorgaben["Data"][$DB][0]["Symbole"][$Feld] . ".gif";
break;
}
# Padding
switch ($FeldTyp)
{
case "Tonne":
case "Symbol":
$Padding = "padding: 2px 6px 0px 6px; ";
if ($Zeile2)
{
$Zeile1 = "";
$Zeile2 = fncAltBild ("Anzeigen", $Vorgaben, array ($Vorgaben["Ordner"]["SDesign"] . $Symbol, 0, 0, $Zeile1));
}
else
{
$Zeile1 = fncAltBild ("Anzeigen", $Vorgaben, array ($Vorgaben["Ordner"]["SDesign"] . $Symbol, 0, 0, $Zeile1));
}
break;
default:
$Padding = "padding: 4px 6px 6px 6px; ";
break;
}
# Ausgabe
$HTML = array ();
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array ($Ausrichtung . ",font-size: 12px; " . $Padding));
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array ($KlasseZeile1 . " cssSystemFestAusschluss", $Vorgaben["Data"][$DB][0]["FeldTitel"][$Feld]));
$HTML[] = $Zeile1 . "" . $AbsendeFeld . "";
}
function BasisSymbolLeiste_11 ($Vorgaben, $Symbole)
{
/*
$HTML[] = BasisSymbolLeiste_11 ($Vorgaben, $Symbole);
*/
# var
$SymbolLeiste = array ();
$Z = 0;
if (is_array ($Symbole))
foreach ($Symbole as $Symbol)
{
$Aktion = $Symbol["Aktion"];
$Legende = $Symbol["Legende"];
$Datei = $Symbol["Datei"];
$Anker = $Symbol["Anker"];
$OnClick = $Symbol["OnClick"];
if (!$Z++)
{
$KlasseStil = "";
}
else
switch (mb_strtoupper ($Vorgaben["SymbolGroesse"]))
{
case "M":
$KlasseStil = ", margin-left: 3px; ";
break;
case "L":
$KlasseStil = ", margin-left: 4px; ";
break;
case "XL":
$KlasseStil = ", margin-left: 5px; ";
break;
}
$SymbolLeiste[] = funExtraSymbol ($Aktion, $Vorgaben, $Legende, $Datei, $KlasseStil, $Anker, 0, $OnClick);
}
unset ($Symbole);
$txtSymbolLeiste = implode ("", $SymbolLeiste);
unset ($SymbolLeiste);
return $txtSymbolLeiste;
}
function BasisVerweis_47 ($Aktion, $Vorgaben, $Parameter1, $Parameter2, $Parameter3, $Parameter4, $Parameter5)
{
/*
ANFRAGE
- allgemein
$Anfrage = BasisVerweis_47 ("Anfrage", $Vorgaben, "Variable1 = Wert1 [ : Variable2 = Wert2 ] ... ", 0,0,0,0);
- spezielle
$Anfrage = BasisVerweis_47 ("Anfrage.Kontakt", $Vorgaben, "Variable1 = Wert1 [ : Variable2 = Wert2 ] ... ", 0,0,0,0);
$Anfrage = BasisVerweis_47 ("Anfrage.Zoom", $Vorgaben, "Variable1 = Wert1 [ : Variable2 = Wert2 ] ... ", 0,0,0,0);
$Anfrage = BasisVerweis_47 ("Anfrage.SuperZoom", $Vorgaben, "Variable1 = Wert1 [ : Variable2 = Wert2 ] ... ", 0,0,0,0);
$Anfrage = BasisVerweis_47 ("Anfrage.Login", $Vorgaben, "Variable1 = Wert1 [ : Variable2 = Wert2 ] ... ", 0,0,0,0);
$Anfrage = BasisVerweis_47 ("Anfrage.Vorschau", $Vorgaben, "Variable1 = Wert1 [ : Variable2 = Wert2 ] ... ", 0,0,0,0);
INTERN
- ohne Wechselbild, ohne Anker
$HTML[] = BasisVerweis_47 ("Intern", $Vorgaben, $ObTitel, $ObZielAnfrage, $ObOnClick, $ObKlasseStil, 0) . VERWEISTEXT . BasisVerweis_47 ("Ende", 0,0,0,0,0,0);
- ohne Wechselbild, mit Anker
$HTML[] = BasisVerweis_47 ("Intern.ObAnker", $Vorgaben, $ObTitel, $ObZielAnfrage, $ObOnClick, $ObKlasseStil, 0) . VERWEISTEXT . BasisVerweis_47 ("Ende", 0,0,0,0,0,0);
- mit Wechselbild, ohne Anker
$HTML[] = BasisVerweis_47 ("Intern", $Vorgaben, $ObTitel, $ObZielAnfrage, $ObOnClick, $ObKlasseStil, "x" . $InhaltsID . ":inhalt_email.gif") . VERWEISTEXT . BasisVerweis_47 ("Ende", 0,0,0,0,0,0);
- NEU mit Design Nr, mit Wechselbild, ohne Anker
$HTML[] = BasisVerweis_47 ("Intern", $Vorgaben, $ObTitel, $ObZielAnfrage, $ObOnClick, $ObKlasseStil, "x" . $InhaltsID . ":inhalt_email.gif:1") . VERWEISTEXT . BasisVerweis_47 ("Ende", 0,0,0,0,0,0);
EXTERN
- Kontakt (Standardformular)
$HTML[] = BasisVerweis_47 ("Extern.Kontakt", $Vorgaben, $Vorgaben["System"]["Vokabeln"]["KontaktAufnehmen"], BasisVerweis_47 ("Anfrage.Kontakt", $Vorgaben, 0,0,0,0,0), 0, $ObKlasseStil, 0) . VERWEISTEXT . BasisVerweis_47 ("Ende", 0,0,0,0,0,0);
- Kontakt (spezielles Formular)
$HTML[] = BasisVerweis_47 ("Extern.Kontakt", $Vorgaben, $Vorgaben["System"]["Vokabeln"]["KontaktAufnehmen"], BasisVerweis_47 ("Anfrage.Kontakt", $Vorgaben, "Form = " . $Vorgaben["ReFormulare"]["AngebotAnfordern"], 0,0,0,0), 0, $ObKlasseStil, 0) . VERWEISTEXT . BasisVerweis_47 ("Ende", 0,0,0,0,0,0);
- Zoom
$HTML[] = BasisVerweis_47 ("Extern.Zoom", $Vorgaben, $Vorgaben["System"]["Vokabeln"]["BildVergroessern"], BasisVerweis_47 ("Anfrage.Zoom", $Vorgaben, "Object = " . $BildDatei . "," . $Optionen, 0,0,0,0), 0, $ObKlasseStil, 0) . VERWEISTEXT . BasisVerweis_47 ("Ende", 0,0,0,0,0,0);
- SuperZoom
$HTML[] = BasisVerweis_47 ("Extern.SuperZoom", $Vorgaben, $Vorgaben["System"]["Vokabeln"]["BildVergroessern"], BasisVerweis_47 ("Anfrage.SuperZoom", $Vorgaben, "Object = " . $BildDatei . "," . $Optionen, 0,0,0,0), 0, $ObKlasseStil, 0) . VERWEISTEXT . BasisVerweis_47 ("Ende", 0,0,0,0,0,0);
- PDF
*/
// // $dbgBlock = "BasisVerweis_47"; echo fncDebug ("Block.A", $Vorgaben, $dbgBlock);
list ($Aktion1, $Aktion2, $Aktion3) = explode (".", $Aktion . "..");
switch (mb_strtoupper ($Aktion1)) // Parameter
{
case "INTERN":
$ObAnker = $Aktion2;
$ObTaste = $Aktion3;
$ObTitel = $Parameter1;
$ObZielAnfrage = $Parameter2;
$ObOnClick = $Parameter3;
list ($ObKlasse, $ObStil) = explode (",", $Parameter4 . ",");
$ObWechselBild = $Parameter5;
break;
case "EXTERN":
$ExtraTyp = $Aktion2;
$ObAnker = $Aktion3;
$ObTitel = $Parameter1;
list ($ObZiel, $ObAnfrage) = explode ("?", $Parameter2 . "?");
$ObOnClick = $Parameter3;
list ($ObKlasse, $ObStil) = explode (",", $Parameter4 . ",");
$ObWechselBild = $Parameter5;
break;
}
switch (mb_strtoupper ($Aktion1))
{
case "EXTERN":
switch (mb_strtoupper ($Aktion2))
{
case "INTERNET":
$ObInternet = $Parameter2;
break;
default:
$FensterExtras = $Vorgaben["FensterExtras"];
$FensterZoom = $Vorgaben["FensterZoom"];
if (!$FensterZoom["B"])
{
$FensterZoom["B"] = 480;
}
if (!$FensterZoom["H"])
{
$FensterZoom["H"] = 535;
}
$Anfrage = "";
#
$Optionen = array ();
if ($Vorgaben["ObDebug"])
{
$Optionen[] = "width=800";
$Optionen[] = "height=600";
$Optionen[] = "location=yes";
$Optionen[] = "menubar=yes";
$Optionen[] = "toolbar=yes";
$Optionen[] = "resizable=yes";
$Optionen[] = "scrollbars=yes";
$Optionen[] = "status=yes";
}
else switch (mb_strtoupper ($ExtraTyp))
{
case "KONTAKT":
$Optionen[] = "width=" . $FensterExtras["B"];
$Optionen[] = "height=" . $FensterExtras["H"];
$Optionen[] = "location=no";
$Optionen[] = "menubar=no";
$Optionen[] = "toolbar=no";
$Optionen[] = "resizable=yes";
$Optionen[] = "scrollbars=yes";
$Optionen[] = "status=yes";
break;
case "SUPERZOOM":
$BildInfo = $Vorgaben["SuperZoom"]["BildInfo"];
$Optionen[] = "width=" . $BildInfo["Breite"];
$Optionen[] = "height=" . $BildInfo["Hoehe"];
/*
- später schauen, daß die Bildschirmauflösung ermittelt wird (evtl. weiter früher per JavaScript in hiddenfeld dann in Cookie schreiben oder so) und zu sehen daß wenn Bild größer als Schrim - nicht rausläuft
$Optionen[] = "width=' + (screen.availWidth * .9) + ";
$Optionen[] = "height=' + (screen.availHeight * .8) + ";
*/
$Optionen[] = "location=no";
$Optionen[] = "menubar=no";
$Optionen[] = "toolbar=no";
$Optionen[] = "resizable=no";
$Optionen[] = "scrollbars=no";
$Optionen[] = "status=no";
$Optionen[] = "top=0";
$Optionen[] = "left=0";
break;
case "ZOOM":
$Optionen[] = "width=" . $FensterZoom["B"];
$Optionen[] = "height=" . $FensterZoom["H"];
$Optionen[] = "location=no";
$Optionen[] = "menubar=no";
$Optionen[] = "toolbar=no";
$Optionen[] = "resizable=yes";
$Optionen[] = "scrollbars=no";
$Optionen[] = "status=no";
break;
case "LOGIN":
$Optionen[] = "width=" . $FensterExtras["B"];
$Optionen[] = "height=" . $FensterExtras["H"];
$Optionen[] = "location=no";
$Optionen[] = "menubar=no";
$Optionen[] = "toolbar=no";
$Optionen[] = "resizable=yes";
$Optionen[] = "scrollbars=yes";
$Optionen[] = "status=yes";
break;
case "VORSCHAU":
$Optionen[] = "width=" . $FensterZoom["B"];
$Optionen[] = "height=" . $FensterZoom["H"];
$Optionen[] = "location=no";
$Optionen[] = "menubar=no";
$Optionen[] = "toolbar=no";
$Optionen[] = "resizable=yes";
$Optionen[] = "scrollbars=yes";
$Optionen[] = "status=no";
break;
}
$Optionen = implode (",", $Optionen);
# Anfrage
if ($ObAnfrage)
{
$Anfrage = "?" . $ObAnfrage;
}
$ObZielAnfrage = "./" . $Anfrage;
# Fenstername
switch (mb_strtoupper ($ExtraTyp))
{
default:
// $FensterName = "Extra" . $Vorgaben["ReExtras"][$ExtraTyp];
break;
case "SUPERZOOM":
$FensterName = "";
break;
case "ZOOM":
$FensterName = "Zoom";
break;
}
$ObOnClick = "jsExtraFenster = window.open ('" . $ObZielAnfrage . "', '" . $FensterName . "', '" . $Optionen . "'); jsExtraFenster.focus(); ";
break;
}
case "INTERN":
$Anker = $Taste = $Klasse = $Stil = $Titel = $OnClick = $ZielAnfrage = $OnMouse = $Blank = "";
# Anker
if ($ObAnker)
{
$Anker = " name=\"" . $ObAnker . "\"";
}
# Taste (mit Alt-...)
if ($ObTaste)
{
$Taste = " accesskey=\"" . $ObTaste . "\"";
}
# Klasse, Stil
if (trim ($ObKlasse))
{
$Klasse = " class=\"" . $ObKlasse . "\"";
}
if (trim ($ObStil))
{
$Stil = " style=\"" . $ObStil . "\"";
}
# Titel
if ($ObTitel)
{
$Titel = " title=\"" . $ObTitel . "\"";
}
# OnClick
if (isset ($ObInternet) and $ObInternet)
{
$ZielAnfrage = " href=\"" . $ObInternet . "\"";
$Blank = " target=\"_blank\"";
}
elseif ($ObOnClick)
{
$OnClick = " onClick=\"" . $ObOnClick . "\"";
$ZielAnfrage = " href=\"#Do\"";
}
elseif ($ObZielAnfrage)
{
$ZielAnfrage = " href=\"" . $ObZielAnfrage . "\"";
}
if ($ObWechselBild)
{
list ($BildAnker, $BildDatei, $DesignNr) = explode (":", $ObWechselBild . "::");
// $DesignNr /= 1; // abwärtskompatibel, nicht angegeben wird zu 0, also Basis-Satz
// if (!$DesignNr)
// {
// $DesignNr = "Basic";
// }
// $OrdnerDesign = $Vorgaben["Ordner"]["Design"] . $DesignNr . "/";
$OrdnerDesign = $Vorgaben["Ordner"]["Design"];
list ($DateiName, $Endung) = explode (".", $BildDatei);
$PfadOverDatei = $OrdnerDesign . trim ($DateiName) . "_oo." . trim ($Endung);
$PfadOutDatei = $OrdnerDesign . trim ($BildDatei);
$OnMouse = " onMouseOver=\"document." . trim ($BildAnker) . ".src='" . $PfadOverDatei . "'; \" onMouseOut=\"document." . trim ($BildAnker) . ".src='" . $PfadOutDatei . "'; \"";
}
# PDF hier suboptimal durchschleifen
if (mb_strtoupper ($Aktion2) == "PDF")
{
$ZielAnfrage = " href=\"" . $ObZiel . "\"";
$Blank = " target=\"_blank\"";
$OnClick = "";
}
$Ergebnis = "";
break;
case "ENDE":
$Ergebnis = "";
break;
case "ANFRAGE":
// // $dbgBlock = "ANFRAGE"; echo fncDebug ("Block.A", array ($Vorgaben["ObDebug"], $dbgBlock));
$Ergebnis = "";
$ExtraTyp = $Aktion2;
$Anfrage = $Parameter1;
// $_REQUEST = $_REQUEST;
#
switch (mb_strtoupper ($ExtraTyp))
{
case "KONTAKT":
case "ZOOM":
case "SUPERZOOM":
case "LOGIN":
case "VORSCHAU":
$_REQUEST[PAGE] = 0;
if ($Vorgaben["ReExtras"][$ExtraTyp])
{
$_REQUEST["Extra"] = $Vorgaben["ReExtras"][$ExtraTyp];
}
else
{
$_REQUEST["Extra"] = 0;
}
break;
}
$Anfragen = explode (":", $Anfrage);
if (is_array ($Anfragen)) foreach ($Anfragen as $VariableWert)
{
list ($Variable, $Wert) = explode ("=", $VariableWert);
$_REQUEST[trim ($Variable)] = trim ($Wert);
}
$Anfragen = array ();
if (is_array ($_REQUEST)) foreach ($_REQUEST as $Variable => $Wert) if ($Variable and mb_strtoupper ($Variable) != "ITEM" and $Wert) // Item wird nicht mitübergeben, somit bringt Menüpunkt wieder eine Ebene höher zur Übersicht
{
$Anfragen[] = $Variable . "=" . urlencode ($Wert);
}
if (is_array ($Anfragen))
{
$Anfrage = implode ("&", $Anfragen);
}
else
{
$Anfrage = $Anfragen;
}
if ($Anfrage)
{
$Ergebnis = "?" . $Anfrage;
}
// // $dbgBlock = ""; echo fncDebug ("Block.Z", array ($Vorgaben["ObDebug"]));
break;
}
return $Ergebnis;
}
function funVorgaben ($Aktion, $Vorgaben, $Parameter)
{
if (mb_strpos ($Aktion, "."))
{
list ($Aktion1, $Aktion2) = explode (".", $Aktion);
}
else
{
$Aktion1 = $Aktion;
}
// echo var_dump($Aktion);
switch (mb_strtoupper ($Aktion1))
{
case "ONLOADBELEGEN":
{
if ($_REQUEST["OpenCoord"])
{
list ($datDatenbank, $idID, $fldFeld) = explode (",", $_REQUEST["OpenCoord"]);
switch (fncFeld ("dtfFeldtyp", $Vorgaben, array ($datDatenbank, $fldFeld, $idID)))
{
case "dftKombi":
{
if (isset ($Vorgaben["ObKombiNeuerWert"]) and $Vorgaben["ObKombiNeuerWert"])
{
$Vorgaben["OnLoad"] = "location = '#mavidesk'; document.frmMvd.NewValue.focus(); ";
// $Vorgaben["OnLoad"] = "document.frmMvd.NewValue.focus(); ";
}
else
{
$Vorgaben["OnLoad"] = "location = '#" . mb_substr (md5 ($datDatenbank . $idID . $fldFeld), 0, 4) . "'; ";
}
}
break;
case "dftDbOptionen":
{
$OnLoad = array ();
// $Werte = array ();
// $Werte = explode ("|", $Vorgaben["Data"][$datDatenbank][$idID][$fldFeld]);
$Werte = (isset ($Vorgaben["Data"][$datDatenbank][$idID][$fldFeld])) ? explode ("|", $Vorgaben["Data"][$datDatenbank][$idID][$fldFeld]) : array ();
// var_dump ($Werte);
foreach ($Werte as $Wert) if ($Wert)
{
$OnLoad[] = "document.frmMvd.NewValue" . $Wert . ".checked = true; ";
$Vorgaben["OpenFields"]["NewValue" . $Wert] = 1;
}
unset ($Werte);
$OnLoad[] = "location = '#" . mb_substr (md5 ($datDatenbank . $idID . $fldFeld), 0, 4) . "'; ";
$Vorgaben["OnLoad"] = implode ("", $OnLoad);
unset ($OnLoad);
}
break;
// case "dftBild":
// {
// $Vorgaben["OnLoad"] = "location = '#" . mb_substr (md5 ($datDatenbank . $idID . $fldFeld . $Sprache), 0, 4) . "'; ";
// }
// break;
default:
{
/* prüfen, #Do notwendig */
$Vorgaben["OnLoad"] = "location = '#mavidesk'; document.frmMvd.NewValue.focus(); ";
// $Vorgaben["OnLoad"] = "document.frmMvd.NewValue.focus(); ";
}
break;
}
$Vorgaben["OpenFields"]["NewValue"] = 1;
$_REQUEST["ActiveCoord" . $Vorgaben["curModul"]] = $datDatenbank . "," . $idID . "," . $fldFeld;
}
if ((!isset ($Vorgaben["OnLoad"]) or !$Vorgaben["OnLoad"]) and $_REQUEST["ActiveCoord" . $Vorgaben["curModul"]])
{
list ($ActiveDB, $ActiveID, $ActiveField) = explode (",", $_REQUEST["ActiveCoord" . $Vorgaben["curModul"]] . ",,");
if (!$ActiveField and isset ($Vorgaben["Data"][$ActiveDB][0]["fldDetails"]) and $Vorgaben["Data"][$ActiveDB][0]["fldDetails"])
{
$ActiveField = $Vorgaben["Data"][$ActiveDB][0]["fldDetails"];
}
if (!$ActiveID)
{
$ActiveID = "";
}
$Vorgaben["OnLoad"] = "location = '#" . mb_substr (md5 ($ActiveDB . $ActiveID . $ActiveField), 0, 4) . "'; ";
// mb_substr (md5 ($ActiveDB . $ActiveID . $ActiveField . $Sprache), 0, 4)
}
$Ergebnis = $Vorgaben;
unset ($Vorgaben);
}
break;
case "VOKABELN":
{
# Debug
// echo var_dump($Vorgaben);
$AktiveSprachen = $Vorgaben["AktiveSprachen"];
$Lang = $_REQUEST[LANG];
$AktuelleSprache = $AktiveSprachen[$Lang];
$StandardSprache = $AktiveSprachen[0];
$Vokabeln = array ();
switch (mb_strtoupper ($Aktion2))
{
default:
case "SYSTEM":
case "SYSTEMVOKABELN":
$PfadVokabeln = $Vorgaben["Pfade"]["SVokabeln"];
$ObStandard = 0;
break;
// case "CLIENT":
// case "CLIENTVOKABELN":
// $PfadVokabeln = $Vorgaben["Pfade"]["CVokabeln"];
// $ObStandard = $StandardSprache;
// break;
}
if ($PfadVokabeln)
{
$MerkeVokabeln = importiereDb ("Vokabelheft", $PfadVokabeln);
$MerkeVokabeln = funDatenbank ("Chiffre", $Vorgaben, array ($MerkeVokabeln, $AktuelleSprache, $ObStandard));
$Vokabeln = $MerkeVokabeln[0]["Chiffre"][$AktuelleSprache];
}
$Ergebnis = $Vokabeln;
}
break;
}
return $Ergebnis;
}
function BasisGruppenExtrahieren_11 ($Vorgaben)
{
/*
$Gruppen = BasisGruppenExtrahieren_11 ($Vorgaben);
*/
$Formular = $Vorgaben["Formular"];
$SVokabeln = $Vorgaben["System"]["SVokabeln"];
$Gruppen = array ();
if (is_array ($Formular)) foreach ($Formular as $FeldID => $X) if ($FeldID)
{
if ($SVokabeln[$Formular[$FeldID]["GruppenID"]])
{
$Gruppen[$Formular[$FeldID]["GruppenID"]][0]["GruppenBeschriftung"] = $SVokabeln[$Formular[$FeldID]["GruppenID"]];
}
else
{
$Gruppen[$Formular[$FeldID]["GruppenID"]][0]["GruppenBeschriftung"] = "/!\ " . $Formular[$FeldID]["GruppenID"];
}
$Gruppen[$Formular[$FeldID]["GruppenID"]][$FeldID] = $Formular[$FeldID]["FeldBeschriftung"];
}
return $Gruppen ;
}
function BasisFelderExtrahieren_10 ($Formular)
{
/*
$Gruppen = BasisFelderExtrahieren_10 ($Formular);
*/
$Felder = array ();
if (is_array ($Formular)) foreach ($Formular as $FeldID => $X)
{
if ($FeldID)
{
$Felder[$FeldID] = $FeldID;
}
}
return $Felder ;
}
function BasisSymbolHinzufuegen_11 ($Vorgaben, $Legende, $Aktion, $Datei, $Anker, $OnClick, $Symbole)
{
/*
$Symbole = BasisSymbolHinzufuegen_11 ($Vorgaben, $Legende, $Datei, $Anker, $OnClick, $Symbole);
*/
if (!isset ($Symbole) or !is_array ($Symbole))
{
$Symbole = array ();
}
$Symbol = array ();
$Symbol["Legende"] = $Legende;
$Symbol["Aktion"] = $Aktion;
$Symbol["Datei"] = $Datei . "-" . mb_strtolower ($Vorgaben["SymbolGroesse"]);
$Symbol["Anker"] = $Anker;
$Symbol["OnClick"] = $OnClick;
$Symbole[] = $Symbol;
unset ($Symbol);
return $Symbole;
}
function funDatenbank ($Aktion, & $Vorgaben, $Parameter)
{
$Parameter[] = "";
if (mb_strpos ($Aktion, "."))
{
list ($Aktion1, $Aktion2, $Aktion3) = explode (".", $Aktion . "..");
$Optionen = $Aktion2;
}
else
{
$Aktion1 = $Aktion;
$Optionen = "";
$Aktion2 = "";
$Aktion3 = "";
}
switch ($Aktion1)
{
case "RegisterAlt": // wird verwendet in Vorgaben laden wg. Import
{
switch (1 * $Aktion2)
{
case 3: // Register aus drei Feldern
{
list ($CDB, $VorgabenFeld1, $WerteFeld1, $VorgabenFeld2, $WerteFeld2, $VorgabenFeld3, $WerteFeld3, $ObNullWert) = $Parameter;
}
break;
case 2: // Register aus zwei Feldern
{
list ($CDB, $VorgabenFeld1, $WerteFeld1, $VorgabenFeld2, $WerteFeld2, $ObNullWert) = $Parameter;
}
break;
default:
{
list ($CDB, $VorgabenFeld, $WerteFeld, $ObNullWert) = $Parameter;
}
break;
}
$Register = array ();
if ($ObNullWert)
{
$Register[0] = $ObNullWert;
}
if (is_array ($Vorgaben["Data"][$CDB]))
foreach ($Vorgaben["Data"][$CDB] as $ID => $X)
if (isset ($Vorgaben["Data"][$CDB][$ID]["ID"]))
if ($Vorgaben["Data"][$CDB][$ID]["ID"])
switch (1 * $Aktion2)
{
case 3: // Register aus drei Feldern
if ($Vorgaben["Data"][$CDB][$ID][$VorgabenFeld1])
{
$Register[$Vorgaben["Data"][$CDB][$ID][$VorgabenFeld1]] = $Vorgaben["Data"][$CDB][$ID][$WerteFeld1];
}
if ($Vorgaben["Data"][$CDB][$ID][$VorgabenFeld2])
{
$Register[$Vorgaben["Data"][$CDB][$ID][$VorgabenFeld2]] = $Vorgaben["Data"][$CDB][$ID][$WerteFeld2];
}
if ($Vorgaben["Data"][$CDB][$ID][$VorgabenFeld3])
{
$Register[$Vorgaben["Data"][$CDB][$ID][$VorgabenFeld3]] = $Vorgaben["Data"][$CDB][$ID][$WerteFeld3];
}
break;
case 2: // Register aus zwei Feldern
if ($Vorgaben["Data"][$CDB][$ID][$VorgabenFeld1])
{
$Register[$Vorgaben["Data"][$CDB][$ID][$VorgabenFeld1]] = $Vorgaben["Data"][$CDB][$ID][$WerteFeld1];
}
if ($Vorgaben["Data"][$CDB][$ID][$VorgabenFeld2])
{
$Register[$Vorgaben["Data"][$CDB][$ID][$VorgabenFeld2]] = $Vorgaben["Data"][$CDB][$ID][$WerteFeld2];
}
break;
default:
if ($Vorgaben["Data"][$CDB][$ID][$VorgabenFeld])
{
$Register[$Vorgaben["Data"][$CDB][$ID][$VorgabenFeld]] = $Vorgaben["Data"][$CDB][$ID][$WerteFeld];
}
break;
}
return $Register;
}
break;
case "ObPflichtfeldBedient":
{
list ($Datenbank, $CField) = $Parameter;
unset ($Parameter);
$Ob = false;
$NewValue = $_REQUEST["NewValue"];
if (!isset ($Vorgaben["Data"][$Datenbank][0]["PflichtFelder"][$CField]) or !$Vorgaben["Data"][$Datenbank][0]["PflichtFelder"][$CField])
{
if (isset ($Vorgaben["Data"][$Datenbank][0]["FeldTypen"][$CField][0]))
switch (mb_strtoupper ($Vorgaben["Data"][$Datenbank][0]["FeldTypen"][$CField][0]))
{
default:
{
$Ob = true;
}
break;
case "EMAIL":
{
if (!$NewValue or funEingabe ("Format.EMail", $Vorgaben, array ($NewValue)))
{
$Ob = true;
}
else
{
$Ob = false;
}
}
break;
}
}
else
switch (mb_strtoupper ($Vorgaben["Data"][$Datenbank][0]["FeldTypen"][$CField][0]))
{
default:
{
if ($NewValue)
{
$Ob = true;
}
else
{
$Ob = false;
}
}
break;
case "BILD":
{
if ($_FILES["NewValue"]["size"])
{
$Ob = true;
}
else
{
$Ob = false;
}
}
break;
case "STUNDEN":
{
$NewValue = fncZahl ("zhlRunden", array (funZahl ("Importieren.DE", $Vorgaben, array ($NewValue)), 2));
if ($NewValue)
{
$Ob = true;
}
else
{
$Ob = false;
}
}
break;
}
return $Ob;
}
break;
case "BedingtesAendern":
list ($datDatenbank, $datID, $VorgabenFeld, $VorgabeWert, $WerteFeld, $Optionen) = $Parameter;
unset ($Parameter);
$Art = $Aktion2;
switch (mb_strtoupper ($Art))
{
default:
$Wert = funDatenbank ($Art, $Vorgaben, array ($datDatenbank, $datID, $VorgabenFeld, $VorgabeWert, $WerteFeld, $Optionen));
break;
case "BEDINGTERWERT":
list ($datQuelle, $felQuelle) = explode (".", $Optionen);
$Wert = $Vorgaben["Data"][$datQuelle][$VorgabeWert][$felQuelle];
# Debug
// $dbgBlock = "BedingtesAendern"; echo fncDebug ("Block.A", array ($Vorgaben["ObDebug"], $dbgBlock));
// //$dbgVariable = "datQuelle"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "felQuelle"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Wert"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "datID"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "WerteFeld"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "datDatenbank"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
break;
}
if ($Wert)
{
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $datID, $WerteFeld, $Wert));
}
// $Ergebnis = $Vorgaben;
// unset ($Vorgaben);
# Debug
// //$dbgVariable = "Wert"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $dbgBlock = "BedingtesAendern"; echo fncDebug ("Block.Z", array ($Vorgaben["ObDebug"], $dbgBlock));
break;
case "AnzeigeFelder":
{
$Modul = $Vorgaben["curModul"];
switch (mb_strtoupper ($Aktion2))
{
case "AUFBAUEN":
{
unset ($Parameter);
$LeseDatenbanken = explode ("+", $Vorgaben["Data"]["datModule"][$Modul]["LeseDatenbanken"]);
if (is_array ($LeseDatenbanken))
foreach ($LeseDatenbanken as $datDatenbank)
if (isset ($Vorgaben["AnzeigeFelder"][$Modul][$datDatenbank]))
if (is_array ($Vorgaben["AnzeigeFelder"][$Modul][$datDatenbank]))
foreach ($Vorgaben["AnzeigeFelder"][$Modul][$datDatenbank] as $Ziel => $Felder)
switch ($Ziel)
{
case "2D":
{
$Felder = explode (",", $Vorgaben["AnzeigeFelder"][$Modul][$datDatenbank][$Ziel]);
if (is_array ($Felder)) foreach ($Felder as $ID => $Feld) if ($Felder[$ID] = trim ($Feld));
$Vorgaben["Data"][$datDatenbank][0]["AnzeigeFelder"][$Ziel] = $Felder;
}
break;
case "GelbeBox":
{
list ($tmpFelder, $Vorgaben["Data"][$datDatenbank][0]["GelbeBoxOptionen"]) = explode ("|", $Vorgaben["AnzeigeFelder"][$Modul][$datDatenbank][$Ziel] . "|");
$Felder = explode (",", $tmpFelder);
# Feldnamen trimmen
if (is_array ($Felder)) foreach ($Felder as $ID => $Feld) if ($Felder[$ID] = trim ($Feld));
$Vorgaben["Data"][$datDatenbank][0]["AnzeigeFelder"][$Ziel] = $Felder;
}
break;
case "1D":
{
$Gruppen = explode ("//", $Vorgaben["AnzeigeFelder"][$Modul][$datDatenbank][$Ziel]);
# Debug
// //$dbgVariable = "Gruppen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if (is_array ($Gruppen))
foreach ($Gruppen as $Gruppe)
{
list ($GruppenTitel, $txtFelder) = explode ("/", $Gruppe . "/");
$GruppenTitel = trim ($GruppenTitel);
$tmpFelder = explode (",", $txtFelder);
$Felder = array ();
# Feldnamen trimmen
if (is_array ($tmpFelder))
foreach ($tmpFelder as $Feld)
if ($Feld = trim ($Feld))
if (!isset ($Vorgaben["Benutzer"]["VersteckteFelder"][$datDatenbank][$Feld]) or !$Vorgaben["Benutzer"]["VersteckteFelder"][$datDatenbank][$Feld])
{
$Felder[] = $Feld;
}
unset ($tmpFelder);
# spezieller Gruppentitel?
// switch ($GruppenTitel)
// {
// default:
// {
//// $t_modifiziert = fncVorgaben ($Vorgaben, "Bz_" . $datDatenbank . "_Tonne_krzBezeichner");
// $GruppenTitel = $Modul;
// }
// break;
// case "=Item":
// {
//
// $t_modifiziert = fncVorgaben ($Vorgaben, "Bz_" . $datDatenbank . "_Tonne_krzBezeichner");
// $t_element_bezeichner = ($t_modifiziert) ? $t_modifiziert : $Vorgaben["Data"][$datDatenbank][0]["Tonne"]["krzBezeichner"][0];
//
//// var_dump ("Bz_" . $datDatenbank . "_Tonne_krzBezeichner");
//
// $GruppenTitel = $t_element_bezeichner . " »" . fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $_REQUEST[RECORD], $Vorgaben["Data"][$datDatenbank][0]["Tonne"]["fldBetrefftext"])) . "«";
// }
// break;
// }
// debug ($GruppenTitel);
if ($GruppenTitel)
switch ($GruppenTitel[0])
{
case "=":
{
// debug ('hier!!!!!!!!!!');
$t_code_gruppe = mb_substr ($GruppenTitel, 1);
switch ($t_code_gruppe)
{
default:
{
// info();
$t_modifiziert = fncVorgaben ($Vorgaben, "Bz_" . $t_code_gruppe . "_Titel.N");
$t_element_bezeichner = ($t_modifiziert) ? 'Modul ' . $t_modifiziert : $t_code_gruppe;
$GruppenTitel = $t_element_bezeichner;
}
break;
case "Item":
{
$t_modifiziert = fncVorgaben ($Vorgaben, "Bz_" . $datDatenbank . "_Tonne_krzBezeichner");
$t_element_bezeichner = ($t_modifiziert) ? $t_modifiziert : $Vorgaben["Data"][$datDatenbank][0]["Tonne"]["krzBezeichner"][0];
$GruppenTitel = $t_element_bezeichner . " »" . fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $_REQUEST[RECORD], $Vorgaben["Data"][$datDatenbank][0]["Tonne"]["fldBetrefftext"])) . "«";
}
break;
}
}
break;
}
if (count ($Felder))
{
$Vorgaben["Data"][$datDatenbank][0]["AnzeigeFelder"][$Ziel][(trim ($GruppenTitel))] = $Felder;
}
}
unset ($Felder);
unset ($Gruppen);
}
break;
}
// $Ergebnis = $Vorgaben;
// unset ($Vorgaben);
}
break;
case "2D":
{
list ($datDatenbank) = $Parameter;
unset ($Parameter);
$AnzeigeArt = $Aktion2;
$Ergebnis = array ();
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["AnzeigeFelder"][$AnzeigeArt]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["AnzeigeFelder"][$AnzeigeArt] as $Feld)
if ((!isset ($Vorgaben["Benutzer"]["GesperrteFelder"][$datDatenbank][$Feld]) or !$Vorgaben["Benutzer"]["GesperrteFelder"][$datDatenbank][$Feld]) and (!isset ($Vorgaben["Benutzer"]["VersteckteFelder"][$datDatenbank][$Feld]) or !$Vorgaben["Benutzer"]["VersteckteFelder"][$datDatenbank][$Feld]))
{
$Ergebnis[] = $Feld;
}
return $Ergebnis;
}
break;
case "2DGRUPPIERT":
{
list ($datDatenbank) = $Parameter;
unset ($Parameter);
$AnzeigeArt = $Aktion2;
$Ergebnis = array ();
if (isset ($Vorgaben["Data"][$datDatenbank][0]["AnzeigeFelder"][$AnzeigeArt]))
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["AnzeigeFelder"][$AnzeigeArt]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["AnzeigeFelder"][$AnzeigeArt] as $Gruppe => $Felder)
if (is_array ($Felder)) foreach ($Felder as $Feld) if (!$Vorgaben["Benutzer"]["GesperrteFelder"][$datDatenbank][$Feld] and !$Vorgaben["Benutzer"]["VersteckteFelder"][$datDatenbank][$Feld])
{
$Ergebnis[$Gruppe][] = $Feld;
}
unset ($Felder);
return $Ergebnis;
}
break;
}
}
break;
case "ChangeData":
{
unset ($Parameter);
if ($_REQUEST["ChangeCoord"])
{
# Modul übergeben wg. Übersichtlichkeit
$Modul = $Vorgaben["curModul"];
# geänderte Koordinaten auslesen
list ($datDatenbank, $idID, $fldFeld, $optOptionen) = explode (",", $_REQUEST["ChangeCoord"] . ",,,");
// $Sprache = explode ("|", $fldFeld);
# Debug
// //$dbgVariable = "____ChangeData____"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "datDatenbank"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "idID"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "fldFeld"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "optOptionen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$dbgNewValue = $_REQUEST["NewValue"];
//$dbgVariable = "dbgNewValue"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# geänderten Wert aufbereiten
if (isset ($Vorgaben["Data"][$datDatenbank][0]["obLmnDb"]) and $Vorgaben["Data"][$datDatenbank][0]["obLmnDb"])
{
switch ($fldFeld)
{
default:
{
$_REQUEST["NewValue"] = fncText ("ftxWandeln.D", array ($_REQUEST["NewValue"]));
}
break;
case "Inhalt":
{
$_REQUEST["NewValue"] = fncText ("ftxWandeln.LD", array ($_REQUEST["NewValue"]));
}
break;
}
}
else
{
$_REQUEST["NewValue"] = fncText ("ftxWandeln.D", array ($_REQUEST["NewValue"]));
}
# Debug
// $dbgNewValue = $_REQUEST["NewValue"];
// //$dbgVariable = "dbgNewValue"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Daten ändern
if (!$Vorgaben["Benutzer"]["Level"]) // na der darf gar nix ändern
{
}
else switch (mb_strtoupper ($fldFeld)) // hier_Standardmodulhandler
{
default: // Restfelder
{
if (!funDatenbank ("ObPflichtfeldBedient", $Vorgaben, array ($datDatenbank, $fldFeld)))
{
# Debug
//$dbgInfo = "ObPflichtfeldBedient"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
$_REQUEST["OpenCoord"] = $_REQUEST["ChangeCoord"];
// $Vorgaben["ObKombiNeuerWert"] = 1;
}
else
{
$Sprache = $optOptionen;
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $fldFeld . "|" . $Sprache, $_REQUEST["NewValue"]));
}
}
break;
case "NEU":
{
$knnSymbolleiste = $optOptionen;
# Debug
// //$dbgVariable = "NEU"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "fldFeld"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $dbgNewValue = $_REQUEST["NewValue"];
// //$dbgVariable = "dbgNewValue"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "optOptionen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $SchreibeDatenbanken = $Vorgaben["SchreibeDatenbanken"];
// //$dbgVariable = "SchreibeDatenbanken"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $NeuFeld = $Vorgaben["Data"][$datDatenbank][0]["NeuFeld"];
// //$dbgVariable = "NeuFeld"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $dbkpf = $Vorgaben["Data"][$datDatenbank][0];
// //$dbgVariable = "dbkpf"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$Vorgaben = fncDatensatz ("DsAnlegen", $Vorgaben, array ($datDatenbank, $knnSymbolleiste));
$idID = $Vorgaben["idID"];
# Feld öffnen
if ($Vorgaben["Data"][$datDatenbank][0]["NeuFeld"])
{
if (isset ($Vorgaben["Data"][$datDatenbank][0]["VokabelFelder"][$Vorgaben["Data"][$datDatenbank][0]["NeuFeld"]]) and $Vorgaben["Data"][$datDatenbank][0]["VokabelFelder"][$Vorgaben["Data"][$datDatenbank][0]["NeuFeld"]])
{
$Sprache = $Vorgaben["curLang"]; // bzw. die Sprache, die am Filter eingestellt wurde
# Debug
// //$dbgVariable = "Sprache"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
else
{
$Sprache = "";
# Debug
// //$dbgVariable = "Sprache"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
$_REQUEST["OpenCoord"] = $datDatenbank . "," . $idID . "," . $Vorgaben["Data"][$datDatenbank][0]["NeuFeld"] . "," . $Sprache;
# Debug
// $dbgReq = $_REQUEST;
// //$dbgVariable = "dbgReq"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $varvarvar = $Vorgaben["bltDBs"][$Vorgaben["curModul"]][$datDatenbank]["varChap"];
// //$dbgVariable = "varvarvar"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $dataset = $Vorgaben["Data"][$datDatenbank][$idID];
// //$dbgVariable = "dataset"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "_REQUEST"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "_REQUEST"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
}
break;
case "INHALT":
{
// $knnSymbolleiste = $optOptionen;
# Debug
// //$dbgVariable = "$optOptionen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $Sprache = $optOptionen;
if ($Vorgaben["Data"][$datDatenbank][0]["obLmnDb"])
{
# mehrzeiliger Eintrag?
$arrZeilen = explode ("¦", $_REQUEST["NewValue"]);
# erste Zeile speichern
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $fldFeld, $arrZeilen[0]));
# evtl. weitere Zeilen speichern
$mrkType = $Vorgaben["Data"][$datDatenbank][$idID]["Type"];
$mrkSprache = $Vorgaben["Data"][$datDatenbank][$idID]["Sprache"];
$anzZeilen = count ($arrZeilen);
for ($Z = 1; $Z < $anzZeilen; $Z++)
{
$mrkID = $idID; // für Reihenfolge
$Vorgaben = fncDatensatz ("DsAnlegen", $Vorgaben, array ($datDatenbank)); // neue ID wird angelegt
$idID = $Vorgaben["idID"]; // DsAnlegen hat neue ID hier abgelegt
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $fldFeld, $arrZeilen[$Z]));
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, "Reihenfolge", "n:" . $mrkID));
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, "Type", $mrkType));
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, "Sprache", $mrkSprache));
// funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, "Sprache", $Sprache));
}
unset ($arrZeilen);
}
else
{
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $fldFeld, $_REQUEST["NewValue"]));
}
}
break;
case "DUPLIZIEREN":
{
# Debug
// $dbgBlock = "DUPLIZIEREN"; echo fncDebug ("Block.A", array ($Vorgaben["ObDebug"], $dbgBlock));
// //$dbgVariable = "datDatenbank"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "idID"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# zu kopierender Datensatz
$OriginalID = $idID;
# Freie ID für neuen Datensatz finden
$idID = funDatenbank ("FreieID", $Vorgaben, array ($datDatenbank));
# wenn neben der Gesamtübersicht eine Detailansicht je Datensatz existiert, dann ID in Request übernehmen
if ($Vorgaben["Data"][$datDatenbank][0]["fldDetails"]) // nicht nach ObItem, weil nur je Modul gesetzt, fldDetails hingegen je Datenbank
{
$_REQUEST[RECORD] = $idID;
}
# alle Auswahlfelder erstmal standardmäßig mit einer Null vorbelegen
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["AuswahlFelder"])) foreach ($Vorgaben["Data"][$datDatenbank][0]["AuswahlFelder"] as $AuswahlFeld => $X)
{
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $AuswahlFeld, 0));
}
# alle Ob-Felder erstmal standardmäßig mit einer Null vorbelegen
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["ObFelder"])) foreach ($Vorgaben["Data"][$datDatenbank][0]["ObFelder"] as $ObFeld => $X)
{
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $ObFeld, 0));
}
# alle Pflichtfelder vorbelegen
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["PflichtFelder"])) foreach ($Vorgaben["Data"][$datDatenbank][0]["PflichtFelder"] as $PflichtFeld => $Ob) if ($Ob)
{
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $PflichtFeld));
}
# wenn Datenbank einen Besitzer hat
if ($datBesitzer = $Vorgaben["Data"][$datDatenbank][0]["Besitzer"])
{
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $Vorgaben["Data"][$datBesitzer][0]["Besitz"][$datDatenbank], $_REQUEST[RECORD]));
}
# Wenn am Filter ein Wert eingestellt ist, wird das entsprechende Feld mit dem Wert vorbelegt
// $Vorgaben = funModulFilter ("Auslesen", $Vorgaben, array ($datDatenbank, $idID));
# jetzt die Werte vom Original auf das Duplikat übernehmen
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["Kopfzeile"]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["Kopfzeile"] as $Feld => $Ob)
if ($Ob)
if ($Vorgaben["Data"][$datDatenbank][$OriginalID][$Feld])
switch (mb_strtoupper ($Vorgaben["Data"][$datDatenbank][0]["FeldTypen"][$Feld][0]))
{
case "ID":
break;
case "BILD":
$_FILES["NewValue"]["type"] = "";
$_FILES["NewValue"]["tmp_name"] = $Vorgaben["Ordner"]["CBilder"] . $Vorgaben["Data"][$datDatenbank][$OriginalID][$Feld];
$_FILES["NewValue"]["size"] = 1;
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $Feld, $_REQUEST["NewValue"]));
break;
case "DFTPDF":
$_FILES["NewValue"]["type"] = "APPLICATION/PDF";
$_FILES["NewValue"]["tmp_name"] = $Vorgaben["Ordner"]["Media"] . $Vorgaben["Data"][$datDatenbank][$OriginalID][$Feld];
$_FILES["NewValue"]["size"] = 1;
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $Feld, $_REQUEST["NewValue"]));
break;
case "DFTVIDEO":
list ($X, $Endung) = explode (".", $Vorgaben["Data"][$datDatenbank][$OriginalID][$Feld]);
$_FILES["NewValue"]["type"] = $Endung;
$_FILES["NewValue"]["tmp_name"] = $Vorgaben["Ordner"]["CVideo"] . $Vorgaben["Data"][$datDatenbank][$OriginalID][$Feld];
$_FILES["NewValue"]["size"] = 1;
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $Feld, $_REQUEST["NewValue"]));
break;
case "DFTMP3":
list ($X, $Endung) = explode (".", $Vorgaben["Data"][$datDatenbank][$OriginalID][$Feld]);
$_FILES["NewValue"]["type"] = $Endung;
$_FILES["NewValue"]["tmp_name"] = $Vorgaben["Ordner"]["Media"] . $Vorgaben["Data"][$datDatenbank][$OriginalID][$Feld];
$_FILES["NewValue"]["size"] = 1;
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $Feld, $_REQUEST["NewValue"]));
break;
default:
# Debug
$EchterWert = $Vorgaben["Data"][$datDatenbank][$OriginalID][$Feld];
//$dbgVariable = "Feld"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "EchterWert"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $Feld, $Wert = funDatenbank ("Anzeigen.EingabeWert", $Vorgaben, array ($datDatenbank, $OriginalID, $Feld))));
# Debug
//$dbgVariable = "Wert"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
break;
}
# Feld öffnen
// if ($NeuFeld = $Vorgaben["Data"][$datDatenbank][0]["NeuFeld"][1])
// {
// $_REQUEST["OpenCoord"] = $datDatenbank . "," . $idID . "," . $fldFeld = $NeuFeld;
// }
if ($NeuFeld = $Vorgaben["Data"][$datDatenbank][0]["NeuFeld"])
{
$_REQUEST["OpenCoord"] = $datDatenbank . "," . $idID . "," . $fldFeld = $NeuFeld;
}
# Debug
$dbgBlock = "DUPLIZIEREN"; echo fncDebug ("Block.Z", array ($Vorgaben["ObDebug"], $dbgBlock));
}
break;
case "TONNE":
{
$Vorgaben = fncDatensatz ("DsEntfernen", $Vorgaben, array ($datDatenbank, $idID));
$idID = trim ($optOptionen); // die aktuelle ID, die es nun nicht mehr gibt, auf die AlternativID setzen, somit wird das entsprechende Feld angesprungen
}
break;
case "PLANANREISE":
{
switch ($datDatenbank)
{
case "datReservierungen":
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $fldFeld, $_REQUEST["NewValue"]));
if ($Vorgaben["SchreibeDatenbanken"][$datDatenbank])
{
if (!$_REQUEST["NewValue"])
{
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, "PlanAbreise", 0));
}
else
{
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, "PlanAbreise", funDatum ("Konvertieren.10.10", $Vorgaben, array ($_REQUEST["NewValue"], 1))));
}
}
break;
}
}
break;
case "BESTANREISE":
{
switch ($datDatenbank)
{
case "datReservierungen":
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $fldFeld, $_REQUEST["NewValue"]));
if ($Vorgaben["SchreibeDatenbanken"][$datDatenbank])
{
if (!$_REQUEST["NewValue"])
{
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, "BestAbreise", 0));
}
else
{
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, "BestAbreise", funDatum ("Konvertieren.10.10", $Vorgaben, array ($_REQUEST["NewValue"], 1))));
}
}
break;
}
}
break;
case "PLANABREISE":
{
switch ($datDatenbank)
{
case "datReservierungen":
if (funDatum ("Konvertieren.10.8", $Vorgaben, array ($_REQUEST["NewValue"])) <= $Vorgaben["Data"][$datDatenbank][$idID]["PlanAnreise"])
{
$_REQUEST["NewValue"] = funDatum ("Konvertieren.8.10", $Vorgaben, array ($Vorgaben["Data"][$datDatenbank][$idID]["PlanAnreise"], 1));
}
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $fldFeld, $_REQUEST["NewValue"]));
break;
}
}
break;
case "BESTABREISE":
{
switch ($datDatenbank)
{
case "datReservierungen":
if (funDatum ("Konvertieren.10.8", $Vorgaben, array ($_REQUEST["NewValue"])) <= $Vorgaben["Data"][$datDatenbank][$idID]["BestAnreise"])
{
$_REQUEST["NewValue"] = funDatum ("Konvertieren.8.10", $Vorgaben, array ($Vorgaben["Data"][$datDatenbank][$idID]["BestAnreise"], 1));
}
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $fldFeld, $_REQUEST["NewValue"]));
break;
}
}
break;
case "LAUFZEITSTART":
{
switch ($datDatenbank)
{
case "datProjekte":
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, $fldFeld, $_REQUEST["NewValue"]));
if ($Vorgaben["SchreibeDatenbanken"][$datDatenbank])
{
if (!$_REQUEST["NewValue"])
{
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, "LaufzeitEnde", 0));
}
else
{
$StandardLaufzeitEnde = funDatum ("Konvertieren.10.10", $Vorgaben, array ($_REQUEST["NewValue"], 0, 11));
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, "LaufzeitEnde", $StandardLaufzeitEnde));
}
}
break;
}
}
break;
case "MAILVERSENDEN":
switch ($datDatenbank)
{
case "datRundschreiben":
switch ($_REQUEST["NewValue"])
{
case "versenden": // Mail versenden
# Abonnenteliste für dieses Item erzeugen
$Vorgaben = funSpecial ("SVMAbonnentenliste", $Vorgaben, array ());
if (is_array ($Vorgaben["Data"][$datDatenbank][$idID]["Abonnentenliste"])) foreach ($Vorgaben["Data"][$datDatenbank][$idID]["Abonnentenliste"] as $EMail => $TitelVornameNachname)
{
$AbsenderName = $Vorgaben["Data"]["datVorgaben"][1]["Firma"];
$AbsenderAdresse = $Vorgaben["Meta"]["EMail"];
$EmpfaengerName = $TitelVornameNachname;
$EmpfaengerAdresse = $EMail;
$Betreff = $Vorgaben["Data"][$datDatenbank][$idID]["Betreff"];
$Nachricht = funText ("Wandeln.Umbruch.DB-Eingabe", $Vorgaben, array ($Vorgaben["Data"][$datDatenbank][$idID]["Nachricht"]));
funNachricht ("Senden", $Vorgaben, array ($AbsenderName, $AbsenderAdresse, $EmpfaengerName, $EmpfaengerAdresse, $Betreff, $Nachricht));
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, "LetzterVersand", $Vorgaben["Heute"][10]));
funDatenbank ("datAendern", $Vorgaben, array ($datDatenbank, $idID, "LetzterVersender", $Vorgaben["Benutzer"]["Name"]));
}
break;
}
break;
}
break;
}
# geänderte Koordinaten erneut auslesen
list ($datDatenbank, $idID, $fldFeld) = explode (",", $_REQUEST["ChangeCoord"]);
list ($fldFeld) = explode ("|", $fldFeld);
# Debug
// $ChangeCoord = $_REQUEST["ChangeCoord"];
// //$dbgVariable = "_______________________"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "datDatenbank"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "idID"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "felFeld"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# geändertes Feld wird angesprungen
$Vorgaben["OnLoad"] = "location = '#" . mb_substr (md5 ($datDatenbank . $idID . $fldFeld), 0, 4) . "'; ";
$_REQUEST["ActiveCoord" . $Modul] = $datDatenbank . "," . $idID . "," . $fldFeld;
$_REQUEST["ChangeCoord"] = "";
/*
--> wegen Formatbehandlung (ob gültige E-Mail) rausgenommen
$_REQUEST["NewValue"] = "";
*/
# Debug
// $ChangeCoord = $_REQUEST["ChangeCoord"];
// //$dbgVariable = "_REQUEST"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
// $Ergebnis = $Vorgaben;
// unset ($Vorgaben);
}
break;
case "ZellStil":
{
list ($DatenbankName, $ID, $Feld) = $Parameter;
unset ($Parameter);
# Debug
// echo var_dump ($Feld);
$ZellFarbe = "";
if (isset ($Vorgaben["Data"][$DatenbankName][$ID][$Feld]))
if (isset ($Vorgaben["Farben"]))
if ($Vorgaben["Farben"]["Disposition"][$Vorgaben["Data"][$DatenbankName][0]["FeldTypen"][$Feld][0]][$Vorgaben["Data"][$DatenbankName][$ID][$Feld]])
{
$ZellFarbe = $Vorgaben["Farben"]["Disposition"][$Vorgaben["Data"][$DatenbankName][0]["FeldTypen"][$Feld][0]][$Vorgaben["Data"][$DatenbankName][$ID][$Feld]];
}
if (isset ($Vorgaben["Data"][$DatenbankName][0]["FeldFarben"][$Feld]) and $Vorgaben["Data"][$DatenbankName][0]["FeldFarben"][$Feld] and $ZellFarbe != $Vorgaben["Data"][$DatenbankName][0]["FeldFarben"][$Feld]) // Wochenende? Dann wieder gelb hinterlegen!
{
$ZellFarbe = funFarbe ("Mischen", $Vorgaben, array ($Vorgaben["Data"][$DatenbankName][0]["FeldFarben"][$Feld], $ZellFarbe));
}
if ($ZellFarbe)
{
$Ergebnis = "background: " . $ZellFarbe . "; ";
}
else
{
$Ergebnis = "";
}
return $Ergebnis;
}
break;
case "SchattenFelder":
{
list ($datDatenbank) = $Parameter;
unset ($Parameter);
if (isset ($Vorgaben["curModul"]))
{
$Modul = $Vorgaben["curModul"];
}
else
{
$Modul = "";
}
if (isset ($_REQUEST["OpenCoord"]))
{
list ($X, $idOpen) = explode (",", $_REQUEST["OpenCoord"] . ",");
}
else
{
$idOpen = "";
}
switch (mb_strtoupper ($Aktion2))
{
# hier_standardSchattenFelder_erzeugen
case "STANDARD": // wird nach jedem Lesen und Schreiben einer Datenbank aufgerufen werden
{
# var
$mrkGruppe = "";
# SchattenFelder_vor_Auswahllisten
if (is_array ($Vorgaben["Data"][$datDatenbank]))
if (isset ($Vorgaben["Data"][$datDatenbank][0]["fldID"]))
foreach ($Vorgaben["Data"][$datDatenbank] as $idID => $tmp)
if (isset ($Vorgaben["Data"][$datDatenbank][$idID][$Vorgaben["Data"][$datDatenbank][0]["fldID"]]))
if ($Vorgaben["Data"][$datDatenbank][$idID][$Vorgaben["Data"][$datDatenbank][0]["fldID"]])
{
# Sonderfall flexible Feldtypen/Bezeichner
if (isset ($Vorgaben["Data"][$datDatenbank][0]["obLmnDb"]))
if ($Vorgaben["Data"][$datDatenbank][0]["obLmnDb"])
{
if (!isset ($Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["FeldtypInhalt"]))
{
$Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["FeldtypInhalt"] = "";
}
list ($Vorgaben["Data"][$datDatenbank][0]["FeldTypen"]["Inhalt"][$idID]) = explode (".", $Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["FeldtypInhalt"]);
if (!isset ($Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["FeldtypReferenz"]))
{
$Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["FeldtypReferenz"] = "";
}
list ($Vorgaben["Data"][$datDatenbank][0]["FeldTypen"]["Referenz"][$idID], $Vorgaben["Data"][$datDatenbank][0]["FeldTypen2"]["Referenz"][$idID]) = explode (".", $Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["FeldtypReferenz"] . ".");
if (!isset ($Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["BezeichnerInhalt"]))
{
$Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["BezeichnerInhalt"] = "";
}
$Vorgaben["Data"][$datDatenbank][0]["FeldBezeichner"]["Inhalt"][$idID] = $Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["BezeichnerInhalt"];
if (!isset ($Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["BezeichnerReferenz"]))
{
$Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["BezeichnerReferenz"] = "";
}
$Vorgaben["Data"][$datDatenbank][0]["FeldBezeichner"]["Referenz"][$idID] = $Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["BezeichnerReferenz"];
if (!isset ($Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["TitelLang"]))
{
$Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["TitelLang"] = "";
}
$Vorgaben["Data"][$datDatenbank][0]["Tonne"]["lngBezeichner"][$idID] = $Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["TitelLang"];
if (!isset ($Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["Titel"]))
{
$Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["Titel"] = "";
}
$Vorgaben["Data"][$datDatenbank][0]["Tonne"]["krzBezeichner"][$idID] = $Vorgaben["Data"]["datTypen"][$Vorgaben["Data"][$datDatenbank][$idID]["Type"]]["Titel"];
}
# Exklusivfelder
if (isset ($Vorgaben["Data"][$datDatenbank][0]["ExklusivFelder"]))
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["ExklusivFelder"]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["ExklusivFelder"] as $ExklusivFeld)
if ($ExklusivFeld)
if ($Vorgaben["Data"][$datDatenbank][$idID][$ExklusivFeld])
if ($Vorgaben["Data"][$datDatenbank][0]["ExklFldUmgebung"][$ExklusivFeld])
{
# Umgebung ermitteln
list ($fldFeld1, $fldFeld2) = explode ("|", $Vorgaben["Data"][$datDatenbank][0]["ExklFldUmgebung"][$ExklusivFeld] . "|");
$wrtWert1 = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idID, $fldFeld1));
if (!$wrtWert1)
{
$wrtWert1 = 0;
}
$wrtWert2 = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idID, $fldFeld2));
if (!$wrtWert2)
{
$wrtWert2 = 0;
}
$fldUmgebung = $wrtWert1 . ";" . $wrtWert2; // Semikolon, weil Werte verbunden werden
if ($fldFeld2) // Sonderfall: z.B. Sprache|Bereich
{
if ($wrtWert2) // nur gültig, wenn Bereich gesetzt ist, weil sonst Konkurrenz zur globalen Startseite
{
if (!isset ($Vorgaben["Data"][$datDatenbank][0]["ExklusivIDs"][$ExklusivFeld][$fldUmgebung]) or !$Vorgaben["Data"][$datDatenbank][0]["ExklusivIDs"][$ExklusivFeld][$fldUmgebung]) // bisher keine ID gesetzt?
{
$Vorgaben["Data"][$datDatenbank][0]["ExklusivIDs"][$ExklusivFeld][$fldUmgebung] = $idID;
}
else // es existiert bereits eine ID? dann diesen Anwärter auf Null setzen
{
$Vorgaben["Data"][$datDatenbank][$idID][$ExklusivFeld] = 0;
}
}
else // wenn Bereich = 0
{
$Vorgaben["Data"][$datDatenbank][$idID][$ExklusivFeld] = 0;
}
}
else
{
if (!isset ($Vorgaben["Data"][$datDatenbank][0]["ExklusivIDs"][$ExklusivFeld][$fldUmgebung]) or !$Vorgaben["Data"][$datDatenbank][0]["ExklusivIDs"][$ExklusivFeld][$fldUmgebung]) // bisher keine ID gesetzt?
{
$Vorgaben["Data"][$datDatenbank][0]["ExklusivIDs"][$ExklusivFeld][$fldUmgebung] = $idID;
}
else // es existiert bereits eine ID? dann diesen Anwärter auf Null setzen
{
$Vorgaben["Data"][$datDatenbank][$idID][$ExklusivFeld] = 0;
}
}
}
else // kein Papafeld?
{
if (!$Vorgaben["Data"][$datDatenbank][0]["ExklusivIDs"][$ExklusivFeld]) // bisher keine ID gesetzt?
{
$Vorgaben["Data"][$datDatenbank][0]["ExklusivIDs"][$ExklusivFeld] = $idID;
}
else // es existiert bereits eine ID? dann diesen Anwärter auf Null setzen
{
$Vorgaben["Data"][$datDatenbank][$idID][$ExklusivFeld] = 0;
}
}
# Hierarchie
if (isset ($Vorgaben["Data"][$datDatenbank][0]["fldHierarchie"]))
if ($fldHierarchie = $Vorgaben["Data"][$datDatenbank][0]["fldHierarchie"])
{
$fldText = $Vorgaben["Data"][$datDatenbank][0]["fldTxtHierarchie"];
if (isset ($Vorgaben["Data"][$datDatenbank][0]["fldSprache"]))
{
$fldSprache = $Vorgaben["Data"][$datDatenbank][0]["fldSprache"];
}
else
{
$fldSprache = "";
}
# Ebenen
$Vorgaben["Data"][$datDatenbank][$idID]["+mbnHierarchie"] = 0; // zählt die Ebene 0=Hauptmenü usw.
# Sprachen validieren, wenn Unterkategorie andere Sprache hat als Hauptkategorie, wird Unterkategorie automatisch zur Hauptkategorie
if ($fldSprache)
if (isset ($Vorgaben["Data"][$datDatenbank][$idID][$fldHierarchie]))
if ($Vorgaben["Data"][$datDatenbank][$idID][$fldHierarchie])
if ($Vorgaben["Data"][$datDatenbank][$idID][$fldSprache] != $Vorgaben["Data"][$datDatenbank][$Vorgaben["Data"][$datDatenbank][$idID][$fldHierarchie]][$fldSprache])
{
$Vorgaben["Data"][$datDatenbank][$idID][$fldHierarchie] = 0;
}
$Vorgaben["Data"][$datDatenbank][$idID]["+hrcHierarchie"] = "";
$Vorgaben["Data"][$datDatenbank][$idID]["+klrHierarchie"] = "";
$Vorgaben["Data"][$datDatenbank][$idID]["+ntrHierarchie"] = "";
$idPapa = $Vorgaben["Data"][$datDatenbank][$idID][$fldHierarchie] / 1;
while ($idPapa)
{
# KLartext
$Vorgaben["Data"][$datDatenbank][$idID]["+klrHierarchie"] = fncText ("ftxWandeln.F", array ($Vorgaben["Data"][$datDatenbank][$idPapa][$fldText])) . " › " . $Vorgaben["Data"][$datDatenbank][$idID]["+klrHierarchie"];
# IDs |1|2|3|
$Vorgaben["Data"][$datDatenbank][$idID]["+hrcHierarchie"] = $idPapa . "|" . $Vorgaben["Data"][$datDatenbank][$idID]["+hrcHierarchie"];
# IDs 1,2,3
$Vorgaben["Data"][$datDatenbank][$idPapa]["+ntrHierarchie"] .= "," . $idID;
# Ebene
$Vorgaben["Data"][$datDatenbank][$idID]["+mbnHierarchie"]++;
# idPapa neu belegen
$idPapa = $Vorgaben["Data"][$datDatenbank][$idPapa][$fldHierarchie] / 1;
}
if (isset ($Vorgaben["Data"][$datDatenbank][$idID][$fldText]))
{
$Vorgaben["Data"][$datDatenbank][$idID]["+klrHierarchie"] .= fncText ("ftxWandeln.F", array ($Vorgaben["Data"][$datDatenbank][$idID][$fldText]));
}
$Vorgaben["Data"][$datDatenbank][$idID]["+hrcHierarchie"] = "|" . $Vorgaben["Data"][$datDatenbank][$idID]["+hrcHierarchie"] . $idID . "|";
}
# SchattenFelder
if (isset ($Vorgaben["Data"][$datDatenbank][0]["SchattenFelder"]))
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["SchattenFelder"]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["SchattenFelder"] as $SchattenFeld => $Details)
switch ($Details["Typ"])
{
case "dftZwilling":
{
// //$dbgVariable = "Details"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if (isset ($Details["Aktion"]))
switch ($Details["Aktion"])
{
case "KonvertiereDatum":
if ($Vorgaben["Data"][$datDatenbank][$idID][$Details["OriginalFeld"]])
{
$Vorgaben["Data"][$datDatenbank][$idID][$SchattenFeld] = funDatum ("Konvertieren." . $Details["OriginalFormat"] . "." . $Details["KopieFormat"], $Vorgaben, array ($Vorgaben["Data"][$datDatenbank][$idID][$Details["OriginalFeld"]]));
}
else
{
$Vorgaben["Data"][$datDatenbank][$idID][$SchattenFeld] = "";
}
break;
default:
$Vorgaben["Data"][$datDatenbank][$idID][$SchattenFeld] = $Vorgaben["Data"][$datDatenbank][$idID][$Details["OriginalFeld"]];
break;
}
switch (mb_strtoupper ($Details["Typ5"]))
{
case "WENNVERALTET":
if ($Vorgaben["Data"][$datDatenbank][$idID][$SchattenFeld] < $Vorgaben["Heute"][8]) // in der DB steht also gestern oder älter
{
$Vorgaben["Data"][$datDatenbank][$idID][$SchattenFeld] = 0;
}
break;
}
}
break;
case "dftZeitraum":
{
$ErstesFeld = $Vorgaben["Data"][$datDatenbank][$idID][$Details["ErstesFeld"]];
$ZweitesFeld = $Vorgaben["Data"][$datDatenbank][$idID][$Details["ZweitesFeld"]];
$Alter = funDatum ("Alter.8", $Vorgaben, array ($Vorgaben["Data"][$datDatenbank][$idID][$Details["ErstesFeld"]], $Vorgaben["Data"][$datDatenbank][$idID][$Details["ZweitesFeld"]]));
$Vorgaben["Data"][$datDatenbank][$idID][$SchattenFeld] = $Alter[$Details["Skalierung"]];
}
break;
case "dftErsterWert":
{
$tmpAlleWerte = explode (",", $Vorgaben["Data"][$datDatenbank][$idID][$Details["OriginalFeld"]]);
$Vorgaben["Data"][$datDatenbank][$idID][$SchattenFeld] = $tmpAlleWerte[0];
}
break;
case "dftInitiale":
{
$Vorgaben["Data"][$datDatenbank][$idID][$SchattenFeld] = mb_strtoupper (mb_substr ($Vorgaben["Data"][$datDatenbank][$idID][$Details["OriginalFeld"]], 0, $Details["Anzahl"]));
}
break;
case "dftRechnen":
{
funDatenbank ("NeuesFeld." . $Details["Typ"], $Vorgaben, array ($datDatenbank, $idID, $SchattenFeld, $Details["Operation"], $Details["Feld1"], $Details["Feld2"]));
}
break;
case "dftWenn":
{
funDatenbank ("NeuesFeld." . $Details["Typ"], $Vorgaben, array ($datDatenbank, $idID, $SchattenFeld, $Details["AlphaFeld"], $Details["BetaFeld"]));
}
break;
case "dftStaffel":
case "dftBisStaffel":
{
funDatenbank ("NeuesFeld." . $Details["Typ"], $Vorgaben, array ($datDatenbank, $idID, $SchattenFeld, $Details["OriginalFeld"], $Details["Staffelung"]));
}
break;
case "dftTicket":
{
funDatenbank ("NeuesFeld." . $Details["Typ"], $Vorgaben, array ($datDatenbank, $idID, $SchattenFeld, $Details["Verbinder"], $Details["Felder"], $Details["ObZwang"]));
}
break;
case "dftSchatten":
{
$Vorgaben["Data"][$datDatenbank][$idID][$SchattenFeld] = fncText ("ftxSchattenwert.U", array ($Vorgaben["Data"][$datDatenbank][$idID][$Details["OriginalFeld"]]));
}
break;
case "dftDatum":
{
# prüfen ob »veraltet« Prüfung sein soll
switch (mb_strtoupper ($Details["Art"]))
{
case "WENNVERALTET":
if ($Vorgaben["Data"][$datDatenbank][$idID][$SchattenFeld] < $Vorgaben["Heute"][8]) // in der DB steht also gestern oder älter
{
$Vorgaben["Data"][$datDatenbank][$idID][$SchattenFeld] = 0;
}
break;
}
}
break;
}
}
unset ($tmp);
# Auswahllisten
if (isset ($Vorgaben["Data"][$datDatenbank][0]["AuswahlFelder"]))
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["AuswahlFelder"]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["AuswahlFelder"] as $AuswahlFeld => $Optionen)
{
$regGesAuswahl = array ();
$regOffAuswahl = array ();
$obPflichtfeld = 0;
list ($Art, $Option1, $Option2, $Option3) = explode (":", $Optionen);
# Nullwert ermitteln
if ($Vorgaben["Data"][$datDatenbank][0]["PflichtFelder"][$AuswahlFeld]) // Pflichtfeld? Dann kein Nullwert!
{
$Nullwert = "";
$obPflichtfeld = 1;
}
elseif ($Vorgaben["Data"][$datDatenbank][0]["NullWerte"][$AuswahlFeld]) // Nullwert in DBTypen hinterlegt?
{
$Nullwert = $Vorgaben["Data"][$datDatenbank][0]["NullWerte"][$AuswahlFeld];
}
else // Standard: kein
{
$Nullwert = "kein";
}
switch (mb_strtoupper ($Art))
{
case "DATUM6":
$Sortieren = "Unsortiert";
$Start6 = $Vorgaben[$Option1];
$Ende6 = $Vorgaben[$Option2];
$Start6 = funDatum ("ErrechneDatum6", $Vorgaben, array ($Start6));
$Ende6 = funDatum ("ErrechneDatum6", $Vorgaben, array ($Ende6));
if ($Nullwert)
{
$regOffAuswahl[0] = $Nullwert;
$regOffAuswahl["~0"] = "---------------------";
}
$regGesAuswahl = $regOffAuswahl;
$BelegteWerte = funDatenbank ("BelegteWerte", $Vorgaben, array ($datDatenbank, $AuswahlFeld, $idOpen));
$StartJahr = mb_substr ($Start6, 0, 4) / 1;
$EndJahr = mb_substr ($Ende6, 0, 4) / 1;
if ($Start6 >= $Ende6)
{
$Aeltester6 = $Ende6;
$Juengster6 = $Start6;
for ($J = $MerkeJahr = $StartJahr; $J and $J >= $EndJahr; $J--) for ($M = 12; $M and $M >= 1; $M--)
{
list ($regOffAuswahl, $regGesAuswahl, $MerkeJahr, $mrkLetzterErlaubterTermin, $mrkLetzterJahresTermin) = funAuswahl ("Datum6", $Vorgaben, array ($regOffAuswahl, $regGesAuswahl, $Aeltester6, $Juengster6, $BelegteWerte, $J, $M, $MerkeJahr, $mrkLetzterErlaubterTermin, $mrkLetzterJahresTermin));
}
}
else
{
$Aeltester6 = $Start6;
$Juengster6 = $Ende6;
for ($J = $MerkeJahr = $StartJahr; $J and $J <= $EndJahr; $J++) for ($M = 1; $M and $M <= 12; $M++)
{
list ($regOffAuswahl, $regGesAuswahl, $MerkeJahr, $mrkLetzterErlaubterTermin, $mrkLetzterJahresTermin) = funAuswahl ("Datum6", $Vorgaben, array ($regOffAuswahl, $regGesAuswahl, $Aeltester6, $Juengster6, $BelegteWerte, $J, $M, $MerkeJahr, $mrkLetzterErlaubterTermin, $mrkLetzterJahresTermin));
}
}
break;
case "MENU": // erzeugt Auswahl der vorhandenen Menüeinträge
$Sortieren = "Unsortiert";
$Vorgaben["funStartzeit7"] = microtime (1);
// $ObUngleicheRegister = 1;
if ($Nullwert)
{
$regOffAuswahl[0] = $Nullwert;
$regOffAuswahl["~0"] = "---------------------";
}
$regGesAuswahl = $regOffAuswahl;
$SammleThemen = array ();
if (is_array ($Vorgaben["Menu"]["AktiveThemen"])) foreach ($Vorgaben["Menu"]["AktiveThemen"] as $ID => $Thema) if ($ID) if (!$Vorgaben["Menu"]["Extern"][$ID]) // somit Startseite und externe Links ausgeklammert
{
$SammleThemen[] = $ID;
}
for ($Z = 0; $Z < count ($SammleThemen); $Z++)
{
$ID = $SammleThemen[$Z];
if (!$Vorgaben["Menu"]["ThemenHierarchie"][$ID] and $Z) // wenn Thema der 1. Ebene aber nicht das allererste
{
$regOffAuswahl["~" . $SammleThemen[($Z - 1)]] = "---------------------";
}
if ($Vorgaben["Menu"]["ThemenHierarchie"][$ID]) // wenn Unterthema
{
$Vorspann1 = "• ";
$Vorspann2 = $Vorgaben["Menu"]["AktiveThemen"][$Vorgaben["Menu"]["ThemenHierarchie"][$ID]] . " • ";
}
else
{
$Vorspann1 = "";
$Vorspann2 = "";
}
$regOffAuswahl[$ID] = $Vorspann1 . $Vorgaben["Menu"]["AktiveThemen"][$ID];
$regGesAuswahl[$ID] = $Vorspann2 . $Vorgaben["Menu"]["AktiveThemen"][$ID];
}
break;
case "DATENBANK":
{
$Sortieren = $Option1;
$datQuelle = $Option2;
$fldText = $Option3;
$regOffAuswahl = array ();
$regGesAuswahl = array ();
# debug
// echo var_dump ($datDatenbank);
// echo var_dump ($AuswahlFeld);
// echo var_dump ($datQuelle);
// echo var_dump ($fldText);
if (isset ($Vorgaben["Data"][$datQuelle]))
{
$regOffAuswahl = fncAltRegister ("Ziehen", $Vorgaben, array ($datQuelle, $Vorgaben["Data"][$datQuelle][0]["fldID"], $fldText . ":Typ", $Nullwert));
$regGesAuswahl = $regOffAuswahl;
switch ($datQuelle)
{
case "datTypen": // dann Rechte beachten
{
if (is_array ($regOffAuswahl))
foreach ($regOffAuswahl as $ID => $tmp)
if ($ID)
if (isset ($Vorgaben["Benutzer"]))
if ((isset ($Vorgaben["Benutzer"]["GesperrteTypen"][$ID]) and $Vorgaben["Benutzer"]["GesperrteTypen"][$ID]) or !isset ($Vorgaben["Benutzer"]["ErlaubteTypen"][$ID]) or !$Vorgaben["Benutzer"]["ErlaubteTypen"][$ID])
{
$regOffAuswahl[$ID] = 0;
}
}
break;
}
}
}
break;
case "REGISTER":
$Sortieren = $Option1;
$Name = $Option2;
if (!isset ($Vorgaben["Data"][$Name]))
{
$Vorgaben["Data"][$Name] = "";
}
$regOffAuswahl = array ();
if ($Nullwert)
{
$regOffAuswahl[0] = $Nullwert;
}
$regOffAuswahl = fncAltRegister ("Mischen", $Vorgaben, array ($Vorgaben["Data"][$Name], $regOffAuswahl));
$regGesAuswahl = $regOffAuswahl;
break;
}
# Pflichtfeld?
// if ($obPflichtfeld)
// {
// $regOffAuswahl[0] = 0;
// }
# Sortieren?
switch (mb_strtoupper ($Sortieren))
{
case "UNSORTIERT":
{
$regGesAuswahl = fncAltRegister ("Sortieren.UN", $Vorgaben, array ($regGesAuswahl));
$regOffAuswahl = fncAltRegister ("Sortieren.UN", $Vorgaben, array ($regOffAuswahl));
}
break;
case "SORTIERT":
{
$regGesAuswahl = fncAltRegister ("Sortieren.N", $Vorgaben, array ($regGesAuswahl));
$regOffAuswahl = fncAltRegister ("Sortieren.N", $Vorgaben, array ($regOffAuswahl));
}
break;
}
$Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$AuswahlFeld]["regGesAuswahl"] = $regGesAuswahl;
$Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$AuswahlFeld]["regOffAuswahl"] = $regOffAuswahl;
if (isset ($Vorgaben["Data"][$datDatenbank][0]["AuswahlKopieFelder"][$AuswahlFeld]))
if ($SchattenFeld = $Vorgaben["Data"][$datDatenbank][0]["AuswahlKopieFelder"][$AuswahlFeld])
{
$Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$SchattenFeld]["regGesAuswahl"] = $Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$AuswahlFeld]["regGesAuswahl"];
$Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$SchattenFeld]["regOffAuswahl"] = $Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$AuswahlFeld]["regGesAuswahl"];
}
unset ($regGesAuswahl);
unset ($regOffAuswahl);
}
# SchattenFelder_nach_Auswahllisten
$mrkIDs4Hrc = array (); // merke IDs für Hierarchie
if (is_array ($Vorgaben["Data"][$datDatenbank]))
if (isset ($Vorgaben["Data"][$datDatenbank][0]["fldID"]))
foreach ($Vorgaben["Data"][$datDatenbank] as $idID => $tmp)
if (isset ($Vorgaben["Data"][$datDatenbank][$idID][$Vorgaben["Data"][$datDatenbank][0]["fldID"]]))
if ($Vorgaben["Data"][$datDatenbank][$idID][$Vorgaben["Data"][$datDatenbank][0]["fldID"]])
{
# Hierarchie - nach Auswahllisten
if (isset ($Vorgaben["Data"][$datDatenbank][0]["fldHierarchie"]))
if ($Vorgaben["Data"][$datDatenbank][0]["fldHierarchie"])
{
$fldHierarchie = $Vorgaben["Data"][$datDatenbank][0]["fldHierarchie"];
# merke Vor- und RücksprungIDs
if (!isset ($Vorgaben["Data"][$datDatenbank][$idID]["Sprache"]))
// if (!$Vorgaben["Data"][$datDatenbank][$idID]["Sprache"])
{
$Vorgaben["Data"][$datDatenbank][$idID]["Sprache"] = "XX"; // behelfsmäßig, muss gefüllt sein für diese Aktion
}
# Umgebung
if (!isset ($Vorgaben["Data"][$datDatenbank][$idID]["Besitzer"]))
{
$Vorgaben["Data"][$datDatenbank][$idID]["Besitzer"] = "";
}
$Umgebung = $Vorgaben["Data"][$datDatenbank][$idID]["Besitzer"];
if (!$Umgebung)
{
$Umgebung = "none";
}
if (isset ($mrkIDs4Hrc[$Umgebung][$Vorgaben["Data"][$datDatenbank][$idID]["Sprache"]][$Vorgaben["Data"][$datDatenbank][$idID]["+mbnHierarchie"]]))
if ($mrkIDs4Hrc[$Umgebung][$Vorgaben["Data"][$datDatenbank][$idID]["Sprache"]][$Vorgaben["Data"][$datDatenbank][$idID]["+mbnHierarchie"]])
{
$Vorgaben["Data"][$datDatenbank][$idID]["+rfgDavor"] = $mrkIDs4Hrc[$Umgebung][$Vorgaben["Data"][$datDatenbank][$idID]["Sprache"]][$Vorgaben["Data"][$datDatenbank][$idID]["+mbnHierarchie"]];
}
if (isset ($Vorgaben["Data"][$datDatenbank][$idID]["+rfgDavor"]))
if ($Vorgaben["Data"][$datDatenbank][$idID]["+rfgDavor"])
{
$Vorgaben["Data"][$datDatenbank][$Vorgaben["Data"][$datDatenbank][$idID]["+rfgDavor"]]["+rfgDanach"] = $idID;
}
$mrkIDs4Hrc[$Umgebung][$Vorgaben["Data"][$datDatenbank][$idID]["Sprache"]][$Vorgaben["Data"][$datDatenbank][$idID]["+mbnHierarchie"]] = $idID;
# ObAktiv in Abhängigkeit von Hierarchie prüfen und ggf. ändern, wenn aktueller Menüpunkt offline ist, dann alle Unterpunkte auch offline schalten
if (isset ($Vorgaben["Data"][$datDatenbank][$idID]["ObAktiv"]) and $Vorgaben["Data"][$datDatenbank][$idID]["ObAktiv"] == 2)
if ($Vorgaben["Data"][$datDatenbank][$idID]["+ntrHierarchie"])
{
$idsUnterpunkte = explode (",", $Vorgaben["Data"][$datDatenbank][$idID]["+ntrHierarchie"]);
if (is_array ($idsUnterpunkte))
foreach ($idsUnterpunkte as $idUnterpunkt)
if ($idUnterpunkt)
{
$Vorgaben["Data"][$datDatenbank][$idUnterpunkt]["ObAktiv"] = 2;
}
unset ($idsUnterpunkte);
}
}
# SchattenFelder - nach Auswahllisten
if (isset ($Vorgaben["Data"][$datDatenbank][0]["SchattenFelder"]))
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["SchattenFelder"]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["SchattenFelder"] as $SchattenFeld => $Details)
switch ($Details["Typ"])
{
case "dftKlartext":
{
$Vorgaben["Data"][$datDatenbank][$idID][$SchattenFeld] = $Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$Details["OriginalFeld"]]["regGesAuswahl"][$Vorgaben["Data"][$datDatenbank][$idID][$Details["OriginalFeld"]]];
}
break;
case "dftKette":
{
funDatenbank ("NeuesFeld." . $Details["Typ"], $Vorgaben, array ($datDatenbank, $idID, $SchattenFeld, $Details["FeldA"], $Details["Verbinder"], $Details["FeldB"], $Details["ObZwang"]));
}
break;
}
}
unset ($tmp);
unset ($mrkIDs4Hrc);
# erstmal hier platziert: für Optionen-Felder JS
$Vorgaben["ObJSKontrolle"] = 1;
# Kombilisten erzeugen
if (isset ($Vorgaben["Data"][$datDatenbank][0]["KombiFelder"]))
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["KombiFelder"]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["KombiFelder"] as $Feld => $WeitereFelder)
{
$Vorgaben = funEingabe ("KombiAuswahlListe." . $Feld, $Vorgaben, array ($datDatenbank, $WeitereFelder));
}
unset ($regKandidaten);
}
break;
case "VORFILTER":
{
switch ($Modul)
{
case "modProjekte":
{
$ErsteAuftraege = array ();
if (is_array ($Vorgaben["Data"]["datJobs"])) foreach ($Vorgaben["Data"]["datJobs"] as $ID => $X) if ($Vorgaben["Data"]["datJobs"][$ID]["ID"]) if ($Vorgaben["Data"]["datProjekte"][$Vorgaben["Data"]["datJobs"][$ID]["Projekt"]]["Typ"] == 1) switch ($Vorgaben["Data"]["datJobs"][$ID]["Art"] / 1) // nur Projekte Typ Verkauf
{
case 5: // Auftrag
$Kunde = $Vorgaben["Data"]["datProjekte"][$Vorgaben["Data"]["datJobs"][$ID]["Projekt"]]["Kunde"];
if ($Kunde == "+ Stroner") echo "-" . $ID . "-" . $Vorgaben["Data"]["datJobs"][$ID]["Job"] . " Projekt: ". $Vorgaben["Data"]["datProjekte"][$Vorgaben["Data"]["datJobs"][$ID]["Projekt"]]["Titel"];
if (!$ErsteAuftraege[$Kunde] or $Vorgaben["Data"]["datJobs"][$ID]["Datum"] < $ErsteAuftraege[$Kunde])
{
$ErsteAuftraege[$Kunde] = $Vorgaben["Data"]["datJobs"][$ID]["Datum"];
}
break;
}
if (is_array ($ErsteAuftraege))
{
asort ($ErsteAuftraege);
}
if (is_array ($ErsteAuftraege)) foreach ($ErsteAuftraege as $Kunde => $ErsterAuftrag)
{
$Z++;
$Vorgaben["Data"]["datProjekte"][0]["Plus"][$Kunde]["LfdNr"] = $Z;
$Vorgaben["Data"]["datProjekte"][0]["Plus"][$Kunde]["Dekade"] = ceil ($Z / 10);
$Vorgaben["Data"]["datProjekte"][0]["Plus"][$Kunde]["Hefter"] = $Vorgaben["Data"]["ProjekteHefter"][ceil ($Z / 10)];
$Vorgaben["Data"]["datProjekte"][0]["Plus"][$Kunde]["Jahr"] = mb_substr ($ErsterAuftrag, 0, 4);
}
}
break;
case "modBKalender":
{
$Vorgaben = funSpecial ("ErmittleBelegung.ARD", $Vorgaben, array ());
}
break;
}
}
break;
case "NACHFILTER":
{
switch ($Modul)
{
case "modBKalender":
{
$Vorgaben = funSpecial ("sfhPreisErrechnen", $Vorgaben, array ());
}
break;
case "modCProdukte":
{
# Auswahlliste für Grammatur ausforsten, soll nur die Werte zeigen, die für das jeweilige Papier hinterlegt sind
// if ($_REQUEST["OpenCoord"])
// {
// $obPapSta = array ();
// list ($datDatenbank, $idID, $fldFeld) = explode (",", $_REQUEST["OpenCoord"]);
// $PapStas = explode (",", $Vorgaben["Data"]["datPapiersorten"][$Vorgaben["Data"]["datCPreise"][$idID]["Papier"]]["PapSta"]);
// if (is_array ($PapStas)) foreach ($PapStas as $PapSta) if ($PapSta)
// {
// $obPapSta[$PapSta] = 1;
// }
// if (is_array ($Vorgaben["Data"]["datCPreise"][0]["AuswahlListen"]["Grammatur"]["regOffAuswahl"])) foreach ($Vorgaben["Data"]["datCPreise"][0]["AuswahlListen"]["Grammatur"]["regOffAuswahl"] as $idGrammatur => $txtGrammatur) if (!$obPapSta[$idGrammatur])
// {
// $Vorgaben["Data"]["datCPreise"][0]["AuswahlListen"]["Grammatur"]["regOffAuswahl"][$idGrammatur] = 0;
// }
// }
# Warnungen erzeugen
// $Vorgaben["Data"]["datCPreise"][0]["Symbole"]["Warnung"] = "status_warnung"; // Symbol in Legende
$obDoppelt = array ();
if (is_array ($Vorgaben["Data"]["datCPreise"])) foreach ($Vorgaben["Data"]["datCPreise"] as $idID => $tmp)
{
unset ($tmp);
if ($Vorgaben["Data"]["datCPreise"][$idID]["ID"])
{
if (!$curFormat = $Vorgaben["Data"]["datCPreise"][$idID]["Format"])
{
$Vorgaben["Data"]["datCPreise"][$idID]["Warnung"] = 1;
$Vorgaben["Data"]["datCPreise"][0]["dftWarnung"]["Warnung"][1][$idID] = "kein Format gewählt";
}
elseif (!$curGrammatur = $Vorgaben["Data"]["datCPreise"][$idID]["Grammatur"])
{
$Vorgaben["Data"]["datCPreise"][$idID]["Warnung"] = 1;
$Vorgaben["Data"]["datCPreise"][0]["dftWarnung"]["Warnung"][1][$idID] = "keine Grammatur gewählt";
}
else
{
$curBesitzer = $Vorgaben["Data"]["datCPreise"][$idID]["Besitzer"];
$curPapier = $Vorgaben["Data"]["datCPreise"][$idID]["Papier"];
# Grammatur verfügbar?
$obPapSta = array ();
$PapStas = explode ("|", $Vorgaben["Data"]["datPapiersorten"][$curPapier]["PapSta"]);
if (is_array ($PapStas)) foreach ($PapStas as $PapSta) if ($PapSta)
{
$obPapSta[$PapSta] = 1;
}
unset ($PapStas);
if (!$obPapSta[$curGrammatur])
{
$Vorgaben["Data"]["datCPreise"][$idID]["Warnung"] = 1;
$Vorgaben["Data"]["datCPreise"][0]["dftWarnung"]["Warnung"][1][$idID] = "Grammatur für das gewählte Papier nicht verfügbar";
}
unset ($obPapSta);
# Doppelt?
if ($idDoppel = $obDoppelt[$curBesitzer][$curFormat][$curPapier][$curGrammatur])
{
# bei beiden Warnungen setzen
$Vorgaben["Data"]["datCPreise"][$idID]["Warnung"] = 1;
$Vorgaben["Data"]["datCPreise"][0]["dftWarnung"]["Warnung"][1][$idID] = "Preis existiert doppelt";
$Vorgaben["Data"]["datCPreise"][$idDoppel]["Warnung"] = 1;
$Vorgaben["Data"]["datCPreise"][0]["dftWarnung"]["Warnung"][1][$idDoppel] = "Preis existiert doppelt";
}
else
{
# merken
$obDoppelt[$curBesitzer][$curFormat][$curPapier][$curGrammatur] = $idID;
}
}
}
}
unset ($obDoppelt);
}
break;
}
}
break;
}
// $Ergebnis = $Vorgaben;
//
//
// unset ($Vorgaben);
}
break;
case "FreieID":
{
list ($datDatenbank) = $Parameter;
unset ($Parameter);
# var
$pfxID = "";
# ID-Feld
$fldID = $Vorgaben["Data"][$datDatenbank][0]["fldID"];
if (isset ($Vorgaben["Data"][$datDatenbank][0]["PflichtFelder"][$fldID]) and $Vorgaben["Data"][$datDatenbank][0]["PflichtFelder"][$fldID])
{
$pfxID = $Vorgaben["Data"][$datDatenbank][0]["PflichtFelder"][$fldID];
}
# Debug
// //$dbgInfo = "FreieID"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
// //$dbgVariable = "fldID"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "pfxID"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# finde die nächste freie ID, starte mit 1
for ($FreieID = 1; isset ($Vorgaben["Data"][$datDatenbank][$pfxID . $FreieID][$fldID]) and $Vorgaben["Data"][$datDatenbank][$pfxID . $FreieID][$fldID]; $FreieID++);
$Ergebnis = $pfxID . $FreieID;
return $Ergebnis;
// unset ($Vorgaben);
}
break;
case "NeuesFeld":
{
switch ($Aktion2)
{
case "dftTicket":
{
list ($datDatenbank, $datID, $NeuesFeld, $Verbinder, $Felder) = $Parameter;
unset ($Parameter);
$Werte = array ($datDatenbank, $datID);
if (is_array ($Felder)) foreach ($Felder as $Feld) if ($Vorgaben["Data"][$datDatenbank][$datID][$Feld] or strval ($Vorgaben["Data"][$datDatenbank][$datID][$Feld]) == "0") // soll bei NULL auch funktionieren
{
$Werte[] = fncFeld ("dtfWert.E", $Vorgaben, array ($datDatenbank, $datID, $Feld));
}
unset ($Felder);
$Ticket = funText ("Ticket", $Vorgaben, array ($Werte, $Verbinder));
unset ($Werte);
$Vorgaben["Data"][$datDatenbank][$datID][$NeuesFeld] = $Ticket;
// $Ergebnis = $Vorgaben;
// unset ($Vorgaben);
}
break;
case "dftKette":
{
list ($datDatenbank, $datID, $NeuesFeld, $FeldA, $Verbinder, $FeldB, $ObZwang) = $Parameter;
unset ($Parameter);
$Kette = array ();
$Felder = array ($FeldA, $FeldB);
if (is_array ($Felder)) foreach ($Felder as $Feld) if ($ObZwang or fncFeld ("dtfWert.NE", $Vorgaben, array ($datDatenbank, $datID, $Feld)))
{
$Kette[] = fncFeld ("dtfWert.NE", $Vorgaben, array ($datDatenbank, $datID, $Feld));
}
unset ($Felder);
$Vorgaben["Data"][$datDatenbank][$datID][$NeuesFeld] = implode ($Verbinder, $Kette);
unset ($Kette);
// $Ergebnis = $Vorgaben;
// unset ($Vorgaben);
}
break;
case "dftRechnen":
{
list ($datDatenbank, $datID, $NeuesFeld, $Operation, $Feld1, $Feld2) = $Parameter;
unset ($Parameter);
$Wert1 = $Vorgaben["Data"][$datDatenbank][$datID][$Feld1] / 1;
$Wert2 = $Vorgaben["Data"][$datDatenbank][$datID][$Feld2] / 1;
switch (mb_strtoupper ($Operation))
{
case "DIV":
if ($Wert2) // sonst div by zero!
{
$Vorgaben["Data"][$datDatenbank][$datID][$NeuesFeld] = $Wert1 / $Wert2;
}
break;
case "ADD":
$Vorgaben["Data"][$datDatenbank][$datID][$NeuesFeld] = $Wert1 + $Wert2;
break;
case "SUB":
$Vorgaben["Data"][$datDatenbank][$datID][$NeuesFeld] = $Wert1 - $Wert2;
break;
case "MUL":
$Vorgaben["Data"][$datDatenbank][$datID][$NeuesFeld] = $Wert1 * $Wert2;
break;
}
// $Ergebnis = $Vorgaben;
// unset ($Vorgaben);
}
break;
case "dftWenn":
{
list ($datDatenbank, $datID, $NeuesFeld, $AlphaFeld, $BetaFeld) = $Parameter;
unset ($Parameter);
if ($Vorgaben["Data"][$datDatenbank][$datID][$AlphaFeld])
{
$Wert = fncFeld ("dtfWert.E", $Vorgaben, array ($datDatenbank, $datID, $AlphaFeld));
}
else
{
$Wert = fncFeld ("dtfWert.E", $Vorgaben, array ($datDatenbank, $datID, $BetaFeld));
}
$Vorgaben["Data"][$datDatenbank][$datID][$NeuesFeld] = $Wert;
// $Ergebnis = $Vorgaben;
// unset ($Vorgaben);
}
break;
case "dftStaffel":
{
list ($datDatenbank, $datID, $NeuesFeld, $Feld, $rohStaffelung) = $Parameter;
unset ($Parameter);
list ($Staffelung, $rohGenauigkeit) = explode (",", $rohStaffelung);
$Genauigkeit = mb_strlen ($rohGenauigkeit);
switch ($Genauigkeit)
{
default: // 0
{
$Differenz = 0;
}
break;
case 1:
{
$Differenz = 0.1;
}
break;
case 2:
{
$Differenz = 0.01;
}
break;
case 3:
{
$Differenz = 0.001;
}
break;
}
$Unterkante = floor ($Vorgaben["Data"][$datDatenbank][$datID][$Feld] / $Staffelung) * $Staffelung;
$Oberkante = ceil ($Vorgaben["Data"][$datDatenbank][$datID][$Feld] / $Staffelung) * $Staffelung;
if ($Oberkante == $Unterkante)
{
$Oberkante += $Staffelung;
}
$Vorgaben["Data"][$datDatenbank][$datID][$NeuesFeld] = fncZahl ("zhlFormatieren.D" . $Genauigkeit, array ($Unterkante)) . " bis " . fncZahl ("zhlFormatieren.D" . $Genauigkeit, array ($Oberkante - $Differenz));
// $Ergebnis = $Vorgaben;
// unset ($Vorgaben);
}
break;
}
}
break;
case "Chiffre":
list ($Datenbank, $WerteFeld, $ObStandardFeld) = $Parameter;
$Chiffre = array ();
$fldID = $Datenbank[0]["fldID"];
if (is_array ($Datenbank))
foreach ($Datenbank as $ID => $X)
{
if (isset ($Datenbank[$ID][$fldID]) and $Datenbank[$ID][$fldID] and isset ($Datenbank[$ID][$WerteFeld]) and $Datenbank[$ID][$WerteFeld])
{
$Chiffre[$ID] = $Datenbank[$ID][$WerteFeld];
}
elseif ($ObStandardFeld and $Datenbank[$ID][$fldID] and $Datenbank[$ID][$ObStandardFeld])
{
$Chiffre[$ID] = $Datenbank[$ID][$ObStandardFeld];
}
}
$Datenbank[0]["Chiffre"][$WerteFeld] = $Chiffre;
return $Datenbank;
break;
case "datAendern":
{
list ($datDatenbank, $idID, $fldFeld, $NewValue) = $Parameter;
unset ($Parameter);
# var
$obNewValueBelassen = 0;
$dbWert = "";
$ifEmptyNewValue = 0;
list ($fldFeld, $Sprache) = explode ("|", $fldFeld . "|");
if (!$Sprache)
{
$Sprache = $Vorgaben["curLang"];
}
$PflichtFelder = $Vorgaben["Data"][$datDatenbank][0]["PflichtFelder"];
$WertUngueltig = 0;
$ObSchreiben = 0; // wird benutzt für Reihenfolge, weil virtuelles Feld, soll aber trotzdem DB schreiben
if (!$NewValue)
{
$ifEmptyNewValue = 1;
}
$FeldTyp = fncFeld ("dtfFeldtyp", $Vorgaben, array ($datDatenbank, $fldFeld, $idID));
$FeldTyp2 = fncFeld ("dtfFeldtyp", $Vorgaben, array ($datDatenbank, $fldFeld, $idID, 2));
// $FeldTyp3 = fncFeld ("dtfFeldtyp", $Vorgaben, array ($datDatenbank, $fldFeld, $idID, 3));
// $FeldTyp4 = fncFeld ("dtfFeldtyp", $Vorgaben, array ($datDatenbank, $fldFeld, $idID, 4));
# Debug
// //$dbgInfo = "___datAendern___"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
// //$dbgVariable = "datDatenbank"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//// //$dbgVariable = "idID"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "fldFeld"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "NewValue"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "FeldTyp"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "FeldTyp2"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// echo var_dump ($Vorgaben["ObKombiNeuerWert"]);
switch ($FeldTyp) // Datenaufbereitung, Pflichtfelder vorbelegen
{
default:
{
if (!$NewValue and isset ($PflichtFelder[$fldFeld]) and $PflichtFelder[$fldFeld])
{
$NewValue = $PflichtFelder[$fldFeld];
}
}
break;
case "dftInternet": // in datAendern
{
if (!$NewValue and $PflichtFelder[$fldFeld])
{
$NewValue = $PflichtFelder[$fldFeld];
}
if ($NewValue)
{
$NewValue = fncText ("ftxInternet", array ($NewValue));
}
}
break;
case "dftAuswahl": // in datAendern
case "dftDbAuswahl": // in datAendern
case "dftRgAuswahl": // in datAendern
{
if (!$NewValue and isset ($PflichtFelder[$fldFeld]) and $PflichtFelder[$fldFeld])
{
if (isset ($Vorgaben["Data"][$datDatenbank][$idID][$fldFeld]) and $Vorgaben["Data"][$datDatenbank][$idID][$fldFeld])
{
$NewValue = $Vorgaben["Data"][$datDatenbank][$idID][$fldFeld];
}
else
{
$NewValue = $PflichtFelder[$fldFeld];
}
}
# debug
// echo var_dump ($NewValue);
if ($NewValue and $NewValue[0] == "~")
{
$NewValue = mb_substr ($NewValue, 1);
}
}
break;
case "dftReihenfolge": // in datAendern
{
$ObSchreiben = 1;
list ($Vorgaben["Data"][$datDatenbank][0]["+Reihenfolge"][$idID]["relPosition"], $Vorgaben["Data"][$datDatenbank][0]["+Reihenfolge"][$idID]["idPosition"]) = explode (":", $NewValue);
}
break;
case "dftDbOptionen": // in datAendern
{
# IDs durch | getrennt in die DB geschrieben
$tmpSammleWerte = array ();
if (is_array ($_REQUEST))
foreach ($_REQUEST as $Variable => $Wert)
if (mb_substr ($Variable, 0, 8) == "NewValue" and $Wert)
{
$tmpSammleWerte[] = mb_substr ($Variable, 8);
# Variable im Request zurücksetzen
unset ($_REQUEST[$Variable]);
}
if (is_array ($tmpSammleWerte))
{
$NewValue = implode ("|", $tmpSammleWerte);
}
unset ($tmpSammleWerte);
}
break;
case "dftKombi": // in datAendern
{
if (mb_strtoupper ($NewValue) == "NEU" or $NewValue == "~") //Eingabefeld öffnen
{
$_REQUEST["OpenCoord"] = $_REQUEST["ChangeCoord"];
if (isset ($Vorgaben["Data"][$datDatenbank][$idID][$fldFeld]))
{
$_REQUEST["NewValue"] = $Vorgaben["Data"][$datDatenbank][$idID][$fldFeld];
}
else
{
$_REQUEST["NewValue"] = '';
}
$Vorgaben["ObKombiNeuerWert"] = 1;
$obNewValueBelassen = 1;
}
if (!$NewValue and $PflichtFelder[$fldFeld])
{
$NewValue = $PflichtFelder[$fldFeld];
}
# debug
// echo var_dump ($datDatenbank);
// echo var_dump ($fldFeld);
// echo var_dump ($Vorgaben["ObKombiNeuerWert"]);
}
break;
case "dftBild":
case "dftPDF":
case "dftVideo":
case "dftMP3":
case "dftDatei":
{
# Parameter der hochgeladenen Datei übernehmen
$UploadedFileName = $_FILES["NewValue"]["name"];
$UploadedFileType = $_FILES["NewValue"]["type"];
$UploadedFileTmpName = $_FILES["NewValue"]["tmp_name"];
$UploadedFileError = $_FILES["NewValue"]["error"];
$UploadedFileSize = $_FILES["NewValue"]["size"];
# wenn kein MIME-Typ geliefert wurde, Bildtyp prüfen
if (!$UploadedFileType)
{
$BildInfo = fncAltBild ("Info", $Vorgaben, array ($UploadedFileTmpName));
if ($BildInfo["ObVorhanden"])
{
$UploadedFileType = $BildInfo["Typ"];
}
}
# Debug
// //$dbgVariable = "BildInfo"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "UploadedFileName"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "UploadedFileType"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "UploadedFileTmpName"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "UploadedFileError"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "UploadedFileSize"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# wg. Übersichtlichkeit
$PfadOriginal = $UploadedFileTmpName;
# Prüfen ob gültig
$ObAllesOK = 0;
$ObMiniatur = 0;
# Debug
// //$dbgVariable = "ObAllesOK"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "FeldTyp"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if (!$UploadedFileError and $UploadedFileSize) switch ($FeldTyp)
{
case "dftBild":
{
$OrdnerDatei = $Vorgaben["Ordner"]["CBilder"];
switch (mb_strtoupper ($UploadedFileType))
{
case "JPG":
case "IMAGE/JPEG":
case "IMAGE/PJPEG":
{
$ObAllesOK = 1;
$ObMiniatur = 1;
$DateiEndung = ".jpg";
}
break;
case "PNG":
case "IMAGE/PNG":
case "IMAGE/X-PNG":
{
$ObAllesOK = 1;
$ObMiniatur = 1;
$DateiEndung = ".png";
}
break;
case "GIF":
case "IMAGE/GIF":
{
$ObAllesOK = 1;
$DateiEndung = ".gif";
}
break;
}
# Übergroße Bilder verkleinern wg. Performance (nicht GIF)
// if ($ObMiniatur)
// {
// list ($BildBreite, $BildHoehe) = getimagesize ($PfadOriginal);
// if ($BildBreite > 888 or $BildHoehe > 888)
// {
// fncAltBild ("MiniaturErzeugen.888", $Vorgaben, array ($PfadOriginal, $PfadOriginal));
// }
// }
}
break;
case "dftDatei":
{
$OrdnerDatei = $Vorgaben["Ordner"]["Media"];
switch (mb_strtoupper ($UploadedFileType))
{
case "ZIP":
case "APPLICATION/X-ZIP-COMPRESSED":
{
$ObAllesOK = 1;
$DateiEndung = ".zip";
}
break;
case "RAR":
case "APPLICATION/OCTET-STREAM":
{
$ObAllesOK = 1;
$DateiEndung = ".rar";
}
break;
}
}
break;
case "dftPDF":
{
$OrdnerDatei = $Vorgaben["Ordner"]["Media"];
switch (mb_strtoupper ($UploadedFileType))
{
case "PDF": // redundant
case "APPLICATION/PDF":
case "APPLICATION/SAVE-AS":
{
$ObAllesOK = 1;
$DateiEndung = ".pdf";
}
break;
}
}
break;
case "dftMP3":
{
$OrdnerDatei = $Vorgaben["Ordner"]["Media"];
switch (mb_strtoupper ($UploadedFileType))
{
case "MP3":
case "AUDIO/MPEG":
case "AUDIO/MP3":
{
$ObAllesOK = 1;
$DateiEndung = ".mp3";
}
break;
}
}
break;
case "dftVideo":
{
$OrdnerDatei = $Vorgaben["Ordner"]["Media"];
switch (mb_strtoupper ($UploadedFileType))
{
case "AVI":
case "VIDEO/AVI":
{
$ObAllesOK = 1;
$DateiEndung = ".mov";
}
break;
case "MOV":
case "VIDEO/QUICKTIME":
{
$ObAllesOK = 1;
$DateiEndung = ".mov";
}
break;
case "WMV":
case "VIDEO/X-MS-WMV":
{
$ObAllesOK = 1;
$DateiEndung = ".wmv";
}
break;
case "MPG":
case "VIDEO/MPEG":
{
$ObAllesOK = 1;
$DateiEndung = ".mpg";
}
break;
case "MP4":
case "VIDEO/MP4":
{
$ObAllesOK = 1;
$DateiEndung = ".mp4";
}
break;
case "FLV":
case "APPLICATION/OCTET-STREAM":
{
$ObAllesOK = 1;
$DateiEndung = ".flv";
}
break;
}
}
break;
}
# Debug
// //$dbgVariable = "ObAllesOK"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if ($ObAllesOK)
{
$DateiName = fncOrdner ("rdnExklusivname", array ($OrdnerDatei)) . $DateiEndung;
$PfadDuplikat = $OrdnerDatei . $DateiName;
if (fncDatei ("fdtKopieren.", array ($PfadOriginal, $PfadDuplikat)))
{
$NewValue = $DateiName;
}
}
}
break;
case "dftJahr":
{
$NewValue = fncZahl ("zhlRunden", array (funZahl ("Importieren.DE", $Vorgaben, array ($NewValue))));
if (!$NewValue and $PflichtFelder[$fldFeld]) switch (mb_strtoupper ($PflichtFelder[$fldFeld]))
{
case "DIESES":
{
$NewValue = funDatum ("Heute.4", $Vorgaben, array ());
}
break;
}
if (!$NewValue)
{
$NewValue = "";
}
}
break;
case "dftRechte": // in datAendern
{
if (!$NewValue and $PflichtFelder[$fldFeld])
{
$NewValue = $PflichtFelder[$fldFeld];
}
$NewValue *= 1;
if ($NewValue > $Vorgaben["Benutzer"]["Level"])
{
$NewValue = $Vorgaben["Benutzer"]["Level"];
}
}
break;
case "dftKennwort": // in datAendern
{
if (!$NewValue and $PflichtFelder[$fldFeld])
{
$NewValue = $PflichtFelder[$fldFeld];
}
$NewValue = md5 ($NewValue);
}
break;
case "dftDatum": // in datAendern
{
if (!$NewValue and $PflichtFelder[$fldFeld])
{
$NewValue = $PflichtFelder[$fldFeld];
}
$NewValue = fncDatum ("dtmEingabe.AV", array ($NewValue));
}
break;
case "dftUhrzeit": // in datAendern
{
# Debug
//$dbgInfo = "dftUhrzeit"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
$NewValue = fncUhrzeit ("hrzEingabe.AV", array ($NewValue));
}
break;
case "dftBetrag": // in datAendern
{
// var_dump ($NewValue);
$NewValue = fncZahl ("zhlRunden", array (funZahl ("Importieren.DE", $Vorgaben, array ($NewValue)), 2));
// var_dump ($NewValue);
}
break;
case "dftStunden": // in datAendern
{
$NewValue = fncZahl ("zhlRunden", array (funZahl ("Importieren.DE", $Vorgaben, array ($NewValue)), 2));
$VorKomma = floor ($NewValue);
$NachKomma = $NewValue - $VorKomma;
$Geviertelt = $NachKomma / .25;
if ($Geviertelt != floor ($Geviertelt))
{
$NachKomma = ceil ($Geviertelt) * .25;
$NewValue = $VorKomma + $NachKomma;
}
if (!$NewValue and $PflichtFelder[$fldFeld])
{
$NewValue = $PflichtFelder[$fldFeld];
}
}
break;
case "dftZahl": // in datAendern
{
$NewValue = fncZahl ("zhlRunden", array (funZahl ("Importieren.DE", $Vorgaben, array ($NewValue))));
if (!$NewValue and $PflichtFelder[$fldFeld])
{
$NewValue = $PflichtFelder[$fldFeld];
}
if (isset ($Vorgaben["Data"][$datDatenbank][0]["WertebereichOb"][$fldFeld]))
if ($Vorgaben["Data"][$datDatenbank][0]["WertebereichOb"][$fldFeld])
{
if ($NewValue < $Vorgaben["Data"][$datDatenbank][0]["WertebereichMin"][$fldFeld])
{
$NewValue = $Vorgaben["Data"][$datDatenbank][0]["WertebereichMin"][$fldFeld];
}
if ($NewValue > $Vorgaben["Data"][$datDatenbank][0]["WertebereichMax"][$fldFeld])
{
$NewValue = $Vorgaben["Data"][$datDatenbank][0]["WertebereichMax"][$fldFeld];
}
}
}
break;
case "dftText": // in datAendern
case "dftTxtfeld": // in datAendern
{
if ($NewValue == "" and $PflichtFelder[$fldFeld])
switch (mb_strtoupper ($PflichtFelder[$fldFeld]))
{
default:
{
$NewValue = $PflichtFelder[$fldFeld];
}
break;
case "BENUTZER":
{
$NewValue = $Vorgaben["Benutzer"]["Name"];
}
break;
}
// list ($X, $MaxZeichen) = explode (",", $Vorgaben["Data"][$datDatenbank][0]["Optionen"][$fldFeld] . ",");
//
// if ($MaxZeichen)
// {
// $NewValue = funText ("HartKuerzen." . $MaxZeichen, $Vorgaben, array ($NewValue));
// }
}
break;
case "dftExklusiv":
{
if ($Vorgaben["Data"][$datDatenbank][0]["ExklFldUmgebung"][$fldFeld])
{
# Umgebung ermitteln
list ($fldFeld1, $fldFeld2) = explode ("|", $Vorgaben["Data"][$datDatenbank][0]["ExklFldUmgebung"][$fldFeld] . "|");
$wrtWert1 = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idID, $fldFeld1));
if (!$wrtWert1)
{
$wrtWert1 = 0;
}
// $wrtWert2 = explode ('|', fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idID, $fldFeld2)))[0];
$wrtWert2 = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idID, $fldFeld2));
if (!$wrtWert2)
{
$wrtWert2 = 0;
}
$fldUmgebung = $wrtWert1 . ";" . $wrtWert2; // Semikolon, weil Werte verbunden werden
# Debug
//$dbgInfo = "sapperlot"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
//$dbgVariable = "wrtWert1"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "wrtWert2"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "fldUmgebung"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "datDatenbank"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if ($NewValue) // setzen
{
if (isset ($Vorgaben["Data"][$datDatenbank][0]["ExklusivIDs"][$fldFeld][$fldUmgebung])) // gab es einen bisherigen Exklusiv-Datensatz?
{
$Vorgaben["Data"][$datDatenbank]
[
$Vorgaben["Data"][$datDatenbank][0]["ExklusivIDs"][$fldFeld][$fldUmgebung]
]
[$fldFeld] = 0; // dann setze diesen auf Null
}
# neuen Exklusiv-Datensatz in Kopf setzen
$Vorgaben["Data"][$datDatenbank][0]["ExklusivIDs"][$fldFeld][$fldUmgebung] = $idID;
}
else // entfernen
{
# Exklusiv-Datensatz in Kopf auf Null setzen
$Vorgaben["Data"][$datDatenbank][0]["ExklusivIDs"][$fldFeld][$fldUmgebung] = 0;
}
}
else
{
if ($NewValue) // setzen
{
# bisherigen Exklusiv-Datensatz auf Null setzen
$Vorgaben["Data"][$datDatenbank][$Vorgaben["Data"][$datDatenbank][0]["ExklusivIDs"][$fldFeld]][$fldFeld] = 0;
# neuen Exklusiv-Datensatz in Kopf setzen
$Vorgaben["Data"][$datDatenbank][0]["ExklusivIDs"][$fldFeld] = $idID;
}
else // entfernen
{
# Exklusiv-Datensatz in Kopf auf Null setzen
$Vorgaben["Data"][$datDatenbank][0]["ExklusivIDs"][$fldFeld] = 0;
}
}
# Debug
// $xdbNhKp = $Vorgaben["Data"]["xdbNhKp"][0];
// //$dbgVariable = "xdbNhKp"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
break;
case "dftSymbol": // --> checken, bald ablösen
case "dftSymbol2":
{
# Debug
// //$dbgInfo = "SYMBOL/2"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
// //$dbgVariable = "NewValue"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if ($Vorgaben["Data"][$datDatenbank][0]["ObFelder"][$fldFeld]) switch ($FeldTyp2)
{
default:
# Debug
// //$dbgInfo = "default"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
// //$dbgVariable = "NewValue"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
switch (mb_strtoupper ($NewValue)) // ob-Feld als Symbol
{
default: // eigentlich unwahrscheinlich aber möglich, daß ein hier nicht aufgeführter Wert geliefert wird, dann jedenfalls auf 0 setzen
case "STATUS_UNGREEN": // Markierung soll entfernt werden
$NewValue = 0;
break;
case "STATUS_RED": // Markierung setzen
$NewValue = 1;
break;
}
break;
case "regObSymbole3":
{
# Debug
// //$dbgInfo = "REGOBSYMBOLE3"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
// //$dbgVariable = "NewValue"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
switch (mb_strtoupper ($NewValue)) // ob-Feld als Symbol
{
default: // eigentlich unwahrscheinlich aber möglich, daß ein hier nicht aufgeführter Wert geliefert wird, dann jedenfalls auf 0 setzen
case "STATUS_UNGREEN": // Markierung soll entfernt werden
$NewValue = 2;
break;
case "STATUS_RED": // Markierung setzen
$NewValue = 1;
break;
case "STATUS_GRAY":
$NewValue = 0;
break;
}
}
break;
}
$DBTypen[$Datenbank]["FeldTypen2"][$Feld][0] = "regObSymbole"; // ????
}
break;
case "dftEmail":
{
if ($NewValue and !funEingabe ("Format.EMail", $Vorgaben, array ($NewValue)))
{
$WertUngueltig = 1;
}
elseif (!$NewValue and $PflichtFelder[$fldFeld])
{
$NewValue = mb_strtolower ($PflichtFelder[$fldFeld]);
}
else
{
$NewValue = mb_strtolower ($NewValue);
}
}
break;
}
# vorhandenen Wert ermitteln
if (isset ($Vorgaben["Data"][$datDatenbank][0]["VokabelFelder"][$fldFeld]) and $Vorgaben["Data"][$datDatenbank][0]["VokabelFelder"][$fldFeld])
{
// $dbWert = strval ($Vorgaben["Data"]["datVkb"][($Sprache . "|" . $datDatenbank . "|" . $idID . "|" . $fldFeld)]["Wert"]);
if (isset ($Vorgaben["Data"][$Vorgaben["Data"][$datDatenbank][0]["dbVokabeln"]][($Sprache . "|" . $idID . "|" . $fldFeld)]["Wert"]))
{
$dbWert = strval ($Vorgaben["Data"][$Vorgaben["Data"][$datDatenbank][0]["dbVokabeln"]][($Sprache . "|" . $idID . "|" . $fldFeld)]["Wert"]);
}
# Debug
// //$dbgInfo = "____VokabelFelder___"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
// //$dbgVariable = "dbWert"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Sprache"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "datDatenbank"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "idID"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "fldFeld"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
elseif (isset ($Vorgaben["Data"][$datDatenbank][$idID][$fldFeld]))
{
$dbWert = strval ($Vorgaben["Data"][$datDatenbank][$idID][$fldFeld]);
}
# Debug
// //$dbgVariable = "WertUngueltig"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// echo var_dump ($Vorgaben["ObKombiNeuerWert"]);
if
(
!$WertUngueltig
and
(
!isset ($Vorgaben["ObKombiNeuerWert"])
or
!$Vorgaben["ObKombiNeuerWert"]
)
and
strval ($dbWert) != strval ($NewValue)
) // nur wenn der neue Wert vom bisherigen abweicht
{
# Debug
//$dbgInfo = "JA"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
# Follow
$NewValue = fncFollow ("flwDatenfeld", $Vorgaben, array ($datDatenbank, $idID, $fldFeld, $NewValue));
# Wert ist gültig und soll die Datenbank ändern
switch ($FeldTyp) // weitere Schritte
{
case "dftBild": // altes Bild entsorgen
{
fncBild ("bldEntfernen", array ($Vorgaben["Ordner"]["CBilder"], $dbWert));
}
break;
case "dftPDF": // alte Datei entsorgen
{
if (fncDatei ("fdtEntfernen.", array ($Vorgaben["Ordner"]["Media"] . $dbWert)))
{
}
}
break;
}
# weitere Felder mit bevorzugtem Wert ändern?
if (isset ($Vorgaben["Data"][$datDatenbank][0]["BevorzugteWerteFelder"][$fldFeld]))
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["BevorzugteWerteFelder"][$fldFeld]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["BevorzugteWerteFelder"][$fldFeld] as $felAuchAendern => $X)
{
funDatenbank ("BedingtesAendern.BevorzugterWert", $Vorgaben, array ($datDatenbank, $idID, $fldFeld, $NewValue, $felAuchAendern));
}
# weitere Felder mit bedingtem Wert ändern?
if (isset ($Vorgaben["Data"][$datDatenbank][0]["BedingteWerteFelder"][$fldFeld]))
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["BedingteWerteFelder"][$fldFeld]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["BedingteWerteFelder"][$fldFeld] as $felAuchAendern => $WerteQuelle)
{
funDatenbank ("BedingtesAendern.BedingterWert", $Vorgaben, array ($datDatenbank, $idID, $fldFeld, $NewValue, $felAuchAendern, $WerteQuelle));
}
# jetzt in die Datenbank schreiben
if ($fldFeld == $Vorgaben["Data"][$datDatenbank][0]["fldID"]) // Datensatz-ID geändert?
{
# Debug
//$dbgInfo = "Datensatz-ID geändert"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
# Datensatz auf neue ID kopieren
if (isset ($Vorgaben["Data"][$datDatenbank][$idID]))
{
$Vorgaben["Data"][$datDatenbank][$NewValue] = $Vorgaben["Data"][$datDatenbank][$idID];
}
# Datensatz auf alter ID zum löschen markieren
$Vorgaben["Data"][$datDatenbank][$idID][$fldFeld] = 0; // fldFeld == fldID lt. Bedingung
# neues ID-Feld korrekt füllen
$Vorgaben["Data"][$datDatenbank][$NewValue][$fldFeld] = $NewValue;
# Sortierung ergänzen
$Vorgaben["Data"][$datDatenbank][0]["Sortierung"][$NewValue] = "";
# evtl. Item anpassen
if (isset ($Vorgaben["Data"][$datDatenbank][0]["fldDetails"]) and $Vorgaben["Data"][$datDatenbank][0]["fldDetails"] and $_REQUEST[RECORD])
{
$_REQUEST[RECORD] = $NewValue;
}
# Besitz entsprechend ändern
if (isset ($Vorgaben["Data"][$datDatenbank][0]["Besitz"]))
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["Besitz"]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["Besitz"] as $dbBesitz => $dfBesitz)
if (is_array ($Vorgaben["Data"][$dbBesitz]))
foreach ($Vorgaben["Data"][$dbBesitz] as $idBesitz => $tmp)
{
unset ($tmp);
if ($idBesitz and $Vorgaben["Data"][$dbBesitz][$idBesitz][$dfBesitz] == $idID)
{
$Vorgaben = fncDatensatz ("DsEntfernen", $Vorgaben, array ($dbBesitz, $idBesitz));
funDatenbank ("datAendern", $Vorgaben, array ($dbBesitz, $idBesitz, $dfBesitz, $NewValue));
}
}
# ID jetzt neu setzen
$idID = $NewValue;
}
else
{
if (isset ($Vorgaben["Data"][$datDatenbank][0]["VokabelFelder"][$fldFeld]))
if ($Vorgaben["Data"][$datDatenbank][0]["VokabelFelder"][$fldFeld])
{
if (is_array ($Vorgaben["AktiveSprachen"])) foreach ($Vorgaben["AktiveSprachen"] as $idSprache => $krzSprache)
{
// $idVokabel = $krzSprache . "|" . $datDatenbank . "|" . $idID . "|" . $fldFeld;
$idVokabel = $krzSprache . "|" . $idID . "|" . $fldFeld;
if ($krzSprache == $Sprache) // Aktuelle Sprache
{
if ($PflichtFelder[$fldFeld] and $ifEmptyNewValue) // Pflichtfeld, aber übergebener Wert leer
{
// funDatenbank ("datAendern", $Vorgaben, array ("datVkb", $idVokabel, "Wert", fncPhrase ($Vorgaben, array ($NewValue . "", "G", $krzSprache))));
funDatenbank ("datAendern", $Vorgaben, array ($Vorgaben["Data"][$datDatenbank][0]["dbVokabeln"], $idVokabel, "Wert", fncPhrase ($Vorgaben, array ($NewValue, "G", $krzSprache))));
}
else // Wert, egal ob leer oder nicht, muss geschrieben werden
{
// funDatenbank ("datAendern", $Vorgaben, array ("datVkb", $idVokabel, "Wert", $NewValue));
funDatenbank ("datAendern", $Vorgaben, array ($Vorgaben["Data"][$datDatenbank][0]["dbVokabeln"], $idVokabel, "Wert", $NewValue));
}
}
else // nicht-aktuelle Sprache
{
// if ($PflichtFelder[$fldFeld] and !$Vorgaben["Data"]["datVkb"][$idVokabel]["Wert"]) // Pflichtfeld, aber vorhandener Wert leer
if ($PflichtFelder[$fldFeld] and isset ($Vorgaben["Data"][$Vorgaben["Data"][$datDatenbank][0]["dbVokabeln"]][$idVokabel]["Wert"]) and !$Vorgaben["Data"][$Vorgaben["Data"][$datDatenbank][0]["dbVokabeln"]][$idVokabel]["Wert"]) // Pflichtfeld, aber vorhandener Wert leer
{
// funDatenbank ("datAendern", $Vorgaben, array ("datVkb", $idVokabel, "Wert", fncPhrase ($Vorgaben, array ($NewValue . "", "G", $krzSprache))));
funDatenbank ("datAendern", $Vorgaben, array ($Vorgaben["Data"][$datDatenbank][0]["dbVokabeln"], $idVokabel, "Wert", fncPhrase ($Vorgaben, array ($NewValue, "G", $krzSprache))));
}
}
}
# wenn das Vokabelheft verändert wurde, müssen in Hauptdatenbank datDatenbank in jedem Fall die Schattenfeölder neu erzeugt werden, auch wenn dort der Wert (= VokabelID) unverändert blieb
if (isset ($Vorgaben["DatenbankenGeaendert"][$Vorgaben["Data"][$datDatenbank][0]["dbVokabeln"]]))
if ($Vorgaben["DatenbankenGeaendert"][$Vorgaben["Data"][$datDatenbank][0]["dbVokabeln"]])
{
$Vorgaben["DatenbankenGeaendert"][$datDatenbank] = 1;
}
# jetzt VokabelID ins benutzte Feld schreiben
$NewValue = "";
}
$Vorgaben["Data"][$datDatenbank][$idID][$Vorgaben["Data"][$datDatenbank][0]["fldID"]] = $idID;
$Vorgaben["Data"][$datDatenbank][$idID][$fldFeld] = $NewValue;
$Vorgaben["Data"][$datDatenbank][0]["Sortierung"][$idID] = $NewValue;
# Debug
// //$dbgVariable = "datDatenbank"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "idID"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "NewValue"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "ObSchreiben"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $dbgKzFl = $Vorgaben["Data"][$datDatenbank][0]["Kopfzeile"][$fldFeld];
// //$dbgVariable = "dbgKzFl"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
# Änderung kennzeichnen
$Vorgaben["DatenbankenGeaendert"][$datDatenbank] = 1;
# NewValue zurücksetzen
if (!$obNewValueBelassen) // bei Kombi erster Schritt nicht zurücksetzen
{
/*
nicht so:
unset ($_REQUEST["NewValue"]);
*/
$_REQUEST["NewValue"] = "";
}
# physisch oder virtuell
if ((isset ($Vorgaben["Data"][$datDatenbank][0]["Kopfzeile"][$fldFeld]) and $Vorgaben["Data"][$datDatenbank][0]["Kopfzeile"][$fldFeld]) or $ObSchreiben) // physisch? dann DB schreiben
{
$Vorgaben["SchreibeDatenbanken"][$datDatenbank] = 1;
}
else // virtuelles Feld in Kopf aufnehmen
{
$Vorgaben["Data"][$datDatenbank][0]["Kopfzeile"][$fldFeld] = 0;
}
# Debug
// $dbgSchreibeDb = $Vorgaben["SchreibeDatenbanken"];
// //$dbgVariable = "dbgSchreibeDb"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Trigger
$Vorgaben = fncTrigger ("trgDatenbank", $Vorgaben, array ($datDatenbank, $idID, $fldFeld));
}
# ChangeCoord aktualisieren
$_REQUEST["ChangeCoord"] = $datDatenbank . "," . $idID . "," . $fldFeld . "," . $Sprache;
// $Ergebnis = $Vorgaben;
// unset ($Vorgaben);
}
break;
}
// return $Ergebnis;
}
function funDatei ($Aktion, $Vorgaben, $Parameter)
{
/*
ZIPENTPACKEN
if (funDatei ("ZIPEntpacken", $Vorgaben, array ($PfadZIP, $ZielOrdner)))
UMBENENNEN
if (funDatei ("Umbenennen", $Vorgaben, array ($PfadAlterName, $PfadNeuerName)))
{
}
HOCHLADEN
funDatei ("Hochladen", $Vorgaben, array ($PfadQuellDatei, $ZielDateiName, $FTPServer, $FTPBenutzer, $FTPKennwort));
ZIPPEN
- Achtung! PHP 5 und höher erforderlich, muß noch so geschrieben werden, daß er den Code nur dann zeigt (include oder so)
funDatei ("Zippen", $Vorgaben, array ($PfadQuellDatei, $ZielDateiName, $PfadZIP));
LESEN
$Inhalte = funDatei ("Lesen", $Vorgaben, array ($PfadDatei));
LESEN aus Internet (via http)
$Inhalte = funDatei ("Lesen.Internet", $Vorgaben, array ($InternetAdresse));
SCHREIBEN
funDatei ("Schreiben.ZIP", $Vorgaben, array ($Inhalte, $ZielDateiName, $PfadZIP));
ENTFERNEN
if (fncDatei ("fdtEntfernen.", array ($PfadDatei)))
{
}
*/
list ($Aktion1, $Aktion2) = explode (".", $Aktion . "..");
switch (mb_strtoupper ($Aktion1))
{
// case "ZIPENTPACKEN":
// {
// list ($PfadZIP, $ZielOrdner) = $Parameter;
// unset ($Parameter);
//
// if (funOrdner ("Erstellen", $Vorgaben, array ($ZielOrdner, "index.html")))
// if (fncOrdner ("rdnLeeren.I", array ($ZielOrdner)))
// if ($ZIP = new ZipArchive ())
// if ($ZIP -> open ($PfadZIP) === TRUE)
// if ($ZIP -> extractTo ($ZielOrdner))
// if ($ZIP -> close ())
// {
// $Ergebnis = true;
// }
// else
// {
// $Ergebnis = false;
// }
// unset ($Vorgaben);
// }
// break;
case "HOCHLADEN":
{
// //$dbgInfo = "Start"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
list ($PfadQuellDatei, $ZielDateiName, $FTPServer, $FTPBenutzer, $FTPKennwort) = $Parameter;
unset ($Parameter);
// //$dbgVariable = "PfadQuellDatei"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "ZielDateiName"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "FTPServer"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "FTPBenutzer"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "FTPKennwort"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Bezeichner"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if ($Vorgaben["ObFTPUpload"]) if ($FTP = ftp_connect ($FTPServer)) if (ftp_login ($FTP, $FTPBenutzer, $FTPKennwort)) if (ftp_put ($FTP, $ZielDateiName, $PfadQuellDatei, FTP_BINARY)) if (ftp_close ($FTP))
{
$Ergebnis = true;
}
else
{
$Ergebnis = false;
}
// // $dbgBlock = ""; echo fncDebug ("Block.Z", array ($Vorgaben["ObDebug"]));
unset ($Vorgaben);
}
break;
// case "ZIPPEN":
// {
// list ($PfadQuellDatei, $ZielDateiName, $PfadZIP) = $Parameter;
// unset ($Parameter);
// unset ($Vorgaben);
//
// if ($ZIP = new ZipArchive ())
// if ($ZIP->open ($PfadZIP, ZIPARCHIVE::CREATE) === TRUE)
// if ($ZIP -> addFile ($PfadQuellDatei, $ZielDateiName))
// if ($ZIP -> close ())
// {
// $Ergebnis = true;
// }
// else
// {
// $Ergebnis = false;
// }
// }
// break;
case "UMBENENNEN":
{
list ($PfadAlterName, $PfadNeuerName) = $Parameter;
unset ($Parameter);
unset ($Vorgaben);
$Ergebnis = @rename ($PfadAlterName, $PfadNeuerName);
}
break;
case "LESEN":
{
switch (mb_strtoupper ($Aktion2))
{
default: // lokal
{
list ($PfadDatei) = $Parameter;
unset ($Parameter);
$Ergebnis = array ();
$DateiGroesse = fncDatei ("fdtGroesse.", array ($PfadDatei));
if (is_file ($PfadDatei)) if ($Datei = fopen ($PfadDatei, "r"))
{
while ($Zeile = fgets ($Datei, ($DateiGroesse * 2)))
{
$Ergebnis[] = trim ($Zeile);
}
fclose ($Datei);
}
unset ($Vorgaben);
}
break;
case "INTERNET":
{
list ($InternetAdresse) = $Parameter;
unset ($Parameter);
unset ($Vorgaben);
$Ergebnis = array ();
$Datei = fopen ($InternetAdresse, "r");
while ($Zeile = fgets ($Datei, 2409000))
{
$Ergebnis[] = trim ($Zeile);
}
fclose ($Datei);
}
break;
}
}
break;
// case "SCHREIBEN":
// {
// switch (mb_strtoupper ($Aktion2))
// {
// case "ZIP":
// {
// list ($Inhalte, $ZielDateiName, $PfadZIP) = $Parameter;
// unset ($Parameter);
// unset ($Vorgaben);
//
// # Inhalte vobereiten
// if (is_array ($Inhalte))
// {
// $Inhalte = implode ("\n", $Inhalte);
// }
// $Inhalte .= "\n";
//
// # Erstellen eines Zip-Archivs
// if ($ZIP = new ZipArchive ()) if ($ZIP -> open ($PfadZIP, ZIPARCHIVE::CREATE) === true) if ($addFromString = $ZIP -> addFromString ($ZielDateiName, $Inhalte)) if ($close = $ZIP -> close ())
// {
// $Ergebnis = true;
// }
// else
// {
// $Ergebnis = false;
// }
// unset ($Inhalte);
// }
// break;
// }
// }
// break;
}
return $Ergebnis;
}
function fncAltBild ($Aktion, $Vorgaben, $Parameter)
{
/*
GEVIERT
$HTML[] = fncAltBild ("Geviert", $Vorgaben, array (30, 30));
ANZEIGEN
$HTML[] = fncAltBild ("Anzeigen.Anker", $Vorgaben, array ($PfadBild, $Klasse, $Stil, $Titel));
BILDBOX
- Optionen:
BildOrdner: S=SystemBildOrdner [Standard] / C=ClientBildOrdner / U=UploadOrdner
Ausrichtung: L=Links / M=Zentriert / R=Rechts [Standard]
Umfluß: X=kein Umfluß [Standard ist abhängig von Ausrichtung]
Zoom: Z=Zoom
LegendenVariante: 1 [Standard] / 2 / 3
$HTML[] = fncAltBild ("BildBox.Optionen.BildGroesse", $Vorgaben, array ($BildDatei, $Legende, $ObCursorHand));
OBVORHER
$BildVorher = fncAltBild ("ObVorher.Optionen", $Vorgaben, array ($BildDatei));
OBNACHHER
$BildNachher = fncAltBild ("ObNachher.Optionen", $Vorgaben, array ($BildDatei));
INFO
$BildInfo = fncAltBild ("Info", $Vorgaben, array ($PfadBild));
BILDTYP
- z.B. hochgeladene Datei prüfen ob gültiges Bildformat
if (fncAltBild ("BildTyp", $Vorgaben, array ($BildDatei["tmp_name"], "jpg, png")))
{
}
OBVORHANDEN (MINIATUR)
- pürfen, ob Bild(-Miniatur) vorhanden, wenn nicht, wird Miniatur bereitgestellt
if (fncAltBild ("ObVorhanden.Optionen.BildGroesse", $Vorgaben, array ($BildDatei)))
{
}
BESCHNEIDEN
if (fncAltBild ("Beschneiden.3:2", $Vorgaben, array ($PfadOriginal, $PfadDuplikat)))
if (fncAltBild ("Beschneiden.3:2.L", $Vorgaben, array ($PfadOriginal, $PfadDuplikat)))
if (fncAltBild ("Beschneiden.3:2.U", $Vorgaben, array ($PfadOriginal, $PfadDuplikat)))
{
}
VORLADEN
- Standard: SystemOrdner
$HTML[] = fncAltBild ("Vorladen", $Vorgaben, array ());
$HTML[] = fncAltBild ("Vorladen.KlasseHGFarbe", $Vorgaben, array ());
$HTML[] = fncAltBild ("Vorladen", $Vorgaben, array ($OrdnerSpeziell));
*/
list ($Aktion1, $Aktion2, $Aktion3, $Aktion4, $Aktion5) = explode (".", $Aktion . "....");
$Ergebnis = "";
switch (mb_strtoupper ($Aktion1))
{
case "GEVIERT":
list ($Breite, $Hoehe) = $Parameter;
$Ergebnis = fncAltBild ("Anzeigen.BxH." . $Breite . "." . $Hoehe, $Vorgaben, array ($Vorgaben["Ordner"]["SDesign"] . "system_geviert.gif"));
break;
case "OBVORHER":
list ($BildDatei) = $Parameter;
$Optionen = $Aktion2; // S,C
if (mb_strstr ($Optionen, "C"))
{
$OrdnerBilder = $Vorgaben["Ordner"]["CBilder"]; // Kundenbilder
}
else
{
$OrdnerBilder = $Vorgaben["Ordner"]["SBilder"]; // Systembilder
}
list ($DateiName, $Endung) = explode (".", $BildDatei);
list ($BildName, $LfdNr) = explode ("-", $DateiName);
$LfdNrVorher = ((1 * $LfdNr) - 1);
if ($LfdNrVorher >= 0)
{
if (!$LfdNrVorher)
{
$BildVorher = $BildName . "." . $Endung;
}
else
{
$BildVorher = $BildName . "-" . $LfdNrVorher . "." . $Endung;
}
$PfadVorher = $OrdnerBilder . $BildVorher;
if (is_file ($PfadVorher))
{
$Ergebnis = $BildVorher;
}
}
break;
case "OBNACHHER":
list ($BildDatei) = $Parameter;
$Optionen = $Aktion2; // S,C
if (mb_strstr ($Optionen, "C"))
{
$OrdnerBilder = $Vorgaben["Ordner"]["CBilder"]; // Kundenbilder
}
else
{
$OrdnerBilder = $Vorgaben["Ordner"]["SBilder"]; // Systembilder
}
list ($DateiName, $Endung) = explode (".", $BildDatei);
list ($BildName, $LfdNr) = explode ("-", $DateiName);
$LfdNrNachher = ((1 * $LfdNr) + 1);
$BildNachher = $BildName . "-" . $LfdNrNachher . "." . $Endung;
$PfadNachher = $OrdnerBilder . $BildNachher;
if (is_file ($PfadNachher))
{
$Ergebnis = $BildNachher;
}
break;
case "INFO":
list ($PfadBild) = $Parameter;
$BildInfo = array ();
$BildInfo["Pfad"] = $PfadBild;
if (!is_file ($PfadBild))
{
$BildInfo["ObVorhanden"] = 0;
}
else
{
$BildInfo["ObVorhanden"] = 1;
list ($Breite, $Hoehe, $Typ) = getimagesize ($PfadBild);
if ($Breite > $Hoehe)
{
$BildInfo["Format"] = "quer";
$BildInfo["Max"] = $Breite;
}
else
{
$BildInfo["Format"] = "hoch";
$BildInfo["Max"] = $Hoehe;
}
$BildInfo["Breite"] = $Breite;
$BildInfo["Hoehe"] = $Hoehe;
switch (1 * $Typ)
{
case 1:
$BildInfo["Typ"] = "gif";
break;
case 2:
$BildInfo["Typ"] = "jpg";
break;
case 3:
$BildInfo["Typ"] = "png";
break;
case 4:
$BildInfo["Typ"] = "swf";
break;
default:
$BildInfo["Typ"] = "[unbekannt]";
break;
}
}
$Ergebnis = $BildInfo;
break;
case "BILDBOX":
# Debug
// $dbgBlock = "BILDBOX"; echo fncDebug ("Block.A", array ($Vorgaben["ObDebug"], $dbgBlock));
list ($BildDatei, $Legende, $ObCursorHand) = $Parameter;
$Optionen = $Aktion2; // S,C,U,L,M,R,Z,1,2,3
$BildGroesse = (1 * $Aktion3); // max. Ausdehnung in Pixel
list ($X, $Endung) = explode (".", $BildDatei);
if (mb_strtoupper ($Endung) == "GIF")
{
$ObGIF = 1;
$UnterOrdner = "";
}
else
{
$ObGIF = 0;
$UnterOrdner = $BildGroesse . "/";
}
# Debug
// //$dbgVariable = "BildDatei"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Optionen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
#
if (mb_strstr ($Optionen, "U"))
{
$OrdnerBilder = $Vorgaben["Ordner"]["Upload"]; // Kunde: Upload
$PfadBild = $OrdnerBilder . $BildDatei;
}
elseif (mb_strstr ($Optionen, "C"))
{
$OrdnerBilder = $Vorgaben["Ordner"]["CBilder"]; // Kundenbilder
$PfadBild = $OrdnerBilder . $UnterOrdner . $BildDatei;
}
else
{
$OrdnerBilder = $Vorgaben["Ordner"]["SBilder"]; // Systembilder
$PfadBild = $OrdnerBilder . $UnterOrdner . $BildDatei;
}
$BildBoxStrichFarbe = $Vorgaben["BildBoxStrichFarbe"];
$BildBoxHGFarbe = $Vorgaben["BildBoxHGFarbe"];
$PfadBildBoxLegende = $Vorgaben["PfadBildBoxLegende"];
#
# Steg entsprechend Position
$Steg = (1 * $Vorgaben["BildBox"]["Steg"]);
if (!$Steg)
{
$Steg = 15;
}
$VersatzOben = (1 * $Vorgaben["BildBox"]["VersatzOben"]);
if (!$VersatzOben)
{
$VersatzOben = 5;
}
$RahmenDicke = (1 * $Vorgaben["BildBox"]["RahmenDicke"]);
$LegendenStrichDicke = (1 * $Vorgaben["BildBox"]["LegendenStrichDicke"]);
$LegendenStrichFarbe = $Vorgaben["BildBox"]["LegendenStrichFarbe"];
if (!$LegendenStrichFarbe)
{
$LegendenStrichFarbe = "#000000";
}
$Anker = $Vorgaben["BildBox"]["Anker"];
if (!$BildBoxStrichFarbe) $BildBoxStrichFarbe = "#000000";
if (!$BildBoxHGFarbe) $BildBoxHGFarbe = "#CCCCCC";
$ReExtras = $Vorgaben["ReExtras"];
// $_REQUEST = $_REQUEST;
// //$dbgVariable = "PfadBild"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Debug
// //$dbgVariable = "PfadBild"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$HTML = array ();
if (is_file ($PfadBild))
{
$LegendenStrich = $ObHand = $ObUmfluss = $ObPolster = $ObBreite = $ObZentriert = $Stil1 = $Stil2 = $Stil4 = $Stil5 = $Stil6 = $Stil7 = $Stil8 = "";
$LegendenRand = $LegendenPolster = $KeinUmfluss = 0;
# Bild
list ($BildBreite, $BildHoehe) = getimagesize ($PfadBild);
if ($ObGIF)
{
if ($BildGroesse)
{
if ($BildBreite > $BildHoehe) // Querformat
{
$BreiteMiniatur = $BildGroesse;
$HoeheMiniatur = round ($BildHoehe * $BreiteMiniatur / $BildBreite);
}
else // Hochformat oder Quadratisch
{
$HoeheMiniatur = $BildGroesse;
$BreiteMiniatur = round ($BildBreite * $HoeheMiniatur / $BildHoehe);
}
}
else // Originalgröße
{
$BreiteMiniatur = $BildBreite;
$HoeheMiniatur = $BildHoehe;
}
# Debug
//$dbgVariable = "BildGroesse"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "BildBreite"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "BildHoehe"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "BreiteMiniatur"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "HoeheMiniatur"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$Stil4 = "width: " . $BreiteMiniatur . "px; height: " . $HoeheMiniatur . "px; xbackground: url('" . $PfadBild . "') top left no-repeat; ";
}
else
{
$Stil4 = "width: " . $BildBreite . "px; height: " . $BildHoehe . "px; background: url('" . $PfadBild . "') top left no-repeat; ";
}
# Legende
if ($LegendenStrichDicke)
{
$LegendenStrich = "border-left: solid " . $LegendenStrichDicke . "px " . $LegendenStrichFarbe . "; ";
$LegendenRand = 10;
$LegendenPolster = 8;
}
# Breite nur angeben, wenn Legendenstrich gesetzt, sonst falsche Schattendarstellung im IE
$Stil6 = "width: " . ($BildBreite - (2 * $LegendenRand)) . "px; margin: 0px " . ($RahmenDicke + $LegendenRand) . "px 0px " . ($RahmenDicke + $LegendenRand) . "px; ";
$Stil7 = "text-align: left; padding: 4px " . $LegendenPolster . "px 7px " . $LegendenPolster . "px; " . $LegendenStrich;
$Stil8 = "height: 10px; margin: 0px 10px 0px 10px; " . $LegendenStrich;
if ($Legende)
{
$ObLegende = 1;
}
if (mb_strstr ($Optionen, "4")) // Legende nur im MouseOver
{
$ObLegende = 0;
$HGFarbe = "";
$AbstandLegendeOben = $BildHoehe;
$LegendenBreite = $BildBreite;
$AbstandLegendeSeitlich = 0;
$Stil6 = "width: " . $BildBreite . "px; margin: 0px 0px 0px 0px; ";
$Stil7 = "text-align: left; padding: 5px 0px 0px 0px; ";
$Stil8 = "";
}
elseif (mb_strstr ($Optionen, "3")) // Legende bündig mit Bild
{
$HGFarbe = "";
$AbstandLegendeOben = $BildHoehe;
$LegendenBreite = $BildBreite;
$AbstandLegendeSeitlich = 0;
$Stil6 = "width: " . $BildBreite . "px; margin: 0px 0px 0px 0px; ";
$Stil7 = "text-align: left; padding: 5px 0px 0px 0px; ";
$Stil8 = "";
}
elseif (mb_strstr ($Optionen, "2")) // farbig hinterlegter Legendenkasten
{
$HGFarbe = $BildBoxHGFarbe;
$AbstandLegendeOben = ($BildHoehe - 8);
$LegendenBreite = ($BildBreite - 10);
$AbstandLegendeSeitlich = 10;
$PaddingLegende = "padding: 13px 5px 10px 0px; ";
if ($PfadBildBoxLegende)
{
// $LegendenStrich = "background: url(" . $PfadBildBoxLegende . ") top left no-repeat; ";
}
}
else // Standard: 1 = mit LegendenStrich
{
$HGFarbe = "";
$AbstandLegendeOben = ($BildHoehe - 10);
$LegendenBreite = ($BildBreite - 11);
$AbstandLegendeSeitlich = 10;
$PaddingLegende = "padding: 15px 5px 5px 8px; ";
$Stil5 = "height: " . $AbstandLegendeOben . "px; ";
// $Stil6 = "width: " . $BildBreite . "px; margin: 0px " . $AbstandLegendeSeitlich . "px 0px " . $AbstandLegendeSeitlich . "px; ";
}
if (!$ObLegende)
{
$AbstandLegendeOben = 0;
$AbstandLegendeSeitlich = 0;
$LegendenBreite = 0;
}
# Zoom
if (mb_strstr ($Optionen, "Z"))
{
# für Zoom wird aus [BildName].gif >> [BildName].jpg, somit GIF-Animation auf der Seite, aber bei Zoom Einzelbilder
list ($BildName) = explode (".", $BildDatei);
# wenn nur 1 Bild --> schreibe Bild vergrößern, wenn mehr Bilder --> schreibe weitere Bilder
$WeiteresBild = $BildName . "-1.jpg";
if (is_file ($OrdnerBilder . $WeiteresBild))
{
$Text = $Vorgaben["System"]["Vokabeln"]["WeitereBilder"];
}
else
{
$Text = $Vorgaben["System"]["Vokabeln"]["BildVergroessern"];
}
$ObZoom = 1;
$ObHand = "cursor: pointer; ";
if ($ObLegende)
{
$AnkerBild = $Anker . ":inhalt_zoom.gif:Special";
}
else
{
$AnkerBild = 0;
}
if ($Legende)
{
$TitelVorspann = $Legende . " - ";
}
$ZoomPrefix = BasisVerweis_47 ("Extern.Zoom", $Vorgaben, $TitelVorspann . $Text, BasisVerweis_47 ("Anfrage.Zoom", $Vorgaben, "Object = " . $BildDatei . "," . $Optionen, 0,0,0,0), 0, "cssInhaltBildBoxVerweis", $AnkerBild);
$ZoomSuffix = BasisVerweis_47 ("Ende", 0,0,0,0,0,0);
# ZoomText erscheint nur, wenn die Legende erscheint, also darf kein Anker auf inhalt_zoom gesetzt werden, wenn keine Legende
$ZoomText = "" . $ZoomPrefix . fncAltBild ("Anzeigen." . $Anker, $Vorgaben, array ($Vorgaben["Ordner"]["CDesign"] . "inhalt_zoom.gif")) . " " . $Text . $ZoomSuffix . " ";
}
# Umfluß
if (mb_strstr ($Optionen, "X"))
{
$KeinUmfluss = 1;
}
# Ausrichtung
if (mb_strstr ($Optionen, "L")) // linksbündig
{
if ($KeinUmfluss)
{
$ObBreite = "width: " . ($BildBreite + (2 * $RahmenDicke)) . "px; ";
$ObPolster = "padding: 12px 0px 6px 0px; ";
}
else
{
$ObUmfluss = "float: left; ";
$ObPolster = "padding: " . $VersatzOben . "px " . $Steg . "px " . $Steg . "px 6px; ";
}
$Stil1 = $ObPolster . $ObUmfluss;
$Stil2 = $ObBreite . "border: 0px; ";
}
elseif (mb_strstr ($Optionen, "M")) // zentriert
{
$ObZentriert = "text-align: center; ";
$Stil1 = "margin: " . $VersatzOben . "px 6px " . $Steg . "px 6px; ";
}
else // Standard: R = rechtsbündig
{
if (!$KeinUmfluss) // also soll umfließen
{
$ObUmfluss = "float: right; ";
$ObPolster = "padding: " . $VersatzOben . "px 6px " . $Steg . "px " . $Steg . "px; "; // hier stand früher margin statt padding - das führte bei IE6 aber zu einer Einrückung der ersten Zeile des Textblockes, der das Bild umfließt - jetzt OK
}
$Stil1 = $ObPolster . $ObUmfluss;
}
if ($ObCursorHand)
{
$ObHand = "cursor: pointer; ";
}
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array (" cssInhaltBildBoxAussen, " . $Stil1 . $ObZentriert)); // BildBox außen
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array (" cssInhaltBildBox1, " . $Stil2));
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array (" cssInhaltBildBox2, "));
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array (" cssInhaltBildBox3, "));
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array (" cssInhaltBildBox4, "));
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array (" cssInhaltBildBox5, "));
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array (" cssInhaltBildRahmen " )); // Rahmen
if ($ObZoom)
{
$HTML[] = $ZoomPrefix;
}
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array (" cssInhaltBildBoxBild, " . $Stil4 . $ObHand)); // Bild selbst
if ($ObGIF)
{
$HTML[] = fncAltBild ("Anzeigen.BxH." . $BreiteMiniatur . "." . $HoeheMiniatur, $Vorgaben, array ($PfadBild, $xxxKlasse, $xxxStil, $xxxTitel));
}
elseif ($ObLegende)
{
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array (", " . $Stil5)); // Distanzstück leer Bildhöhe minus 10px
$HTML[] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array (", font-size: 1px; " . $Stil8)); // 10px hoch Legendenstrich
$HTML[] = funAltBaustein ("Box.Z", $Vorgaben, array ());
}
$HTML[] = funAltBaustein ("Box.Z", $Vorgaben, array ());
if ($ObZoom)
{
$HTML[] = $ZoomSuffix;
}
$HTML[] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$HTML[] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$HTML[] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$HTML[] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$HTML[] = funAltBaustein ("Box.Z", $Vorgaben, array ());
$HTML[] = funAltBaustein ("Box.Z", $Vorgaben, array ());
if ($ObLegende)
{
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array (" cssOoBxBlLegende2, " . $Stil6)); // Legende unten
$HTML[] = funAltBaustein ("Box.A", $Vorgaben, array (" cssOoBxBlLegende3, " . $Stil7)); // Legende unten
$HTML[] = $Legende . $ZoomText . "";
}
break;
case "BESCHNEIDEN":
list ($PfadOriginal, $PfadDuplikat) = $Parameter;
list ($FormatBreite, $FormatHoehe) = explode (":", $Aktion2);
$Position = $Aktion3;
if (!is_file ($PfadOriginal))
{
$Ergebnis = false;
}
else
{
switch (mb_strtoupper (trim ($Position)))
{
default: // Standard
case "M":
case "MITTE":
case "MITTIG":
case "2":
case "B":
$Position = "Mitte";
break;
case "L":
case "O":
case "LO":
case "LINKS":
case "OBEN":
case "LINKSOBEN":
case "1":
case "A":
$Position = "LinksOben";
break;
case "R":
case "U":
case "RU":
case "RECHTS":
case "UNTEN":
case "RECHTSUNTEN":
case "3":
case "C":
$Position = "RechtsUnten";
break;
}
#
list ($BreiteOriginal, $HoeheOriginal, $TypOriginal) = getimagesize ($PfadOriginal);
if ($FormatBreite * $HoeheOriginal == $FormatHoehe * $BreiteOriginal) // Original hat das gewünschte Format, Originalgröße übernehmen
{
$Ergebnis = fncDatei ("fdtKopieren.", array ($PfadOriginal, $PfadDuplikat));
}
else // Beschneiden
{
$VersionDuplikatAlt = fncDatei ("fdtVersion.", array ($PfadDuplikat));
if ($FormatBreite * $HoeheOriginal > $FormatHoehe * $BreiteOriginal) // Höhe beschneiden
{
$BreiteDuplikat = $BreiteOriginal;
$HoeheDuplikat = round ($FormatHoehe * $BreiteOriginal / $FormatBreite);
$XOriginal = 0;
switch ($Position)
{
case "Mitte":
$YOriginal = round (($HoeheOriginal - $HoeheDuplikat) / 2);
break;
case "LinksOben":
$YOriginal = 0;
break;
case "RechtsUnten":
$YOriginal = $HoeheOriginal - $HoeheDuplikat;
break;
}
}
else // Breite beschneiden
{
$HoeheDuplikat = $HoeheOriginal;
$BreiteDuplikat = round ($FormatBreite * $HoeheOriginal / $FormatHoehe);
switch ($Position)
{
case "Mitte":
$XOriginal = round (($BreiteOriginal - $BreiteDuplikat) / 2);
break;
case "LinksOben":
$XOriginal = 0;
break;
case "RechtsUnten":
$XOriginal = $BreiteOriginal - $BreiteDuplikat;
break;
}
$YOriginal = 0;
}
$BildDuplikat = imagecreatetruecolor ($BreiteDuplikat, $HoeheDuplikat);
$XDuplikat = 0;
$YDuplikat = 0;
switch ($TypOriginal)
{
case 2: // JPEG
$BildOriginal = imagecreatefromjpeg ($PfadOriginal);
break;
case 3: // PNG
$BildOriginal = imagecreatefrompng ($PfadOriginal);
break;
}
imagecopy ($BildDuplikat, $BildOriginal, $XDuplikat, $YDuplikat, $XOriginal, $YOriginal, $BreiteDuplikat, $HoeheDuplikat);
switch ($TypOriginal)
{
case 2: // JPEG
imagejpeg ($BildDuplikat, $PfadDuplikat, 100);
break;
case 3: // PNG
imagepng ($BildDuplikat, $PfadDuplikat);
break;
}
$VersionDuplikatNeu = fncDatei ("fdtVersion.", array ($PfadDuplikat));
if ($VersionDuplikatNeu != $VersionDuplikatAlt)
{
$Ergebnis = true;
}
else
{
$Ergebnis = false;
}
}
}
break;
case "MINIATURERZEUGEN":
list ($PfadOriginal, $PfadMiniatur) = $Parameter;
$BildGroesse = (1 * $Aktion2);
if (!is_file ($PfadOriginal))
{
$Ergebnis = false;
}
else // Original vorhanden
{
list ($BreiteOriginal, $HoeheOriginal, $TypOriginal) = getimagesize ($PfadOriginal);
if ($BreiteOriginal <= $BildGroesse and $HoeheOriginal <= $BildGroesse) // Original ist kleiner als gewünschte Miniatur, Originalgröße übernehmen
{
copy ($PfadOriginal, $PfadMiniatur);
}
else // Miniatur nötig, weil Original größer als Miniaturmaße
{
$VersionMiniaturAlt = fncDatei ("fdtVersion.", array ($PfadMiniatur));
if ($BreiteOriginal > $HoeheOriginal) // Querformat
{
$BreiteMiniatur = $BildGroesse;
$HoeheMiniatur = round ($HoeheOriginal * $BreiteMiniatur / $BreiteOriginal);
}
else // Hochformat oder Quadratisch
{
$HoeheMiniatur = $BildGroesse;
$BreiteMiniatur = round ($BreiteOriginal * $HoeheMiniatur / $HoeheOriginal);
}
$BildMiniatur = imagecreatetruecolor ($BreiteMiniatur, $HoeheMiniatur);
$XMiniatur = 0;
$YMiniatur = 0;
$XOriginal = 0;
$YOriginal = 0;
switch ($TypOriginal)
{
case 2: // JPEG
$BildOriginal = imagecreatefromjpeg ($PfadOriginal);
break;
case 3: // PNG
$BildOriginal = imagecreatefrompng ($PfadOriginal);
break;
}
imagecopyresized ($BildMiniatur, $BildOriginal, $XMiniatur, $YMiniatur, $XOriginal, $YOriginal, $BreiteMiniatur, $HoeheMiniatur, $BreiteOriginal, $HoeheOriginal);
switch ($TypOriginal)
{
case 2: // JPEG
imagejpeg ($BildMiniatur, $PfadMiniatur, 100);
break;
case 3: // PNG
imagepng ($BildMiniatur, $PfadMiniatur);
break;
}
}
clearstatcache ();
$VersionMiniaturNeu = fncDatei ("fdtVersion.", array ($PfadMiniatur));
if ($VersionMiniaturNeu != $VersionMiniaturAlt)
{
$Ergebnis = true;
}
else
{
$Ergebnis = false;
}
}
// $dbgBlock = ""; echo fncDebug ("Block.Z", $Vorgaben, 0);
break;
case "OBVORHANDEN":
# Debug
// $dbgBlock = "OBVORHANDEN"; echo fncDebug ("Block.A", array ($Vorgaben["ObDebug"], $dbgBlock));
list ($BildDatei) = $Parameter;
$Optionen = $Aktion2; // S,C,L,M,R,Z,1,2,3
list ($X, $Endung) = explode (".", $BildDatei);
if (mb_strstr ($Optionen, "C"))
{
$OrdnerBilder = $Vorgaben["Ordner"]["CBilder"]; // Kundenbilder
}
else
{
$OrdnerBilder = $Vorgaben["Ordner"]["SBilder"]; // Systembilder
}
# Debug
// //$dbgVariable = "BildDatei"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Optionen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Endung"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if (mb_strstr ($Optionen, "U"))
{
$Ergebnis = true;
}
elseif (mb_strtoupper ($Endung) == "GIF")
{
if (is_file ($OrdnerBilder . $BildDatei))
{
$Ergebnis = true;
}
else
{
$Ergebnis = false;
}
}
else
{
$BildGroesse = (1 * $Aktion3); // max. Ausdehnung in Pixel
#
$OrdnerOriginale = $OrdnerBilder;
$OrdnerMiniaturen = $OrdnerBilder . $BildGroesse . "/";
#
$PfadOriginal = $OrdnerOriginale . $BildDatei;
$PfadMiniatur = $OrdnerMiniaturen . $BildDatei;
#
if (!is_file ($PfadOriginal)) // kein Original vorhanden
{
$PfadOriginal;
$Ergebnis = false;
}
else // Original vorhanden
{
if (!$BildGroesse) // ist Originalgröße gefragt?
{
$Ergebnis = true;
}
else // Miniatur gefragt
{
$VersionOriginal = fncDatei ("fdtVersion.", array ($PfadOriginal));
$VersionMiniatur = fncDatei ("fdtVersion.", array ($PfadMiniatur));
if ($VersionMiniatur > $VersionOriginal) // Miniatur vorhanden UND jünger als Original?
{
$Ergebnis = true;
}
elseif (!funOrdner ("Erstellen", $Vorgaben, array ($OrdnerMiniaturen))) // Ordner erstellt?
{
$Ergebnis = false;
}
elseif (!fncAltBild ("MiniaturErzeugen." . $BildGroesse, $Vorgaben, array ($PfadOriginal, $PfadMiniatur))) // Miniatur erzeugt?
{
$Ergebnis = false;
}
else
{
$Ergebnis = true;
if (!is_file ($OrdnerMiniaturen . "index.html"))
{
fncDatei ("fdtSchreiben.", array ($OrdnerMiniaturen . "index.html")); // erzeugt leere html zum verzeichnisschutz
}
}
}
}
}
# Debug
// //$dbgVariable = "Ergebnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $dbgBlock = ""; echo fncDebug ("Block.Z", $Vorgaben, 0);
break;
}
return $Ergebnis;
}
function funNachricht ($Aktion, $Vorgaben, $Parameter)
{
/*
SENDEN
funNachricht ("Senden", $Vorgaben, array ($AbsenderName, $AbsenderAdresse, $EmpfaengerName, $EmpfaengerAdresse, $Betreff, $Nachricht));
ERSTELLEN
$Nachrichten = funNachricht ("Erstellen", $Vorgaben, array ());
if (is_array ($Nachrichten)) foreach ($Nachrichten as $Kennung => $Details)
{
if (is_array ($Details))
{
extract ($Details);
}
funNachricht ("Senden", $Vorgaben, array ($AbsenderName, $AbsenderAdresse, $EmpfaengerName, $EmpfaengerAdresse, $Betreff, $Nachricht));
}
*/
switch (mb_strtoupper ($Aktion))
{
case "SENDEN":
{
// $dbgBlock = "funNachricht > SENDEN"; echo fncDebug ("Block.A", array ($Vorgaben["ObDebug"], $dbgBlock));
list ($AbsenderName, $AbsenderAdresse, $EmpfaengerName, $EmpfaengerAdresse, $Betreff, $Nachricht, $Anhang) = $Parameter;
unset ($Parameter);
$Ergebnis = false;
if (!funEingabe ("Format.EMail", $Vorgaben, array ($AbsenderAdresse)))
{
//$dbgInfo = "Absender ungültig"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
//$dbgVariable = "AbsenderAdresse"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
elseif (!funEingabe ("Format.EMail", $Vorgaben, array ($EmpfaengerAdresse)))
{
//$dbgInfo = "Empfänger ungültig"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
//$dbgVariable = "EmpfaengerAdresse"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
elseif (!$Betreff)
{
//$dbgInfo = "kein Betreff"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
//$dbgVariable = "Betreff"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
elseif (!$Nachricht)
{
//$dbgInfo = "keine Nachricht"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
//$dbgVariable = "Nachricht"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
else
{
# Boundary
$MimeBoundary = md5 (uniqid (time ()));
if (!$AbsenderName)
{
$AbsenderName = $AbsenderAdresse;
}
// $Absender = utf8_decode ($AbsenderName) . " <" . $AbsenderAdresse . ">";
$Absender = $AbsenderAdresse;
if (!$EmpfaengerName)
{
$EmpfaengerName = $EmpfaengerAdresse;
}
// $Empfaenger = utf8_decode ($EmpfaengerName) . " <" . $EmpfaengerAdresse . ">";
$Empfaenger = $EmpfaengerAdresse;
# Kopf
$Kopf = array ();
$Kopf[] = "From: " . $Absender;
$Kopf[] = "Reply-To: " . $Absender;
$Kopf[] = "MIME-Version: 1.0";
$Kopf[] = "Content-Type: multipart/mixed; boundary=" . $MimeBoundary;
$Kopf[] = "";
$Kopf[] = "This is a multi-part message in MIME format.";
$Kopf[] = "--" . $MimeBoundary;
$Kopf[] = "Content-Type: text/plain";
$Kopf[] = "Content-Transfer-Encoding: 8bit";
$Kopf[] = "";
if (is_array ($Nachricht))
{
$Nachricht = implode ("\n", $Nachricht) . "\n";
}
$Kopf[] = utf8_decode ($Nachricht); // wenn Mail mit Anhang, dann Nachricht schon im Header, deshalb an dieser Stelle
unset ($Nachricht);
if ($Anhang["ob"])
{
$Kopf[] = "--" . $MimeBoundary;
$Kopf[] = "Content-Type: " . $Anhang["type"] . "; name=\"" . $Anhang["name"] . "\"";
$Kopf[] = "Content-Transfer-Encoding: base64";
$Kopf[] = "Content-Disposition: attachment; filename=\"" . $Anhang["name"] . "\"";
$Kopf[] = "";
$Kopf[] = chunk_split (base64_encode ($Anhang["data"]));
$Kopf[] = "--" . $MimeBoundary . "--";
}
unset ($Anhang);
$Kopf = implode ("\n", $Kopf) . "\n";
if ($Vorgaben["ObMail"] and !$Vorgaben["ObDebug"] and mb_strtoupper ($_SERVER["SERVER_NAME"]) != "LOCALHOST")
{
if (@mail ($Empfaenger, utf8_decode ($Betreff), "", $Kopf)) // Nachricht steht im Kopf
{
$Ergebnis = true;
// echo "true: " . $Empfaenger;
}
else
{
// echo "false: " . $Empfaenger;
}
}
else
{
$dbgBlock = "Mailer im Debug-Mode. Diese Nachricht würde im Real-Mode versandt werden:"; echo fncDebug ("Block.A", array ($Vorgaben["ObDebug"], $dbgBlock));
//$dbgVariable = "Empfaenger"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "Betreff"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Kopf"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Nachricht"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$dbgBlock = ""; echo fncDebug ("Block.Z", array ($Vorgaben["ObDebug"]));
}
unset ($Anhang);
}
// $dbgBlock = ""; echo fncDebug ("Block.Z", array ($Vorgaben["ObDebug"]));
}
break;
case "ERSTELLEN":
{
unset ($Parameter);
$Formular = $Vorgaben["Formular"];
$Gruppen = $Vorgaben["Gruppen"];
// $_REQUEST = $_REQUEST;
# Debug
// //$dbgVariable = "Formular"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "datID"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Kunde kriegt evtl. Kopie?
$EMailKunde = $_REQUEST["Mail"];
if (!$EMailKunde) // dann Standard aus FormularVorgaben
{
$EMailKunde = $Formular[0]["EMail"]["Kunde"];
}
if ($_REQUEST["Name"])
{
$NameKunde = $_REQUEST["Name"];
}
else
{
$NameKunde = "/";
}
# Anhang
$Anhang = array ();
$Anhang["ob"] = 0;
if (isset ($Formular[0]["DateiFeld"]) and $_FILES[$Formular[0]["DateiFeld"]]["size"])
{
$Anhang["ob"] = 1;
$Anhang["name"] = $_FILES[$Formular[0]["DateiFeld"]]["name"];
$Anhang["size"] = $_FILES[$Formular[0]["DateiFeld"]]["size"];
$Anhang["type"] = $_FILES[$Formular[0]["DateiFeld"]]["type"];
$DateiPfad = $_FILES[$Formular[0]["DateiFeld"]]["tmp_name"];
$Anhang["data"] = fread (fopen ($DateiPfad, "r"), filesize ($DateiPfad));
}
# Betreff erstellen
$Betreff = $Formular[0]["Betreff"];
$Abspann = $Formular[0]["Abspann"];
# Nachricht erstellen (Klient/Kunde)
$Nachricht = array ();
$Nachricht[] = str_replace ("[DATUM]", date ("d.m.Y"), str_replace ("[UHRZEIT]", date ("H:i"), str_replace ("[EMPFAENGER]", $Formular[0]["Name"]["Empfaenger"], str_replace ("[SERVER]", $_SERVER["SERVER_NAME"], $Vorgaben["System"]["Vokabeln"]["NachrichtWurdeVersandt"]))));
$Nachricht[] = "";
if ($Formular[0]["Info1"])
{
$Nachricht[] = "";
$Nachricht[] = $Formular[0]["Info1"];
}
if (is_array ($Gruppen)) foreach ($Gruppen as $GruppenID => $Feld)
{
$Nachricht[] = "";
$Nachricht[] = "";
$Nachricht[] = ":: " . $Gruppen[$GruppenID][0]["GruppenBeschriftung"] . " ::";
$Nachricht[] = "";
if (is_array ($Feld)) foreach ($Feld as $FeldID => $FeldBeschriftung)
{
if ($FeldID) switch (mb_strtoupper ($Formular[$FeldID]["FeldTyp"]))
{
default:
$Eingabe = $_REQUEST[$FeldID];
if ($Eingabe)
{
$Nachricht[] = $FeldBeschriftung . ": " . $Eingabe;
}
else
{
$Nachricht[] = $FeldBeschriftung . ": /";
}
break;
case "AUSWAHL":
case "RADIO":
$Eingabe = $Formular[$FeldID]["Kandidaten"][$_REQUEST[$FeldID]];
if ($Eingabe)
{
$Nachricht[] = $FeldBeschriftung . ": " . $Eingabe;
}
else
{
$Nachricht[] = $FeldBeschriftung . ": /";
}
break;
case "OPTIONEN":
$Nachricht[] = $FeldBeschriftung . ":";
if (is_array ($_REQUEST[$FeldID])) foreach ($_REQUEST[$FeldID] as $KandidatenID => $ObGesetzt) if ($ObGesetzt)
{
$ObWerte = 1;
$Nachricht[] = "[x] " . $Formular[$FeldID]["Kandidaten"][$KandidatenID];
}
if (!$ObWerte)
{
$Nachricht[] = "/";
}
break;
case "DATEI":
$Eingabe = $_FILES[$FeldID]["name"];
if ($Eingabe)
{
$Nachricht[] = $FeldBeschriftung . ": " . $Eingabe;
}
else
{
$Nachricht[] = $FeldBeschriftung . ": /";
}
break;
}
}
unset ($Feld);
}
$Nachricht[] = "";
$Nachricht[] = "";
$Nachricht[] = $Abspann;
# Nachrichten sammeln in
$Nachrichten = array ();
#Kunde
if ($Formular[0]["EMail"]["Kunde"])
{
$Nachrichten["Kunde"]["AbsenderName"] = $Formular[0]["Name"]["Absender"];
$Nachrichten["Kunde"]["AbsenderAdresse"] = $Formular[0]["EMail"]["Absender"];
$Nachrichten["Kunde"]["EmpfaengerName"] = $NameKunde;
$Nachrichten["Kunde"]["EmpfaengerAdresse"] = $EMailKunde;
$Nachrichten["Kunde"]["Betreff"] = $Betreff;
$Nachrichten["Kunde"]["Nachricht"] = $Nachricht;
$Nachrichten["Kunde"]["Anhang"] = $Anhang;
}
# Klient
$Nachrichten["Klient"]["AbsenderName"] = $Formular[0]["Name"]["Absender"];
$Nachrichten["Klient"]["AbsenderAdresse"] = $Formular[0]["EMail"]["Absender"];
$Nachrichten["Klient"]["EmpfaengerName"] = $Formular[0]["Name"]["Empfaenger"];
$Nachrichten["Klient"]["EmpfaengerAdresse"] = $Formular[0]["EMail"]["Empfaenger"];
$Nachrichten["Klient"]["Betreff"] = $Betreff;
$Nachrichten["Klient"]["Nachricht"] = $Nachricht;
$Nachrichten["Klient"]["Anhang"] = $Anhang;
# Klient Kopie
if ($Formular[0]["EMail"]["Kopie"])
{
# Verteiler
$Nachricht[] = "";
$Nachricht[] = "";
$Nachricht[] = ":: Verteiler ::";
$Nachricht[] = "";
$Nachricht[] = "[1] " . $Formular[0]["Name"]["Empfaenger"];
$Nachricht[] = "[2] " . $Formular[0]["Name"]["Kopie"];
if ($Formular[0]["EMail"]["Kunde"])
{
$Nachricht[] = "[3] " . $NameKunde;
}
#
$Nachrichten["Kopie"]["AbsenderName"] = $Formular[0]["Name"]["Absender"];
$Nachrichten["Kopie"]["AbsenderAdresse"] = $Formular[0]["EMail"]["Absender"];
$Nachrichten["Kopie"]["EmpfaengerName"] = $Formular[0]["Name"]["Kopie"];
$Nachrichten["Kopie"]["EmpfaengerAdresse"] = $Formular[0]["EMail"]["Kopie"];
$Nachrichten["Kopie"]["Betreff"] = "(Kopie) " . $Betreff;
$Nachrichten["Kopie"]["Nachricht"] = $Nachricht;
$Nachrichten["Kopie"]["Anhang"] = $Anhang;
}
unset ($Formular);
unset ($Anhang);
unset ($Gruppen);
unset ($Nachricht);
unset ($Vorgaben);
// unset ($Request);
$Ergebnis = $Nachrichten;
unset ($Nachrichten);
}
break;
}
// // $dbgBlock = ""; echo fncDebug ("Block.Z", $Vorgaben, 0);
return $Ergebnis;
}
function funOrdner ($Aktion, $Vorgaben, $Parameter)
{
/*
ERSTELLEN
if (funOrdner ("Erstellen", $Vorgaben, array ($Ordner)))
- legt index.html an
if (funOrdner ("Erstellen", $Vorgaben, array ($Ordner, "index.html")))
*/
list ($Aktion1, $Aktion2, $Aktion3) = explode (".", $Aktion);
switch (mb_strtoupper ($Aktion1))
{
case "ERSTELLEN":
list ($Ordner, $DateiAnlegen) = $Parameter;
if (!is_dir ($Ordner))
{
$Ergebnis = @mkdir ($Ordner, 0777);
}
else // Ordner gabs schon, auch gut
{
$Ergebnis = true;
}
if ($DateiAnlegen) if ($Ergebnis) if (fncDatei ("fdtSchreiben.", array ($Ordner . $DateiAnlegen)))
{
$Ergebnis = true;
}
else
{
$Ergebnis = false;
}
break;
}
return $Ergebnis;
}
# hier_BeginnSkript
debugStartButton ();
# System-Vorgaben lesen
//$Vorgaben = funVorgaben ("Laden", 0, array ("Mavidesk/System", "Tresor/.ht_vorgaben.csv"));
$Vorgaben = leseVorgaben ("Mavidesk/System", "Tresor/.ht_vorgaben.csv");
//leseVorgaben
leseDbTypen ($Vorgaben);
# Bezeichner der Steuervariablen
define ('PAGE', $Vorgaben['regVars']['varPage']);
define ('BOOK', $Vorgaben['regVars']['varBook']);
define ('LANG', $Vorgaben['regVars']['varLang']);
define ('ZONE', $Vorgaben['regVars']['varZone']);
define ('SEARCH', $Vorgaben['regVars']['varSearch']);
define ('TICKET', $Vorgaben['regVars']['varTicket']);
define ('RATE', $Vorgaben['regVars']['varRate']);
define ('RECORD', $Vorgaben['regVars']['varDataset']);
define ('AMBIENTE', $Vorgaben['regVars']['varAmb']);
define ('MODUL', $Vorgaben['regVars']['varMod']);
define ('OBJECT', $Vorgaben['regVars']['varObj']);
define ('FORM', $Vorgaben['regVars']['varForm']);
# Steuervariablen setzen
if (!isset ($_REQUEST[PAGE]))
{
$_REQUEST[PAGE] = '';
}
if (!isset ($_REQUEST[BOOK]))
{
$_REQUEST[BOOK] = '';
}
if (!isset ($_REQUEST[LANG]))
{
$_REQUEST[LANG] = '';
}
if (!isset ($_REQUEST[SEARCH]))
{
$_REQUEST[SEARCH] = '';
}
if (!isset ($_REQUEST[ZONE]))
{
$_REQUEST[ZONE] = '';
}
if (!isset ($_REQUEST['OpenCoord']))
{
$_REQUEST['OpenCoord'] = '';
}
# interne Steuervariablen
$Vorgaben['curLang'] = '';
$Vorgaben['curPage'] = '';
$Vorgaben['curZone'] = '';
$Vorgaben['curBook'] = '';
# Debug
//$Vorgaben["funStartzeit1"] = microtime (1); // Anfangspunkt
////$dbgVariable = "_FILES"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
////$dbgVariable = "_SERVER"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
////$dbgVariable = "_REQUEST"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Phrasen
fncDatenbank ("dtbLesen", $Vorgaben, array ("datPhPhrasen"));
# Typen
fncDatenbank ("dtbLesen", $Vorgaben, array ("datTypen"));
# SetBook
fncNavi ("SetBook", $Vorgaben, array ());
# Client-Vorgaben
//fncDatenbank ("dtbLesen", $Vorgaben, array ("datVkb"));
fncDatenbank ("dtbLesen", $Vorgaben, array ("datVorgaben"));
# debug
// debug (" $i_type ääää");
// $d_vorg_arch = $Vorgaben['Data']['datVorgaben'][0]['FeldTypen']['ArchivZahl'];
// $_d = '$d_vorg_arch'; debugVariable ($_d = substr ($_d, 1), $$_d,'lmndka');
# Set Client
fncNavi ("SetClient", $Vorgaben, array ());
# Lese Inhalte
fncDatenbank ("dtbLesen", $Vorgaben, array ("xdbNhKp"));
# Sprachen setzen
fncNavi ("SetLang", $Vorgaben, array ());
modifiziereTypen ($Vorgaben);
# Debug
//$ioVorg = $Vorgaben["IO"];
////$dbgVariable = "curClient"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $d_DE = findFirstPage ($Vorgaben['Data']['xdbNhKp'], 'DE');
// $d_EN = findFirstPage ($Vorgaben['Data']['xdbNhKp'], 'EN');
// $d_AktiveSprachen = $Vorgaben["AktiveSprachen"];
// $_d = '$d_DE'; debugVariable ($_d = substr ($_d, 1), $$_d);
// $_d = '$d_EN'; debugVariable ($_d = substr ($_d, 1), $$_d);
// $_d = '$d_AktiveSprachen'; debugVariable ($_d = substr ($_d, 1), $$_d);
# Ticketaktionen
if (isset ($_REQUEST[TICKET])) // Ticketservice
if ($Ticket = $_REQUEST[TICKET]) // Ticketservice
{
$Vorgaben["Ticket"]["Ausgabe"]["Titel"] = "";
$Vorgaben["Ticket"]["Ausgabe"]["Beschreibung"] = array ();
# Ticketumgebung setzen
fncNavi ("SetBook", $Vorgaben, array ("booPortal"));
if (!$Vorgaben["ObTicket"]) // in Vorgaben deaktiviert
{
$Vorgaben["Ticket"]["Ausgabe"]["Titel"] = "Fehler";
$Vorgaben["Ticket"]["Ausgabe"]["Beschreibung"][] = "Ticketaktionen sind nicht zugelassen.";
}
elseif ($Ticket == "css" and $_SERVER["SERVER_NAME"] == "localhost")
{
###########################################################
# wandelt aus alten CSS Dateien --> eine neue
#
// $t_zeile = '';
// $z = 0;
// $f_css = '';
// $o_offen = false;
// $t_sammler_module = '';
// $t_selektor = '';
// $t_bis_kommentar = '';
// $t_eigenschaft = '';
// $t_wert = '';
// $r_altes_css = array ();
// $r_sammler_dbtypen = array ();
// $r_mehrfach = array ();
// $r_sammler_phrasen = array ();
// $r_sammler_phrasen_vk = array ();
// $r_altes_css = funDatei ("Lesen", $Vorgaben, array ($Vorgaben["Pfade"]["cssOo"]));
// foreach ($r_altes_css as $t_zeile)
// switch (mb_substr ($t_zeile, 0, 1))
// {
// default:
// {
// if (!$t_zeile)
// {
// }
// elseif ($o_offen)
// {
// # debug
//// $_d = '$r_mehrfach'; debugVariable ($_d = substr ($_d, 1), $$_d);
//
// if (mb_substr ($t_zeile, 0, 2) != '/*')
// if (mb_substr ($t_zeile, 0, 1) != 'x')
// if (mb_substr ($t_zeile, 0, 1) != '_')
// if (mb_substr ($t_zeile, 0, 1) != 'x_')
// foreach ($r_mehrfach as $t_selektor)
// {
// $t_selektor = trim ($t_selektor);
//
//
// list ($t_bis_kommentar) = explode ('/*', $t_zeile . '/*');
// $t_bis_kommentar = str_replace (';', '', $t_bis_kommentar);
// list ($t_eigenschaft, $t_wert) = explode (':', $t_bis_kommentar);
// $t_eigenschaft = trim ($t_eigenschaft);
// $t_wert = trim ($t_wert);
// $f_css = $t_selektor . '_' . $t_eigenschaft;
//
// # debug
// $_d = '$f_css'; debugVariable ($_d = substr ($_d, 1), $$_d);
//
// $r_sammler_dbtypen[] = '"datCss";"";"' . $f_css . '";"' . $t_wert . '";"";"";"";"";"";"1";"1";"dftText";"";"";"";"";"";"";"";"";"";""';
// $t_sammler_module .= ' ' . $f_css . ',';
// $r_sammler_phrasen[$t_wert] = '"' . $t_wert . '";"";"";""';
// $r_sammler_phrasen_vk[$t_wert] = '"DE|' . $t_wert . '|Phrase";"' . $t_wert . '"';
// }
// }
// elseif (mb_substr ($t_zeile, 0, 2) == '/*')
// {
// $z++;
// $t_zeile = str_replace ('/*', '', $t_zeile);
// $t_zeile = str_replace ('*/', '', $t_zeile);
// $t_zeile = str_replace (',', '', $t_zeile);
// $t_zeile = str_replace ('/', '', $t_zeile);
// $t_zeile = str_replace (':', '', $t_zeile);
// $t_zeile = str_replace ('-', '', $t_zeile);
// $t_zeile = str_replace ('+', '&', $t_zeile);
// $t_zeile = trim ($t_zeile);
// $t_sammler_module .= ' // ' . $t_zeile . ' (' . $z . ') /';
// }
// else
// {
// # debug
//// $_d = '$t_zeile'; debugVariable ($_d = substr ($_d, 1), $$_d);
//
// list ($t_bis_kommentar) = explode ('/*', $t_zeile . '/*');
// $r_mehrfach = array ();
// $r_mehrfach = explode (',', $t_bis_kommentar);
//
// # debug
// $_d = '$r_mehrfach'; debugVariable ($_d = substr ($_d, 1), $$_d);
// }
// }
// break;
// case '{':
// {
// $o_offen = true;
// }
// break;
// case '}':
// {
// $o_offen = false;
// }
// break;
// }
// fncDatei ("fdtSchreiben.", array ($Vorgaben["Pfade"]["tmpModule"], $t_sammler_module));
// fncDatei ("fdtSchreiben.", array ($Vorgaben["Pfade"]["tmpDBTypen"], $r_sammler_dbtypen));
// fncDatei ("fdtSchreiben.", array ($Vorgaben["Pfade"]["tmpPhrasen"], $r_sammler_phrasen));
// fncDatei ("fdtSchreiben.", array ($Vorgaben["Pfade"]["tmpPhrasenVK"], $r_sammler_phrasen_vk));
// unset ($r_sammler_phrasen_vk);
// unset ($r_sammler_phrasen);
// unset ($r_mehrfach);
// unset ($r_sammler_dbtypen);
// unset ($r_altes_css);
#
#
###########################################################
$f_css = '';
$x = '';
$r_css = array ();
$r_sammler = array ();
$r_eigenschaften = array ();
$t_selektor = '';
$t_eigenschaft = '';
$t_wert = '';
fncDatenbank ("dtbLesen", $Vorgaben, array ("datCss"));
# debug
// $d_css = $Vorgaben["Data"]["datCss"];
// $_d = '$d_css'; debugVariable ($_d = substr ($_d, 1), $$_d);
foreach ($Vorgaben["Data"]["datCss"][0]["Kopfzeile"] as $f_css => $x)
switch ($f_css)
{
case 'ID':
case 'Tonne':
case 'Klient':
case '+Klient':
{
}
break;
default:
{
list ($t_selektor, $t_eigenschaft) = explode ('_', $f_css);
$t_wert = fncFeld ('dtfWert.N', $Vorgaben, array ('datCss', '1', $f_css));
if ($t_wert != '')
{
$r_sammler[$t_selektor][$t_eigenschaft] = $t_wert;
}
}
break;
}
foreach ($r_sammler as $t_selektor => $r_eigenschaften)
{
$r_css[] = $t_selektor;
$r_css[] = '{';
foreach ($r_eigenschaften as $t_eigenschaft => $t_wert)
{
$r_css[] = chr (9) . $t_eigenschaft . ': ' . $t_wert . ';';
}
$r_css[] = '}';
}
if (fncDatei ("fdtSchreiben.", array ($Vorgaben["Pfade"]["cssAa"], $r_css)))
{
$Vorgaben["Ticket"]["Ausgabe"]["Titel"] = "Report";
$Vorgaben["Ticket"]["Ausgabe"]["Beschreibung"][] = "CSS erfolgreich geschrieben.";
}
else
{
$Vorgaben["Ticket"]["Ausgabe"]["Titel"] = "Fehler";
$Vorgaben["Ticket"]["Ausgabe"]["Beschreibung"][] = "Schreiben des CSS fehlgeschlagen.";
}
unset ($r_eigenschaften);
unset ($r_sammler);
unset ($r_css);
}
elseif ($Ticket == "pdf" and $_SERVER["SERVER_NAME"] == "localhost")
{
require_once('./Mavidesk/System/tfpdf/tfpdf.php');
$pdf = new tFPDF();
$pdf->AddPage();
// Add a Unicode font (uses UTF-8)
$pdf->AddFont('DejaVu','','DejaVuSansCondensed.ttf',true);
$pdf->SetFont('DejaVu','',14);
// Load a UTF-8 string from a file and print it
$txt = file_get_contents('./Mavidesk/System/tfpdf/HelloWorld.txt');
$pdf->Write(8,$txt);
// Select a standard font (uses windows-1252)
$pdf->SetFont('DejaVu','',14);
$pdf->Ln(10);
$pdf->Write(5,'The file size of this PDF is only 12 KB.');
$pdf->Output();
}
else switch ($Vorgaben["curClient"])
{
default:
{
$Vorgaben["Ticket"]["Ausgabe"]["Titel"] = "Fehler";
$Vorgaben["Ticket"]["Ausgabe"]["Beschreibung"][] = "Ticket unbekannt.";
}
break;
case "JHN":
{
switch ($Ticket)
{
case $Vorgaben["Data"]["datVorgaben"][1]["TcPDFTicket"]:
{
fncElement ("lmnPDF.I", $Vorgaben, array ());
######## Anschreiben
# neue Seite
fncElement ("lmnPDF.N", $Vorgaben, array ());
# Kopf
$p_bild_kopf = $Vorgaben["Ordner"]["CBilder"] . $Vorgaben["Data"]["datVorgaben"][1]["fPDFBildKopf"];
fncElement ("lmnPDF.B", $Vorgaben, array ($p_bild_kopf, '22,22,167'));
# Adressfeld Empfänger
fncElement ("lmnAbstand.p", $Vorgaben, array (33));
fncElement ("lmnAbsatz.AZp", $Vorgaben, array (fncFeld ("dtfWert.N", $Vorgaben, array ("datVorgaben", 1, "fPDFName1"))));
fncElement ("lmnAbsatz.AZp", $Vorgaben, array (fncFeld ("dtfWert.N", $Vorgaben, array ("datVorgaben", 1, "fPDFName2"))));
fncElement ("lmnAbsatz.AZp", $Vorgaben, array (fncFeld ("dtfWert.N", $Vorgaben, array ("datVorgaben", 1, "fPDFStrasse"))));
fncElement ("lmnAbsatz.AZp", $Vorgaben, array ());
fncElement ("lmnAbsatz.AZp", $Vorgaben, array (fncFeld ("dtfWert.N", $Vorgaben, array ("datVorgaben", 1, "fPDFOrt"))));
fncElement ("lmnAbstand.p", $Vorgaben, array (22));
# Datum
fncElement ("lmnAbsatz.AZRp", $Vorgaben, array (fncFeld ("dtfWert.N", $Vorgaben, array ("datVorgaben", 1, "fPDFVorspannDatum")) . ", " . funDatum ("Konvertieren.1.11", $Vorgaben, array ($Vorgaben["Heute"][1]))));
fncElement ("lmnAbsatz.AZp", $Vorgaben, array ());
# Betreff
fncElement ("lmnRubrik.AZp", $Vorgaben, array (fncFeld ("dtfWert.N", $Vorgaben, array ("datVorgaben", 1, "fPDFBetreff"))));
fncElement ("lmnAbsatz.AZp", $Vorgaben, array ());
# Inhalt
fncElement ("lmnAbsatz.AZp", $Vorgaben, array (fncFeld ("dtfWert.N", $Vorgaben, array ("datVorgaben", 1, "fPDFInhalt"))));
# Fuß
$p_bild_fuss = $Vorgaben["Ordner"]["CBilder"] . $Vorgaben["Data"]["datVorgaben"][1]["fPDFBildFuss"];
fncElement ("lmnPDF.B", $Vorgaben, array ($p_bild_fuss, '22,260,166'));
# Datenbank(en) lesen
fncDatenbank ("dtbLesen", $Vorgaben, array ("datNhDetails"));
fncElement ("lmnFormatieren.p", $Vorgaben, array ());
# PDF anzeigen
fncElement ("lmnPDF.A", $Vorgaben, array ());
}
break;
}
}
break;
case "SFH": // aufheben als Muster für PDF-Erstellung
{
switch ($Ticket)
{
case $Vorgaben["Data"]["datVorgaben"][1]["TcPDFTicket"]:
{
# FPDF
require_once ("./Mavidesk/System/fpdf16/fpdf.php");
# ID übergeben
$idID = $_REQUEST[$Vorgaben["regVars"]["varAnx"]];
# Datenbank(en) lesen
$datDatenbank = "datReservierungen";
fncDatenbank ("dtbLesen", $Vorgaben, array ($datDatenbank));
fncDatenbank ("dtbLesen", $Vorgaben, array ("datSPreise"));
$Vorgaben = funSpecial ("sfhPreisErrechnen", $Vorgaben, array ());
$OrdnerDatei = $Vorgaben["Ordner"]["Media"];
$DateiName = fncOrdner ("rdnExklusivname", array ($OrdnerDatei)) . ".pdf";
$PfadPDF = $OrdnerDatei . $DateiName;
$pfdLogo = $Vorgaben["Ordner"]["CBilder"] . $Vorgaben["Data"]["datVorgaben"][1]["Logo"];
$pdf=new FPDF('P', 'mm', 'A4');
# neue Seite
$pdf->AddPage();
$pdf->SetLeftMargin(21);
$pdf->SetRightMargin(21);
# Logo und Absender
$pdf->Image($pfdLogo, 90, 10, 100);
$pdf->Ln(13);
$pdf->SetFont('DejaVu','',11);
$pdf->Cell(0,4,fncFeld ("dtfWert.N", $Vorgaben, array ("datVorgaben", 1, "Inhaber")),'',1,'R');
$pdf->Cell(0,4,fncFeld ("dtfWert.N", $Vorgaben, array ("datVorgaben", 1, "Strasse")),'',1,'R');
$pdf->Cell(0,4,fncFeld ("dtfWert.N", $Vorgaben, array ("datVorgaben", 1, "+PLZOrt")),'',1,'R');
$pdf->Ln(12);
# Adressfeld Empfänger
$pdf->SetFont('DejaVu','',7);
$pdf->MultiCell(90 , 3 , fncFeld ("dtfWert.N", $Vorgaben, array ("datVorgaben", 1, "+Absender")), 0, L);
$pdf->Ln(1);
$pdf->SetFont('DejaVu','',11);
$pdf->MultiCell(90 , 4 , fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "VornameNachname")), 0, "L");
$pdf->MultiCell(90 , 4 , fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "Strasse")), 0, "L");
$pdf->MultiCell(90 , 4 , fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "PLZOrt")), 0, "L");
$pdf->Ln(6);
# Betreff
$pdf->SetFont('DejaVu','B',13);
$pdf->Cell(0,5, fncFeld ("dtfWert.N", $Vorgaben, array ("datVorgaben", 1, "RgBetreff")),'',1,"R");
$pdf->SetFont('DejaVu','',11);
$pdf->Cell(0,5, fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "+RgNrDatum")),'',1,"R");
$pdf->Ln(10);
# Anrede
$pdf->Cell (0, 5, fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "+Anrede")), "", 1);
$pdf->Ln(3);
# Text
$pdf->MultiCell(180 , 4 , fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "+txtE1")), 0, "L");
$pdf->Ln(3);
# Tabelle
$pdf->Cell(10,0, " ",'',0);
$pdf->MultiCell(180 , 4 , fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "+Anreise")), 0, "L");
$pdf->Cell(10,0, " ",'',0);
$pdf->MultiCell(180 , 4 , fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "+Abreise")), 0, "L");
$pdf->Ln(3);
# Text
$pdf->MultiCell(180 , 4 , fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "+txtE2")), 0, "L");
$pdf->Ln(5);
# Tabelle
if ($Vorgaben["Data"][$datDatenbank][$idID]["BestAnzahlNaechteHS"])
{
$pdf->Cell(10,0, " ",'',0);
$pdf->Cell(110,0, fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "+txtHS")),'',0);
$pdf->Cell(40,0, fncFeld ("dtfWert.NE", $Vorgaben, array ($datDatenbank, $idID, "+PreisHS")),'',0, "R");
$pdf->Ln(4);
}
if ($Vorgaben["Data"][$datDatenbank][$idID]["BestAnzahlNaechteNS"])
{
$pdf->Cell(10,0, " ",'',0);
$pdf->Cell(110,0, fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "+txtNS")),'',0);
$pdf->Cell(40,0, fncFeld ("dtfWert.NE", $Vorgaben, array ($datDatenbank, $idID, "+PreisNS")),'',0, "R");
$pdf->Ln(4);
}
if ($Vorgaben["Data"][$datDatenbank][$idID]["+PreisNachlass"])
{
$pdf->Cell(10,0, " ",'',0);
$pdf->Cell(110,0, fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "+txtRb")),'',0);
$pdf->Cell(40,0, fncFeld ("dtfWert.NE", $Vorgaben, array ($datDatenbank, $idID, "+PreisNachlass")),'',0, "R");
$pdf->Ln(4);
}
if ($Vorgaben["Data"][$datDatenbank][$idID]["+Endreinigung"])
{
$pdf->Cell(10,0, " ",'',0);
$pdf->Cell(110,0, fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "+txtEr")),'',0);
$pdf->Cell(40,0, fncFeld ("dtfWert.NE", $Vorgaben, array ($datDatenbank, $idID, "+Endreinigung")),'',0, "R");
$pdf->Ln(4);
}
if ($Vorgaben["Data"][$datDatenbank][$idID]["ZuAbschlag"])
{
$pdf->Cell(10,0, " ",'',0);
$pdf->Cell(110,0, fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "BemZuAb")),'',0);
$pdf->Cell(40,0, fncFeld ("dtfWert.NE", $Vorgaben, array ($datDatenbank, $idID, "ZuAbschlag")),'',0, "R");
$pdf->Ln(4);
}
if ($Vorgaben["Data"][$datDatenbank][$idID]["ZuAbschlag2"])
{
$pdf->Cell(10,0, " ",'',0);
$pdf->Cell(110,0, fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "BemZuAb2")),'',0);
$pdf->Cell(40,0, fncFeld ("dtfWert.NE", $Vorgaben, array ($datDatenbank, $idID, "ZuAbschlag2")),'',0, "R");
$pdf->Ln(4);
}
# Linie
$pdf->MultiCell(170 , 1 , "", "T", "L");
$pdf->Ln(3);
# Tabelle
$pdf->Cell(10,0, " ",'',0);
// $pdf->Cell(110,0, fncFeld ("dtfWert.N", $Vorgaben, array ("datVorgaben", 1, "txtEndsumme")),'',0);
$pdf->Cell(110,0, fncPhrase ($Vorgaben, array ("Endsumme", "G")),'',0);
$pdf->Cell(40,0, fncFeld ("dtfWert.NE", $Vorgaben, array ($datDatenbank, $idID, "Endsumme")),'',0, "R");
$pdf->Ln(4);
# Doppellinie
$pdf->MultiCell(170 , 1 , "", "T", "L");
$pdf->MultiCell(170 , 1 , "", "T", "L");
$pdf->Ln(4);
# Anzahlung
if ($Vorgaben["Data"][$datDatenbank][$idID]["Anzahlung"] and $Vorgaben["Data"][$datDatenbank][$idID]["TmAnzahlung"])
{
$pdf->MultiCell(180 , 4 , fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "txtAnz")), 0, "L");
$pdf->Ln(3);
$pdf->MultiCell(180 , 4 , fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "txtRes")), 0, "L");
$pdf->Ln(3);
$pdf->MultiCell(180 , 4 , fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "txtHw1")), 0, "L");
$pdf->Ln(3);
$pdf->MultiCell(180 , 4 , fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "txtHw2")), 0, "L");
$pdf->Ln(3);
}
else
{
$pdf->MultiCell(180 , 4 , fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "txtGes")), 0, "L");
$pdf->Ln(3);
}
$pdf->MultiCell(180 , 4 , fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "txtHw3")), 0, "L");
$pdf->Ln(3);
$pdf->MultiCell(180 , 4 , fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "txtHw4")), 0, "L");
$pdf->Ln(3);
$pdf->MultiCell(180 , 4 , fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "txtHw5")), 0, "L");
$pdf->Ln(5);
$pdf->MultiCell(180 , 4 , fncFeld ("dtfWert.N", $Vorgaben, array ("datVorgaben", 1, "Inhaber")), 0, "L");
# Tabelle
$pdf->SetFont('DejaVu','B',9);
$pdf->SetY(-37);
$pdf->Cell(60,0, fncPhrase ($Vorgaben, array ("Bankverbindung", "G")),'',0);
$pdf->Cell(60,0, fncPhrase ($Vorgaben, array ("Postadresse", "G")),'',0);
$pdf->Cell(60,0, fncPhrase ($Vorgaben, array ("AdresseFerienhaus", "G")),'',0);
$pdf->Ln(4);
$pdf->SetFont('DejaVu','',9);
$pdf->Cell(60,0, fncFeld ("dtfWert.NE", $Vorgaben, array ($datDatenbank, $idID, "Bank")),'',0);
$pdf->Cell(60,0, fncFeld ("dtfWert.NE", $Vorgaben, array ("datVorgaben", 1, "Inhaber")),'',0);
$pdf->Cell(60,0, fncFeld ("dtfWert.NE", $Vorgaben, array ("datVorgaben", 1, "Firma")),'',0);
$pdf->Ln(4);
$pdf->Cell(60,0, fncFeld ("dtfWert.NEV", $Vorgaben, array ($datDatenbank, $idID, "BLZ")),'',0);
$pdf->Cell(60,0, fncFeld ("dtfWert.NE", $Vorgaben, array ("datVorgaben", 1, "Strasse")),'',0);
$pdf->Cell(60,0, fncFeld ("dtfWert.NE", $Vorgaben, array ("datVorgaben", 1, "FlStrasse")),'',0);
$pdf->Ln(4);
$pdf->Cell(60,0, fncFeld ("dtfWert.NEV", $Vorgaben, array ($datDatenbank, $idID, "KontoNr")),'',0);
$pdf->Cell(60,0, fncFeld ("dtfWert.NE", $Vorgaben, array ("datVorgaben", 1, "+PLZOrt")),'',0);
$pdf->Cell(60,0, fncFeld ("dtfWert.NE", $Vorgaben, array ("datVorgaben", 1, "+FlPLZOrt")),'',0);
$pdf->Ln(4);
$pdf->Cell(60,0, "",'',0);
$pdf->Cell(60,0, fncFeld ("dtfWert.NEV", $Vorgaben, array ("datVorgaben", 1, "Telefon")),'',0);
# PDF speichern und anzeigen
$pdf->Output($PfadPDF, "F");
$pdf->Output();
# alte PDF entfernen
fncDatei ("fdtEntfernen.", array ($Vorgaben["Ordner"]["Media"] . $Vorgaben["Data"][$datDatenbank][$idID]["Rechnung"]));
$Vorgaben["Data"][$datDatenbank][$idID]["Rechnung"] = $DateiName;
$Vorgaben["SchreibeDatenbanken"][$datDatenbank] = 1;
fncDatenbank ("dtbSchreiben", $Vorgaben, array ());
}
break;
}
}
break;
}
}
if (!$Vorgaben["curBook"]) // also Index
{
# Standardmodul ist Inhalte
$Vorgaben['cur_modul'] = 'Nh';
if (!isset ($_REQUEST["OpenCoord"]))
{
$_REQUEST["OpenCoord"] = ""; // nicht 0 schreiben!
}
if (!isset ($_REQUEST["ChangeCoord"]))
{
$_REQUEST["ChangeCoord"] = ""; // nicht 0 schreiben!
}
if (!isset ($Vorgaben["curModul"]))
{
$Vorgaben["curModul"] = ""; // nicht 0 schreiben!
}
# Formulare
$Vorgaben["Data"]["datFormulare"] = importiereDb ("Formulare", $Vorgaben["Pfade"]["Formulare"], "ID");
$Vorgaben = funFormular ("SammleFormulare", $Vorgaben, array ());
# Symbole
fncDatenbank ("dtbLesen", $Vorgaben, array ("datSmSymbole"));
fncDatenbank ("dtbLesen", $Vorgaben, array ("datSmElemente"));
# Lese Design + CVorgaben
fncDatenbank ("dtbLesen", $Vorgaben, array ("datLnLaender"));
fncDatenbank ("dtbLesen", $Vorgaben, array ("datDesign"));
fncDatenbank ("dtbLesen", $Vorgaben, array ("datStart"));
# Lese Inhalte
fncDatenbank ("dtbLesen", $Vorgaben, array ("datNhDetails"));
fncElement ("lmnBlaettern.EZ", $Vorgaben, array ("datNhDetails", "varNhEChap"));
# Debug
// $datNhDetails = $Vorgaben["Data"]["datNhDetails"];
// //$dbgVariable = "datNhDetails"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $datNhDetails_1 = $Vorgaben["Data"]["datNhDetails"][1];
// //$dbgVariable = "_REQUEST"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# SetModPages
fncNavi ("SetModPages", $Vorgaben, array ());
# SetPage
// fncNavi ("SetPage", $Vorgaben, array ());
setPage ($Vorgaben);
// fncNavi ("SetPageNeu", $Vorgaben, array ());
# Debug
// //$dbgInfo = "nach setpage"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
// $xdbNhKp = $Vorgaben["Data"]["xdbNhKp"];
// //$dbgVariable = "xdbNhKp"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $datNhDetails_1 = $Vorgaben["Data"]["datNhDetails"][1];
// //$dbgVariable = "datNhDetails_1"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Besitz filtern -> aktuelles Thema (nach SetPage!!!)
fncFilter ("fltDatenbank.P", $Vorgaben, array ("xdbNhKp", $_REQUEST[PAGE]));
# Debug
// //$dbgInfo = "nach besitz filtern"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
// $xdbNhKp_2 = $Vorgaben["Data"]["xdbNhKp"][2];
// //$dbgVariable = "xdbNhKp_2"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $datNhDetails_1 = $Vorgaben["Data"]["datNhDetails"][1];
// //$dbgVariable = "datNhDetails_1"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if ($Vorgaben["ObFernschreiber"])
{
$Vorgaben["OnLoad"] =" jsFernschreiber(); ";
}
# SetTitle
fncNavi ("SetTitle", $Vorgaben, array ());
# Debug_Center - Index
// $curBook = $Vorgaben["curBook"];
// //$dbgVariable = "curBook"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $curPage = $Vorgaben["curPage"];
// //$dbgVariable = "curPage"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $curLang = $Vorgaben["curLang"];
// //$dbgVariable = "curLang"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $curStarts = $Vorgaben["curStarts"];
// //$dbgVariable = "curStarts"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $Vorgaben = $Vorgaben;
// //$dbgVariable = "Vorgaben"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $xdbNhKp = $Vorgaben["Data"]["xdbNhKp"];
// //$dbgVariable = "xdbNhKp"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $datNhDetails = $Vorgaben["Data"]["datNhDetails"];
// //$dbgVariable = "datNhDetails"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $test = 7e-10;
// //$dbgVariable = "test"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$funLaufzeiten = $Vorgaben["funLaufzeiten"];
////$dbgVariable = "funLaufzeiten"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Debug
// $datNhDetails_1 = $Vorgaben["Data"]["datNhDetails"][1];
// //$dbgVariable = "datNhDetails_1"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $dbgHeuhaufen = $Vorgaben["Heuhaufen"];
// //$dbgVariable = "dbgHeuhaufen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $curModPages = $Vorgaben["curModPages"];
// //$dbgVariable = "curModPages"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Ausgabe
fncElement ("lmnAusgabe", $Vorgaben, array ());
### nach der Ausgabe sind die Vorgaben zerstört ###
}
else switch ($Vorgaben["curBook"])
{
case "booPortal":
{
# Formulare
$Vorgaben["Data"]["datFormulare"] = importiereDb ("Formulare", $Vorgaben["Pfade"]["Formulare"], "ID");
$Vorgaben = funFormular ("SammleFormulare", $Vorgaben, array ());
# Module
fncDatenbank ("dtbLesen", $Vorgaben, array ("datModule"));
# Symbole
fncDatenbank ("dtbLesen", $Vorgaben, array ("datSmSymbole"));
fncDatenbank ("dtbLesen", $Vorgaben, array ("datSmElemente"));
# abwärtskompatibel diverse Register an Vorgaben übergeben
if (is_array ($Vorgaben["Data"]["datModule"][0]["Sortierung"]))
foreach ($Vorgaben["Data"]["datModule"][0]["Sortierung"] as $idModul => $tmp)
{
# AnzeigeFelder
$Vorgaben["AnzeigeFelder"][$idModul][$Vorgaben["Data"]["datModule"][$idModul]["HauptDatenbank"]]["2D"] = $Vorgaben["Data"]["datModule"][$idModul]["Anzeige2DHaupt"];
$Vorgaben["AnzeigeFelder"][$idModul][$Vorgaben["Data"]["datModule"][$idModul]["HauptDatenbank"]]["1D"] = $Vorgaben["Data"]["datModule"][$idModul]["Anzeige1DHaupt"];
$Vorgaben["AnzeigeFelder"][$idModul][$Vorgaben["Data"]["datModule"][$idModul]["HauptDatenbank"]]["GelbeBox"] = $Vorgaben["Data"]["datModule"][$idModul]["AnzeigeGelbeBoxHaupt"];
$Anzeige2DWeitere = explode ("/", $Vorgaben["Data"]["datModule"][$idModul]["Anzeige2DWeitere"]);
if (is_array ($Anzeige2DWeitere))
foreach ($Anzeige2DWeitere as $Weitere)
{
list ($datDatenbank, $AnzeigeFelder) = explode (":", $Weitere . ":");
$Vorgaben["AnzeigeFelder"][$idModul][trim ($datDatenbank)]["2D"] = trim ($AnzeigeFelder);
}
# SortierFelder
$LeseDatenbanken = explode ("+", $Vorgaben["Data"]["datModule"][$idModul]["LeseDatenbanken"]);
if (is_array ($LeseDatenbanken)) foreach ($LeseDatenbanken as $datDatenbank)
{
$Vorgaben["SortiereDatenbanken"][$idModul][$datDatenbank] = "";
}
$Vorgaben["SortiereDatenbanken"][$idModul][$Vorgaben["Data"]["datModule"][$idModul]["HauptDatenbank"]] = $Vorgaben["Data"]["datModule"][$idModul]["SortiereHaupt"];
$SortiereWeitere = explode ("/", $Vorgaben["Data"]["datModule"][$idModul]["SortiereWeitere"]);
if (is_array ($SortiereWeitere)) foreach ($SortiereWeitere as $Weitere)
{
list ($datDatenbank, $SortierFelder) = explode (":", $Weitere . ":");
if ($datDatenbank = trim ($datDatenbank))
{
$Vorgaben["SortiereDatenbanken"][$idModul][$datDatenbank] = trim ($SortierFelder);
}
}
unset ($SortiereWeitere);
# Blättern
$bltDBs = explode ("/", $Vorgaben["Data"]["datModule"][$idModul]["bltDBs"]);
if (is_array ($bltDBs))
foreach ($bltDBs as $bltDB)
{
list ($datDatenbank, $varChap, $zhlDsJeSeite, $zhlBElemente, $obBAZ, $zhlBAbk, $obBSeitenzahl) = explode (",", $bltDB . ",,,,,,");
if ($datDatenbank = trim ($datDatenbank))
{
$Vorgaben["bltDBs"][$idModul]["lstDBs"][$datDatenbank] = $datDatenbank;
if (isset ($Vorgaben["regVars"][trim ($varChap)]))
{
$Vorgaben["bltDBs"][$idModul][$datDatenbank]["varChap"] = $Vorgaben["regVars"][trim ($varChap)];
}
else
{
$Vorgaben["bltDBs"][$idModul][$datDatenbank]["varChap"] = "";
}
$Vorgaben["bltDBs"][$idModul][$datDatenbank]["zhlDsJeSeite"] = trim ($zhlDsJeSeite);
$Vorgaben["bltDBs"][$idModul][$datDatenbank]["zhlBElemente"] = trim ($zhlBElemente);
$Vorgaben["bltDBs"][$idModul][$datDatenbank]["obBAZ"] = trim ($obBAZ);
$Vorgaben["bltDBs"][$idModul][$datDatenbank]["zhlBAbk"] = trim ($zhlBAbk);
$Vorgaben["bltDBs"][$idModul][$datDatenbank]["obBSeitenzahl"] = trim ($obBSeitenzahl);
}
}
unset ($bltDBs);
}
# Mitarbeiter
fncDatenbank ("dtbLesen", $Vorgaben, array ("datMitarbeiter"));
# SetModul
fncNavi ("SetModul", $Vorgaben, array ());
# Benutzeranmeldung (vor Rechte!)
funBenutzer ("ObZugang", $Vorgaben, array ());
# Rechte (nach Benutzeranmeldung!)
ladeRechte ($Vorgaben);
# Steuervariablen
if (!isset ($Vorgaben["Benutzer"]["ErlaubteModule"][$Vorgaben["curModul"]]) or !$Vorgaben["Benutzer"]["ErlaubteModule"][$Vorgaben["curModul"]]) // darf der Benutzer das angeforderte Modul sehen?
{
$Vorgaben["curModul"] = 0;
}
if (!isset ($_REQUEST["ActiveCoord" . $Vorgaben["curModul"]]))
{
$_REQUEST["ActiveCoord" . $Vorgaben["curModul"]] = "";
}
if (!isset ($_REQUEST["OpenCoord"]))
{
$_REQUEST["OpenCoord"] = ""; // nicht 0 schreiben!
}
if (!isset ($_REQUEST["ChangeCoord"]))
{
$_REQUEST["ChangeCoord"] = ""; // nicht 0 schreiben!
}
if (!isset ($_REQUEST["NewValue"]))
{
$_REQUEST["NewValue"] = ""; // nicht 0 schreiben!
}
# Feiertage
// fncDatenbank ("dtbLesen", $Vorgaben, array ("datFeiertage"));
// $Vorgaben["Feiertage"] = fncRegister ("rgsZiehen.", array ($Vorgaben, "datFeiertage", "Datum", "Titel"));
if (isset ($_REQUEST["Hilfe"]) and $Hilfethema = $_REQUEST["Hilfe"]) // Hilfesystem
{
$Vorgaben["Hilfe"]["Ausgabe"] = $Vorgaben["Inhalte"]["Kopf"]["Hilfe"][$Hilfethema];
}
elseif (!$Vorgaben["Benutzer"]["ObZugang"]) // zum Login
{
$Vorgaben["OnLoad"] = "location = '#mavidesk'; document.frmMvd.User.focus(); ";
// $Vorgaben["OnLoad"] = "document.frmMvd.User.focus(); ";
}
elseif ($Vorgaben["curModul"])
{
# wg. Übersichtlichkeit
$datDatenbank = $Vorgaben["Data"]["datModule"][$Vorgaben["curModul"]]["HauptDatenbank"];
# Laden
fncDatenbank ("dtbLesen.N", $Vorgaben, array ());
# Item gültig?
fncAmbiente ("ItemValidieren", $Vorgaben, array ());
# Ändern
funDatenbank ("ChangeData", $Vorgaben, array ());
# Ambiente
fncAmbiente ("Setzen", $Vorgaben, array ());
# debug
// echo var_dump($Vorgaben["SchreibeDatenbanken"]);
# Schreiben
fncDatenbank ("dtbSchreiben", $Vorgaben, array ());
# falls geschrieben -> neu lesen
if (isset ($Vorgaben["ObGeschrieben"]))
if ($Vorgaben["ObGeschrieben"])
{
fncDatenbank ("dtbLesen.N", $Vorgaben, array ());
}
# Debug
// //$dbgInfo = "Specials ausführen"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
# Specials ausführen
fncElement ("lmnSpecials", $Vorgaben, array ($Vorgaben["curModul"]));
# Debug
// //$dbgInfo = "OnLoad belegen"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
# OnLoad belegen
$Vorgaben = funVorgaben ("OnLoadBelegen", $Vorgaben, array ());
# Debug
// //$dbgInfo = "SchattenFelder vor Filtern"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
# SchattenFelder vor Filtern --> noch notwendig?
funDatenbank ("SchattenFelder.VorFilter", $Vorgaben, array ($datDatenbank)); // ablsöen --> fncElement/lmnSpecials
# Debug
// //$dbgInfo = "Reihenfolge erzwingen"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
# für die Filter-Routinen bestimmte Reihenfolge erzwingen: 1. Haupt-DB, 2. Besitz-DBs, 3. Rest
$regReihenfolge = array ();
$regReihenfolge[$datDatenbank] = 1; // Hauptdatenbank
if (isset ($Vorgaben["Data"][$datDatenbank][0]["Besitz"]))
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["Besitz"]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["Besitz"] as $Datenbank => $Ob)
if ($Ob)
{
// //$dbgVariable = "Datenbank"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$regReihenfolge[$Datenbank] = 1; // Besitz
}
$AlleDatenbanken = explode ("+", $Vorgaben["Data"]["datModule"][$Vorgaben["curModul"]]["LeseDatenbanken"]);
if (is_array ($AlleDatenbanken))
foreach ($AlleDatenbanken as $Datenbank)
{
$regReihenfolge[$Datenbank] = 1;
}
$ObBesitzGefiltert = 0;
# Debug
// //$dbgInfo = "mittenmang"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
if (is_array ($regReihenfolge))
foreach ($regReihenfolge as $Datenbank => $X)
{
# Besitz filtern --> muß vor FilterAufbauen geschehen
if (isset ($Vorgaben["Data"][$datDatenbank][0]["Besitz"][$Datenbank]))
if ($Vorgaben["Data"][$datDatenbank][0]["Besitz"][$Datenbank])
if (!$ObBesitzGefiltert)
{
// fncFilter ("fltDatenbank.P", $Vorgaben, array ($datDatenbank . "|" . $Vorgaben["curLang"])); // nur 1x, weil dann gleich für kompletten Besitz gefiltert wird
fncFilter ("fltDatenbank.P", $Vorgaben, array ($datDatenbank)); // nur 1x, weil dann gleich für kompletten Besitz gefiltert wird
$ObBesitzGefiltert = 1;
}
}
unset ($regReihenfolge);
# SchattenFelder nach Filtern
funDatenbank ("SchattenFelder.NachFilter", $Vorgaben, array ($datDatenbank));
# Sortieren
if (is_array ($Vorgaben["SortiereDatenbanken"][$Vorgaben["curModul"]]))
foreach ($Vorgaben["SortiereDatenbanken"][$Vorgaben["curModul"]] as $tmpDatenbank => $FelderObAb)
{
fncDatenbank ("dtbSortieren", $Vorgaben, array ($tmpDatenbank, $FelderObAb));
}
# AnzeigeFelder
funDatenbank ("AnzeigeFelder.Aufbauen", $Vorgaben, array ());
}
else // Startmenü
{
# Laden
// fncDatenbank ("dtbLesen", $Vorgaben, array ("datDisposition"));
# AdminInfo
// funDatenbank ("Vorbereiten.AdminInfo", $Vorgaben, array ());
}
# Debug_Center - Portal
// //$dbgVariable = "////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$y = array ();
//for ($x = 1; $x < 10000; $x++)
//{
// $c = mb_substr (md5 ("datDatenbank" . $x . "fldFeldDE"), 0, 5);
// if (!$y[$c])
// {
// $y[$c] = 1;
// }
// else
// {
// $s = "esel|hund|katze|hahn";
// //$dbgVariable = "s"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $t = explode("|", "esel|hund|katze|hahn");
// //$dbgVariable = "t"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $u = explode("|", "esel|hund|katze|hahn")[0];
// //$dbgVariable = "u"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// break;
// }
//}
// $bltDBs = $Vorgaben["bltDBs"];
// $datPhVk = $Vorgaben["Data"]["datPhVk"];
// //$dbgVariable = "datPhVk"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $xdbKopf = $Vorgaben["Data"]["xdbTmKp"];
// //$dbgVariable = "xdbKopf"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $xdbNhKp = $Vorgaben["Data"]["xdbNhKp"][0];
// //$dbgVariable = "xdbNhKp"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $datKatalog = $Vorgaben["Data"]["datKatalog"];
// //$dbgVariable = "datKatalog"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $datPhPhrasen = $Vorgaben["Data"]["datPhPhrasen"];
// //$dbgVariable = "datPhPhrasen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $datSmSymbole = $Vorgaben["Data"]["datSmSymbole"];
// //$dbgVariable = "datSmSymbole"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $datVorgaben0 = $Vorgaben["Data"]["datVorgaben"][0];
// //$dbgVariable = "datVorgaben0"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $Benutzer = $Vorgaben["Benutzer"];
// //$dbgVariable = "Benutzer"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $AktiveSprachen = $Vorgaben["AktiveSprachen"];
// //$dbgVariable = "AktiveSprachen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $Request = $_REQUEST;
// //$dbgVariable = "Request"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $datImmobilien = $Vorgaben["Data"]["datImmobilien"][0];
// //$dbgVariable = "datImmobilien"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $datImmobilien106 = $Vorgaben["Data"]["datImmobilien"][106];
// //$dbgVariable = "datImmobilien106"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$Vorgaben["funLaufzeiten"]["freieBenennung"] = (microtime (1) - $Vorgaben["funStartzeit1"]); // Endpunkt
# Debug
// echo var_dump ($Vorgaben);
# SetTitle
fncNavi ("SetTitle.P", $Vorgaben, array ());
# Ausgabe
fncElement ("lmnAusgabe.P", $Vorgaben, array ());
}
break;
case "booZoom":
{
// # Datenbanken lesen
// if (is_array ($Vorgaben["regZoomDbs"]))
// foreach ($Vorgaben["regZoomDbs"] as $datZoomDb)
// if ($datZoomDb)
// {
// fncDatenbank ("dtbLesen", $Vorgaben, array ($datZoomDb));
// }
# Debug_Center - Zoom
// $datNhDetails = $Vorgaben["Data"]["datNhDetails"];
// //$dbgVariable = "datNhDetails"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $datBilder = $Vorgaben["Data"]["datBilder"];
// //$dbgVariable = "datBilder"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// $regZoomDbs = $Vorgaben["regZoomDbs"];
// //$dbgVariable = "regZoomDbs"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# SetTitle
fncNavi ("SetTitle.Z", $Vorgaben, array ());
# Ausgabe
fncElement ("lmnAusgabe.Z", $Vorgaben, array ());
}
break;
case "booForms":
{
# hier_Kontaktformular
# debug
// //$dbgInfo = "booForms"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
// //$dbgVariable = "_REQUEST"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Metadaten
// $Vorgaben = funVorgaben ("Meta", $Vorgaben, array ());
// $Vorgaben["Meta"]["SeitenTitel"] = $Vorgaben["System"]["Vokabeln"]["SeitenTitelKontakt"]; // Standardtitel, wird ggf. durch Formular überschrieben
# var
$OnSubmit = "";
$ObInfoBox = 0;
$InfoBoxText = "";
$SymboleLinks = array ();
$SymboleMitte = array ();
$SymboleRechts = array ();
$AnkerSL = 0;
if (!isset ($_REQUEST["OpenCoord"]))
{
$_REQUEST["OpenCoord"] = ""; // nicht 0 schreiben!
}
if (!isset ($_REQUEST["ChangeCoord"]))
{
$_REQUEST["ChangeCoord"] = ""; // nicht 0 schreiben!
}
if (!isset ($Vorgaben["curModul"]))
{
$Vorgaben["curModul"] = ""; // nicht 0 schreiben!
}
# Step
if (!isset ($_REQUEST["Step"]) or !($_REQUEST["Step"] / 1))
{
$_REQUEST["Step"] = 1;
}
# Flag setzen
$ObOhneSchritt1 = 0; // Standard = mit Schritt 1
# Formulare laden
$Vorgaben["Data"]["datFormulare"] = importiereDb ("Formulare", $Vorgaben["Pfade"]["Formulare"], "ID");
# debug
// //$dbgInfo = "booForms"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
// //$dbgVariable = "dbgForm"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# angefordertes Formular prüfen
$Vorgaben = funFormular ("SammleFormulare", $Vorgaben, array ());
if (!isset ($_REQUEST[FORM]) or !$_REQUEST[FORM])
{
$_REQUEST[FORM] = 0;
}
// else
// {
// $Form = $_REQUEST[FORM];
// }
// $_REQUEST[FORM] = $Form;
$Formular = funFormular ("AktuellesFormular", $Vorgaben, array ($_REQUEST[FORM]));
# Standardwerte belegen?
if (is_array ($Formular))
foreach ($Formular as $Feld => $X)
if ($Feld)
if (!isset ($_REQUEST[$Feld]) or !$_REQUEST[$Feld])
if ($Formular[$Feld]["StandardWert"])
switch (mb_strtoupper ($Formular[$Feld]["FeldTyp"]))
{
case "DATUM":
{
switch (mb_strtoupper ($Formular[$Feld]["StandardWert"]))
{
case "HEUTE":
{
$_REQUEST[$Feld] = $Vorgaben["Heute"][10];
}
break;
case "MORGEN":
{
$_REQUEST[$Feld] = $Vorgaben["Morgen"][10];
}
break;
}
}
break;
default:
{
$_REQUEST[$Feld] = $Formular[$Feld]["StandardWert"];
}
break;
}
# Formular für Warenkorb -> Artikel vorbereiten
$mrkFormular = $Formular; // Merke Original
$Formular = array (); // lege neues Array an
$Formular[0] = $mrkFormular[0]; // übernehme Kopf
# Standard setzen für Absender (= Kunde) - kann dann bei Bedarf überschrieben werden
if (isset ($_REQUEST["Mail"]) and $_REQUEST["Mail"])
{
$Formular[0]["EMail"]["Absender"] = $_REQUEST["Mail"];
if ($_REQUEST["Name"])
{
$Formular[0]["Name"]["Absender"] = $_REQUEST["Name"];
}
else
{
$Formular[0]["Name"]["Absender"] = "---";
}
}
# debug
// //$dbgInfo = "42"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
// //$dbgVariable = "Form"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
switch ($_REQUEST[FORM])
{
case 42: // Universalformular aus Modulen
{
# Objekt übergeben
list ($crDb, $crDa, $crDs) = explode (",", $_REQUEST[OBJECT]);
switch ($crDa)
{
default:
case "H":
{
# Download aus Kopfdatei angefordert
$datDatenbank = "xdb" . $crDb . "Kp";
// $f_datei = 'Datei';
}
break;
case "D":
{
# Download aus Details/Elemente angefordert
$datDatenbank = "dat" . $crDb . "Details";
// $f_datei = 'Referenz';
}
break;
}
# Datenbank lesen
fncDatenbank ("dtbLesen", $Vorgaben, array ($datDatenbank));
$Formular[0]["Info1"] = fncPhrase ($Vorgaben, array ("IchInteressiereMichFuer", "G")) . " »" . fncFeld ("dtfWert.NF", $Vorgaben, array ($datDatenbank, $crDs, "Titel")) . "«";
$Formular[0]["Betreff"] = fncPhrase ($Vorgaben, array ("Anfrage", "G"));
}
break;
case 43: // Modul Dokument, Link zur Datei (aus Media) anfordern
case 44: // jedes Modul, in Elemente gesetzt, Link zur Datei (aus Download) anfordern
{
switch ($_REQUEST["Step"])
{
case 1:
case 2:
{
# Link zur Datei
$_REQUEST["Link"] = "(" . fncPhrase ($Vorgaben, array ("wirdErzeugt")) . ")";
}
break;
case 3:
{
# Objekt übergeben
# Objekt übergeben
// list ($crDb, $crDs, $crDq) = explode (",", $_REQUEST[OBJECT]);
list ($crDb, $crDa, $crDs, $crDq) = explode (",", $_REQUEST[OBJECT]);
switch ($crDa)
{
default:
case "H":
{
# Download aus Kopfdatei angefordert
$datDatenbank = "xdb" . $crDb . "Kp";
$f_datei = 'Datei';
}
break;
case "D":
{
# Download aus Details/Elemente angefordert
$datDatenbank = "dat" . $crDb . "Details";
// $datDatenbank = "datNhDetails";
$f_datei = 'Referenz';
}
break;
}
# Datenbank lesen
fncDatenbank ("dtbLesen", $Vorgaben, array ($datDatenbank));
switch ($crDq / 1)
{
default:
{
$rdnQuelle = mb_substr ($Vorgaben["Ordner"]["Media"], 1);
}
break;
case 1:
{
$rdnQuelle = mb_substr ($Vorgaben["Ordner"]["Download"], 1);
}
break;
}
# Link zur Datei
$_REQUEST["Link"] = "http://" . fncText ("ftxInternet.K", array (fncVorgaben ($Vorgaben, "Internet"))) . $rdnQuelle . fncFeld ("dtfWert.", $Vorgaben, array ($datDatenbank, $crDs, $f_datei));
}
break;
}
}
break;
case 45: // Direktkontaktaufnahme aus Modulen
{
# debug
// //$dbgInfo = "42"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
// //$dbgVariable = "regZoomDbs"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Objekt übergeben
list ($txDb, $idItem) = explode (",", $_REQUEST[OBJECT]);
# Konstanten
$datDatenbank = "xdb" . $txDb . "Kp";
# Datenbank lesen
fncDatenbank ("dtbLesen", $Vorgaben, array ($datDatenbank));
if (!fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idItem, "ObKontaktAufnahme")))
{
$txName = trim (fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idItem, "txtTitel")) . " " . fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idItem, "Titel")));
$Formular[0]["Name"]["Empfaenger"] = $txName;
$Formular[0]["EMail"]["Empfaenger"] = fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idItem, "EMail"));
$Formular[0]["Info1"] = str_replace ("[EMPFAENGER]", $txName, $Formular[0]["Info1"]);
}
else
{
$Formular[0]["Name"]["Empfaenger"] = "";
$Formular[0]["EMail"]["Empfaenger"] = "";
$Formular[0]["Info1"] = "";
}
}
break;
}
# Sonderfälle
switch ($Vorgaben["curClient"])
{
case "VNV":
{
switch ($Vorgaben["Formulare"][$_REQUEST[FORM]])
{
case "PreislisteAnfordern":
{
switch ($_REQUEST["Step"])
{
case 1:
case 2:
{
# Link zur Preiliste
$_REQUEST["Link"] = "(" . fncPhrase ($Vorgaben, array ("wirdErzeugt")) . ")";
}
break;
case 3:
{
# Link zur Preiliste
// $_REQUEST["Link"] = "*******************";
$_REQUEST["Link"] = "http://" . fncVorgaben ($Vorgaben, "Internet") . mb_substr ($Vorgaben["Ordner"]["Media"], 1) . fncVorgaben ($Vorgaben, "VNVPreisliste");
}
break;
}
}
break;
}
}
break;
case "CMK":
{
$Obj = $_REQUEST[OBJECT];
switch ($Vorgaben["Formulare"][$_REQUEST[FORM]])
{
case "Bestellung":
case "FrageZumProdukt":
{
# ausgewählte Produktkombi übergeben
list ($idProdukt, $idPapier, $idPreis, $idFarbe) = explode (",", $Obj);
# Datenbank(en) lesen
fncDatenbank ("dtbLesen", $Vorgaben, array ("datCMehrpreise"));
fncDatenbank ("dtbLesen", $Vorgaben, array ("datPapierformate"));
fncDatenbank ("dtbLesen", $Vorgaben, array ("datPapiersorten"));
fncDatenbank ("dtbLesen", $Vorgaben, array ("datFarben"));
fncDatenbank ("dtbLesen", $Vorgaben, array ("datCPreise"));
fncDatenbank ("dtbLesen", $Vorgaben, array ("datAuflagen"));
fncDatenbank ("dtbLesen", $Vorgaben, array ("datCFarben"));
fncDatenbank ("dtbLesen", $Vorgaben, array ("datCProdukte"));
# Fixfilter
fncFilter ("fltDatenbank", $Vorgaben, array ("datCProdukte", "ID", $idProdukt));
fncFilter ("fltDatenbank.P", $Vorgaben, array ("datCProdukte", $idProdukt));
# Fixfilter
fncElement ("lmnCmkErzeugePreise", $Vorgaben, array ($idProdukt, $idPapier));
$_REQUEST["Prod"] = fncFeld ("dtfWert.E", $Vorgaben, array ("datCProdukte", $idProdukt, "Titel"));
$_REQUEST["Desc"] = fncFeld ("dtfWert.E", $Vorgaben, array ("datCProdukte", $idProdukt, "Beschreibung"));
$_REQUEST["Size"] = fncFeld ("dtfWert.E", $Vorgaben, array ("datCPreise", $idPreis, "Format"));
$_REQUEST["Colo"] = fncFeld ("dtfWert.E", $Vorgaben, array ("datCPreise", $idPreis, "FarFar"));
$_REQUEST["Numb"] = fncFeld ("dtfWert.E", $Vorgaben, array ("datCPreise", $idPreis, "Auflage"));
$_REQUEST["Pape"] = fncFeld ("dtfWert.E", $Vorgaben, array ("datCPreise", $idPreis, "Papier"));
$_REQUEST["Weig"] = fncFeld ("dtfWert.E", $Vorgaben, array ("datCPreise", $idPreis, "Grammatur"));
# Papierfarbe wählen, keine gewählt = Standard --> da ersetzen wir im Filter das Wort STANDARD mit der Std-Farbe
if (!$idFarbe) // Standardfarbe
{
$_REQUEST["PaCo"] = fncFeld ("dtfWert.E", $Vorgaben, array ("datPapiersorten", $Vorgaben["Data"]["datCPreise"][$idPreis]["Papier"], "StdFarbe"));
}
else // weitere Farbe
{
$_REQUEST["PaCo"] = fncFeld ("dtfWert.E", $Vorgaben, array ("datFarben", $idFarbe, "Titel"));
}
$_REQUEST["Pric"] = fncFeld ("dtfWert.E", $Vorgaben, array ("datCPreise", $idPreis, "Preis"));
$_REQUEST["PrIn"] = "Der Preis enthält die gesetzliche Mehrwertsteuer. Der Preis gilt auf der Grundlage einer belichtungsfähigen Datei. Die Datei darf nur die Farben enthalten, die auch gedruckt werden sollen! Die Lieferung erfolgt frei Haus.";
# Werte belegen
$BetreffAnhang = " " . $_REQUEST["Prod"] . " " . $_REQUEST["Comm"];
$Formular[0]["Betreff"] .= $BetreffAnhang;
# Debug
$datCPreise = $Vorgaben["Data"]["datCPreise"];
//$dbgVariable = "datCPreise"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
break;
}
}
break;
case "SFH":
{
$Obj = $_REQUEST[OBJECT];
switch ($Vorgaben["Formulare"][$_REQUEST[FORM]])
{
case "NaVersenden":
{
# Konstanten
$datDatenbank = "datReservierungen";
$idID = $Obj;
# Datenbank(en) lesen
fncDatenbank ("dtbLesen", $Vorgaben, array ($datDatenbank));
# E-Mail aus DB holen
$Formular[0]["Name"]["Empfaenger"] = fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "VornameNachname"));
$Formular[0]["EMail"]["Empfaenger"] = fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "EMail"));
// $Formular[0]["EMail"]["Kunde"] = $Formular[0]["EMail"]["Empfaenger"];
# an Formular übergeben
$_REQUEST["Name"] = $Formular[0]["Name"]["Empfaenger"];
/*
# da ausschl. fixe Felder, überspringe Schritt 1
if ($_REQUEST["Step"] == 1)
{
$_REQUEST["Step"] = 2;
}
$ObOhneSchritt1 = 1;
*/
}
break;
case "RgVersenden":
{
# Konstanten
$datDatenbank = "datReservierungen";
$idID = $Obj;
# Datenbank(en) lesen
fncDatenbank ("dtbLesen", $Vorgaben, array ($datDatenbank));
# E-Mail aus DB holen
$Formular[0]["Name"]["Empfaenger"] = fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "VornameNachname"));
$Formular[0]["EMail"]["Empfaenger"] = fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "EMail"));
// $Formular[0]["EMail"]["Kunde"] = $Formular[0]["EMail"]["Empfaenger"];
# an Formular übergeben
$_REQUEST["Name"] = $Formular[0]["Name"]["Empfaenger"];
# Rechnung als PDF
if ($Vorgaben["Data"][$datDatenbank][$idID]["Rechnung"])
{
$_REQUEST["Anhang"] = "Rechnung als PDF";
$Formular[0]["DateiFeld"] = "File";
$_FILES["File"]["name"] = "rechnung.pdf";
$_FILES["File"]["size"] = 1;
$_FILES["File"]["type"] = "APPLICATION/PDF";
$_FILES["File"]["tmp_name"] = $Vorgaben["Ordner"]["Media"] . $Vorgaben["Data"][$datDatenbank][$idID]["Rechnung"];
}
}
break;
case "Reservierung":
{
# Datum prüfen
if (funDatum ("Konvertieren.10.8", $Vorgaben, array ($_REQUEST["Arrival"])) < $Vorgaben["Heute"][8])
{
$_REQUEST["Arrival"] = $Vorgaben["Heute"][10];
}
if (funDatum ("Konvertieren.10.8", $Vorgaben, array ($_REQUEST["Departure"])) <= funDatum ("Konvertieren.10.8", $Vorgaben, array ($_REQUEST["Arrival"])))
{
$_REQUEST["Departure"] = funDatum ("Konvertieren.10.10", $Vorgaben, array ($_REQUEST["Arrival"], 1));
}
}
break;
}
}
break;
case "SCN":
{
$Obj = "";
if (isset ($_REQUEST[OBJECT]))
{
$Obj = $_REQUEST[OBJECT];
}
switch ($Vorgaben["Formulare"][$_REQUEST[FORM]])
{
case "FrageZumProdukt":
{
# Datenbank(en) lesen
$datDatenbank = "datKatalog";
fncDatenbank ("dtbLesen", $Vorgaben, array ($datDatenbank));
fncDatenbank ("dtbLesen", $Vorgaben, array ("datNhBereiche"));
$txtAnhang = fncFeld ("dtfWert.E", $Vorgaben, array ($datDatenbank, $Obj, "Titel")) . "« (" . fncFeld ("dtfWert.E", $Vorgaben, array ("datNhBereiche", $Vorgaben["Data"][$datDatenbank][$Obj]["Bereiche"], "Bereich")) . ")";
$Formular[0]["Info1"] = fncPhrase ($Vorgaben, array ("ichInteressiereMFDProdukt", "G")) . " »" . $txtAnhang . ".";
$Formular[0]["Betreff"] .= " " . $txtAnhang;
}
break;
case "Bewerbungsbogen":
{
$txtAnhang = fncFeld ("dtfWert.E", $Vorgaben, array ($datDatenbank, $Obj, "ObjektID")) . " (" . fncFeld ("dtfWert.E", $Vorgaben, array ($datDatenbank, $Obj, "Kategorie")) . ")";
$Formular[0]["Info1"] = "Ich bewerbe mich für die Wohnung " . $txtAnhang . ", " . fncFeld ("dtfWert.E", $Vorgaben, array ($datDatenbank, $Obj, "Adresse")) . ". Ich versichere, dass alle nachfolgenden Auskünfte der Wahrheit entsprechen.";
$Formular[0]["Betreff"] .= " " . $txtAnhang;
}
break;
case "GrundrissAnfordern":
{
$txtAnhang = fncFeld ("dtfWert.E", $Vorgaben, array ($datDatenbank, $Obj, "ObjektID")) . " (" . fncFeld ("dtfWert.E", $Vorgaben, array ($datDatenbank, $Obj, "Kategorie")) . ")";
$Formular[0]["Info1"] = "Bitte senden Sie mir einen Grundriss für das Objekt " . $txtAnhang . " zu.";
$Formular[0]["Betreff"] .= " " . $txtAnhang;
}
break;
}
}
break;
case "PTG":
{
switch ($Vorgaben["Formulare"][$_REQUEST[FORM]])
{
case "FrageZumProdukt":
{
# Debug
//$dbgVariable = "hiersimma"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$idKatalog = $_REQUEST[OBJECT];
# Datenbank(en) lesen
fncDatenbank ("dtbLesen", $Vorgaben, array ("datKatalog"));
$Formular[0]["Betreff"] .= " " . $Vorgaben["Data"]["datKatalog"][$idKatalog]["Titel"];
$Formular[0]["Info1"] = fncPhrase ($Vorgaben, array ("ichInteressiereMFDProdukt", "G")) . " »" . $Vorgaben["Data"]["datKatalog"][$idKatalog]["Titel"] . "«";
}
break;
}
}
break;
}
# Formular wieder von Merke Formular ergänzen
if (is_array ($mrkFormular)) foreach ($mrkFormular as $Feld => $Details) if ($Feld) if ($Feld != "Items")
{
$Formular[$Feld] = $Details;
}
unset ($Details);
unset ($mrkFormular);
# Debug
//$dbgVariable = "Formular"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// if ($Formular[0]["FormularTitel"])
// {
// $Vorgaben["Meta"]["SeitenTitel"] = $Formular[0]["FormularTitel"];
// }
$Vorgaben["Formular"] = $Formular;
$Gruppen = BasisGruppenExtrahieren_11 ($Vorgaben);
$Vorgaben["Gruppen"] = $Gruppen;
$Felder = BasisFelderExtrahieren_10 ($Formular);
// $_REQUEST["Active"] = $_REQUEST["Active"];
if (!isset ($_REQUEST["Active"]))
{
$_REQUEST["Active"] = "";
}
$ObFehlerFeld = $_REQUEST["Active"]; // vor Validierung von Active abfangen, falls User von Korrektur aus reinkommt
if (!isset ($Felder[$_REQUEST["Active"]]) or !$Felder[$_REQUEST["Active"]]) // wenn kein gültiges Feld
{
$_REQUEST["Active"] = current ($Felder); // dann erstes gültiges Feld
}
// $_REQUEST = $_REQUEST;
if (is_array ($Felder))
foreach ($Felder as $Feld)
{
if (isset ($_REQUEST[$Feld]))
{
$_REQUEST[$Feld] = funEingabe ("Filtern", $Vorgaben, array ($_REQUEST[$Feld]));
}
else
{
$_REQUEST[$Feld] = "";
}
}
if (is_array ($Formular)) foreach ($Formular as $FeldID => $X) if ($FeldID) switch ($Formular[$FeldID]["FeldTyp"])
{
case "Optionen":
$Kandidaten = $Formular[$FeldID]["Kandidaten"];
if (is_array ($Kandidaten)) foreach ($Kandidaten as $KandidatenID => $X) if ($_REQUEST[$FeldID . $KandidatenID])
{
$_REQUEST[$FeldID][$KandidatenID] = 1;
}
break;
}
// $_REQUEST = $_REQUEST;
# Debug
// //$dbgVariable = "Request"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Eingaben validieren
switch ($_REQUEST["Step"])
{
case 2:
case 3:
// $ObFehlerFeld = BasisObEingabeFehler_11 ($Formular, $Eingaben);
$ObFehlerFeld = funEingabe ("Fehler", $Vorgaben, array ());
if ($ObFehlerFeld)
{
$_REQUEST["Step"] = 1;
$_REQUEST["Active"] = $ObFehlerFeld;
}
break;
}
// $_REQUEST["Step"] = $_REQUEST["Step"];
// $_REQUEST["Active"] = $_REQUEST["Active"];
# Eingaben validiert!
switch ($_REQUEST["Step"])
{
// default:
case 1:
{
$Vorgaben["ObJSKontrolle"] = 1;
$OnSubmit = "return JSKontrolle()"; // ohne abschließendes Semikolon --> geht über Format "Formular", da erst werden aus "|" --> ";"
if ($Formular[0]["Info1"])
{
$ObInfoBox = 1;
$InfoBoxText = nl2br ($Formular[0]["Info1"]);
}
$SymboleRechts = BasisSymbolHinzufuegen_11 ($Vorgaben, "", "Inaktiv", "zurueck", 0,0, "");
$SymboleRechts = BasisSymbolHinzufuegen_11 ($Vorgaben, fncPhrase ($Vorgaben, array ("naechsterSchritt", "G")), "Absenden", "weiter", "SL" . ++$AnkerSL, "if (JSKontrolle()) { document.frmMvd.Step.value = 2; document.frmMvd.submit(); } ", $SymboleRechts);
$OnLoad = array ();
if (is_array ($Formular)) foreach ($Formular as $FeldID => $X)
{
if ($FeldID) switch ($Formular[$FeldID]["FeldTyp"])
{
case "Optionen":
if (is_array ($_REQUEST[$FeldID])) foreach ($_REQUEST[$FeldID] as $KandidatenID => $Wert) if ($Wert)
{
$OnLoad[] = "document.frmMvd." . $FeldID . $KandidatenID . ".checked = true; ";
}
break;
}
}
if ($ObFehlerFeld) switch ($Formular[$_REQUEST["Active"]]["FeldTyp"])
{
default:
{
$OnLoad[] = "document.Signal" . $_REQUEST["Active"] . ".src='" . $Vorgaben["Ordner"]["SDesign"] . "signal_rechts.gif'; ";
$OnLoad[] = "document.frmMvd." . $_REQUEST["Active"] . ".focus(); ";
}
break;
case "Optionen":
{
$OnLoad[] = "document.Signal" . $_REQUEST["Active"] . ".src='" . $Vorgaben["Ordner"]["SDesign"] . "signal_links.gif" . "'; ";
$OnLoad[] = "document.frmMvd." . $_REQUEST["Active"] . key ($Formular[$_REQUEST["Active"]]["Kandidaten"]) . ".focus(); ";
}
break;
case "Radio":
{
$OnLoad[] = "document.Signal" . $_REQUEST["Active"] . ".src='" . $Vorgaben["Ordner"]["SDesign"] . "signal_links.gif" . "'; ";
$OnLoad[] = "document.frmMvd." . $_REQUEST["Active"] . "[0].focus(); ";
}
break;
}
elseif ($_REQUEST["Active"])
{
switch ($Formular[$_REQUEST["Active"]]["FeldTyp"])
{
default:
$OnLoad[] = "document.frmMvd." . $_REQUEST["Active"] . ".focus(); ";
break;
case "Optionen":
$OnLoad[] = "document.frmMvd." . $_REQUEST["Active"] . key ($Formular[$_REQUEST["Active"]]["Kandidaten"]) . ".focus(); ";
break;
case "Radio":
$OnLoad[] = "document.frmMvd." . $_REQUEST["Active"] . "[0].focus(); ";
break;
}
}
else
{
$OnLoad[] = "focus(); ";
}
$Vorgaben["OnLoad"] = $OnLoad;
}
break;
case 2:
{
$ObInfoBox = 1;
if ($Formular[0]["Info2"])
{
$InfoBoxText = nl2br ($Formular[0]["Info2"]);
}
else // Standard
{
$InfoBoxText = $Vorgaben["System"]["Vokabeln"]["InfoAngabenKontrollieren"];
}
if (!$ObOhneSchritt1)
{
$SymboleRechts = BasisSymbolHinzufuegen_11 ($Vorgaben, fncPhrase ($Vorgaben, array ("EingabenKorrigieren", "G")), "Normal", "zurueck", "SL" . ++$AnkerSL, "document.frmMvd.Active.value = 0; document.frmMvd.Step.value = 1; document.frmMvd.submit(); ", $SymboleRechts);
}
$SymboleRechts = BasisSymbolHinzufuegen_11 ($Vorgaben, fncPhrase ($Vorgaben, array ("jetztVersenden", "G")), "Normal", "weiter", "SL" . ++$AnkerSL, "document.frmMvd.Step.value = 3; document.frmMvd.submit(); ", $SymboleRechts);
}
break;
case 3:
# setzen wg. Abwärtskompatibillität
if (!$Formular[0]["ObAktionGesetzt"])
{
$Formular[0]["Aktionen"]["Mail"] = 1;
}
# Aktionen?
if (is_array ($Formular[0]["Aktionen"])) foreach ($Formular[0]["Aktionen"] as $Aktion => $Optionen) switch ($Aktion)
{
case "aktSFHsetzen": // Spree-Ferienhaus Formular schrebt in die DB
{
# DB lesen
fncDatenbank ("dtbLesen", $Vorgaben, array ("datReservierungen"));
# Daten ändern
$datID = funDatenbank ("FreieID", $Vorgaben, array ("datReservierungen"));
funDatenbank ("datAendern", $Vorgaben, array ("datReservierungen", $datID, "ID", $datID));
funDatenbank ("datAendern", $Vorgaben, array ("datReservierungen", $datID, "Name", $_REQUEST["Name"]));
funDatenbank ("datAendern", $Vorgaben, array ("datReservierungen", $datID, "Vorname", $_REQUEST["FName"]));
funDatenbank ("datAendern", $Vorgaben, array ("datReservierungen", $datID, "Strasse", $_REQUEST["Street"]));
funDatenbank ("datAendern", $Vorgaben, array ("datReservierungen", $datID, "PLZ", $_REQUEST["PostCode"]));
funDatenbank ("datAendern", $Vorgaben, array ("datReservierungen", $datID, "Ort", $_REQUEST["Location"]));
funDatenbank ("datAendern", $Vorgaben, array ("datReservierungen", $datID, "PlanAnreise", $_REQUEST["Arrival"]));
funDatenbank ("datAendern", $Vorgaben, array ("datReservierungen", $datID, "PlanAbreise", $_REQUEST["Departure"]));
funDatenbank ("datAendern", $Vorgaben, array ("datReservierungen", $datID, "EMail", $_REQUEST["Mail"]));
funDatenbank ("datAendern", $Vorgaben, array ("datReservierungen", $datID, "Telefon", $_REQUEST["Phone"]));
funDatenbank ("datAendern", $Vorgaben, array ("datReservierungen", $datID, "AnzahlPersonen", $_REQUEST["Persons"]));
# Reservierung von außen im Kommentarfeld kennzeichnen
funDatenbank ("datAendern", $Vorgaben, array ("datReservierungen", $datID, "Kommentar", "*** Gastreservierung *** / " . $_REQUEST["Message"]));
# DB schreiben
fncDatenbank ("dtbSchreiben", $Vorgaben, array ());
# Debug
//$dbgVariable = "aktSFHsetzen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "datID"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
break;
case "AKTNEWSLETTER": // An-/Abmelden aus Newsletter
{
//$dbgVariable = "Aktion"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "Optionen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$Anfrage = funAnfrage ("Auswerten", $Vorgaben, array ($Optionen, "=", ","));
//$dbgVariable = "Anfrage"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
fncDatenbank ("dtbLesen", $Vorgaben, array ($Anfrage["Werte"]["datAbonnenten"]));
$regMailAdressen = fncAltRegister ("Ziehen", $Vorgaben, array ($Anfrage["Werte"]["datAbonnenten"], $Anfrage["Werte"]["felEMail"] . ":Gross", "ID"));
$datID = $regMailAdressen[mb_strtoupper ($_REQUEST[$Anfrage["Werte"]["reqEMail"]])];
switch ($_REQUEST[$Anfrage["Werte"]["reqSchalter"]] / 1)
{
case 1: // Anmelden
//$dbgInfo = "Anmelden"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
if (!$datID)
{
$datID = funDatenbank ("FreieID", $Vorgaben, array ($Anfrage["Werte"]["datAbonnenten"]));
}
funDatenbank ("datAendern", $Vorgaben, array ($Anfrage["Werte"]["datAbonnenten"], $datID, $Anfrage["Werte"]["felEMail"], mb_strtolower ($_REQUEST[$Anfrage["Werte"]["reqEMail"]])));
funDatenbank ("datAendern", $Vorgaben, array ($Anfrage["Werte"]["datAbonnenten"], $datID, $Anfrage["Werte"]["felName"], $_REQUEST[$Anfrage["Werte"]["reqName"]]));
funDatenbank ("datAendern", $Vorgaben, array ($Anfrage["Werte"]["datAbonnenten"], $datID, $Anfrage["Werte"]["felNewsletter"], $Anfrage["Werte"]["reqNewsletter"]));
break;
case 2: // Abmelden
//$dbgInfo = "Abmelden"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
$Vorgaben = fncDatensatz ("DsEntfernen", $Vorgaben, array ($Anfrage["Werte"]["datAbonnenten"], $datID));
break;
}
fncDatenbank ("dtbSchreiben", $Vorgaben, array ());
// //$dbgVariable = "regMailAdressen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "datID"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
break;
case "aktVersand": // Standardmäßiger Versand als E-Mail
//$dbgVariable = "Aktion"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "Optionen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Mailaktion?
if ($ObMail = $Optionen)
{
$Nachrichten = funNachricht ("Erstellen", $Vorgaben, array ());
# Debug
//$dbgVariable = "Nachrichten"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if (is_array ($Nachrichten)) foreach ($Nachrichten as $Kennung => $Details)
{
if (is_array ($Details))
{
extract ($Details);
}
if (funNachricht ("Senden", $Vorgaben, array ($AbsenderName, $AbsenderAdresse, $EmpfaengerName, $EmpfaengerAdresse, $Betreff, $Nachricht, $Anhang)))
{
}
else
{
}
}
}
break;
}
// $dbgBlock = ""; echo fncDebug ("Block.Z", array ($Vorgaben["ObDebug"]));
$ObInfoBox = 1;
if ($Formular[0]["Info3"])
{
$InfoBoxText = nl2br ($Formular[0]["Info3"]) . funText ("Kette", $Vorgaben, array (floor ((555 - mb_strlen ($Formular[0]["Info3"])) / 30), " ![](\"http://www.xing.com/img/buttons/5_de_btn.gif\")
";
}
fncElement ("lmnHtmlSchleuse", $Vorgaben, array ($htmHTML));
}
}
break;
case "lmnMatroschka":
{
/*
A - Auf
Z - Zu
*/
$Parameter[] = "";
$Parameter[] = "";
list ($txtInhalt, $txtReferenz) = $Parameter;
unset ($Parameter);
// $ttlZelle = $txtInhalt;
list ($pfxKlasse, $ndzStartEnde) = explode ("|", $txtReferenz . "|");
$pfxKlasse = trim ($pfxKlasse);
$ndzStartEnde = trim ($ndzStartEnde);
if (!$pfxKlasse)
{
$pfxKlasse = " cssInhaltMatroschka";
}
list ($ndzStart, $ndzEnde) = explode ("-", $ndzStartEnde . "-");
$ndzStart = $ndzStart / 1;
$ndzEnde = $ndzEnde / 1;
if (!$ndzStart)
{
$ndzStart = 1;
}
if ($ndzEnde < $ndzStart)
{
$ndzEnde = $ndzStart;
}
if (mb_strstr ($Optionen, "A")) for ($Z = $ndzStart; $Z <= $ndzEnde; $Z++)
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", $pfxKlasse . $Z));
}
if (mb_strstr ($Optionen, "Z")) for ($Z = $ndzStart; $Z <= $ndzEnde; $Z++)
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
}
break;
case "lmnTabelle":
{
/*
A - Tabelle auf
B - Zeile auf
C - Zelle auf
D - Zelle zu + Zelle auf
E - Zelle zu + Zeile zu + Zeile auf + Zelle auf
Q - Suche
X - Zelle zu
Y - Zeile zu
Z - Tabelle zu
---
S - Satz:
O - öffnen
K - Kopfreihe
R - Reihe
F - Fuß
*/
$Parameter[] = "";
$Parameter[] = "";
list ($txtInhalt, $txtReferenz) = $Parameter;
unset ($Parameter);
if (mb_strstr ($Optionen, "Q"))
{
if ($txtInhalt)
{
$Vorgaben["Heuhaufen"][$Vorgaben["curHhID"]] .= $txtInhalt . " ";
}
}
else
{
if (mb_strstr ($Optionen, "D"))
{
fncElement ("lmnTabelle.X", $Vorgaben, array ());
fncElement ("lmnTabelle.C", $Vorgaben, array ($txtInhalt, $txtReferenz));
}
elseif (mb_strstr ($Optionen, "E"))
{
fncElement ("lmnTabelle.XY", $Vorgaben, array ());
fncElement ("lmnTabelle.BC", $Vorgaben, array ($txtInhalt, $txtReferenz));
}
elseif (mb_strstr ($Optionen, "S"))
{
$txtZellen = explode ("|", $txtInhalt);
$zhlSpalten = count ($txtZellen);
$spnWerte = array ();
$lscSpalten = array ();
for ($idZelle = ($zhlSpalten - 1); $idZelle >= 0; $idZelle--)
{
$txtZellen[$idZelle] = trim ($txtZellen[$idZelle]);
if ($idZelle > 0 and $txtZellen[$idZelle] == "=")
{
$txtZellen[$idZelle] = "";
$lscSpalten[$idZelle] = 1;
if (!isset ($spnWerte[$idZelle]) or !$spnWerte[$idZelle])
{
$spnWerte[$idZelle] = 2;
}
else
{
$spnWerte[$idZelle]++;
}
// $spnWerte[$idZelle]++;
if (!isset ($spnWerte[($idZelle - 1)]))
{
$spnWerte[($idZelle - 1)] = 0;
}
$spnWerte[($idZelle - 1)] += $spnWerte[$idZelle];
}
else
{
// $txtZellen[$idZelle] = fncText ("ftxWandeln.H", array ($txtZellen[$idZelle]));
}
}
if (mb_strstr ($Optionen, "O")) // Tabelle öffnen
{
$Vorgaben["curTbHg"] = 0; // Startwert für abwechselnde Zeilenfarbe setzen
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.A", array ("", "", " cssOoTbGs"));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.A", array ());
}
elseif (mb_strstr ($Optionen, "K") or mb_strstr ($Optionen, "R")) // Kopfreihe oder Zeile
{
$Vorgaben["curTbHg"] = fncZahl ("zhlKippeln", array ($Vorgaben["curTbHg"])); // abwechselnde Zeilenfarbe
if (mb_strstr ($Optionen, "K")) // Kopfreihe
{
$cssAbsatz = " cssOoTfLtA cssOoTsLtA cssOoSnLt cssOoTbTxZ cssOoTbTxK";
}
else // Reihe
{
$cssAbsatz = " cssOoTfLtA cssOoTsLtA cssOoSnLt cssOoTbTxZ";
}
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.B", array ());
if (is_array ($txtZellen))
foreach ($txtZellen as $idZelle => $txtZelle)
if (!isset ($lscSpalten[$idZelle]) or !$lscSpalten[$idZelle])
{
if (!isset ($spnWerte[$idZelle]))
{
$spnWerte[$idZelle] = 0;
}
if (!$idZelle) // 1. Spalte links
{
$cssAusrichtung = "";
# Zellklasse
if (mb_strstr ($Optionen, "K")) // Kopfreihe
{
if ($Vorgaben["curZone"])
{
$csFarbe = " cssOoTbHgK" . $Vorgaben["curZone"];
}
else
{
$csFarbe = "";
}
$cssZelle = " cssOoTbZl cssOoTbHgK0" . $csFarbe;
}
else // Reihe
{
if ($Vorgaben["curTbHg"])
{
$cssZelle = " cssOoTbZl cssOoTbHgL0 cssOoTbHgL1";
}
else
{
$cssZelle = " cssOoTbZl cssOoTbHgL0";
}
}
}
else // ab 2. Spalte
{
if (mb_strstr ($txtZelle, "››")) // rechtsbündig
{
$txtZelle = str_replace ("››", "", $txtZelle);
$cssAusrichtung = " cssSystemRechts";
}
else // linksbündig
{
$cssAusrichtung = "";
}
# Zellklasse
if (mb_strstr ($Optionen, "K")) // Kopfreihe
{
if ($Vorgaben["curZone"])
{
$csFarbe = " cssOoTbHgK" . $Vorgaben["curZone"];
}
else
{
$csFarbe = "";
}
$cssZelle = " cssOoTbZl cssOoTbHgK0" . $csFarbe;
}
else // Reihe
{
if ($Vorgaben["curTbHg"])
{
$cssZelle = " cssOoTbZl cssOoTbHgR0 cssOoTbHgR1";
}
else
{
$cssZelle = " cssOoTbZl cssOoTbHgR0";
}
}
}
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.C", array ($spnWerte[$idZelle], 0, "", $cssZelle));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstAbsatz.AZ", array ($txtZelle, $cssAbsatz . $cssAusrichtung));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.X", array ());
}
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.Y", array ());
}
elseif (mb_strstr ($Optionen, "F")) // Fuß
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.Z", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstBox.Z", array ());
}
unset ($spnWerte);
unset ($lscSpalten);
unset ($txtZellen);
}
else
{
$ttlZelle = $txtInhalt;
list ($klsZelle, $stlZelle, $klsTabelle, $stlTabelle, $vrbHxV) = explode ("|", $txtReferenz . "||||");
list ($vrbHorizontal, $vrbVertikal) = explode ("x", $vrbHxV . "x");
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle." . $Optionen, array ($vrbHorizontal, $vrbVertikal, $ttlZelle, $klsZelle, $stlZelle, $klsTabelle, $stlTabelle));
}
}
}
break;
case "lmnRahmen":
{
/*
A - oben
M - Mitte
U - unten
Z - Ende
P - Portal
*/
unset ($Parameter);
if (mb_strstr ($Optionen, "P"))
{
$pfxKlasse = " cssPortal";
}
else
{
$pfxKlasse = " cssOo";
}
if (mb_strstr ($Optionen, "A"))
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.ABC", array ("1", "1", "", $pfxKlasse . "RaO", "", $pfxKlasse . "RaG"));
}
elseif (mb_strstr ($Optionen, "M"))
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.XY", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.BC", array ("1", "1", "", $pfxKlasse . "RaM"));
}
elseif (mb_strstr ($Optionen, "U"))
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.XY", array ());
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.BC", array ("1", "1", "", $pfxKlasse . "RaU"));
}
elseif (mb_strstr ($Optionen, "Z"))
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstTabelle.XYZ", array ());
}
}
break;
case "lmnFormular":
{
/*
A - Auf
Z - Zu
P - Methode: Post
*/
$Parameter[] = "";
$Parameter[] = "";
list ($txtInhalt, $txtReferenz) = $Parameter;
unset ($Parameter);
if ($txtInhalt)
{
$frmOnSubmit = implode ("; ", explode ("|", $txtInhalt)) . "; ";
}
else
{
$frmOnSubmit = "";
}
# Formular-Name
if (isset ($txtReferenz))
{
$namFormular = $txtReferenz;
}
else
{
$namFormular = "";
}
if (!$namFormular)
{
$namFormular = "frmMvd";
}
# Ausgabe
if (mb_strstr ($Optionen, "Z"))
{
# Zeige immer OpenCoord
$Vorgaben["htmRumpf"][] = fncBaustein ("bstEgBlind", array ("OpenCoord", $_REQUEST["OpenCoord"]));
$Vorgaben["htmRumpf"][] = fncBaustein ("bstEgBlind", array ("ChangeCoord", $_REQUEST["ChangeCoord"]));
$Vorgaben["OpenFields"]["OpenCoord"] = 1;
$Vorgaben["OpenFields"]["ChangeCoord"] = 1;
# Blindfeld unabhängig vom Wert verhindert.
# Wenn ein sichtbares Eingabefeld da ist,
# darf kein zusätzliches hidden-Feld existieren
# bei sichtbaren Eingabefeld immer ausschalten
if (is_array ($_REQUEST))
foreach ($_REQUEST as $rquVariable => $rquWert)
if (!isset ($Vorgaben["OpenFields"][$rquVariable]) or !$Vorgaben["OpenFields"][$rquVariable])
{
$Vorgaben["htmRumpf"][] = fncBaustein ("bstEgBlind", array ($rquVariable, $rquWert));
}
}
$Vorgaben["htmRumpf"][] = fncBaustein ("bstFormular." . $Optionen, array ($namFormular, $frmOnSubmit));
}
break;
}
// if (isset ($Vorgaben))
// {
// return $Vorgaben;
// }
}
function fncZahl ($AktOpt, $Parameter)
{
list ($Aktion, $Optionen) = explode (".", $AktOpt . ".");
switch ($Aktion)
{
case "zhlZufall":
{
list ($Minimalwert, $Maximalwert) = $Parameter;
unset ($Parameter);
$Minimalwert /= 1;
$Maximalwert /= 1;
mt_srand ((double) microtime () * 1000000);
if ($Minimalwert != $Maximalwert and $Minimalwert < $Maximalwert)
{
$Ergebnis = mt_rand ($Minimalwert, $Maximalwert);
}
else
{
$Ergebnis = $Minimalwert;
}
}
break;
case "zhlRunden":
{
$Parameter[] = "";
$Parameter[] = "";
list ($Ergebnis, $DezimalStellen) = $Parameter;
unset ($Parameter);
$Ergebnis /= 1;
$DezimalStellen /= 1;
$Ergebnis = round ($Ergebnis, $DezimalStellen);
}
break;
case "zhlFormatieren":
{
/*
D - deutsch --> 2.400,50
E - englisch --> 2,400.00
V - Viertelbruch
*/
list ($Ergebnis) = $Parameter;
unset ($Parameter);
# Dezimalstellen
if (mb_strstr ($Optionen, "3"))
{
$DezimalStellen = 3;
}
elseif (mb_strstr ($Optionen, "2"))
{
$DezimalStellen = 2;
}
elseif (mb_strstr ($Optionen, "1"))
{
$DezimalStellen = 1;
}
else // 0 (null)
{
$DezimalStellen = 0;
}
// # Parameter
// $Format = $Aktion2;
// $DezimalStellen = (1 * $Aktion3);
// list ($Ergebnis) = $Parameter;
$Ergebnis /= 1;
if (mb_strstr ($Optionen, "V"))
{
$Vorrat = array
(
0 => "",
1 => "¼",
2 => "½",
3 => "¾"
);
$Ganzzahl = floor ($Ergebnis);
$Nachkomma = fncZahl ("zhlRunden", array (4 * ($Ergebnis - $Ganzzahl)));
if ($Nachkomma == 4)
{
$Ganzzahl++;
$Nachkomma = 0;
}
$Ergebnis = $Ganzzahl . $Vorrat[$Nachkomma];
unset ($Vorrat);
}
elseif (mb_strstr ($Optionen, "D"))
{
$Ergebnis = number_format ($Ergebnis, $DezimalStellen, ",", ".");
}
elseif (mb_strstr ($Optionen, "E"))
{
$Ergebnis = number_format ($Ergebnis, $DezimalStellen, ".", ",");
}
}
break;
case "zhlKippeln":
{
list ($Ergebnis) = $Parameter;
unset ($Parameter);
if ($Ergebnis)
{
$Ergebnis = 0;
}
else
{
$Ergebnis = 1;
}
}
break;
}
return $Ergebnis;
}
function fncNavi ($AktOpt, & $Vorgaben, $Parameter)
{
list ($Aktion, $Optionen) = explode (".", $AktOpt . ".");
switch ($Aktion)
{
case "SetTitlePic":
{
/*
*/
list ($dtnBild) = $Parameter;
unset ($Parameter);
# Setze Titelbild
$Vorgaben["curTitlePic"] = $dtnBild;
}
break;
case "SetTitle":
{
/*
P - Portal
F - Formular
Z - Zoom
*/
$Parameter[] = "";
list ($txtTitel) = $Parameter;
unset ($Parameter);
# var
$Vorgaben["curTitle1"] = "";
$Vorgaben["curTitle2"] = "";
// if (!isset ($Vorgaben["curModul"]))
// {
// $Vorgaben["curModul"] = "";
// }
# Setze Seitentitel
if (mb_strstr ($Optionen, "P")) // Portal
{
if ($Vorgaben["curModul"]) // Modul gewählt
{
$t_modifiziert = fncVorgaben ($Vorgaben, "Bz_" . $Vorgaben["curModul"] . "_Titel");
$Vorgaben["curTitle1"] = ($t_modifiziert) ? $t_modifiziert : $Vorgaben["Data"]["datModule"][$Vorgaben["curModul"]]["Titel"];
}
elseif (isset ($Vorgaben["Benutzer"]["ObZugang"]) and $Vorgaben["Benutzer"]["ObZugang"]) // Startmenü
{
$Vorgaben["curTitle1"] = "Start";
}
elseif (isset ($_REQUEST["Hilfe"]) and $_REQUEST["Hilfe"])
{
$Vorgaben["curTitle1"] = "Hilfe";
}
elseif (isset ($_REQUEST[TICKET]) and $_REQUEST[TICKET]) // Ticket
{
$Vorgaben["curTitle1"] = "Ticket";
}
else // Login
{
$Vorgaben["curTitle1"] = "Login";
}
$Vorgaben["curTitle2"] = "Mavidesk © www.stroner.com";
}
elseif (mb_strstr ($Optionen, "F")) // Formulare
{
$Vorgaben["curTitle1"] = fncPhrase ($Vorgaben, array ($Vorgaben["Formular"][0]["FormularTitel"], "G"));
}
elseif (mb_strstr ($Optionen, "Z")) // Zoom
{
$curLegende = "";
$Vorgaben["curTitle1"] = "";
$curBild = $_REQUEST[OBJECT];
if (isset ($Vorgaben["Data"]["datBilder"][$curBild]["Legende"]))
{
$curLegende = $Vorgaben["Data"]["datBilder"][$curBild]["Legende"];
}
if (isset ($Vorgaben["Data"]["datBilder"][$_REQUEST[OBJECT]]["Legende"]))
{
$Vorgaben["curTitle1"] = $Vorgaben["Data"]["datBilder"][$_REQUEST[OBJECT]]["Legende"];
}
}
else // Index
{
$Vorgaben["curTitle1"] = "";
if ($txtTitel)
{
$Vorgaben["Data"]["xdbNhKp"][$_REQUEST[PAGE]]["Titel"] = $txtTitel;
$Vorgaben["curTitle1"] = $txtTitel;
}
elseif (isset ($Vorgaben["Data"]["xdbNhKp"][$Vorgaben["curPage"]]["Menu"]))
{
$Vorgaben["curTitle1"] = $Vorgaben["Data"]["xdbNhKp"][$Vorgaben["curPage"]]["Menu"];
}
$Vorgaben["curTitle2"] = fncFeld ("dtfWert", $Vorgaben, array ("datVorgaben", 1, "Seitentitel"));
}
}
break;
case "SetModPages":
{
unset ($Parameter);
if (isset ($Vorgaben["Data"]["datNhDetails"][0]["Sortierung"]))
if (is_array ($Vorgaben["Data"]["datNhDetails"][0]["Sortierung"]))
foreach ($Vorgaben["Data"]["datNhDetails"][0]["Sortierung"] as $idElement => $tmp)
{
$dsBesitzer = $Vorgaben["Data"]["datNhDetails"][$idElement]["Besitzer"];
if (isset ($Vorgaben["Data"]["datTypen"][$Vorgaben["Data"]["datNhDetails"][$idElement]["Type"]]["Element"]))
if (fncDatensatz ("DsAktiv.FZ", $Vorgaben, array ("datNhDetails", $idElement)))
if (fncDatensatz ("DsAktiv.FZ", $Vorgaben, array ("xdbNhKp", $dsBesitzer)))
{
$t_zones = array ();
if (isset ($Vorgaben["Data"]["xdbNhKp"][$dsBesitzer]["Bereiche"]))
{
$t_zones = explode ('|', $Vorgaben["Data"]["xdbNhKp"][$dsBesitzer]["Bereiche"]);
}
else
{
$t_zones[0] = 0;
}
$Vorgaben["curModPages"]
[
$Vorgaben["Data"]["xdbNhKp"][$dsBesitzer][$Vorgaben["Data"]["xdbNhKp"][0]["fldSprache"]]
]
[
($t_zones[0] / 1)
]
[
$Vorgaben["Data"]["datTypen"][$Vorgaben["Data"]["datNhDetails"][$idElement]["Type"]]["Element"]
] = $dsBesitzer;
// $x = explode ('|', $Vorgaben["Data"]["xdbNhKp"][$dsBesitzer]["Bereiche"])[0] / 1;
// $x = explode ('|', $Vorgaben["Data"]["xdbNhKp"][$dsBesitzer]["Bereiche"])[0];
// $x = explode ('|', $Vorgaben["Data"]["xdbNhKp"][$dsBesitzer]["Bereiche"]);
// var_dump ($x);
}
}
}
break;
case "SetModul":
{
unset ($Parameter);
if (!isset ($_REQUEST[MODUL]))
{
$_REQUEST[MODUL] = "";
}
$Vorgaben["curModul"] = $_REQUEST[MODUL];
}
break;
case "SetClient":
{
unset ($Parameter);
# curClient setzen
$Vorgaben["curClient"] = "";
if (isset ($Vorgaben["Data"]["datVorgaben"][1]["Klient"]))
{
$Vorgaben["curClient"] = $Vorgaben["Data"]["datVorgaben"][1]["Klient"];
}
}
break;
case "SetLang":
{
unset ($Parameter);
# Sprachen vorbereiten
if (is_array ($Vorgaben["AktiveSprachen"]))
foreach ($Vorgaben["AktiveSprachen"] as $Sprache) // z.B. DE
{
$Vorgaben["ObSprache"][$Sprache] = 1;
}
if (is_array ($Vorgaben["Data"]["regLangDE"]))
foreach ($Vorgaben["Data"]["regLangDE"] as $Sprache => $tmp)
if (!isset ($Vorgaben["ObSprache"][$Sprache]) or !$Vorgaben["ObSprache"][$Sprache])
{
$Vorgaben["Data"]["regLangDE"][$Sprache] = "";
}
# curLid feststellen
$Lang = 0;
if (isset ($_REQUEST[PAGE]) and $_REQUEST[PAGE] and isset ($Vorgaben["Data"]["xdbNhKp"][$_REQUEST[PAGE]]["Sprache"])) // wenn Seite angefordert wurde
{
$Lang = $Vorgaben["ReAktiveSprachen"][$Vorgaben["Data"]["xdbNhKp"][$_REQUEST[PAGE]]["Sprache"]]; // dann Sprache der Seite übernehmen
}
elseif (isset ($_REQUEST[LANG])) // sonst
{
$Lang = $_REQUEST[LANG]; // Sprache aus Request übernehmen
}
$Lang /= 1;
if (!$Vorgaben["AktiveSprachen"][$Lang])
{
$Lang = 0;
}
# curLang setzen
$Vorgaben["curLang"] = $Vorgaben["AktiveSprachen"][$Lang]; // z.B. DE
# curLid setzen
$_REQUEST[LANG] = $Lang; // z.B. 0
$Vorgaben["curLid"] = $Lang; // z.B. 0
if ($Vorgaben["ObMehrsprachig"])
{
$Vorgaben["System"]["SVokabeln"] = funVorgaben ("Vokabeln.System", $Vorgaben, array ());
// $Vorgaben["System"]["CVokabeln"] = funVorgaben ("Vokabeln.Client", $Vorgaben, array ());
}
if (is_array ($Vorgaben["System"]["Vokabeln"]))
foreach ($Vorgaben["System"]["Vokabeln"] as $Vorgabe => $Wert)
{
if (is_array ($Wert))
foreach ($Wert as $Vorgabe2 => $Wert2)
{
if (isset ($Vorgaben["System"]["SVokabeln"][$Wert2]) and $Vorgaben["System"]["SVokabeln"][$Wert2])
{
// //$dbgVariable = "ja"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$Vorgaben["System"]["Vokabeln"][$Vorgabe][$Vorgabe2] = $Vorgaben["System"]["SVokabeln"][$Wert2];
}
else
{
// //$dbgVariable = "nein"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$Vorgaben["System"]["Vokabeln"][$Vorgabe][$Vorgabe2] = "/!\ " . $Wert2;
}
}
elseif (isset ($Vorgaben["System"]["SVokabeln"][$Wert]) and $Vorgaben["System"]["SVokabeln"][$Wert])
{
if ($Vorgaben["System"]["SVokabeln"][$Wert])
{
$Vorgaben["System"]["Vokabeln"][$Vorgabe] = $Vorgaben["System"]["SVokabeln"][$Wert];
}
else
{
$Vorgaben["System"]["Vokabeln"][$Vorgabe] = "/!\ " . $Wert;
}
}
}
# dies ist notwendig für Vorspann und Sprachwahl
if (is_array ($Vorgaben["AktiveSprachen"]))
foreach ($Vorgaben["AktiveSprachen"] as $Sprache)
{
$Vorgaben["curStarts"][$Sprache] = findFirstPage ($Vorgaben['Data']['xdbNhKp'], $Sprache);
}
}
break;
case "SetBook":
{
$Parameter[] = "";
list ($setBook) = $Parameter;
unset ($Parameter);
$Vorgaben["curBid"] = 0;
if (isset ($Vorgaben["rrgBooks"][$setBook]) and $Vorgaben["rrgBooks"][$setBook])
{
$Vorgaben["curBid"] = $Vorgaben["rrgBooks"][$setBook];
}
elseif (isset ($_REQUEST[BOOK]))
{
$Vorgaben["curBid"] = $_REQUEST[BOOK] / 1;
}
# wenn leer, dann ggf. aus Vorgaben setzen
if (!$Vorgaben["curBid"])
if (isset ($Vorgaben["setBook"]) and $Vorgaben["setBook"])
if ($Vorgaben["rrgBooks"][$Vorgaben["setBook"]])
{
$Vorgaben["curBid"] = $Vorgaben["rrgBooks"][$Vorgaben["setBook"]];
$Vorgaben["curBook"] = $Vorgaben["setBook"];
}
if (!isset ($Vorgaben["regBooks"][$Vorgaben["curBid"]]) or !$Vorgaben["regBooks"][$Vorgaben["curBid"]])
{
$Vorgaben["curBid"] = 0;
$Vorgaben["curBook"] = "";
}
else
{
$Vorgaben["curBook"] = $Vorgaben["regBooks"][$Vorgaben["curBid"]];
}
$_REQUEST[BOOK] = $Vorgaben["curBid"];
}
break;
}
// return $Vorgaben;
}
function fncUhrzeit ($AktOpt, $Parameter)
{
list ($Aktion, $Optionen) = explode (".", $AktOpt . ".");
switch ($Aktion)
{
case "hrzValidieren":
{
list ($Ergebnis) = $Parameter;
unset ($Parameter);
$Ergebnis = sprintf ("%03d", $Ergebnis);
$St = mb_substr ($Ergebnis, 0, -2);
if ($St > 23)
{
$St = 23;
}
$Mn = mb_substr ($Ergebnis, -2);
if ($Mn > 59)
{
$Mn = 59;
}
$Ergebnis = ($St . $Mn) / 1;
}
break;
case "hrzEingabe":
{
/*
A - automatische Erkennung des Formats
J - für Null > Jetzt einsetzen
V - Validieren
*/
$Parameter[] = "";
$Parameter[] = "";
list ($Ergebnis, $QuellFormat) = $Parameter;
unset ($Parameter);
# Debug
// //$dbgVariable = "___hrzEingabe___"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Ergebnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "QuellFormat"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if (mb_strstr ($Optionen, "A"))
{
if (mb_strstr ($Ergebnis, ".")) // Punkt
{
$Ergebnis = fncUhrzeit ("hrzEingabe.", array ($Ergebnis, "SMP"));
}
elseif (mb_strstr ($Ergebnis, ":")) // Doppelpunkt
{
$Ergebnis = fncUhrzeit ("hrzEingabe.", array ($Ergebnis, "SMD"));
}
elseif (mb_strstr ($Ergebnis, "-")) // Strich
{
$Ergebnis = fncUhrzeit ("hrzEingabe.", array ($Ergebnis, "SMS"));
}
elseif (mb_strstr ($Ergebnis, "/")) // Querstrich
{
$Ergebnis = fncUhrzeit ("hrzEingabe.", array ($Ergebnis, "SMQ"));
}
elseif (mb_strstr ($Ergebnis, ",")) // Komma
{
$Ergebnis = fncUhrzeit ("hrzEingabe.", array ($Ergebnis, "SMK"));
}
else // als Zahl z.B. 1234 für 12:34 Uhr
{
$Ergebnis = fncUhrzeit ("hrzEingabe.", array ($Ergebnis, "SMZ"));
}
}
else
{
switch ($QuellFormat)
{
case "SMP":
{
list ($St, $Mn) = explode (".", $Ergebnis);
}
break;
case "SMD":
{
list ($St, $Mn) = explode (":", $Ergebnis);
}
break;
case "SMS":
{
list ($St, $Mn) = explode ("-", $Ergebnis);
}
break;
case "SMQ":
{
list ($St, $Mn) = explode ("/", $Ergebnis);
}
break;
case "SMK":
{
list ($St, $Mn) = explode (",", $Ergebnis);
}
break;
case "SMZ":
{
if ($Ergebnis > 23)
{
$Ergebnis = sprintf ("%03d", $Ergebnis);
$St = mb_substr ($Ergebnis, 0, -2);
$Mn = mb_substr ($Ergebnis, -2);
}
else
{
$St = $Ergebnis;
$Mn = 0;
}
}
break;
}
if (mb_strstr ($Optionen, "J"))
{
if (!$St)
{
$St = fncUhrzeit ("hrzJetzt.S", array ());
}
if (!$Mn)
{
$Mn = fncUhrzeit ("hrzJetzt.M", array ());
}
}
$Ergebnis = ($St . sprintf ("%02d", $Mn)) / 1;
}
# Validieren?
if (mb_strstr ($Optionen, "V"))
{
$Ergebnis = fncUhrzeit ("hrzValidieren", array ($Ergebnis));
}
# Debug
// //$dbgVariable = "Ergebnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
break;
case "hrzJetzt":
{
/*
S - Stunde
M - Monat
K - komplett
*/
unset ($Parameter);
if (mb_strstr ($Optionen, "K"))
{
$Ergebnis = date ("Gi");
}
elseif (mb_strstr ($Optionen, "S"))
{
$Ergebnis = date ("G");
}
elseif (mb_strstr ($Optionen, "M"))
{
$Ergebnis = date ("i");
}
}
break;
case "hrzAusgabe":
{
/*
V - validieren
*/
list ($Ergebnis, $ZielFormat) = $Parameter;
unset ($Parameter);
# Validieren?
if (mb_strstr ($Optionen, "V"))
{
$Ergebnis = fncUhrzeit ("hrzValidieren", array ($Ergebnis));
}
$Ergebnis = sprintf ("%03d", $Ergebnis);
$St = mb_substr ($Ergebnis, 0, -2);
$Mn = mb_substr ($Ergebnis, -2);
switch ($ZielFormat)
{
case "SMD":
{
$Ergebnis = $St . ":" . sprintf ("%02d", $Mn);
}
break;
case "SMP":
{
$Ergebnis = $St . "." . sprintf ("%02d", $Mn);
}
break;
}
}
break;
}
return $Ergebnis;
}
function fncDatum ($AktOpt, $Parameter)
{
list ($Aktion, $Optionen) = explode (".", $AktOpt . ".");
switch ($Aktion)
{
case "dtmValidieren":
{
list ($Tg, $Mn, $Jr) = $Parameter;
unset ($Parameter);
$Ergebnis = date ("Ymd", mktime (0, 0, 0, $Mn, $Tg, $Jr));
}
break;
case "dtmEingabe":
{
/*
A - automatische Erkennung des Formats
H - für Null > Heute einsetzen
V - Validieren
+30/0/0 = heute in 30 Tagen oder 1/+1/0 = erster des nächsten Monats
*/
$Parameter[] = "";
$Parameter[] = "";
list ($Ergebnis, $QuellFormat) = $Parameter;
unset ($Parameter);
if (mb_strstr ($Optionen, "A"))
{
if ($Ergebnis or mb_strstr ($Optionen, "H"))
{
if (mb_strstr ($Ergebnis, ".")) // Punkt
{
$Ergebnis = fncDatum ("dtmEingabe.H", array ($Ergebnis, "DZP")); // Punkt
}
elseif (mb_strstr ($Ergebnis, "/") or mb_strstr ($Ergebnis, "+") or mb_strstr ($Ergebnis, "-")) // bevor "ohne alles" angenommen werden darf, auf +/- prüfen
{
$Ergebnis = fncDatum ("dtmEingabe.H", array ($Ergebnis, "DZQ")); // Querstrich
}
else // ohne alles
{
$Ergebnis = fncDatum ("dtmEingabe.H", array ($Ergebnis, "DZO")); // TTMMJJJJ
}
}
}
else
{
switch ($QuellFormat)
{
case "DZP":
{
list ($Tg, $Mn, $Jr) = explode (".", $Ergebnis . "..");
}
break;
case "DZQ":
{
list ($Tg, $Mn, $Jr) = explode ("/", $Ergebnis . "//");
}
break;
case "DZO":
{
$Tg = mb_substr ($Ergebnis, 0, 2);
$Mn = mb_substr ($Ergebnis, 2, 2);
$Jr = mb_substr ($Ergebnis, 4, 4);
}
break;
}
if (mb_strstr ($Optionen, "H"))
{
if (!$Tg)
{
$Tg = fncDatum ("dtmHeute.T", array ());
}
if (!$Mn)
{
$Mn = fncDatum ("dtmHeute.M", array ());
}
if (!$Jr)
{
$Jr = fncDatum ("dtmHeute.J", array ());
}
}
# Rechnen?
if (mb_substr ($Tg, 0, 1) == "+")
{
$Tg = fncDatum ("dtmHeute.T", array ()) + mb_substr ($Tg, 1);
$Optionen = "V"; // validieren
}
elseif (mb_substr ($Tg, 0, 1) == "-")
{
$Tg = fncDatum ("dtmHeute.T", array ()) - mb_substr ($Tg, 1);
$Optionen = "V"; // validieren
}
if (mb_substr ($Mn, 0, 1) == "+")
{
$Mn = fncDatum ("dtmHeute.M", array ()) + mb_substr ($Mn, 1);
$Optionen = "V"; // validieren
}
elseif (mb_substr ($Mn, 0, 1) == "-")
{
$Mn = fncDatum ("dtmHeute.M", array ()) - mb_substr ($Mn, 1);
$Optionen = "V"; // validieren
}
if (mb_substr ($Jr, 0, 1) == "+")
{
$Jr = fncDatum ("dtmHeute.J", array ()) + mb_substr ($Jr, 1);
$Optionen = "V"; // validieren
}
elseif (mb_substr ($Jr, 0, 1) == "-")
{
$Jr = fncDatum ("dtmHeute.J", array ()) - mb_substr ($Jr, 1);
$Optionen = "V"; // validieren
}
if (mb_strstr ($Optionen, "V"))
{
$Ergebnis = fncDatum ("dtmValidieren", array ($Tg, $Mn, $Jr));
}
else
{
$Ergebnis = sprintf ("%04d", $Jr) . sprintf ("%02d", $Mn) . sprintf ("%02d", $Tg);
}
}
# Validieren?
}
break;
case "dtmHeute":
{
/*
T - Tag
M - Monat
J - Jahr
K - komplett
*/
unset ($Parameter);
# Debug
// //$dbgVariable = "txtDatum"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if (mb_strstr ($Optionen, "K"))
{
$Ergebnis = date ("Ymd");
}
elseif (mb_strstr ($Optionen, "T"))
{
$Ergebnis = date ("j");
}
elseif (mb_strstr ($Optionen, "M"))
{
$Ergebnis = date ("n");
}
elseif (mb_strstr ($Optionen, "J"))
{
$Ergebnis = date ("Y");
}
}
break;
case "dtmAusgabe":
{
/*
*/
$Parameter[] = "";
$Parameter[] = "";
list ($Ergebnis, $ZielFormat, $Vorgaben) = $Parameter;
unset ($Parameter);
if ($Ergebnis)
{
$Tg = mb_substr ($Ergebnis, 6, 2);
$Mn = mb_substr ($Ergebnis, 4, 2);
$Jr = mb_substr ($Ergebnis, 0, 4);
switch ($ZielFormat)
{
default:
case "DZP": // TT.MM.JJJJ
{
$Ergebnis = sprintf ("%02d", $Tg) . "." . sprintf ("%02d", $Mn) . "." . sprintf ("%04d", $Jr);
}
break;
case "NZS": // JJJJ-MM-TT
{
$Ergebnis = sprintf ("%04d", $Jr) . "-" . sprintf ("%02d", $Mn) . "-" . sprintf ("%02d", $Tg);
}
break;
case "XTZ": // T
{
$Ergebnis = $Tg / 1;
}
break;
case "XMW": // Mmmmmmm --> benötigt Vorgaben!
{
// $Ergebnis = "Monat" . $Mn;
$Ergebnis = fncPhrase ($Vorgaben, array ("Monat" . $Mn));
}
break;
case "DXL":
{
$Ergebnis = fncPhrase ($Vorgaben, array ("Wochentag" . date ("w", mktime (12, 0, 0, $Mn, $Tg, $Jr)))) . ", " . sprintf ("%02d", $Tg) . ". " . fncPhrase ($Vorgaben, array ("Monat" . $Mn)) . " " . sprintf ("%04d", $Jr);
}
break;
}
}
unset ($Vorgaben);
}
break;
}
return $Ergebnis;
}
function fncText ($AktOpt, $Parameter)
{
list ($Aktion, $Optionen) = explode (".", $AktOpt . ".");
switch ($Aktion)
{
case "ftxEinheit":
{
list ($zhlMenge, $txtSingular, $txtPlural, $txtNull) = $Parameter;
unset ($Parameter);
// list ($txtSingular, $txtPlural) = explode ("|", $txtSingularPlural);
if (!$txtPlural)
{
$txtPlural = $txtSingular;
}
// if (!$txtNull)
// {
// $txtNull = $txtPlural;
// }
if ($zhlMenge > 1)
{
$Ergebnis = $txtPlural;
}
elseif ($zhlMenge < 1)
{
$Ergebnis = $txtNull;
}
else // genau 1
{
$Ergebnis = $txtSingular;
}
}
break;
case "ftxSuchen":
{
list ($txtNadel, $txtHeuhaufen) = $Parameter;
unset ($Parameter);
# Debug
// $Vorgaben["ObDebug"] = 1;
// //$dbgVariable = "ftxSuchen_____________________"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "txtNadel"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "txtHeuhaufen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "idQuelle"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Heuhaufen bilden
$txtHeuhaufen = fncText ("ftxSchattenwert.Q", array ($txtHeuhaufen));
# Debug
// //$dbgVariable = "txtHeuhaufen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Suchworte bilden
$regSuchworte = explode (" ", fncText ("ftxSchattenwert", array ($txtNadel)));
$regNadeln = array ();
if (is_array ($regSuchworte))
foreach ($regSuchworte as $txtSuchwort)
{
switch (mb_strlen ($txtSuchwort)) // Suchwortlänge
{
default: // ist das Suchwort min. 4 Buchstaben lang, darf es überall stehen...
{
$regNadeln[] = $txtSuchwort;
}
break;
case 0: // kein Suchwort, z.B. durch Eingabe eines Leerzeichens nach Trimmen
{
}
break;
case 1:
case 2: // wenn das Suchwort nur 1 oder 2 Zeichen hat, muss es allein stehen...
{
$regNadeln[] = "^" . $txtSuchwort . "[ -/]|[ -/]" . $txtSuchwort . "[ -/]|[ -/]" . $txtSuchwort . "$";
}
break;
case 3: // wenn das Suchwort 3 Buchstaben hat, muss damit ein Wort beginnen...
{
$regNadeln[] = "^" . $txtSuchwort . "|[ -/]" . $txtSuchwort;
}
break;
}
}
unset ($regSuchworte);
# Treffer ermitteln
$zhlNadeln = 0;
$zhlTreffer = 0;
if (is_array ($regNadeln))
foreach ($regNadeln as $txtNadel)
{
$zhlNadeln++;
if (preg_match ("#" . $txtNadel . "#", $txtHeuhaufen))
{
$zhlTreffer++;
}
else
{
}
}
unset ($regNadeln);
if ($zhlTreffer and $zhlTreffer == $zhlNadeln)
{
$Ergebnis = true;
}
else
{
$Ergebnis = false;
}
}
break;
case "ftxKuerzen":
{
list ($Ergebnis, $zhlZeichen) = $Parameter;
unset ($Parameter);
$zhlTextlaenge = mb_strlen ($Ergebnis);
$zhlZeichen /= 1;
if ($zhlZeichen and $zhlTextlaenge > $zhlZeichen)
{
$Ergebnis = mb_substr ($Ergebnis, 0, $zhlZeichen) . " …";
}
}
break;
case "ftxInternet":
{
/*
K - kurz, ohne http://
*/
list ($Ergebnis) = $Parameter;
unset ($Parameter);
# Slash am Ende entfernen
if (mb_substr ($Ergebnis, -1) == "/")
{
$Ergebnis = mb_substr ($Ergebnis, 0, -1);
}
# HTTP-Vorspann ergänzen
if (!mb_strstr (mb_strtoupper ($Ergebnis), "HTTP"))
{
$Ergebnis = "http://" . $Ergebnis;
}
# HTTP-Vorspann entfernen?
if (mb_strstr ($Optionen, "K"))
{
$Ergebnis = str_replace ("http://", "", $Ergebnis);
$Ergebnis = str_replace ("https://", "", $Ergebnis);
}
}
break;
case "ftxSchattenwert":
{
/*
Q - für Suche
S - sortiertauglich
U - URL-tauglich
*/
list ($Ergebnis) = $Parameter;
unset ($Parameter);
if (mb_strstr ($Optionen, "Q")) // für Suche
{
$Ergebnis = str_replace ("ä", "A", $Ergebnis);
$Ergebnis = str_replace ("Ä", "A", $Ergebnis);
$Ergebnis = str_replace ("ö", "O", $Ergebnis);
$Ergebnis = str_replace ("Ö", "O", $Ergebnis);
$Ergebnis = str_replace ("ü", "U", $Ergebnis);
$Ergebnis = str_replace ("Ü", "U", $Ergebnis);
$Ergebnis = str_replace (".", " ", $Ergebnis);
$Ergebnis = str_replace ("-", " ", $Ergebnis);
$Ergebnis = str_replace ("+", " ", $Ergebnis);
$Ergebnis = str_replace ("=", " ", $Ergebnis);
$Ergebnis = str_replace ("’", "", $Ergebnis);
$Ergebnis = str_replace (":", "", $Ergebnis);
$Ergebnis = str_replace ("»", "", $Ergebnis);
$Ergebnis = str_replace ("«", "", $Ergebnis);
$Ergebnis = str_replace (",", " ", $Ergebnis);
$Ergebnis = @ereg_replace (" +", " ", $Ergebnis); // Mehrfach-Leerzeichen entfernen
}
elseif (mb_strstr ($Optionen, "U")) // URL-tauglich
{
$Ergebnis = str_replace ("ä", "AE", $Ergebnis);
$Ergebnis = str_replace ("Ä", "AE", $Ergebnis);
$Ergebnis = str_replace ("ö", "OE", $Ergebnis);
$Ergebnis = str_replace ("Ö", "OE", $Ergebnis);
$Ergebnis = str_replace ("ü", "UE", $Ergebnis);
$Ergebnis = str_replace ("Ü", "UE", $Ergebnis);
$Ergebnis = str_replace (" ", "_", $Ergebnis);
$Ergebnis = str_replace (".", "_", $Ergebnis);
$Ergebnis = str_replace ("-", "_", $Ergebnis);
$Ergebnis = str_replace ("+", "_", $Ergebnis);
$Ergebnis = str_replace ("=", "_", $Ergebnis);
$Ergebnis = str_replace ("’", "_", $Ergebnis);
$Ergebnis = str_replace (":", "_", $Ergebnis);
}
else // S - sortiertauglich
{
$Ergebnis = str_replace ("ä", "A", $Ergebnis);
$Ergebnis = str_replace ("Ä", "A", $Ergebnis);
$Ergebnis = str_replace ("ö", "O", $Ergebnis);
$Ergebnis = str_replace ("Ö", "O", $Ergebnis);
$Ergebnis = str_replace ("ü", "U", $Ergebnis);
$Ergebnis = str_replace ("Ü", "U", $Ergebnis);
$Ergebnis = str_replace (".", " ", $Ergebnis);
$Ergebnis = str_replace ("-", "", $Ergebnis);
$Ergebnis = str_replace ("+", " ", $Ergebnis);
$Ergebnis = str_replace ("=", " ", $Ergebnis);
$Ergebnis = str_replace ("’", "", $Ergebnis);
$Ergebnis = str_replace (":", "", $Ergebnis);
$Ergebnis = str_replace ("»", "", $Ergebnis);
$Ergebnis = str_replace ("«", "", $Ergebnis);
$Ergebnis = str_replace (",", " ", $Ergebnis);
$Ergebnis = @ereg_replace (" +", " ", $Ergebnis); // Mehrfach-Leerzeichen entfernen
}
$Ergebnis = str_replace ("ß", "SS", $Ergebnis);
$Ergebnis = mb_strtoupper ($Ergebnis);
}
break;
case "ftx2erGruppen":
{
list ($Ergebnis) = $Parameter;
unset ($Parameter);
$Laenge = mb_strlen ($Ergebnis);
$Sammler = array ();
if (!funZahl ("Ungerade", "", array ($Laenge)))
{
$Start = 0;
}
else
{
$Start = 1;
$Sammler[] = mb_substr ($Ergebnis, 0, 1);
}
for ($Z = $Start; $Z < $Laenge; $Z += 2)
{
$Sammler[] = mb_substr ($Ergebnis, $Z, 2);
}
$Ergebnis = implode ("ˆ", $Sammler);
unset ($Sammler);
}
break;
case "ftxTelefon":
{
/*
G - gruppieren 2er
*/
list ($Ergebnis, $Sprache) = $Parameter;
unset ($Parameter);
if ($Ergebnis)
{
if (!$Sprache)
{
$Sprache = "DE";
}
$Ergebnis = str_replace (" ", " ", $Ergebnis);
$Ergebnis = str_replace (")", "/", $Ergebnis);
$Ergebnis = str_replace ("(", "", $Ergebnis);
if ($Ergebnis[0] == "0")
{
$Ergebnis = trim (mb_substr ($Ergebnis, 1));
$LdVw = "+49";
$obDtRfNr = 1;
}
elseif (mb_substr ($Ergebnis, 0, 3) == "+49")
{
$Ergebnis = trim (mb_substr ($Ergebnis, 3));
$LdVw = "+49";
$obDtRfNr = 1;
}
else
{
$tmpRufnummer = explode (" ", $Ergebnis);
$LdVw = array_shift ($tmpRufnummer);
$Ergebnis = implode (" ", $tmpRufnummer);
unset ($tmpRufnummer);
$obDtRfNr = 0;
}
if (mb_strstr ($Ergebnis, "/"))
{
list ($StVw, $RfNr) = explode ("/", $Ergebnis . "/");
list ($RfNr, $ApNr) = explode ("-", $RfNr . "-");
}
elseif (mb_strstr ($Ergebnis, "-"))
{
list ($RfNr, $ApNr) = explode ("-", $Ergebnis . "-");
list ($StVw, $RfNr) = explode (" ", $RfNr . " ");
}
else
{
list ($StVw, $RfNr, $ApNr) = explode (" ", $Ergebnis . " ");
}
$StVw = str_replace (" ", "", $StVw);
$RfNr = str_replace (" ", "", $RfNr);
$ApNr = str_replace (" ", "", $ApNr);
if ($ApNr != "")
{
$RfNr .= "-" . $ApNr;
}
if ($Sprache == "DE" and $obDtRfNr)
{
$StVw = "0" . $StVw;
if (mb_strstr ($Optionen, "G"))
{
$StVw = fncText ("ftx2erGruppen", array ($StVw));
$RfNr = fncText ("ftx2erGruppen", array ($RfNr));
}
$Ergebnis = "(" . $StVw . ") " . $RfNr;
}
else
{
$Ergebnis = $LdVw . " " . $StVw . " " . $RfNr;
}
}
}
break;
case "ftxWandeln":
{
/*
wird_durchgereicht_1
D - ins Datenbankformat schreiben
U - umbrochener Unix-Text
F - fließender Unix-Text
H - HTML-umbrochener Text
L - mit Leerzeilen, spziell für Feld Inhalt in datNhDetails/datDesign
---
R - Rohwert, wie in Datenbank abgelegt
K - Klartext
E - mit Einheit
N - Nullwert, Datenbank-Nullwert hat Priotät
P - gelieferter Nullwert hat Priotät
S - Spezielles Anzeigeformat
G - in Gänsefüßchen, wenn Wert
*/
list ($Ergebnis) = $Parameter;
unset ($Parameter);
# Debug
// $Vorgaben["ObDebug"] = 1;
// //$dbgInfo = "WANDELN"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
// //$dbgVariable = "Optionen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Ergebnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if (mb_strstr ($Optionen, "U"))
{
# Debug
// //$dbgInfo = "U"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
$Ergebnis = trim ($Ergebnis);
$Ergebnis = str_replace (">", "›", $Ergebnis); // spitze Klammer
$Ergebnis = str_replace ("<", "‹", $Ergebnis); // spitze Klammer
$Ergebnis = str_replace ("--", "", $Ergebnis); //
$Ergebnis = str_replace ("¦", chr (13), $Ergebnis); // Zeilenumbruch
}
elseif (mb_strstr ($Optionen, "H"))
{
$Ergebnis = trim ($Ergebnis);
$Ergebnis = @ereg_replace (" +", " ", $Ergebnis); // Mehrfach-Leerzeichen entfernen
# spitze Klammer
$Ergebnis = str_replace (">", "›", $Ergebnis);
$Ergebnis = str_replace ("<", "‹", $Ergebnis);
# Auszeichnen? --> hier MaviCodes
// $Ergebnis = str_replace ("##", fncHTML ("span.Z", array ()), $Ergebnis);
// $Ergebnis = str_replace ("#", fncHTML ("span.A", array ("class", " cssInhaltAuszeichnen")), $Ergebnis);
# Einheiten binden
$Ergebnis = str_replace (" %", " %", $Ergebnis);
$Ergebnis = str_replace (" €", " €", $Ergebnis);
$Ergebnis = str_replace (" Mio.", " Mio.", $Ergebnis);
# Gedankenstrich
$Ergebnis = str_replace (" - ", " – ", $Ergebnis); // Gedankenstrich
$Ergebnis = str_replace ("_-", " –", $Ergebnis); // Gedankenstrich
$Ergebnis = str_replace (" –", " –", $Ergebnis); // Leerzeichen vor Gedankenstrich wird festes Leerzeichen
# Zeilenumbruch
$Ergebnis = str_replace ("¦¦", fncHTML ("br", array ()) . fncHTML ("small.A", array ()) . fncHTML ("br", array ()) . fncHTML ("small.Z", array ()), $Ergebnis);
$Ergebnis = str_replace ("¦", fncHTML ("br", array ()), $Ergebnis);
$Ergebnis = str_replace ("///", fncHTML ("br", array ()), $Ergebnis);
# weiches Leerzeichen mit der Breite 0 (null)
$Ergebnis = str_replace ("~", "", $Ergebnis); // lässt Umbruch zu durch Leerzeichen mit Breite null
$Ergebnis = str_replace ("--", "", $Ergebnis); // erzeugt Trennstrich bei Bedarf
# festes Leerzeichen
$Ergebnis = str_replace ("._", "." . fncHTML ("small.A", array ()) . " " . fncHTML ("small.Z", array ()), $Ergebnis);
$Ergebnis = str_replace ("_", " ", $Ergebnis); // festes Leerzeichen
$Ergebnis = str_replace ("ˆ", fncHTML ("small.A", array ()) . " " . fncHTML ("small.Z", array ()), $Ergebnis); // kleines festes Leerzeichen
# Hochstellen oder Tiefstellen?
if (mb_strstr ($Ergebnis, "^"))
{
# Tiefstellen?
$Ergebnis = str_replace ("°°", fncHTML ("sub.Z", array ()), $Ergebnis);
$Ergebnis = str_replace ("^^", fncHTML ("sub.A", array ()), $Ergebnis);
# Hochstellen?
$Ergebnis = str_replace ("°", fncHTML ("sup.Z", array ()), $Ergebnis);
$Ergebnis = str_replace ("^", fncHTML ("sup.A", array ()), $Ergebnis);
/*
# alte Variante, Regulär
$Woerter = array ();
$Woerter = explode (" ", $Ergebnis);
if (is_array ($Woerter))
foreach ($Woerter as $idWort => $Wort)
if (mb_strstr ($Wort, "^^"))
{
$Teile = explode ("^^", $Wort);
$Woerter[$idWort] = $Teile[0] . fncHTML ("sub.A", array ()) . $Teile[1] . fncHTML ("sub.Z", array ());
unset ($Teile);
}
if (mb_strstr ($Wort, "^"))
{
$Teile = explode ("^", $Wort);
$Woerter[$idWort] = $Teile[0] . fncHTML ("sup.A", array ()) . $Teile[1] . fncHTML ("sup.Z", array ());
unset ($Teile);
}
$Ergebnis = implode (" ", $Woerter);
unset ($Woerter);
*/
}
# Zeichenvorrat --> †‡
}
elseif (mb_strstr ($Optionen, "F"))
{
# Debug
// //$dbgInfo = "F"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
$Ergebnis = trim ($Ergebnis);
$Ergebnis = str_replace (">", "›", $Ergebnis);
$Ergebnis = str_replace ("<", "‹", $Ergebnis);
$Ergebnis = str_replace ("¦¦", " ", $Ergebnis);
$Ergebnis = str_replace ("¦", " ", $Ergebnis);
$Ergebnis = str_replace ("--", "", $Ergebnis);
$Ergebnis = str_replace ("~", "", $Ergebnis);
$Ergebnis = str_replace ("^", "", $Ergebnis);
$Ergebnis = str_replace ("°", "", $Ergebnis);
$Ergebnis = str_replace ("ˆ", "", $Ergebnis);
$Ergebnis = str_replace ("_", " ", $Ergebnis);
// $Ergebnis = str_replace ("#", "", $Ergebnis);
}
else // D
{
$Ergebnis = str_replace (chr (10), "", $Ergebnis); // LF entfernen
if (mb_strstr ($Optionen, "L"))
{
$Ergebnis = str_replace (chr (13), "¦", $Ergebnis);
}
else
{
$Ergebnis = str_replace (chr (13), "¦", $Ergebnis);
// $Ergebnis = @ereg_replace ("(¦){3,}", "¦¦", $Ergebnis); // macht aus 3 oder mehr CRs hintereinander immer genau zwei CRs
}
$Ergebnis = trim ($Ergebnis);
$Ergebnis = str_replace ("/=", "≠", $Ergebnis);
$Ergebnis = str_replace ("(/)", "ø", $Ergebnis);
$Ergebnis = str_replace (">=", "≥", $Ergebnis);
$Ergebnis = str_replace ("<=", "≤", $Ergebnis);
$Ergebnis = str_replace (">", "›", $Ergebnis); // spitze Klammer
$Ergebnis = str_replace ("<", "‹", $Ergebnis); // spitze Klammer
$Ergebnis = str_replace (chr (9), " ", $Ergebnis); // Tabs entfernen
$Ergebnis = str_replace ("\\", "", $Ergebnis); // Backslash entfernen
$Ergebnis = str_replace ("|", " | ", $Ergebnis); // Lesbarkeit
$Ergebnis = str_replace ("///", " /// ", $Ergebnis); // Lesbarkeit
# Gänsefüßchen
$Ergebnis = " " . $Ergebnis; // Leerzeichen voran für korrekten Gänsefüßchen-Austausch
$Ergebnis = str_replace (" " . chr (34), " »", $Ergebnis);
$Ergebnis = str_replace ("(" . chr (34), "(»", $Ergebnis);
$Ergebnis = str_replace (chr (34), "«", $Ergebnis);
$Ergebnis = str_replace ("“", "«", $Ergebnis);
$Ergebnis = str_replace ("”", "«", $Ergebnis);
$Ergebnis = str_replace ("„", "»", $Ergebnis);
# Zoll
// $Ergebnis = str_replace ("''", "”", $Ergebnis);
# Apostroph
// $Ergebnis = str_replace ("'", "’", $Ergebnis);
$Ergebnis = str_replace ("...", "…", $Ergebnis); // Ellipse ersetzen
$Ergebnis = str_replace ("+-", "±", $Ergebnis);
$Ergebnis = str_replace ("-+", "‑", $Ergebnis);
$Ergebnis = str_replace ("~~", "≈", $Ergebnis);
$Ergebnis = str_replace (";", ",", $Ergebnis); // Semikolon vs. Komma (CSV Konventionen)
$Ergebnis = @ereg_replace (" +", " ", $Ergebnis); // Mehrfach-Leerzeichen entfernen
$Ergebnis = str_replace (" ,", ",", $Ergebnis); // Leerzeichen vor Komma entfernen
$Ergebnis = trim ($Ergebnis); // Trimmen
}
# Debug
// //$dbgVariable = "Ergebnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
break;
}
return $Ergebnis;
}
function fncRegister ($AktOpt, $Parameter)
{
list ($Aktion, $Optionen) = explode (".", $AktOpt . ".");
switch ($Aktion)
{
case "rgsStaffel":
{
/*
N - Nullwert, Datenbank-Nullwert hat Priorität
P - gelieferter Nullwert hat Priorität
P ---
U - unabhängig, ob ID gesetzt ist
V - Von-bis-Staffel (sonst Bis-Staffel)
*/
list ($Vorgaben, $datDatenbank, $fldStaffel, $txtNullwert, $wrtStaffel) = $Parameter;
unset ($Parameter);
if ($wrtStaffel < 2)
{
$wrtStaffel = 2;
}
# Debug
//$dbgInfo = "rgsStaffel"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
//$dbgVariable = "datDatenbank"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "fldStaffel"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "wrtStaffel"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "txtNullwert"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
//$dbgVariable = "Optionen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Register anlegen
$Ergebnis = array ();
# Nullwert?
if (mb_strstr ($Optionen, "N"))
{
if (mb_strstr ($Optionen, "P"))
{
$optNullwert = "P";
}
else
{
$optNullwert = "";
}
$Ergebnis[0] = fncFeld ("dtfNullwert." . $optNullwert, $Vorgaben, array ($datDatenbank, 0, $fldStaffel, $txtNullwert));
$Ergebnis["~0"] = "---------------------";
}
# Debug
// //$dbgVariable = "Ergebnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Werte übergeben
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["Sortierung"]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["Sortierung"] as $idID => $tmp)
{
// unset ($tmp);
if (fncDatensatz ("DsAktiv.F", $Vorgaben, array ($datDatenbank, $idID)) or mb_strstr ($Optionen, "U"))
{
# Einheit
if ($txtEinheit = fncFeld ("dtfEinheit", $Vorgaben, array ($datDatenbank, $fldStaffel, 2))) // 2 am Ende ruft Plural auf
{
$txtEinheit = " " . $txtEinheit;
}
else
{
$txtEinheit = "";
}
$Unterkante = floor ($Vorgaben["Data"][$datDatenbank][$idID][$fldStaffel] / $wrtStaffel) * $wrtStaffel;
$Oberkante = ceil ($Vorgaben["Data"][$datDatenbank][$idID][$fldStaffel] / $wrtStaffel) * $wrtStaffel;
# Debug
// //$dbgInfo = "rgsStaffel"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
// //$dbgVariable = "Unterkante"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Oberkante"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "wrtStaffel"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "txtNullwert"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Ergebnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if ($Oberkante == $Unterkante)
{
$Oberkante += $wrtStaffel;
}
if (mb_strstr ($Optionen, "V")) // Von-bis-Staffel
{
$Ergebnis[$Oberkante] = fncZahl ("zhlFormatieren.D", array ($Unterkante)) . " bis " . fncZahl ("zhlFormatieren.D", array ($Oberkante - 1)) . $txtEinheit;
}
else // Bis-Staffel
{
$Ergebnis[$Oberkante] = "bis " . fncZahl ("zhlFormatieren.D", array ($Oberkante - 1)) . $txtEinheit;
}
}
}
# Sortieren
$Ergebnis = fncRegister ("rgsSortieren.SN", array ($Ergebnis));
# Debug
// //$dbgVariable = "Ergebnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
unset ($Vorgaben);
}
break;
case "rgsSortieren":
{
/*
A = Absteigend
N = Nullwert erhalten (wird an den Anfang gesetzt)
O = Nullwert erhalten (bleibt an Originalposition bzw. wird einsortiert)
E = Nullwert wird ans Ende gestellt
S = sortieren nach Schlüsseln
U = Unsortiert --> entfernt überflüssige Gruppierer
Z = als Zahlen
*/
list ($regRegister) = $Parameter;
unset ($Parameter);
# Debug
// $Vorgaben["ObDebug"] = 1;
// //$dbgInfo = "rgsSortieren"; echo fncDebug ("Info", array ($Vorgaben["ObDebug"], $dbgInfo));
// //$dbgVariable = "Optionen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
$Ergebnis = array ();
$regOriginal = array ();
$regSchatten = array ();
$regGruppierer = array ();
# Werte übergeben, Gruppierer aussortieren
if (is_array ($regRegister)) foreach ($regRegister as $idRegister => $Wert)
{
if ($idRegister[0] == "~") // Gruppierer --> aussortieren
{
$regGruppierer[(mb_substr ($idRegister, 1))] = $Wert;
}
elseif ($idRegister or mb_strstr ($Optionen, "N")) // true oder Nullwert erhalten
{
$regOriginal[$idRegister] = $Wert;
$regSchatten[$idRegister] = $Wert;
}
}
# Register mit Schattenwerten erzeugen
if (is_array ($regSchatten)) foreach ($regSchatten as $idRegister => $Wert)
{
if (mb_strstr ($Optionen, "Z"))
{
$regSchatten[$idRegister] = $Wert / 1;
}
else
{
$regSchatten[$idRegister] = fncText ("ftxSchattenwert.S", array ($Wert));
}
}
# Sortieren
if (!mb_strstr ($Optionen, "U")) // wenn nicht Unsortiert
{
if (mb_strstr ($Optionen, "A")) // absteigend
{
if (mb_strstr ($Optionen, "S")) // nach Schlüsseln
{
if (is_array ($regSchatten)) krsort ($regSchatten);
}
else
{
if (is_array ($regSchatten)) arsort ($regSchatten);
}
}
else // Aufsteigend
{
if (mb_strstr ($Optionen, "S")) // nach Schlüsseln
{
if (is_array ($regSchatten)) ksort ($regSchatten);
}
else
{
if (is_array ($regSchatten)) asort ($regSchatten);
}
}
}
# Debug
// //$dbgVariable = "regRegister"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Nullwert an den Anfang?
if (isset ($regRegister[0]) and $regRegister[0] and mb_strstr ($Optionen, "N") and !mb_strstr ($Optionen, "O") and !mb_strstr ($Optionen, "E"))
{
$Ergebnis[0] = $regRegister[0];
if ($regGruppierer[0])
{
$Ergebnis["~0"] = $regGruppierer[0];
}
}
# sortierte Werte übergeben, Gruppierer wieder einfügen
if (is_array ($regSchatten))
foreach ($regSchatten as $idRegister => $tmp)
if ($idRegister or (mb_strstr ($Optionen, "N") and mb_strstr ($Optionen, "O")))
{
$Ergebnis[$idRegister] = $regOriginal[$idRegister];
if (isset ($regGruppierer[$idRegister]))
if ($regGruppierer[$idRegister])
{
$Ergebnis[("~" . $idRegister)] = $regGruppierer[$idRegister];
}
}
# Nullwert ans Ende?
if (isset ($regRegister[0]) and $regRegister[0] and mb_strstr ($Optionen, "N") and !mb_strstr ($Optionen, "O") and mb_strstr ($Optionen, "E"))
{
$Ergebnis[0] = $regRegister[0];
if ($regGruppierer[0])
{
$Ergebnis["~0"] = $regGruppierer[0];
}
}
unset ($regRegister);
unset ($regSchatten);
unset ($regOriginal);
unset ($regGruppierer);
}
break;
case "rgsIdEinfuegen":
{
/*
N - fügt idNeu/wrtNeu nach idBezug ein (Standard)
V - fügt idNeu/wrtNeu vor idBezug ein
*/
list ($regRegister, $IdNeu, $wrtNeu, $IdBezug) = $Parameter;
unset ($Parameter);
$Ergebnis = array ();
$obEingefuegt = 0;
if (mb_strstr ($Optionen, "V"))
{
if (is_array ($regRegister)) foreach ($regRegister as $ID => $Wert)
{
if (strval ($ID) == strval ($IdNeu))
{
}
elseif (strval ($ID) == strval ($IdBezug))
{
$Ergebnis[$IdNeu] = $wrtNeu;
$Ergebnis[$ID] = $Wert;
$obEingefuegt = 1;
}
else
{
$Ergebnis[$ID] = $Wert;
}
unset ($Wert);
}
}
else // N
{
if (is_array ($regRegister)) foreach ($regRegister as $ID => $Wert)
{
if (strval ($ID) == strval ($IdNeu))
{
}
elseif (strval ($ID) == strval ($IdBezug))
{
$Ergebnis[$ID] = $Wert;
$Ergebnis[$IdNeu] = $wrtNeu;
$obEingefuegt = 1;
}
else
{
$Ergebnis[$ID] = $Wert;
}
unset ($Wert);
}
}
if (!$obEingefuegt) // wenn IdBezug nicht existiert, dann ans Ende stellen
{
$Ergebnis[$IdNeu] = $wrtNeu;
}
unset ($wrtNeu);
}
break;
case "rgsZiehen":
{
/*
F - nur gefilterte Datensätze beachten
N - Nullwert, Datenbank-Nullwert hat Priorität
P - gelieferter Nullwert hat Priorität
P ---
S - Sprache beachten
U - unabhängig, ob ID gesetzt ist
X - ohne Gruppierer
*/
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
list ($Vorgaben, $datDatenbankSprache, $fldVorgabe, $fldWert, $txtNullwert, $Ergebnis, $regErlaubteWerte) = $Parameter;
unset ($Parameter);
list ($datDatenbank, $Sprache) = explode ("|", $datDatenbankSprache . "|");
# Debug
// $Vorgaben["ObDebug"] = 1;
// //$dbgVariable = "rgsZiehen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "datDatenbankSprache"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "fldVorgabe"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "fldWert"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# Ergebnis filtern?
if (is_array ($regErlaubteWerte))
{
$obFiltern = 1;
$obWerte = array ();
foreach ($regErlaubteWerte as $Wert)
{
$obWerte[$Wert] = 1;
}
unset ($regErlaubteWerte);
}
# Register anlegen
if (!is_array ($Ergebnis))
{
$Ergebnis = array ();
}
# Nullwert?
if (mb_strstr ($Optionen, "N"))
{
if (mb_strstr ($Optionen, "P"))
{
$optNullwert = "P";
}
else
{
$optNullwert = "";
}
$Ergebnis[0] = fncFeld ("dtfNullwert." . $optNullwert, $Vorgaben, array ($datDatenbank, 0, $fldWert, $txtNullwert));
if (!mb_strstr ($Optionen, "X"))
{
$Ergebnis["~0"] = "---------------------";
}
}
# Werte übergeben
$mrkLn = "";
if (isset ($Vorgaben["Data"][$datDatenbank][0]["Sortierung"]))
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["Sortierung"]))
foreach ($Vorgaben["Data"][$datDatenbank][0]["Sortierung"] as $idID => $tmp)
{
if (!isset ($Vorgaben["Data"][$datDatenbank][0]["fldSprache"]))
{
$Vorgaben["Data"][$datDatenbank][0]["fldSprache"] = "";
}
if (!isset ($Vorgaben["Data"][$datDatenbank][$idID][$Vorgaben["Data"][$datDatenbank][0]["fldSprache"]]))
{
$Vorgaben["Data"][$datDatenbank][$idID][$Vorgaben["Data"][$datDatenbank][0]["fldSprache"]] = "";
}
if (!mb_strstr ($Optionen, "F") or fncDatensatz ("DsAktiv.F", $Vorgaben, array ($datDatenbank, $idID)))
if (fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idID, $fldVorgabe)))
if (!mb_strstr ($Optionen, "S") or !$Sprache or (mb_strstr ($Optionen, "S") and $Sprache and $Vorgaben["Data"][$datDatenbank][$idID][$Vorgaben["Data"][$datDatenbank][0]["fldSprache"]] == $Sprache))
{
if ($mrkLn and $Vorgaben["Data"][$datDatenbank][$idID][$Vorgaben["Data"][$datDatenbank][0]["fldSprache"]] != $mrkLn)
{
$Ergebnis["~" . $mrkJd] = "---------------------";
}
$mrkLn = $Vorgaben["Data"][$datDatenbank][$idID][$Vorgaben["Data"][$datDatenbank][0]["fldSprache"]];
$mrkJd = $idID;
$Ergebnis[fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idID, $fldVorgabe))] = fncFeld ("dtfWert.FNE", $Vorgaben, array ($datDatenbank, $idID, $fldWert));
}
}
unset ($obWerte);
unset ($Vorgaben);
}
break;
}
return $Ergebnis;
}
function fncOrdner ($AktOpt, $Parameter)
{
# var
$Ergebnis = "";
list ($Aktion, $Optionen) = explode (".", $AktOpt . ".");
switch ($Aktion)
{
case "rdnAufraeumen":
{
list ($rdnOrdner, $zhlVersionen, $nmDatei) = $Parameter;
unset ($Parameter);
if ($zhlVersionen) // Zahl der Versionen begrenzt?
{
# hole Dateiliste im Archivordner
$regDateien = fncOrdner ("rdnVerzeichnis.DI", array ($rdnOrdner));
# sammle Backups von nmDatei
$regSammler = array();
if (is_array ($regDateien))
foreach ($regDateien as $Datei)
if (fncDatei ("fdtZerlegePfad.N", array ($rdnOrdner . $Datei)) == $nmDatei)
{
$Version = fncDatei ("fdtVersion.", array ($rdnOrdner . $Datei));
$regSammler[$Version] = $rdnOrdner . $Datei; // merke Version und Pfad
}
# sortiere absteigend nach Version
if (is_array ($regSammler))
{
krsort ($regSammler);
}
$zhlZaehler = 0;
if (is_array ($regSammler))
foreach ($regSammler as $Pfad)
if (++$zhlZaehler > $zhlVersionen) // überzählige Dateien löschen
{
fncDatei ("fdtEntfernen.", array ($Pfad));
}
unset ($regSammler);
unset ($regDateien);
}
}
break;
case "rdnExklusivname":
{
/*
E - nur Endung beachten
H - Ergebnis im Hexadezimalcode
N - nur Dateinamen beachten + liefern
*/
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
list ($rdnOrdner, $zhlStellen, $txtVorspann) = $Parameter;
unset ($Parameter);
if (!$zhlStellen)
{
$zhlStellen = 7;
}
if (mb_strstr ($Optionen, "N")) // nur Dateinamen beachten + liefern
{
$optDtNamen = "N";
}
elseif (mb_strstr ($Optionen, "E")) // nur Dateiendungen beachten + liefern
{
$optDtNamen = "E";
}
else
{
$optDtNamen = "D";
}
$regDtNamen = fncOrdner ("rdnVerzeichnis." . $optDtNamen, array ($rdnOrdner));
# Debug
// $Vorgaben["ObDebug"] = 1;
// //$dbgVariable = "regDtNamen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if (is_dir ($rdnOrdner))
{
$zhlMin = "1";
$zhlMax = "9";
for ($Z = 2; $Z <= $zhlStellen; $Z++) // Stellen
{
$zhlMin .= "0";
$zhlMax .= "9";
}
$zhlMin /= 1;
$zhlMax /= 1;
for ($Z = 0; $Z < 999; $Z++) // Versuche
{
$zhlZufall = fncZahl ("zhlZufall", array ($zhlMin, $zhlMax));
if (mb_strstr ($Optionen, "H")) // Ergebnis im Hexadezimalcode
{
$zhlZufall = dechex ($zhlZufall);
}
$tmpDtName = $txtVorspann . $zhlZufall;
if (!isset ($regDtNamen[$tmpDtName]) or !$regDtNamen[$tmpDtName])
{
$Ergebnis = $tmpDtName;
break;
}
}
}
# Debug
// $Vorgaben["ObDebug"] = 1;
// //$dbgVariable = "Ergebnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
unset ($regDtNamen);
}
break;
case "rdnLeeren":
{
/*
I - index.html nicht löschen
*/
list ($rdnOrdner) = $Parameter;
unset ($Parameter);
$regVerzeichnis = fncOrdner ("rdnVerzeichnis.D" . $Optionen, array ($rdnOrdner));
$Ergebnis = true;
if (is_array ($regVerzeichnis))
foreach ($regVerzeichnis as $Datei)
if (!fncDatei ("fdtEntfernen.", array ($rdnOrdner . $Datei)))
{
$Ergebnis = false;
}
unset ($regVerzeichnis);
# Debug
// $Vorgaben["ObDebug"] = 1;
// //$dbgVariable = "rdnLeeren"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "regVerzeichnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Ergebnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
break;
case "rdnVerzeichnis":
{
/*
D - Dateien
E - nur Endungen
I - index.html nicht liefern
N - nur Dateinamen
O - Ordner
*/
list ($rdnOrdner) = $Parameter;
unset ($Parameter);
$Ergebnis = array ();
if (is_dir ($rdnOrdner))
{
$hndOrdner = opendir ($rdnOrdner);
while (($dtnEintrag = readdir ($hndOrdner)) != "")
{
$pfdEintrag = $rdnOrdner . $dtnEintrag;
if (mb_strstr ($Optionen, "D")) // Dateien
{
if (!mb_strstr ($Optionen, "I") or mb_strstr ($Optionen, "I") and $dtnEintrag != "index.html")
if (is_file ($pfdEintrag))
{
$Ergebnis[$dtnEintrag] = $dtnEintrag;
}
}
elseif (mb_strstr ($Optionen, "E")) // nur Endungen
{
if (is_file ($pfdEintrag))
{
$dtnEndung = fncDatei ("fdtZerlegePfad.E", array ($pfdEintrag));
$Ergebnis[$dtnEndung] = $dtnEndung;
}
}
elseif (mb_strstr ($Optionen, "N")) // nur Dateienamen
{
if (is_file ($pfdEintrag))
{
$dtnName = fncDatei ("fdtZerlegePfad.N", array ($pfdEintrag));
$Ergebnis[$dtnName] = $dtnName;
}
}
# Ordner
if (mb_strstr ($Optionen, "O"))
if (is_dir ($pfdEintrag) and $dtnEintrag != "." and $dtnEintrag != "..")
{
$Ergebnis[($dtnEintrag . "/")] = $dtnEintrag . "/";
}
}
closedir ($hndOrdner);
}
# Debug
// $Vorgaben["ObDebug"] = 1;
// //$dbgVariable = "rdnVerzeichnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "regVerzeichnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "Ergebnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
break;
}
return $Ergebnis;
}
function fncDatei ($AktOpt, $Parameter)
{
list ($Aktion, $Optionen) = explode (".", $AktOpt . ".");
switch ($Aktion)
{
case "fdtGroesse":
{
list ($pfdDatei) = $Parameter;
unset ($Parameter);
$Ergebnis = @filesize ($pfdDatei);
}
break;
case "fdtVersion":
{
list ($pfdDatei) = $Parameter;
unset ($Parameter);
$Ergebnis = @filemtime ($pfdDatei);
}
break;
case "fdtZerlegePfad":
{
/*
D - Datei
E - Endung
N - Dateiname
O - Ordner
*/
list ($pfdDatei) = $Parameter;
unset ($Parameter);
# extrahiere Ordner
$regTeile = explode ("/", $pfdDatei);
if (is_array ($regTeile))
{
$Datei = array_pop ($regTeile);
$Ordner = implode ("/", $regTeile) . "/";
}
unset ($regTeile);
if (mb_strstr ($Optionen, "O")) // Ordner
{
$Ergebnis = $Ordner;
}
elseif (mb_strstr ($Optionen, "D")) // Datei
{
$Ergebnis = $Datei;
}
else
{
# extrahiere Dateiname/Endung
$regTeile = explode (".", $Datei);
if (is_array ($regTeile))
{
$Endung = array_pop ($regTeile);
$Dateiname = implode (".", $regTeile);
}
unset ($regTeile);
if (mb_strstr ($Optionen, "N")) // Dateiname
{
$Ergebnis = $Dateiname;
}
elseif (mb_strstr ($Optionen, "E")) // Endung
{
$Ergebnis = $Endung;
}
}
}
break;
case "fdtEntfernen":
{
list ($pfdDatei) = $Parameter;
unset ($Parameter);
if (@unlink ($pfdDatei))
{
$Ergebnis = true;
}
else
{
$Ergebnis = false;
}
}
break;
case "fdtSchreiben":
{
/*
B - Backup
*/
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
list ($pfdDatei, $mltInhalte, $rdnBackup, $ndgExklusiv, $zhlVersionen) = $Parameter;
unset ($Parameter);
# Debug
// $Vorgaben["ObDebug"] = 1;
// //$dbgVariable = "Optionen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if (mb_strstr ($Optionen, "B")) // mit Backup
{
# extrahiere Dateiname
$nmDatei = fncDatei ("fdtZerlegePfad.N", array ($pfdDatei));
# exklusiven Dateinamen für Archivdatei festlegen
$dtExklusiv = $nmDatei . "." . $ndgExklusiv;
# Datei schreiben
if (!is_file ($pfdDatei) or fncDatei ("fdtKopieren.", array ($pfdDatei, $rdnBackup . $dtExklusiv))) // kopiere letzte Version der Datei (wenn sie existiert) ins Archiv
if (fncDatei ("fdtSchreiben.", array ($pfdDatei, $mltInhalte))) // überschreibe die aktuelle Datenbank
{
$Ergebnis = true;
}
else
{
$Ergebnis = false;
}
# Archiv bereinigen
fncOrdner ("rdnAufraeumen", array ($rdnBackup, $zhlVersionen, $nmDatei));
}
else // ohne Backup
{
# Inhalte vobereiten
if (is_array ($mltInhalte))
{
$txtInhalte = implode ("\n", $mltInhalte);
unset ($mltInhalte);
}
else
{
$txtInhalte = $mltInhalte;
}
$txtInhalte .= "\n";
# Datei schreiben
if ($hndDatei = @fopen ($pfdDatei, "w"))
if (@fwrite ($hndDatei, $txtInhalte))
{
@fclose ($hndDatei);
$Ergebnis = true;
}
else
{
$Ergebnis = false;
}
}
}
break;
case "fdtKopieren":
{
list ($pfdOriginal, $pfdDuplikat) = $Parameter;
unset ($Parameter);
if (@copy ($pfdOriginal, $pfdDuplikat))
{
$Ergebnis = true;
}
else
{
$Ergebnis = false;
}
}
break;
}
return $Ergebnis;
}
function fncBild ($AktOpt, $Parameter)
{
/*
bldEntfernen
$Ob = fncBild ("bldEntfernen", array ($rdnBilder, $dtnBild));
*/
list ($Aktion, $Optionen) = explode (".", $AktOpt . ".");
switch ($Aktion)
{
case "bldEntfernen":
{
list ($rdnBilder, $dtnBild) = $Parameter;
unset ($Parameter);
# Original entfernen
if (fncDatei ("fdtEntfernen.", array ($rdnBilder . $dtnBild)))
{
$Ergebnis = true;
}
else
{
$Ergebnis = false;
}
# Miniaturen entfernen
// $lstVerzeichnis = fncOrdner ("rdnVerzeichnis", array ($rdnBilder));
// if (is_array ($lstVerzeichnis)) foreach ($lstVerzeichnis as $rdnOrdner)
// {
// fncDatei ("fdtEntfernen.", array ($rdnBilder . $rdnOrdner . $dtnBild));
// }
// unset ($lstVerzeichnis);
}
break;
}
return $Ergebnis;
}
function fncFeld ($AktOpt, $Vorgaben, $Parameter)
{
/*
*/
$Ergebnis = "";
list ($Aktion, $Optionen) = explode (".", $AktOpt . ".");
switch ($Aktion)
{
case "dtfEinheit":
{
list ($datDatenbank, $fldFeld, $wrtWert) = $Parameter;
unset ($Parameter);
# var
$txtEinheiten ="";
if ($txtEinheiten = fncVorgaben ($Vorgaben, "Et_" . $datDatenbank . "_" . $fldFeld)) // wenn Einheiten in Vorgaben überschrieben wurden
{
}
elseif (isset ($Vorgaben["Data"][$datDatenbank][0]["Einheiten"][$fldFeld]))
{
$txtEinheiten = $Vorgaben["Data"][$datDatenbank][0]["Einheiten"][$fldFeld];
}
if ($txtEinheiten)
{
list ($vkbSingular, $vkbPlural, $vkbNull) = explode ("|", $txtEinheiten . "||");
$Ergebnis = fncText ("ftxEinheit", array ($wrtWert, fncPhrase ($Vorgaben, array ($vkbSingular)), fncPhrase ($Vorgaben, array ($vkbPlural)), fncPhrase ($Vorgaben, array ($vkbNull))));
}
unset ($Vorgaben);
}
break;
case "dtfMinMax":
{
list ($datDatenbank, $fldFeld) = $Parameter;
unset ($Parameter);
switch (fncFeld ("dtfFeldtyp", $Vorgaben, array ($datDatenbank, $fldFeld)))
{
case "dftBetrag":
case "dftZahl":
{
if (is_array ($Vorgaben["Data"][$datDatenbank])) foreach ($Vorgaben["Data"][$datDatenbank] as $ID => $tmp)
{
unset ($tmp);
$Z = 0;
if (fncDatensatz ("DsAktiv.FZ", $Vorgaben, array ($datDatenbank, $ID)))
{
if (!$Z++) // Startwerte setzen
{
$Vorgaben["Data"][$datDatenbank][0]["wrtMin"][$fldFeld] = $Vorgaben["Data"][$datDatenbank][$ID][$fldFeld];
$Vorgaben["Data"][$datDatenbank][0]["wrtMax"][$fldFeld] = $Vorgaben["Data"][$datDatenbank][$ID][$fldFeld];
}
else
{
if ($Vorgaben["Data"][$datDatenbank][$ID][$fldFeld] < $Vorgaben["Data"][$datDatenbank][0]["wrtMin"][$fldFeld])
{
$Vorgaben["Data"][$datDatenbank][0]["wrtMin"][$fldFeld] = $Vorgaben["Data"][$datDatenbank][$ID][$fldFeld];
}
if ($Vorgaben["Data"][$datDatenbank][$ID][$fldFeld] > $Vorgaben["Data"][$datDatenbank][0]["wrtMax"][$fldFeld])
{
$Vorgaben["Data"][$datDatenbank][0]["wrtMax"][$fldFeld] = $Vorgaben["Data"][$datDatenbank][$ID][$fldFeld];
}
}
}
}
}
break;
}
$Ergebnis = $Vorgaben;
}
break;
case "dtfNullwert":
{
/*
K - Klammern, wenn leer [ ]
P - gelieferter Nullwert hat Priotät
R - Rohwert
*/
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
list ($datDatenbankSprache, $idID, $fldFeld, $txtNullwert) = $Parameter;
unset ($Parameter);
list ($datDatenbank, $Sprache) = explode ("|", $datDatenbankSprache . "|");
# Debug
// //$dbgVariable = "datDatenbank"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}))
$FeldTyp = fncFeld ("dtfFeldtyp", $Vorgaben, array ($datDatenbank, $fldFeld, $idID));
if ($txtNullwert and mb_strstr ($Optionen, "P"))
{
$Ergebnis = $txtNullwert;
}
elseif (isset ($Vorgaben["Data"][$datDatenbank][0]["NllWrtUmleitungen"][$fldFeld]) and $Vorgaben["Data"][$datDatenbank][0]["NllWrtUmleitungen"][$fldFeld])
{
# in der Spalte Nullwerte sind evtl. mehrere Möglichkeiten aufgeführt
$regNullwerte = explode ("|", $Vorgaben["Data"][$datDatenbank][0]["NllWrtUmleitungen"][$fldFeld]);
# Debug
// //$dbgVariable = "___NllWrtUmleitungen"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "fldFeld"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "regNullwerte"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# gehe die Möglichkeiten durch
$obGefunden = 0;
if (is_array ($regNullwerte))
foreach ($regNullwerte as $Nullwert)
if (!$obGefunden)
{
list ($datQuelle, $idQuelle, $fldQuelle, $fldSprache) = explode (",", $Nullwert . ",,,");
# finde Quelldatenbank und Quelldatensatz
if ($datQuelle == "crr")
{
$datQuelle = $datDatenbank;
}
if ($idQuelle == "crr")
{
$idQuelle = $idID;
}
elseif ($idQuelle == "1")
{
$idQuelle = "1";
}
elseif (fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idID, $idQuelle)))
{
$idQuelle = fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idID, $idQuelle));
}
# finde angeforderte Sprache
if ($fldSprache)
if (isset ($Vorgaben["Data"][$datDatenbank][$idID][$fldSprache]))
{
$Sprache = $Vorgaben["Data"][$datDatenbank][$idID][$fldSprache];
}
else
{
$Sprache = 0;
}
if (!$Sprache)
{
$Sprache = $Vorgaben["curLang"];
}
# Rohwert angefordert?
if (mb_strstr ($Optionen, "R"))
{
$optWert = "R";
}
else
{
$optWert = "";
}
$Ergebnis = fncFeld ("dtfWert.N" . $Optionen . $optWert, $Vorgaben, array ($datQuelle . "|" . $Sprache, $idQuelle, $fldQuelle));
if ($Ergebnis)
{
$obGefunden = 1;
}
# Debug
// //$dbgVariable = "Ergebnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
if (mb_strstr ($Optionen, "K"))
if ($Ergebnis)
{
$Ergebnis = "[" . $Ergebnis . "]";
}
else
{
$Ergebnis = "[ ]";
}
}
unset ($regNullwerte);
}
elseif (isset ($Vorgaben["Data"][$datDatenbank][0]["NullWerte"][$fldFeld]) and $Vorgaben["Data"][$datDatenbank][0]["NullWerte"][$fldFeld])
{
// echo "yip".$Ergebnis;
// if (!mb_strstr ($Optionen, "R")) // Phrase nur liefern, wenn KEIN Rohwert angefordert wurde
// {
switch ($FeldTyp)
{
case "dftDatum":
{
}
break;
default:
{
$Ergebnis = fncPhrase ($Vorgaben, array ($Vorgaben["Data"][$datDatenbank][0]["NullWerte"][$fldFeld], "", $Sprache));
# im Portal geholte Werte in eckigen Klammern, außer Rohwerte
if ($Vorgaben["curModul"]) // im Portal geholte Werte in eckigen Klammern
if (!mb_strstr ($Optionen, "R"))
{
$Ergebnis = "[" . $Ergebnis . "]";
}
}
break;
}
// }
}
elseif ($txtNullwert)
{
$Ergebnis = $txtNullwert;
}
elseif (isset ($Vorgaben["Data"][$datDatenbank][0]["obLmnDb"]) and $Vorgaben["Data"][$datDatenbank][0]["obLmnDb"] and $fldFeld == "Inhalt") // Elemente-DB? Inhaltsfeld? --> dann flexibler Nullwert
{
switch ($Vorgaben["Data"][$datDatenbank][$idID]["Type"])
{
case "lmnCvd": // in dtfNullwert
case "lmnCvc": // in dtfNullwert
case "lmnCve": // in dtfNullwert
case "lmnCvf": // in dtfNullwert
case "lmnCvg": // in dtfNullwert
case "lmnCvh": // in dtfNullwert
case "lmnCvi": // in dtfNullwert
case "lmnCvj": // in dtfNullwert
{
$Ergebnis = "[" . fncFeld ("dtfWert.N", $Vorgaben, array ($datDatenbank, $idID, "Referenz")) . "]";
}
break;
}
// $Ergebnis .= "123";
if (mb_strstr ($Optionen, "K"))
if (fncFeld ("dtfObRechte.AS", $Vorgaben, array ($datDatenbank, $fldFeld, $idID)))
{
$Ergebnis = "[ ]";
}
else
{
$Ergebnis = "";
}
}
else switch ($FeldTyp)
{
case "dftBild": // in dtfNullwert
{
}
break;
case "dftZahl": // in dtfNullwert
{
$Ergebnis = funZahl ("Formatieren.DE", $Vorgaben, array (0));
}
break;
case "dftBetrag": // in dtfNullwert
{
$Ergebnis = funZahl ("Formatieren.DE.2", $Vorgaben, array (0));
}
break;
default:
{
if (mb_strstr ($Optionen, "K"))
if (fncFeld ("dtfObRechte.AS", $Vorgaben, array ($datDatenbank, $fldFeld, $idID)))
{
$Ergebnis = "[ ]";
}
else
{
$Ergebnis = "";
}
}
break;
}
# Debug
// //$dbgVariable = "Ergebnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
unset ($Vorgaben);
}
break;
case "dtfWert":
{
/*
wird_durchgereicht_1
A - als ANSII ausgeben
E - mit Einheit
G - in Gänsefüßchen, wenn Wert
K - in Klammern, wenn leer oder bezogener Nullwert
N - Nullwert, Datenbank-Nullwert hat Priotät
P - gelieferter Nullwert hat Priotät
R - Rohwert, wie in Datenbank abgelegt
S - Spezielles Anzeigeformat
V - mit Vorspann
X - XML Format
---
D - ins Datenbankformat schreiben
U - umbrochener Unix-Text
F - fließender Unix-Text
H - HTML-umbrochener Text
L - mit Leerzeilen, spziell für Feld Inhalt in datNhDetails/datDesign
*/
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
list ($datDatenbank, $idID, $fldFeld, $txtNullwert, $txtFormat, $zchEinklammern) = $Parameter;
unset ($Parameter);
list ($datDatenbank, $Sprache) = explode ("|", $datDatenbank . "|");
if (!$Sprache)
if (isset ($Vorgaben["curLang"]))
{
$Sprache = $Vorgaben["curLang"];
}
$FeldTyp = fncFeld ("dtfFeldtyp", $Vorgaben, array ($datDatenbank, $fldFeld, $idID));
$opOptionen = "";
if (mb_strstr ($Optionen, "F")) // fließender Unix-Text
{
$opOptionen = "F";
}
if (isset ($Vorgaben["Data"][$datDatenbank][0]["VokabelFelder"][$fldFeld]))
{
if (isset ($Vorgaben["Data"][$Vorgaben["Data"][$datDatenbank][0]["dbVokabeln"]][($Sprache . "|" . $idID . "|" . $fldFeld)]["Wert"]))
{
$dbWert = $Vorgaben["Data"][$Vorgaben["Data"][$datDatenbank][0]["dbVokabeln"]][($Sprache . "|" . $idID . "|" . $fldFeld)]["Wert"];
}
else
{
$dbWert = "";
}
}
elseif (isset ($Vorgaben["Data"][$datDatenbank][$idID][$fldFeld]))
{
$dbWert = $Vorgaben["Data"][$datDatenbank][$idID][$fldFeld];
}
else
{
$dbWert = "";
}
$obRohwert = 0;
if (mb_strstr ($Optionen, "R")) // Rohwert
{
$Ergebnis = $dbWert;
$obRohwert = 1;
}
else switch ($FeldTyp)
{
default:
{
$Ergebnis = strval ($dbWert);
}
break;
case "dftFormular": // in dtfWert
{
$Ergebnis = $Vorgaben["regFormulare"][($dbWert / 1)];
}
break;
case "dftTelefon": // in dtfWert
{
$Ergebnis = fncText ("ftxTelefon", array ($dbWert, $Vorgaben["curLang"]));
}
break;
case "dftNeuigkeit": // in dtfWert
case "dftTermin": // in dtfWert
case "dftKuenstler": // in dtfWert
case "dftBeitrag": // in dtfWert
case "dftDokument": // in dtfWert
case "dftProdukt": // in dtfWert
case "dftReferenz": // in dtfWert
case "dftKunde": // in dtfWert
case "dftPartner": // in dtfWert
case "dftJob": // in dtfWert
case "dftMitarbeiter": // in dtfWert
{
switch ($FeldTyp)
{
case "dftNeuigkeit": // in dtfWert
{
$dbQuelle = "xdbPwKp";
$txtNullwert = fncPhrase ($Vorgaben, array ("keine"));
}
break;
case "dftTermin": // in dtfWert
{
$dbQuelle = "xdbTmKp";
$txtNullwert = fncPhrase ($Vorgaben, array ("kein"));
}
break;
case "dftKuenstler": // in dtfWert
{
$dbQuelle = "xdbKnKp";
$txtNullwert = fncPhrase ($Vorgaben, array ("kein"));
}
break;
case "dftBeitrag": // in dtfWert
{
$dbQuelle = "xdbChKp";
$txtNullwert = fncPhrase ($Vorgaben, array ("kein"));
}
break;
case "dftDokument": // in dtfWert
{
$dbQuelle = "xdbDkKp";
$txtNullwert = fncPhrase ($Vorgaben, array ("kein"));
}
break;
case "dftProdukt": // in dtfWert
{
$dbQuelle = "xdbKtKp";
$txtNullwert = fncPhrase ($Vorgaben, array ("kein"));
}
break;
case "dftReferenz": // in dtfWert
{
$dbQuelle = "xdbRfKp";
$txtNullwert = fncPhrase ($Vorgaben, array ("keine"));
}
break;
case "dftKunde": // in dtfWert
{
$dbQuelle = "xdbKdKp";
$txtNullwert = fncPhrase ($Vorgaben, array ("kein"));
}
break;
case "dftPartner": // in dtfWert
{
$dbQuelle = "xdbPrKp";
$txtNullwert = fncPhrase ($Vorgaben, array ("kein"));
}
break;
case "dftJob": // in dtfWert
{
$dbQuelle = "xdbJbKp";
$txtNullwert = fncPhrase ($Vorgaben, array ("kein"));
}
break;
case "dftMitarbeiter": // in dtfWert
{
$dbQuelle = "xdbMtKp";
$txtNullwert = fncPhrase ($Vorgaben, array ("kein"));
}
break;
}
$Ergebnis = fncFeld ("dtfWert.N", $Vorgaben, array ($dbQuelle . "|" . $Sprache, $dbWert, "Titel"));
}
break;
case "dftMenu": // in dtfWert
{
if (isset ($Vorgaben["Data"]["xdbNhKp"][$dbWert]["Menu"]))
{
$Ergebnis = $Vorgaben["Data"]["xdbNhKp"][$dbWert]["Menu"];
}
if (!$txtNullwert)
{
$txtNullwert = "kein";
}
if (!$Ergebnis)
{
$Ergebnis = "[?????]";
}
}
break;
case "dftDbAuswahl": // in dtfWert
{
list ($dbQuelle, $flQuelle) = explode ("|", $Vorgaben["Data"][$datDatenbank][0]["Optionen"][$fldFeld]);
$Ergebnis = fncFeld ("dtfWert.N" . $opOptionen, $Vorgaben, array ($dbQuelle . "|" . $Sprache, $dbWert, $flQuelle));
}
break;
case "dftRgAuswahl": // in dtfWert
{
list ($rgQuelle) = explode ("|", $Vorgaben["Data"][$datDatenbank][0]["Optionen"][$fldFeld]);
if (isset ($Vorgaben["Data"][$rgQuelle][$dbWert]))
{
$Ergebnis = $Vorgaben["Data"][$rgQuelle][$dbWert];
}
if (!$txtNullwert)
{
$txtNullwert = "kein";
}
if (!$Ergebnis)
{
$Ergebnis = "[?????]";
}
}
break;
case "dftDbOptionen": // in dtfWert
{
$tmpIDs = explode ("|", $dbWert);
$tmpAusgabe = array ();
list ($dbQuelle, $flQuelle) = explode ("|", $Vorgaben["Data"][$datDatenbank][0]["Optionen"][$fldFeld]);
if (is_array ($tmpIDs)) foreach ($tmpIDs as $tmpID) if ($tmpID)
{
$tmpAusgabe[] = fncFeld ("dtfWert.E", $Vorgaben, array ($dbQuelle . "|" . $Sprache, $tmpID, $flQuelle));
}
$Ergebnis = implode (", ", $tmpAusgabe);
unset ($tmpAusgabe);
unset ($tmpIDs);
}
break;
case "dftOptionen": // in dtfWert
{
$tmpIDs = explode (",", $dbWert);
$obIDs = array ();
if (is_array ($tmpIDs)) foreach ($tmpIDs as $tmpID) if ($tmpID)
{
$obIDs[$tmpID] = 1;
}
$tmpAusgabe = array ();
if (is_array ($Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$fldFeld]["regGesAuswahl"])) foreach ($Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$fldFeld]["regGesAuswahl"] as $tmpID => $tmpWert) if ($obIDs[$tmpID])
{
$tmpAusgabe[] = $tmpWert;
}
if (is_array ($tmpAusgabe))
{
$Ergebnis = implode (", ", $tmpAusgabe);
}
if (!$Ergebnis)
{
if ($Nullwert = $Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$fldFeld]["regGesAuswahl"][0])
{
$Ergebnis = $Nullwert;
}
else
{
$Ergebnis = "kein";
}
}
# Debug
// //$dbgVariable = "tmpIDs"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "debKomAus"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
// //$dbgVariable = "tmpAusgabe"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
}
break;
case "dftDownload": // in dtfWert
{
$Ergebnis = $dbWert;
// $regAuswahl["0"] = fncPhrase ($Vorgaben, array ("keine"));
if (!$txtNullwert)
{
$txtNullwert = "keine";
}
}
break;
case "dftText": // in dtfWert
case "dftTxtfeld": // in dtfWert
{
$Ergebnis = fncText ("ftxWandeln." . $Optionen, array ($dbWert));
}
break;
case "dftDatum": // in dtfWert
{
if (mb_strstr ($Optionen, "S"))
{
$Ergebnis = fncDatum ("dtmAusgabe", array ($dbWert, $txtFormat, $Vorgaben));
}
else
{
$Ergebnis = fncDatum ("dtmAusgabe", array ($dbWert, $Vorgaben["Data"][$datDatenbank][0]["dtmFormate"][$fldFeld]));
}
}
break;
case "dftUhrzeit": // in dtfWert
{
if (mb_strstr ($Optionen, "S"))
{
$Ergebnis = fncUhrzeit ("hrzAusgabe", array ($dbWert, $txtFormat));
}
else
{
$Ergebnis = fncUhrzeit ("hrzAusgabe", array ($dbWert, $Vorgaben["Data"][$datDatenbank][0]["hrzFormate"][$fldFeld]));
}
}
break;
case "dftBetrag":
{
$Ergebnis = funZahl ("Formatieren.DE.2", $Vorgaben, array ($dbWert));
}
break;
case "dftZahl":
{
$Ergebnis = funZahl ("Formatieren.DE", $Vorgaben, array ($dbWert));
}
break;
case "dftSprache":
{
if ($Vorgaben["Data"]["regLangDE"][$dbWert])
{
$Ergebnis = $Vorgaben["Data"]["regLangDE"][$dbWert];
}
else
{
$Ergebnis = "[?????]";
}
}
break;
case "dftOnOff":
{
if (isset ($Vorgaben["Data"]["regOnOff"][$dbWert]) and $Vorgaben["Data"]["regOnOff"][$dbWert])
{
$Ergebnis = $Vorgaben["Data"]["regOnOff"][$dbWert];
}
else
{
$Ergebnis = "[?????]";
}
}
break;
case "dftHierarchie":
{
$Ergebnis = $Vorgaben["Data"][$datDatenbank][$idID]["+klr" . $fldFeld];
}
break;
case "dftAuswahl": // wird abgeschafft
{
if (isset ($Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$fldFeld]["regGesAuswahl"][$dbWert]) and $Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$fldFeld]["regGesAuswahl"][$dbWert])
{
$Ergebnis = $Vorgaben["Data"][$datDatenbank][0]["AuswahlListen"][$fldFeld]["regGesAuswahl"][$dbWert];
}
else
{
$Ergebnis = "[?????]";
}
}
break;
case "dftOb":
{
if (mb_strstr ($Optionen, "X"))
{
$nmRegister = "regObXML";
}
else
{
$nmRegister = "regOb";
}
if ($dbWert)
{
$Ergebnis = $Vorgaben["Data"][$nmRegister][1];
}
else
{
$Ergebnis = $Vorgaben["Data"][$nmRegister][0];
}
}
break;
}
# Debug
// //$dbgVariable = "Ergebnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
# expliziter Nullwert?
if (mb_strstr ($Optionen, "N"))
if (!$dbWert)
// if (!$Vorgaben["Data"][$datDatenbank][0]["PflichtFelder"][$fldFeld] and !$dbWert or $Vorgaben["Data"][$datDatenbank][0]["PflichtFelder"][$fldFeld])
switch ($FeldTyp)
{
default:
{
# Nullwert wie folgt:
if (!$obRohwert
and isset ($Vorgaben["Data"][$datDatenbank][0]["NullWerte"][$fldFeld]) and $Vorgaben["Data"][$datDatenbank][0]["NullWerte"][$fldFeld]
and !fncFeld ("dtfNullwert.R", $Vorgaben, array ($datDatenbank . "|" . $Sprache, $idID, $fldFeld))) // wenn Rohwert angefordert UND in DbTypen ein Nullwert steht UND kein Rohwert zu holen ist,
{
// $Ergebnis = "[" . fncPhrase ($Vorgaben, array ($Vorgaben["Data"][$datDatenbank][0]["NullWerte"][$fldFeld], $Sprache)) . "]"; // dann nimm Nullwert aus DbTypen
if (mb_strstr ($Optionen, "P")) // gelieferter Nullwert mit Priorität
{
$Ergebnis = $txtNullwert; // dann nimm gelieferten Nullwert
}
else
{
$Ergebnis = fncPhrase ($Vorgaben, array ($Vorgaben["Data"][$datDatenbank][0]["NullWerte"][$fldFeld], "", $Sprache)); // dann nimm Nullwert aus DbTypen
//debug ('dann nimm Nullwert aus DbTypen');
//$d_nullwert = $Vorgaben["Data"][$datDatenbank][0]["NullWerte"][$fldFeld];
// $_d = '$d_nullwert'; debugVariable ($_d = substr ($_d, 1), $$_d);
}
if (isset ($Vorgaben["curModul"]) and $Vorgaben["curModul"] and mb_strstr ($Optionen, "K")) // im Portal geholte Werte in eckigen Klammern
{
$Ergebnis = "[" . $Ergebnis . "]";
}
}
else // sonst Nullwert holen
{
$Ergebnis = fncFeld ("dtfNullwert." . $Optionen, $Vorgaben, array ($datDatenbank . "|" . $Sprache, $idID, $fldFeld, $txtNullwert));
}
}
break;
case "dftHierarchie": // Nullwert nicht verändern
case "dftFormular": // Nullwert nicht verändern
{
}
break;
}
# mit Einheit?
if (mb_strstr ($Optionen, "E"))
{
$txtEinheit = fncFeld ("dtfEinheit", $Vorgaben, array ($datDatenbank, $fldFeld, $Ergebnis));
if ($txtEinheit)
{
$Ergebnis .= " " . $txtEinheit;
}
}
if (isset ($Vorgaben["Data"][$datDatenbank][0]["Anhaenge"][$fldFeld]))
{
$Ergebnis .= $Vorgaben["Data"][$datDatenbank][0]["Anhaenge"][$fldFeld]; // Anhang ohne Leerzeichen
}
# in Gänsefüßchen?
if (mb_strstr ($Optionen, "G")) if ($Ergebnis)
{
$Ergebnis = "»" . $Ergebnis . "«";
}
# Vorspann?
if (mb_strstr ($Optionen, "V"))
if (isset ($Vorgaben["Data"][$datDatenbank][0]["Vorspaenne"][$fldFeld]))
if ($Vorgaben["Data"][$datDatenbank][0]["Vorspaenne"][$fldFeld])
{
$Ergebnis = $Vorgaben["Data"][$datDatenbank][0]["Vorspaenne"][$fldFeld] . " " . $Ergebnis;
}
# ANSI?
if (mb_strstr ($Optionen, "A")) if ($Ergebnis)
{
$Ergebnis = utf8_decode ($Ergebnis);
}
# Debug
// //$dbgVariable = "Ergebnis"; echo fncDebug ("Variable", array ($Vorgaben["ObDebug"], trim ($dbgVariable), ${trim($dbgVariable)}));
unset ($Vorgaben);
}
break;
case "dtfBezeichner":
{
/*
T- Tonne
K- kurz (Standard)
L - lang
*/
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
$Parameter[] = "";
list ($datDatenbank, $fldFeld, $idID, $zhlIndize) = $Parameter;
unset ($Parameter);
if (mb_strstr ($Optionen, "T"))
{
switch (fncFeld ("dtfFeldtyp", $Vorgaben, array ($datDatenbank, $Vorgaben["Data"][$datDatenbank][0]["Tonne"]["fldBetrefftext"], $idID)))
{
case "dftBild":
{
$txtInhalt = "";
}
break;
default:
{
if (fncFeld ("dtfWert.R", $Vorgaben, array ($datDatenbank, $idID, $Vorgaben["Data"][$datDatenbank][0]["Tonne"]["fldBetrefftext"])))
{
$txtInhalt = " " . fncFeld ("dtfWert.FEG", $Vorgaben, array ($datDatenbank, $idID, $Vorgaben["Data"][$datDatenbank][0]["Tonne"]["fldBetrefftext"]));
}
else
{
$txtInhalt = "";
}
}
break;
}
if (mb_strstr ($Optionen, "L"))
{
if (isset ($Vorgaben["Data"][$datDatenbank][0]["Tonne"]["lngBezeichner"][$idID]) and $Vorgaben["Data"][$datDatenbank][0]["Tonne"]["lngBezeichner"][$idID])
{
$lngBezeichner = $Vorgaben["Data"][$datDatenbank][0]["Tonne"]["lngBezeichner"][$idID];
}
else
{
$lngBezeichner = $Vorgaben["Data"][$datDatenbank][0]["Tonne"]["lngBezeichner"][0];
}
$Ergebnis = $Vorgaben["Data"][$datDatenbank][0]["Tonne"]["pfxFrage"] . " " . $lngBezeichner . $txtInhalt . " " . $Vorgaben["Data"][$datDatenbank][0]["Tonne"]["sfxFrage"];
}
else // K (Standard)
{
if (isset ($Vorgaben["Data"][$datDatenbank][0]["Tonne"]["krzBezeichner"][$idID]) and $Vorgaben["Data"][$datDatenbank][0]["Tonne"]["krzBezeichner"][$idID])
{
$krzBezeichner = $Vorgaben["Data"][$datDatenbank][0]["Tonne"]["krzBezeichner"][$idID];
}
else
{
$krzBezeichner = $Vorgaben["Data"][$datDatenbank][0]["Tonne"]["krzBezeichner"][0];
}
$Ergebnis = $krzBezeichner . $txtInhalt . " löschen";
}
}
else
{
$zhlIndize /= 1;
if ($zhlIndize < 2 and $Ergebnis = fncVorgaben ($Vorgaben, "Bz_" . $datDatenbank . "_" . $fldFeld . '.N')) // wenn Bezeichner in Vorgaben überschrieben wurde
{
}
else // Standardbezeichner aus DbTypen
{
if ($zhlIndize < 2)
{
$zhlIndize = "";
}
if (isset ($Vorgaben["Data"][$datDatenbank][0]["FeldBezeichner" . $zhlIndize][$fldFeld][$idID]) and $Vorgaben["Data"][$datDatenbank][0]["FeldBezeichner" . $zhlIndize][$fldFeld][$idID])
{
$Ergebnis = $Vorgaben["Data"][$datDatenbank][0]["FeldBezeichner" . $zhlIndize][$fldFeld][$idID];
}
elseif (isset ($Vorgaben["Data"][$datDatenbank][0]["FeldBezeichner" . $zhlIndize][$fldFeld][0]))
{
$Ergebnis = $Vorgaben["Data"][$datDatenbank][0]["FeldBezeichner" . $zhlIndize][$fldFeld][0];
}
}
}
unset ($Vorgaben);
}
break;
case "dtfObRechte":
{
/*
A - ob änderbar
F - ob Filter in Symbolleiste sichtbar
S - ob sichtbar
*/
// echo 'RECHTE