/**
* Sendas informmesaĝon, se la partoprenanto volas kontribui
* al iu programpunkto.
*
* La mesaĝo estos sendota al la respondeculo pri distra programo.
* Alikaze (se li ne proponis ion) ni faras nenion.
*
* @param Partoprenanto $partoprenanto
* @param Partopreno $partopreno
* @param Renkontigxo $renkontigxo
*/
function sendu_informmesagxon_pri_programero($partoprenanto, $partopreno, $renkontigxo, $sendanto)
{
$tipoj = array('tema', 'distra', 'vespera', 'muzika', 'nokta');
$proponoj = array();
foreach ($tipoj as $tipo) {
if ($partopreno->datoj[$tipo]) {
$proponoj[$tipo] = $partopreno->datoj[$tipo];
}
}
if (count($proponoj) == 0) {
// neniu propono -> ni faras nenion nun.
return;
}
$mesagxo = kreu_auxtomatan_mesagxon();
$kodigo = 'x-metodo';
// Rolf havas problemon pri unikodo, mi kredas.
$mesagxo->ricevanto_estu($renkontigxo->datoj['distraretadreso'], "Programkunordigantoj");
$mesagxo->kopion_al($renkontigxo->datoj['temaretadreso']);
$mesagxo->temo_estu("Programproponoj de " . $partoprenanto->tuta_nomo() . " por " . $renkontigxo->datoj['mallongigo']);
$teksto = "Saluton karaj Programkunordigantoj," . "\n" . "\nalig^is al IS la partoprenanto " . $partoprenanto->tuta_nomo() . "," . "\nkiu havas la jena" . (count($proponoj) == 1 ? 'n' : 'jn') . " programpropono" . (count($proponoj) == 1 ? 'n' : 'jn') . ":" . "\n";
foreach ($proponoj as $tipo => $propono) {
$teksto .= "\n --> Por la " . $tipo . " programo: " . "\n" . $propono . "\n";
}
$teksto .= "\n------------" . "\nKiel rimarkoj li donis:" . "\n" . $partopreno->datoj['rimarkoj'] . "\n------------" . "\nJen pliaj detaloj pri " . $partoprenanto->personapronomo . ":" . "\n" . $partoprenanto->gravaj_detaloj_tekste() . "\n" . $partopreno->konfirmilaj_detaloj();
$mesagxo->auxtomata_teksto_estu($teksto, $kodigo, $sendanto, $renkontigxo);
$mesagxo->eksendu();
}
