WebSVN – Sites.tela-botanica.org – Diff – /trunk/actu/recevoir.html


<?php
include_once 'authentification.php' ;
include_once '../api/pear/Mail.php' ;
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html lang="#LANG">
<head>
  <title>Recevoir l'information</title>
<INCLURE(incl_link_entete.php)>
</head>
 
<body >
<div id="reducteur">
<INCLURE(incl_bandeau.php)>
 
<!-- Parcours de navigation -->
<div id="droite">
<div id="pos_recherche">Vous &ecirc;tes ici : <a href="sommaire.php3">Accueil</a> &gt; Lettre d'information</div>
<INCLURE(incl_mot_recherche.php)>
<div id="contenu">
<h2 class="titre_article">Recevoir la lettre d'information hebdomadaire</h2>
<p><strong>Pour être tenu informé des actualités publiées par Tela Botanica, vous pouvez vous abonner à la
lettre d'information des actualités.</strong> Cette lettre, envoyée tous les mercredi, donne les titres et un court extrait des derniers articles publiés dans l'actualité du site. Un lien vous permet d'accéder directement au texte complet des articles qui vous intéressent.</p>
<p>Ainsi, avec un minimum de messages vous êtes informés régulièrement de l'essentiel de l'actualité de la botanique francophone...</p>
<p>Pour vous abonner à la lettre d'information :<br />
<ul>
<li>Inscrivez-vous au réseau Tela Botanica (si ce n'est déjà fait).</li>
<li>Vérifiez que vous êtes actuellement identifié (dans ce cas, votre nom figure dans le menu gauche), sinon, identifiez-vous en indiquant en bas du menu gauche votre identifiant (adresse e-mail) et votre mot de passe. Validez en cliquant sur "ok".</li>
<li>Cochez la case "oui" après "Je souhaite recevoir la lettre d'information", puis validez. Cette lettre vous sera envoyée à l'adresse avec laquelle vous vous êtes inscrit au réseau Tela Botanica.</li>
</ul>
<p>Si vous vous désinscrivez du réseau Tela Botanica, vous serez automatiquement désabonné de la lettre d'information. <br />
Si vous changez l'adresse e-mail de votre inscription et que vous êtes déjà abonné à la lettre, vous continuerez à la recevoir à votre nouvelle adresse.</p>
<?php
if ($AUTH->getAuth()) {
    include_once 'DB.php' ;
    include_once 'HTML/QuickForm.php' ;
    require_once 'HTML/QuickForm/checkbox.php' ;
    // connection à la base botanica
    $db = DB::connect ('mysql://telabotap:@localhost/tela_prod_v4') ;
    
    // On recherche le mail du gars
    $requete_mail = "select U_MAIL from annuaire_tela where U_ID=".$AUTH->getAuthData('U_ID') ;
    $resultat_mail = $db->query ($requete_mail) ;
 
    if (DB::isError($resultat_mail)) {
        die ("Echec de la requete<br />".$resultat_mail->getMessage()."<br />".$resultat_mail->getDebugInfo()) ;
    }
 
    $ligne_mail = $resultat_mail->fetchRow(DB_FETCHMODE_OBJECT) ;
 
 
    // On traite l'abonnement / désabonnement avant d'afficher le formulaire
    if (isset ($_POST['lettre'])  && $_POST['lettre'] == 'oui') {
        $requete = "update annuaire_tela set U_LETTRE = 1 where U_ID=".$AUTH->getAuthData('U_ID') ;
        $resultat = $db->query ($requete) ;
        if (DB::isError($resultat)) {
            die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
        }
 
        // On envoie un email de demande d'inscription à la liste actu
        $mail = & Mail::factory ('smtp') ;
        $headers ['Return-Path'] = $ligne_mail->U_MAIL ;
        $headers ['From'] = "<$ligne_mail->U_MAIL>" ;
        $headers ['Subject'] = 'subscribe' ;
        $headers ['Reply-To'] = $ligne_mail->U_MAIL ;
        
        $mail -> send ('actu-subscribe@tela-botanica.org', $headers, "") ;
        if (PEAR::isError ($mail)) {
            echo '<div class="erreur">Le mail n\'est pas partie...</div>' ;
        } else {
            // Le mail est partie on indique dans annuaire_tela que le gars est inscrit U_LETTRE = 1
            $requete = "update annuaire_tela set U_LETTRE = 1 where U_ID=".$AUTH->getAuthData('U_ID') ;
            $resultat = $db->query ($requete) ;
            if (DB::isError($resultat)) {
                die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
            }
            $message="Un message confirmant votre abonnement vous a &eacute;t&eacute; envoy&eacute; par email";
        }
    } else {
        if (isset ($_POST['lettre']) && $_POST['lettre'] == 'non') {
 
        // On envoie un email de demande de désinscription à la liste actu
        $mail = & Mail::factory ('smtp') ;
        $headers ['Return-Path'] = $ligne_mail->U_MAIL ;
        $headers ['From'] = "<$ligne_mail->U_MAIL>" ;
        $headers ['Subject'] = 'subscribe' ;
        $headers ['Reply-To'] = $ligne_mail->U_MAIL ;
        
        $mail -> send ('actu-unsubscribe@tela-botanica.org', $headers, "") ;
        if (PEAR::isError ($mail)) {
            echo '<div class="erreur">Le mail n\'est pas partie...</div>' ;
            } else {
                // On désinscrit dans l'annuaire
                $requete = "update annuaire_tela set U_LETTRE = 0 where U_ID=".$AUTH->getAuthData('U_ID') ;
                $resultat = $db->query ($requete) ;
                if (DB::isError($resultat)) {
                    die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
                }
            }
            $message="Un message confirmant votre désabonnement vous a &eacute;t&eacute; envoy&eacute; par email";
        }
    }
 
    $requete = "select U_LETTRE from annuaire_tela where U_ID=".$AUTH->getAuthData('U_ID') ;
    $resultat = $db->query ($requete) ;
    
    if (DB::isError($resultat)) {
        die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
    }
    
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;
    
    $form = new HTML_QuickForm ('lettre', 'POST') ;
    $insc_lettre[] = & HTML_QuickForm::createElement ('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'oui &nbsp;', 'oui',array ('id' => 'lettre')) ;
    $insc_lettre[] = & HTML_QuickForm::createElement ('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'non &nbsp;', 'non',array ('id' => 'lettre')) ;
    $insc_lettre[] = & HTML_QuickForm::createElement ('submit', 'submit', 'valider') ;
    $form->addGroup ($insc_lettre, 'group', 'Je souhaite recevoir la lettre d\'information', '', false) ;
    /*
    $form->addElement ('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'non', 'non',array ('id' => 'lettre')) ;
    $form->addElement ('radio', 'lettre', '', 'oui', 'oui',array ('id' => 'lettre')) ;*/
    if ($ligne->U_LETTRE == 1) {
        $form->setDefaults(array ('lettre' => 'oui')) ;
    } else {
        $form->setDefaults(array ('lettre' => 'non')) ;
    }
    //$form->addElement('submit', 'submit', 'Valider') ;
    $form->display() ;
    
    // Un petit message
    if (isset ($_POST['lettre'])) echo "<div class=\"erreur\">$message</div>\n" ;
    
    // on reconnecte à la base de SPIP
    mysql_connect ('localhost', 'telabotap', '') ;
    mysql_select_db ('tela_prod_spip_actu') ;
}
?>
</p>
<h2 class="titre_article">Pour ne plus recevoir la lettre d'information</h2>
<ul>
<li>Vérifiez que vous êtes actuellement identifié (dans ce cas, votre nom figure dans le menu gauche), sinon, identifiez-vous.</li>
<li>Cochez la case "non" après "Je souhaite recevoir la lettre d'information", puis validez. Vous serez automatiquement désabonné de la lettre d'information. </a></li>
</ul>
<p>En cas de problème, veuillez contacter l'adresse <a href="mailto:accueil@tela-botanica.org">accueil@tela-botanica.org</a></p>
</div>
 
<INCLURE(incl_footer.php)>
</div>
<!-- Menu de navigation rubriques -->
 
<div id="nav_gauche">
<INCLURE(incl_logo_tela.php)>
<INCLURE(incl_changer_monde.php)>
<?php 
$selection = "recevoir";
?>
<INCLURE(incl_menu_gauche.php)>
<INCLURE(incl_identification_ellipse.php)>
 
</div>
<INCLURE(incl_footer_print.php)>
</div>
 
</body>
</html>

Subversion Repositories Sites.tela-botanica.org

(root)/trunk/actu/recevoir.html @ 130 – Rev 4 → 20

Rev 4		Rev 20
1	`<?php`	1	`<?php`
2	`include_once 'authentification.php' ;`	2	`include_once 'authentification.php' ;`
3	`include_once 'Mail.php' ;`	3	`include_once '../api/pear/Mail.php' ;`
4	`?>`	4	`?>`
5	`<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">`	5	`<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">`
6	`<html lang="#LANG">`	6	`<html lang="#LANG">`
7	`<head>`	7	`<head>`
8	`<title>Recevoir l'information</title>`	8	`<title>Recevoir l'information</title>`
9	`<INCLURE(incl_link_entete.php)>`	9	`<INCLURE(incl_link_entete.php)>`
10	`</head>`	10	`</head>`
11		11
12	`<body >`	12	`<body >`
13	`<div id="reducteur">`	13	`<div id="reducteur">`
14	`<INCLURE(incl_bandeau.php)>`	14	`<INCLURE(incl_bandeau.php)>`
15		15
16	`<!-- Parcours de navigation -->`	16	`<!-- Parcours de navigation -->`
17	`<div id="droite">`	17	`<div id="droite">`
18	`<div id="pos_recherche">Vous êtes ici : <a href="sommaire.php3">Accueil</a> > Lettre d'information</div>`	18	`<div id="pos_recherche">Vous êtes ici : <a href="sommaire.php3">Accueil</a> > Lettre d'information</div>`
19	`<INCLURE(incl_mot_recherche.php)>`	19	`<INCLURE(incl_mot_recherche.php)>`
20	`<div id="contenu">`	20	`<div id="contenu">`
21	`<h2 class="titre_article">Recevoir la lettre d'information hebdomadaire</h2>`	21	`<h2 class="titre_article">Recevoir la lettre d'information hebdomadaire</h2>`
22	`<p><strong>Pour être tenu informé des actualités publiées par Tela Botanica, vous pouvez vous abonner à la`	22	`<p><strong>Pour être tenu informé des actualités publiées par Tela Botanica, vous pouvez vous abonner à la`
23	`lettre d'information des actualités.</strong> Cette lettre, envoyée tous les mercredi, donne les titres et un court extrait des derniers articles publiés dans l'actualité du site. Un lien vous permet d'accéder directement au texte complet des articles qui vous intéressent.</p>`	23	`lettre d'information des actualités.</strong> Cette lettre, envoyée tous les mercredi, donne les titres et un court extrait des derniers articles publiés dans l'actualité du site. Un lien vous permet d'accéder directement au texte complet des articles qui vous intéressent.</p>`
24	`<p>Ainsi, avec un minimum de messages vous êtes informés régulièrement de l'essentiel de l'actualité de la botanique francophone...</p>`	24	`<p>Ainsi, avec un minimum de messages vous êtes informés régulièrement de l'essentiel de l'actualité de la botanique francophone...</p>`
25	`<p>Pour vous abonner à la lettre d'information :<br />`	25	`<p>Pour vous abonner à la lettre d'information :<br />`
26	`<ul>`	26	`<ul>`
27	`<li>Inscrivez-vous au réseau Tela Botanica (si ce n'est déjà fait).</li>`	27	`<li>Inscrivez-vous au réseau Tela Botanica (si ce n'est déjà fait).</li>`
28	`<li>Vérifiez que vous êtes actuellement identifié (dans ce cas, votre nom figure dans le menu gauche), sinon, identifiez-vous en indiquant en bas du menu gauche votre identifiant (adresse e-mail) et votre mot de passe. Validez en cliquant sur "ok".</li>`	28	`<li>Vérifiez que vous êtes actuellement identifié (dans ce cas, votre nom figure dans le menu gauche), sinon, identifiez-vous en indiquant en bas du menu gauche votre identifiant (adresse e-mail) et votre mot de passe. Validez en cliquant sur "ok".</li>`
29	`<li>Cochez la case "oui" après "Je souhaite recevoir la lettre d'information", puis validez. Cette lettre vous sera envoyée à l'adresse avec laquelle vous vous êtes inscrit au réseau Tela Botanica.</li>`	29	`<li>Cochez la case "oui" après "Je souhaite recevoir la lettre d'information", puis validez. Cette lettre vous sera envoyée à l'adresse avec laquelle vous vous êtes inscrit au réseau Tela Botanica.</li>`
30	`</ul>`	30	`</ul>`
31	`<p>Si vous vous désinscrivez du réseau Tela Botanica, vous serez automatiquement désabonné de la lettre d'information. <br />`	31	`<p>Si vous vous désinscrivez du réseau Tela Botanica, vous serez automatiquement désabonné de la lettre d'information. <br />`
32	`Si vous changez l'adresse e-mail de votre inscription et que vous êtes déjà abonné à la lettre, vous continuerez à la recevoir à votre nouvelle adresse.</p>`	32	`Si vous changez l'adresse e-mail de votre inscription et que vous êtes déjà abonné à la lettre, vous continuerez à la recevoir à votre nouvelle adresse.</p>`
33	`<?php`	33	`<?php`
34	`if ($AUTH->getAuth()) {`	34	`if ($AUTH->getAuth()) {`
35	`include_once 'DB.php' ;`	35	`include_once 'DB.php' ;`
36	`include_once 'HTML/QuickForm.php' ;`	36	`include_once 'HTML/QuickForm.php' ;`
37	`require_once 'HTML/QuickForm/checkbox.php' ;`	37	`require_once 'HTML/QuickForm/checkbox.php' ;`
38	`// connection à la base botanica`	38	`// connection à la base botanica`
39	`$db = DB::connect ('mysql://telabotap:@localhost/tela_prod_v4') ;`	39	`$db = DB::connect ('mysql://telabotap:@localhost/tela_prod_v4') ;`
40		40
41	`// On recherche le mail du gars`	41	`// On recherche le mail du gars`
42	`$requete_mail = "select U_MAIL from annuaire_tela where U_ID=".$AUTH->getAuthData('U_ID') ;`	42	`$requete_mail = "select U_MAIL from annuaire_tela where U_ID=".$AUTH->getAuthData('U_ID') ;`
43	`$resultat_mail = $db->query ($requete_mail) ;`	43	`$resultat_mail = $db->query ($requete_mail) ;`
44		44
45	`if (DB::isError($resultat_mail)) {`	45	`if (DB::isError($resultat_mail)) {`
46	`die ("Echec de la requete<br />".$resultat_mail->getMessage()."<br />".$resultat_mail->getDebugInfo()) ;`	46	`die ("Echec de la requete<br />".$resultat_mail->getMessage()."<br />".$resultat_mail->getDebugInfo()) ;`
47	`}`	47	`}`
48		48
49	`$ligne_mail = $resultat_mail->fetchRow(DB_FETCHMODE_OBJECT) ;`	49	`$ligne_mail = $resultat_mail->fetchRow(DB_FETCHMODE_OBJECT) ;`
50		50
51		51
52	`// On traite l'abonnement / désabonnement avant d'afficher le formulaire`	52	`// On traite l'abonnement / désabonnement avant d'afficher le formulaire`
53	`if (isset ($_POST['lettre']) && $_POST['lettre'] == 'oui') {`	53	`if (isset ($_POST['lettre']) && $_POST['lettre'] == 'oui') {`
54	`$requete = "update annuaire_tela set U_LETTRE = 1 where U_ID=".$AUTH->getAuthData('U_ID') ;`	54	`$requete = "update annuaire_tela set U_LETTRE = 1 where U_ID=".$AUTH->getAuthData('U_ID') ;`
55	`$resultat = $db->query ($requete) ;`	55	`$resultat = $db->query ($requete) ;`
56	`if (DB::isError($resultat)) {`	56	`if (DB::isError($resultat)) {`
57	`die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;`	57	`die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;`
58	`}`	58	`}`
59		59
60	`// On envoie un email de demande d'inscription à la liste actu`	60	`// On envoie un email de demande d'inscription à la liste actu`
61	`$mail = & Mail::factory ('smtp') ;`	61	`$mail = & Mail::factory ('smtp') ;`
62	`$headers ['Return-Path'] = $ligne_mail->U_MAIL ;`	62	`$headers ['Return-Path'] = $ligne_mail->U_MAIL ;`
63	`$headers ['From'] = "<$ligne_mail->U_MAIL>" ;`	63	`$headers ['From'] = "<$ligne_mail->U_MAIL>" ;`
64	`$headers ['Subject'] = 'subscribe' ;`	64	`$headers ['Subject'] = 'subscribe' ;`
65	`$headers ['Reply-To'] = $ligne_mail->U_MAIL ;`	65	`$headers ['Reply-To'] = $ligne_mail->U_MAIL ;`
66		66
67	`$mail -> send ('actu-subscribe@tela-botanica.org', $headers, "") ;`	67	`$mail -> send ('actu-subscribe@tela-botanica.org', $headers, "") ;`
68	`if (PEAR::isError ($mail)) {`	68	`if (PEAR::isError ($mail)) {`
69	`echo '<div class="erreur">Le mail n\'est pas partie...</div>' ;`	69	`echo '<div class="erreur">Le mail n\'est pas partie...</div>' ;`
70	`} else {`	70	`} else {`
71	`// Le mail est partie on indique dans annuaire_tela que le gars est inscrit U_LETTRE = 1`	71	`// Le mail est partie on indique dans annuaire_tela que le gars est inscrit U_LETTRE = 1`
72	`$requete = "update annuaire_tela set U_LETTRE = 1 where U_ID=".$AUTH->getAuthData('U_ID') ;`	72	`$requete = "update annuaire_tela set U_LETTRE = 1 where U_ID=".$AUTH->getAuthData('U_ID') ;`
73	`$resultat = $db->query ($requete) ;`	73	`$resultat = $db->query ($requete) ;`
74	`if (DB::isError($resultat)) {`	74	`if (DB::isError($resultat)) {`
75	`die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;`	75	`die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;`
76	`}`	76	`}`
77	`$message="Un message confirmant votre abonnement vous a été envoyé par email";`	77	`$message="Un message confirmant votre abonnement vous a été envoyé par email";`
78	`}`	78	`}`
79	`} else {`	79	`} else {`
80	`if (isset ($_POST['lettre']) && $_POST['lettre'] == 'non') {`	80	`if (isset ($_POST['lettre']) && $_POST['lettre'] == 'non') {`
81		81
82	`// On envoie un email de demande de désinscription à la liste actu`	82	`// On envoie un email de demande de désinscription à la liste actu`
83	`$mail = & Mail::factory ('smtp') ;`	83	`$mail = & Mail::factory ('smtp') ;`
84	`$headers ['Return-Path'] = $ligne_mail->U_MAIL ;`	84	`$headers ['Return-Path'] = $ligne_mail->U_MAIL ;`
85	`$headers ['From'] = "<$ligne_mail->U_MAIL>" ;`	85	`$headers ['From'] = "<$ligne_mail->U_MAIL>" ;`
86	`$headers ['Subject'] = 'subscribe' ;`	86	`$headers ['Subject'] = 'subscribe' ;`
87	`$headers ['Reply-To'] = $ligne_mail->U_MAIL ;`	87	`$headers ['Reply-To'] = $ligne_mail->U_MAIL ;`
88		88
89	`$mail -> send ('actu-unsubscribe@tela-botanica.org', $headers, "") ;`	89	`$mail -> send ('actu-unsubscribe@tela-botanica.org', $headers, "") ;`
90	`if (PEAR::isError ($mail)) {`	90	`if (PEAR::isError ($mail)) {`
91	`echo '<div class="erreur">Le mail n\'est pas partie...</div>' ;`	91	`echo '<div class="erreur">Le mail n\'est pas partie...</div>' ;`
92	`} else {`	92	`} else {`
93	`// On désinscrit dans l'annuaire`	93	`// On désinscrit dans l'annuaire`
94	`$requete = "update annuaire_tela set U_LETTRE = 0 where U_ID=".$AUTH->getAuthData('U_ID') ;`	94	`$requete = "update annuaire_tela set U_LETTRE = 0 where U_ID=".$AUTH->getAuthData('U_ID') ;`
95	`$resultat = $db->query ($requete) ;`	95	`$resultat = $db->query ($requete) ;`
96	`if (DB::isError($resultat)) {`	96	`if (DB::isError($resultat)) {`
97	`die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;`	97	`die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;`
98	`}`	98	`}`
99	`}`	99	`}`
100	`$message="Un message confirmant votre désabonnement vous a été envoyé par email";`	100	`$message="Un message confirmant votre désabonnement vous a été envoyé par email";`
101	`}`	101	`}`
102	`}`	102	`}`
103		103
104	`$requete = "select U_LETTRE from annuaire_tela where U_ID=".$AUTH->getAuthData('U_ID') ;`	104	`$requete = "select U_LETTRE from annuaire_tela where U_ID=".$AUTH->getAuthData('U_ID') ;`
105	`$resultat = $db->query ($requete) ;`	105	`$resultat = $db->query ($requete) ;`
106		106
107	`if (DB::isError($resultat)) {`	107	`if (DB::isError($resultat)) {`
108	`die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;`	108	`die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;`
109	`}`	109	`}`
110		110
111	`$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;`	111	`$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;`
112		112
113	`$form = new HTML_QuickForm ('lettre', 'POST') ;`	113	`$form = new HTML_QuickForm ('lettre', 'POST') ;`
114	`$insc_lettre[] = & HTML_QuickForm::createElement ('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'oui  ', 'oui',array ('id' => 'lettre')) ;`	114	`$insc_lettre[] = & HTML_QuickForm::createElement ('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'oui  ', 'oui',array ('id' => 'lettre')) ;`
115	`$insc_lettre[] = & HTML_QuickForm::createElement ('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'non  ', 'non',array ('id' => 'lettre')) ;`	115	`$insc_lettre[] = & HTML_QuickForm::createElement ('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'non  ', 'non',array ('id' => 'lettre')) ;`
116	`$insc_lettre[] = & HTML_QuickForm::createElement ('submit', 'submit', 'valider') ;`	116	`$insc_lettre[] = & HTML_QuickForm::createElement ('submit', 'submit', 'valider') ;`
117	`$form->addGroup ($insc_lettre, 'group', 'Je souhaite recevoir la lettre d\'information', '', false) ;`	117	`$form->addGroup ($insc_lettre, 'group', 'Je souhaite recevoir la lettre d\'information', '', false) ;`
118	`/*`	118	`/*`
119	`$form->addElement ('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'non', 'non',array ('id' => 'lettre')) ;`	119	`$form->addElement ('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'non', 'non',array ('id' => 'lettre')) ;`
120	`$form->addElement ('radio', 'lettre', '', 'oui', 'oui',array ('id' => 'lettre')) ;*/`	120	`$form->addElement ('radio', 'lettre', '', 'oui', 'oui',array ('id' => 'lettre')) ;*/`
121	`if ($ligne->U_LETTRE == 1) {`	121	`if ($ligne->U_LETTRE == 1) {`
122	`$form->setDefaults(array ('lettre' => 'oui')) ;`	122	`$form->setDefaults(array ('lettre' => 'oui')) ;`
123	`} else {`	123	`} else {`
124	`$form->setDefaults(array ('lettre' => 'non')) ;`	124	`$form->setDefaults(array ('lettre' => 'non')) ;`
125	`}`	125	`}`
126	`//$form->addElement('submit', 'submit', 'Valider') ;`	126	`//$form->addElement('submit', 'submit', 'Valider') ;`
127	`$form->display() ;`	127	`$form->display() ;`
128		128
129	`// Un petit message`	129	`// Un petit message`
130	`if (isset ($_POST['lettre'])) echo "<div class=\"erreur\">$message</div>\n" ;`	130	`if (isset ($_POST['lettre'])) echo "<div class=\"erreur\">$message</div>\n" ;`
131		131
132	`// on reconnecte à la base de SPIP`	132	`// on reconnecte à la base de SPIP`
133	`mysql_connect ('localhost', 'telabotap', '') ;`	133	`mysql_connect ('localhost', 'telabotap', '') ;`
134	`mysql_select_db ('tela_prod_spip_actu') ;`	134	`mysql_select_db ('tela_prod_spip_actu') ;`
135	`}`	135	`}`
136	`?>`	136	`?>`
137	`</p>`	137	`</p>`
138	`<h2 class="titre_article">Pour ne plus recevoir la lettre d'information</h2>`	138	`<h2 class="titre_article">Pour ne plus recevoir la lettre d'information</h2>`
139	`<ul>`	139	`<ul>`
140	`<li>Vérifiez que vous êtes actuellement identifié (dans ce cas, votre nom figure dans le menu gauche), sinon, identifiez-vous.</li>`	140	`<li>Vérifiez que vous êtes actuellement identifié (dans ce cas, votre nom figure dans le menu gauche), sinon, identifiez-vous.</li>`
141	`<li>Cochez la case "non" après "Je souhaite recevoir la lettre d'information", puis validez. Vous serez automatiquement désabonné de la lettre d'information. </a></li>`	141	`<li>Cochez la case "non" après "Je souhaite recevoir la lettre d'information", puis validez. Vous serez automatiquement désabonné de la lettre d'information. </a></li>`
142	`</ul>`	142	`</ul>`
143	`<p>En cas de problème, veuillez contacter l'adresse <a href="mailto:accueil@tela-botanica.org">accueil@tela-botanica.org</a></p>`	143	`<p>En cas de problème, veuillez contacter l'adresse <a href="mailto:accueil@tela-botanica.org">accueil@tela-botanica.org</a></p>`
144	`</div>`	144	`</div>`
145		145
146	`<INCLURE(incl_footer.php)>`	146	`<INCLURE(incl_footer.php)>`
147	`</div>`	147	`</div>`
148	`<!-- Menu de navigation rubriques -->`	148	`<!-- Menu de navigation rubriques -->`
149		149
150	`<div id="nav_gauche">`	150	`<div id="nav_gauche">`
151	`<INCLURE(incl_logo_tela.php)>`	151	`<INCLURE(incl_logo_tela.php)>`
152	`<INCLURE(incl_changer_monde.php)>`	152	`<INCLURE(incl_changer_monde.php)>`
153	`<?php`	153	`<?php`
154	`$selection = "recevoir";`	154	`$selection = "recevoir";`
155	`?>`	155	`?>`
156	`<INCLURE(incl_menu_gauche.php)>`	156	`<INCLURE(incl_menu_gauche.php)>`
157	`<INCLURE(incl_identification_ellipse.php)>`	157	`<INCLURE(incl_identification_ellipse.php)>`
158		158
159	`</div>`	159	`</div>`
160	`<INCLURE(incl_footer_print.php)>`	160	`<INCLURE(incl_footer_print.php)>`
161	`</div>`	161	`</div>`
162		162
163	`</body>`	163	`</body>`
164	`</html>`	164	`</html>`