Subversion Repositories Applications.papyrus

Rev

Rev 812 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 812 Rev 814
Line 246... Line 246...
246 
 * @return  Renvoie le code HTML de la liste des inscrits
 246 
 * @return  Renvoie le code HTML de la liste des inscrits
247 
 */
 247 
 */
Line 248... Line 248...
248 
 
 248 
 
249 
function listes_inscrit(& $donnees_membres, $affiche_form_mail=1) {
 249 
function listes_inscrit(& $donnees_membres, $affiche_form_mail=1) {
- 
 
 250 
    $res = '';
- 
 
 251 
    if ($GLOBALS['AUTH']->getAuth()&&$affiche_form_mail) {
250 
    $res = '';
 252
- 
 
 253 
    	$res .= '<form action="'.$GLOBALS['ins_url']->getURL().'" method="post" name="formmail">'."\n";
251 
    if ($GLOBALS['AUTH']->getAuth()&&$affiche_form_mail) {$res .= '<form action="'.$GLOBALS['ins_url']->getURL().'" method="post" name="formmail">'."\n";}
 254 
    	}
252 
    $res .= '<ul>'."\n";
 255 
    $res .= '<ul>'."\n";
253 
    for ($i=0;$i<count($donnees_membres);$i++) {
 256 
    for ($i=0;$i<count($donnees_membres);$i++) {
254 
    	$id = array_shift($donnees_membres[$i]);
 257 
    	$id = array_shift($donnees_membres[$i]);
255 
    	$GLOBALS['ins_url']->addQueryString('voir_fiche', $id);
 258 
    	$GLOBALS['ins_url']->addQueryString('voir_fiche', $id);
Line 270... Line 273...
270 
    	$res .= '&nbsp;<input type="checkbox" name="selecttotal" onclick="javascript:setCheckboxes(\'formmail\');"><br />';
 273 
    	$res .= '&nbsp;<input type="checkbox" name="selecttotal" onclick="javascript:setCheckboxes(\'formmail\');"><br />';
271 
    	$res .= '<h3>'.INS_ENVOYER_MAIL.'</h3>'."\n";
 274 
    	$res .= '<h3>'.INS_ENVOYER_MAIL.'</h3>'."\n";
272 
    	$res .= '<p style="text-align:right;">'.INS_SUJET.'&nbsp;:&nbsp;<input style="border:1px solid #000;width:450px;" type="text" name="titre_mail"><br />'."\n".
 275 
    	$res .= '<p style="text-align:right;">'.INS_SUJET.'&nbsp;:&nbsp;<input style="border:1px solid #000;width:450px;" type="text" name="titre_mail"><br />'."\n".
273 
           		INS_MESSAGE.'&nbsp;:&nbsp;<textarea style="border:1px solid #000;width:450px;" name="corps" rows="5" cols="60"></textarea></p>'."\n".
 276 
           		INS_MESSAGE.'&nbsp;:&nbsp;<textarea style="border:1px solid #000;width:450px;" name="corps" rows="5" cols="60"></textarea></p>'."\n".
274 
           		'<p style="width:100px;margin:4px auto;text-align:center;"><input type="submit" value="'.INS_ENVOYER.'" /></p>'."\n".
 277 
           		'<p style="width:100px;margin:4px auto;text-align:center;"><input type="submit" value="'.INS_ENVOYER.'" /></p>'."\n".
- 
 
 278 
           		'<input type="hidden" name="fin" value="true" /><input type="hidden" name="mailer" value="1" />'.
275 
				'</form>'."\n";
 279 
				'</form>'."\n";
276 
	} else {
 280 
	} else {
277 
		if ($affiche_form_mail) $res .='<br /><p class="zone_info">'.INS_PAS_IDENTIFIE.'</p>'."\n";
 281 
		if ($affiche_form_mail) $res .='<br /><p class="zone_info">'.INS_PAS_IDENTIFIE.'</p>'."\n";
278 
    }
 282 
    }
279 
    return $res ;
 283 
    return $res ;
Line 552... Line 556...
552 
    $resultat = $GLOBALS['ins_db']->query($requete);
 556 
    $resultat = $GLOBALS['ins_db']->query($requete);
553 
    if (DB::isError($resultat)) {
 557 
    if (DB::isError($resultat)) {
554 
        die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo());
 558 
        die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo());
555 
    }
 559 
    }
