Subversion Repositories Sites.tela-botanica.org

Rev

Rev 499 | 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>' ;