/**
* mesagxo al la invitilo-respondeculo,
* kiam nova invit-petanto aligxas.
*/
function sendu_invitilomesagxon($partoprenanto, $partopreno, $renkontigxo, $sendanto = "nekonato")
{
$invitpeto = $partopreno->sercxu_invitpeton();
$teksto = "\nSaluton " . antauxnomo($renkontigxo->funkciulo('invitletero')) . "," . "\n" . "\nalig^is partoprenanto, kiu deziras invitleteron." . "\n" . "\n Personaj datumoj: " . "\n------------------" . "\n" . $partoprenanto->gravaj_detaloj_tekste() . "\n" . "\n Detaloj por la invitilo:" . "\n-------------------------" . "\n" . "\n" . $invitpeto->konfirmilaj_detaloj() . "\n";
if ($partopreno->datoj['rimarkoj']) {
$teksto .= "\n " . ucfirst($partoprenanto->personapronomo) . " rimarkis:" . "\n -------------" . "\n" . "\n" . $partopreno->datoj['rimarkoj'];
}
$mesagxo = kreu_auxtomatan_mesagxon();
$mesagxo->ricevanto_estu($renkontigxo->funkciuladreso('invitletero'), $renkontigxo->funkciulo('invitletero'));
$mesagxo->temo_estu("Invitpeto de " . $partoprenanto->tuta_nomo());
$mesagxo->auxtomata_teksto_estu($teksto, "x-metodo");
$mesagxo->eksendu();
}
/**
* TODO: dokumentado por sendu_mesagxon_oficiala
*
* ### uzata en sendu_mesagxon_invitilo() kaj ###
* ### sendu_mesagxon_programan(). ###
*/
function sendu_mesagxon_oficiala($partoprenidento, $partoprenantoidento, $kaj, $kaj2, $to_name, $to_address, $rimarkoj)
{
//TODO:? muß noch überarbeitet werden
// [respondo de Martin:] a) da sind globale Variablen drin // b) Die Funktion ist noch nicht allgemein genug. Da gibt es noch Codestücken die dasselbe machen.
// global $nomo, $personanomo;
// eltrovu_partoprenanton($partoprenantoidento);
$parto = new Partoprenanto($partoprenantoidento);
$ri = $parto->personapronomo;
$Ri = ucfirst($ri);
$mesagxo = "Saluton kara " . antauxnomo($to_name) . ", \nj^us alig^is partoprenanto kiu deziras\n\n";
$mesagxo .= $kaj;
$mesagxo .= "Nomo: " . $parto->datoj[personanomo] . " " . $parto->datoj[nomo] . " \n";
//ID: ".$partoprenantoidento partoprenidento: $partoprenidento";
$mesagxo .= "retadreso: " . $parto->datoj[retposxto] . "\n";
$mesagxo .= $kaj2;
if ($rimarkoj != '') {
$mesagxo .= "\n\n{$Ri} rimarkis:\n" . $rimarkoj;
}
sendu_mesagxon($mesagxo, $to_name, $to_address);
}