Subversion Repositories Applications.papyrus

Rev

Rev 1467 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1467 Rev 1571
Line 17... Line 17...
17
// |                                                                                                      |
17
// |                                                                                                      |
18
// | You should have received a copy of the GNU Lesser General Public                                     |
18
// | You should have received a copy of the GNU Lesser General Public                                     |
19
// | License along with this library; if not, write to the Free Software                                  |
19
// | License along with this library; if not, write to the Free Software                                  |
20
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
20
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21
// +------------------------------------------------------------------------------------------------------+
21
// +------------------------------------------------------------------------------------------------------+
22
// CVS : $Id: inscription.fonct.php,v 1.30 2007-06-25 09:59:03 alexandre_tb Exp $
22
// CVS : $Id: inscription.fonct.php,v 1.31 2007-09-06 08:28:32 alexandre_tb Exp $
23
/**
23
/**
24
* Fonctions du module inscription
24
* Fonctions du module inscription
25
*
25
*
26
* Fonctions du module inscription
26
* Fonctions du module inscription
27
*
27
*
Line 29... Line 29...
29
//Auteur original :
29
//Auteur original :
30
*@author        Alexandre Granier <alexandre@tela-botanica.org>
30
*@author        Alexandre Granier <alexandre@tela-botanica.org>
31
//Autres auteurs :
31
//Autres auteurs :
32
*@author        Florian Schmitt <florian@ecole-et-nature.org>
32
*@author        Florian Schmitt <florian@ecole-et-nature.org>
33
*@copyright     Tela-Botanica 2000-2004
33
*@copyright     Tela-Botanica 2000-2004
34
*@version       $Revision: 1.30 $ $Date: 2007-06-25 09:59:03 $
34
*@version       $Revision: 1.31 $ $Date: 2007-09-06 08:28:32 $
35
// +------------------------------------------------------------------------------------------------------+
35
// +------------------------------------------------------------------------------------------------------+
36
*/
36
*/
Line 37... Line 37...
37
 
37
 
38
// +------------------------------------------------------------------------------------------------------+
38
// +------------------------------------------------------------------------------------------------------+
Line 390... Line 390...
390
 *
390
 *
391
 * @global  ins_db  Un pointeur vers un objet PEAR::DB connecté
391
 * @global  ins_db  Un pointeur vers un objet PEAR::DB connecté
392
 * @return
392
 * @return
393
 */
393
 */
Line 394... Line -...
394
 
-
 
395
function envoie_mail() //A COMPLETER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
 