556 
    $ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
 560 
    $ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
- 
 
 561 
 
557 
    $entete = "From: <".$ligne[INS_CHAMPS_MAIL].">\n";
 562 
    include_once 'Mail.php' ;
Line -... Line 563...
- 
 
 563
- 
 
 564 
    $entetes['From']    = $ligne[INS_CHAMPS_MAIL];
- 
 
 565 
 
- 
 
 566 
	$objet_mail =& Mail::factory('smtp');
- 
 
 567 
	$entetes['Subject'] = $GLOBALS['titre_mail'];
558
568 
	$entetes['Date'] = date("m-d-Y H:i") ;
559 
    $GLOBALS['corps'] .= INS_TEXTE_FIN_MAIL;
 - 
 
- 
 
 569 
    $GLOBALS['corps'] .= INS_TEXTE_FIN_MAIL;
560 
    $GLOBALS['corps'] = stripslashes($GLOBALS['corps']) ;
 570
- 
 
 571 
    $liste = "" ;
561 
    $liste = "" ;
 572 
    $destinataire = array() ;
- 
 
 573 
    foreach ($GLOBALS['select'] as $key => $value) {
562 
    foreach ($GLOBALS['select'] as $key => $value) {
 574 
    	$requete = 'select '.INS_CHAMPS_MAIL.' from '.INS_ANNUAIRE.' where '.INS_CHAMPS_ID.'="'.$value.'"';
- 
 
 575 
    	$mail = $GLOBALS['ins_db']->getOne($requete) ;
563 
        mail ($value, stripslashes($GLOBALS['titre_mail']), $GLOBALS['corps'] , $entete) ;
 576 
        array_push ($destinataire, $mail) ;
564 
        $liste .= $value."\n" ;
 577 
        $liste .= $mail."\n" ;
- 
 
 578 
    }
Line -... Line 579...
- 
 
 579 
    $objet_mail->send($destinataire, $entetes, $GLOBALS['corps']);
565 
    }
 580
566
581 
    $GLOBALS['corps'] .= "
Line 567... Line 582...
567 
    $GLOBALS['corps'] .= "\n----------------------------------------------------------------------------";
 582 
----------------------------------------------------------------------------".INS_MESSAGE_ENVOYE_A."
568 
    $GLOBALS['corps'] .= "\n".INS_MESSAGE_ENVOYE_A." :\n $liste" ;
 583 
$liste" ;
569
584
570 
    mail(INS_MAIL_ADMIN, stripslashes(INS_SURVEILLANCE_ENVOI_MAIL.$GLOBALS['titre_mail']), $GLOBALS['corps'], $entete);
 585 
    mail(INS_MAIL_ADMIN, stripslashes(INS_SURVEILLANCE_ENVOI_MAIL.$GLOBALS['titre_mail']), $GLOBALS['corps'], $entetes);
571 
    $GLOBALS['corps'] = '';
 586 
    $GLOBALS['corps'] = '';
572 
    $GLOBALS['titre_mail'] = '';
 587 
    $GLOBALS['titre_mail'] = '';
573 
}
 588 
}
- 
 
 589 
//-- Fin du code source    ------------------------------------------------------------
- 
 
 590 
/*
- 
 
 591 
* $Log$
574 
//-- Fin du code source    ------------------------------------------------------------
 592 
* Revision 1.3  2006/04/10 14:21:51  florian
575 
/*
 593 
* correction bug affichage formulaire de mail en double
576 
* $Log$
 594 
*
577 
* Revision 1.2  2006/04/10 14:15:10  florian
 595 
* Revision 1.2  2006/04/10 14:15:10  florian
578 
* les cases à cocher apparaissent à nouveau
 596 
* les cases à cocher apparaissent à nouveau