Subversion Repositories Sites.tela-botanica.org

Rev

Rev 499 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 499 Rev 521
Line 213... Line 213...
213 
	$resultat = $GLOBALS['ann_db']->query($requete);
 213 
	$resultat = $GLOBALS['ann_db']->query($requete);
214 
	if (DB::isError($resultat)) {
 214 
	if (DB::isError($resultat)) {
215 
		die($resultat->getMessage().'<br />'.$resultat->getDebugInfo());
 215 
		die($resultat->getMessage().'<br />'.$resultat->getDebugInfo());
216 
	}
 216 
	}
217 
	$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
 217 
	$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
218 
	$entete = 'From: <'.$ligne[ANN_CHAMPS_MAIL].">\n";
 - 
 
219 
 
 218
220 
	$corps .= "\n".ANN_PIED_MESSAGE;
 - 
 
Line 221... Line 219...
221 
 
 219 
 
- 
 
 220 
	$liste = '';
222 
	$liste = '';
 221 
	$entete = '' ;
223 
	foreach ($selection as $key => $value) {
 - 
 
- 
 
 222 
	foreach ($selection as $key => $value) {
224 
		mail($value, $titre_mail, $corps, $entete);
 223
225 
		$liste .= $value."\n";
 224 
		$liste .= $value."," ;
- 
 
 225 
	}
- 
 
 226 
	$precorps = $ligne[ANN_CHAMPS_MAIL]." ".ANN_EXPEDITEUR_ORIGINAL." \n"  ;
- 
 
 227 
	$precorps .= ANN_LISTE_DESTINATAIRES." : ".$liste." \n" ;
- 
 
 228 
	$precorps .= ANN_TITRE_MAIL.' : '.$titre_mail." \n" ;
- 
 
 229 
	$precorps .= "\n------".ANN_CONTENU_MESSAGE."------\n";
- 
 
 230
- 
 
 231 
	$corps = $precorps.$corps ;
Line 226... Line 232...
226 
	}
 232 
	$corps .= "\n\n".ANN_PIED_MESSAGE."\n";
227
233
228 
	$corps .= "\n----------------------------------------------------------------------------";
 234 
	$corps .= "\n----------------------------------------------------------------------------";
Line 229... Line 235...
229 
	$corps .= "\n".ANN_MESSAGE_APPLI."\n" ;
 235 
	$corps .= "\n".ANN_MESSAGE_APPLI."\n" ;
- 
 
 236 
	//$corps .= "\n".ANN_MESSAGE_ENVOYE_A." :\n $liste" ;
- 
 
 237
- 
 
 238 
	// Envoie du message au modérateur
- 
 
 239 
	if(!mail(MAIL_MODERATION,ANN_TITRE_MAIL_MODERATION,$corps, $entete))
- 
 
 240 
	{
230 
	$corps .= "\n".ANN_MESSAGE_ENVOYE_A." :\n $liste" ;
 241 
		trigger_error("Le courriel n'a pas été envoyé à : $courriel", E_USER_WARNING);
231
242 
	}
232 
	// Envoie du message aux administrateurs
 243
233 
	foreach ($GLOBALS['mail_admin'] as $courriel) {
 244 
		/*foreach ($GLOBALS['mail_admin'] as $courriel) {
234 
		if (!mail($courriel, $titre_mail, $corps, $entete)) {
 245 
		if (!mail($courriel, $titre_mail, $corps, $entete)) {
Line 235... Line 246...
235 
			trigger_error("Le courriel n'a pas été envoyé à : $courriel", E_USER_WANRNING);
 246 
			trigger_error("Le courriel n'a pas été envoyé à : $courriel", E_USER_WANRNING);
236 
		}
 247 
		}
Line 237... Line 248...
237 
	}
 248 
	}*/
238 
 
 249 
 
239 
	return '<div class="information">'.ANN_MAIL_ENVOYER.'</div>' ;
 250 
	return '<div class="information">'.ANN_MAIL_ATTENTE_MODERATION.'</div>' ;