396
{
394
 
397
    //include_once PAP_CHEMIN_RACINE.'api/pear/Mail/mime.php' ;
395
function envoie_mail() {
398
    include_once PAP_CHEMIN_RACINE.'api/pear/Mail.php' ;
396
    include_once PAP_CHEMIN_RACINE.'api/pear/Mail.php' ;
Line 399... Line 397...
399
    $crlf="\n";
397
    $crlf="\n";
400
    
398
    
401
    $headers ['From'] = $GLOBALS['ins_config']['ic_from_mail_confirmation'] ;
399
    $headers ['From'] = $GLOBALS['ins_config']['ic_from_mail_confirmation'] ;
Line 402... Line -...
402
    $headers ['Subject'] = html_entity_decode(INS_MAIL_COORD_SUJET) ;
-
 
403
    $headers ['Reply-To'] = $GLOBALS['ins_config']['ic_from_mail_confirmation'] ;
-
 
404
    
400
    $headers ['Subject'] = html_entity_decode(INS_MAIL_COORD_SUJET) ;
405
    //$mime = new Mail_mime($crlf);
401
    $headers ['Reply-To'] = $GLOBALS['ins_config']['ic_from_mail_confirmation'] ;
406
    
402
    
Line 407... Line 403...
407
    $requete = "select *, ".INS_CHAMPS_LABEL_PAYS." from ".INS_ANNUAIRE.",".INS_TABLE_PAYS.
403
    $requete = "select *, ".INS_CHAMPS_LABEL_PAYS." from ".INS_ANNUAIRE.",".INS_TABLE_PAYS.
408
            " where ".INS_CHAMPS_MAIL."=\"".$GLOBALS['AUTH']->getUsername()."\"".
404
            " where ".INS_CHAMPS_MAIL."=\"".$GLOBALS['AUTH']->getUsername()."\"".
409
            " and ".INS_CHAMPS_ID_PAYS."=".INS_CHAMPS_PAYS;
405
            " and ".INS_CHAMPS_ID_PAYS."=".INS_CHAMPS_PAYS;
410
 
406
 
411
    $resultat = $GLOBALS['ins_db']->query($requete) ;
407
    $resultat = $GLOBALS['ins_db']->query($requete) ;
-
 
408
    if (DB::isError ($resultat)) {
412
    if (DB::isError ($resultat)) {
409
        die ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;
413
        die ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;
-
 
414
    }
-
 
415
    $ligne  = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ;
-
 
416
    $body_entete = INS_MAIL_COORD_CORPS."\n" ;
-
 
417
    $body = "mail : ".$ligne[INS_CHAMPS_MAIL]."\n" ;
-
 
418
    $body .= "------------------------------------------\n";
-
 
Line -... Line 410...
-
 
410
    }
-
 
411
    $ligne  = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ;
-
 
412
    $valeur = $ligne;
-
 
413
    $body_entete = INS_MAIL_COORD_CORPS."\n" ;
-
 
414
 
419
    $body .= INS_NOM.": ".html_entity_decode($ligne[INS_CHAMPS_NOM])." \n" ;
415
    // On recupere le template de l inscription
-
 
416
	
420
    $body .= INS_PRENOM.' : '.html_entity_decode($ligne[INS_CHAMPS_PRENOM])." \n" ;
417
    include_once GEN_CHEMIN_API.'/formulaire/formulaire.fonct.inc.php';
-
 
418
    $tableau= formulaire_valeurs_template_champs($GLOBALS['ins_config']['ic_inscription_template']);
-
 
419
    
-
 
420
    for ($i=0; $i<count($tableau); $i++) {
-
 
421
		//cas des checkbox et des listes
-
 
422
		if ($tableau[$i]['type']=='liste') {
-
 
423
			if (is_int($tableau[$i]['nom_bdd'])) {
-
 
424
				$body .= $tableau[$i]['label'].' : '.$valeur[$tableau[$i]['nom_bdd']]."\n";
-
 
425
			} else {
-
 
426
				if(isset($valeur[$tableau[$i]['nom_bdd']])) {
-
 
427
					
-
 
428
					list ($table, $col_id, $col_label, $col_langue, $langue) = explode (',', $tableau[$i]['table_source']);
-
 
429
					$requete = 'select '.$col_label.' from '.$table.' where '.$col_id.'="'.$valeur[$tableau[$i]['nom_bdd']].'"';;
-
 
430
					if (isset($col_langue)) $requete .= ' and '.$col_langue.' like "'.INS_LANGUE_DEFAUT.'%"';
Line -... Line 431...
-
 
431
					$resultat = $GLOBALS['ins_db']->getOne($requete);
421
    $body .= INS_PAYS." : ".html_entity_decode($ligne[INS_CHAMPS_LABEL_PAYS])." \n" ;
432
					$body .= $tableau[$i]['label'].' : '. $resultat."\n";
-
 
433
				}
422
    $body .= "-------------------------------------------\n" ;
434
			}
-
 
435
		} elseif ($tableau[$i]['type']=='checkbox') {
-
 
436
			
-
 
437
		}
423
    
438
		//cas des champs texte
424
    //$mime->setTXTBody($body);
439
		elseif ($tableau[$i]['type']=='texte' || $tableau[$i]['type']=='textelong' || $tableau[$i]['type']=='champs_mail') {
425
    //$mime->setHTMLBody(info()) ;
440
			//on mets les slashes pour les saisies dans les champs texte et textearea
Line 426... Line -...
426
    
-
 
427
    //$body = $mime->get();
441
			$body .= $tableau[$i]['label'].' : '.$valeur[$tableau[$i]['nom_bdd']]."\n";
428
    //$headers = $mime->headers($headers);
442
		}
429
    $body = html_entity_decode($body);
443
	}
430
    $mail = & Mail::factory('mail') ;
444
    $body = html_entity_decode($body);
431
    $mail -> send ($ligne[INS_CHAMPS_MAIL], $headers, $body) ;
445
    $mail = & Mail::factory('mail') ;
Line 527... Line 541...
527
}
541
}
Line 528... Line 542...
528
 
542
 
529
/* +--Fin du code ----------------------------------------------------------------------------------------+
543
/* +--Fin du code ----------------------------------------------------------------------------------------+
530
*
544
*
-
 
545
* $Log: not supported by cvs2svn $
-
 
546
* Revision 1.30  2007-06-25 09:59:03  alexandre_tb
-
 
547
* ajout de carte_google, mise en place des templates avec api/formulaire, configuration de multiples inscriptions, ajout de modele pour les mails
531
* $Log: not supported by cvs2svn $
548
*
532
* Revision 1.29  2007-05-25 14:32:17  alexandre_tb
549
* Revision 1.29  2007-05-25 14:32:17  alexandre_tb
533
* en cours
550
* en cours
534
*
551
*
535
* Revision 1.28  2007/04/20 08:39:37  alexandre_tb
552
* Revision 1.28  2007/04/20 08:39:37  alexandre_tb