Subversion Repositories Sites.tela-botanica.org

Compare Revisions

Regard whitespace Rev 370 → Rev 371

/trunk/actu/incl_link_entete.html
17,4 → 17,6
<link rel="stylesheet" type="text/css" media="print" href="/sites/commun/fr/styles/impression.css" />
<link rel="shortcut icon" type="image/x-icon" href="/sites/commun/generique/images/favicones/tela_botanica.ico" />
<link rel="icon" type="image/png" href="/sites/commun/generique/images/favicones/tela_botanica.png" />
<link rel="alternate" type="application/xml" title="R&eacute;cents articles en XML (RSS)" href="/articles/xml/" />
<link rel="alternate" type="application/xml" title="R&eacute;cents articles en XML (RSS)" href="/articles/xml/" />
<link rel="alternate" type="application/rss+xml" href="http://www.tela-botanica.org/actu/backend.php3" title="Actualité de la botanique - Articles">
<link rel="alternate" type="application/rss+xml" href="http://www.tela-botanica.org/actu/spip_rss.php?op=forums&args=page-public&id=2951&cle=62349f28&lang=fr" title="Actualité de la botanique - Commentaires">
/trunk/actu/incl_mot_recherche.html
1,21 → 1,13
<!-- Formulaire de recherche du moteur de recherche de Papyrus (compatible spip) -->
<div id="moteur_recheche">
<?php
 
/** Inclusion de la classe PEAR gérant les URL.*/
require_once 'Net/URL.php';
/** Inclusion du fichier des fonctions meta.*/
include_once '../papyrus/bibliotheque/fonctions/pap_meta.fonct.php' ;
include_once 'papyrus/bibliotheque/fonctions/pap_meta.fonct.php' ;
/** Inclusion du fichier des fonctions menu.*/
include_once '../papyrus/bibliotheque/fonctions/pap_menu.fonct.php' ;
include_once 'papyrus/bibliotheque/fonctions/pap_menu.fonct.php' ;
/** Inclusion du fichier de classe Pap_Url.*/
include_once '../papyrus/bibliotheque/classes/pap_url.class.php' ;
include_once 'papyrus/bibliotheque/classes/pap_url.class.php' ;
/** Inclusion du fichier de config général de Papyrus.*/
include_once '../papyrus/configuration/pap_config_avancee.inc.php' ;
/** Inclusion du fichier de config de Papyrus propre à l'installation courante.*/
include_once '../papyrus/configuration/pap_config.inc.php' ;
$_GEN_commun['pear_db'] = DB::connect(PAP_DSN);
// Définition de l'id de langue courant
$GLOBALS['_GEN_commun']['i18n'] = 'fr';// devrait être remplacé par la valeur fournie par Spip
23,7 → 15,7
$GLOBALS['_GEN_commun']['url']->setPermalienBool(false);
/** Inclusion du fichier de l'applette "Moteur de Recherche".*/
require_once '../papyrus/applettes/moteur_recherche/moteur_recherche.php';
require_once 'papyrus/applettes/moteur_recherche/moteur_recherche.php';
echo afficherMoteurRecherche(array(), $GLOBALS['_GEN_commun']);
//$_GEN_commun['pear_db']->disconnect() ;
/trunk/actu/recevoir.html
8,12 → 8,10
<title>Recevoir l'information</title>
<INCLURE(incl_link_entete.php)>
</head>
 
<body >
<div id="recevoir">
<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>
33,8 → 31,8
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 ($GLOBALS['identification']->getAuth()) {
include_once PAP_CHEMIN_API_PEAR.'HTML/QuickForm.php' ;
require_once PAP_CHEMIN_API_PEAR.'HTML/QuickForm/checkbox.php' ;
include_once 'HTML/QuickForm.php' ;
require_once 'HTML/QuickForm/checkbox.php' ;
// On recherche le mail du gars
$requete_mail = 'SELECT U_MAIL FROM annuaire_tela WHERE U_ID = '.$GLOBALS['identification']->getAuthData('U_ID') ;
49,10 → 47,10
 
// 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=".$GLOBALS['identification']->getAuthData('U_ID') ;
$requete = 'UPDATE annuaire_tela SET U_LETTRE = 1 WHERE U_ID = '.$GLOBALS['identification']->getAuthData('U_ID');
$resultat = $GLOBALS['db']->query ($requete) ;
if (DB::isError($resultat)) {
die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
die ('Echec de la requete<br />'.$resultat->getMessage().'<br />'.$resultat->getDebugInfo());
}
 
// On envoie un email de demande d'inscription à la liste actu
62,21 → 60,20
$headers ['Subject'] = 'subscribe' ;
$headers ['Reply-To'] = $ligne_mail->U_MAIL ;
$mail -> send ('actu-subscribe@tela-botanica.org', $headers, "") ;
$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=".$GLOBALS['identification']->getAuthData('U_ID') ;
$requete = 'UPDATE annuaire_tela SET U_LETTRE = 1 WHERE U_ID = '.$GLOBALS['identification']->getAuthData('U_ID');
$resultat = $GLOBALS['db']->query ($requete) ;
if (DB::isError($resultat)) {
die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
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";
$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 ;
84,28 → 81,26
$headers ['Subject'] = 'subscribe' ;
$headers ['Reply-To'] = $ligne_mail->U_MAIL ;
$mail -> send ('actu-unsubscribe@tela-botanica.org', $headers, "") ;
$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=".$GLOBALS['identification']->getAuthData('U_ID') ;
$requete = 'UPDATE annuaire_tela SET U_LETTRE = 0 WHERE U_ID = '.$GLOBALS['identification']->getAuthData('U_ID');
$resultat = $GLOBALS['db']->query ($requete) ;
if (DB::isError($resultat)) {
die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
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";
$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=".$GLOBALS['identification']->getAuthData('U_ID') ;
$requete = 'SELECT U_LETTRE FROM annuaire_tela WHERE U_ID = '.$GLOBALS['identification']->getAuthData('U_ID');
$resultat = $GLOBALS['db']->query ($requete) ;
if (DB::isError($resultat)) {
die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
die ('Echec de la requete<br />'.$resultat->getMessage().'<br />'.$resultat->getDebugInfo());
}
$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;
$form = new HTML_QuickForm ('lettre', 'POST') ;
113,24 → 108,23
$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" ;
if (isset ($_POST['lettre'])) {
echo '<div class="erreur">'.$message.'</div>'."\n";
}
// on reconnecte à la base de SPIP
$db = mysql_connect(PAP_BDD_SERVEUR, PAP_BDD_UTILISATEUR, PAP_BDD_MOT_DE_PASSE, true) or die("Impossible de se connecter à la base de données: " . mysql_error());
mysql_select_db('tela_prod_spip_actu', $db);?>
</p>
}
// Reconnection à la base de SPIP
$db = mysql_connect(PAP_BDD_SERVEUR, PAP_BDD_UTILISATEUR, PAP_BDD_MOT_DE_PASSE, true) or die('Impossible de se connecter à la base de données : '.mysql_error());
mysql_select_db('tela_prod_spip_actu', $db);
?>
<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>
138,14 → 132,10
</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 -->
 
<?php
$selection = "recevoir";
?>
<?php $selection = "recevoir"; ?>
<div id="nav_gauche">
<INCLURE(incl_logo_tela.php)>
<INCLURE(incl_changer_monde.php)>
/trunk/actu/authentification.php
38,11 → 38,14
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
set_include_path(get_include_path().PATH_SEPARATOR.$_SERVER['DOCUMENT_ROOT']);
// Le fichier authentification.php est appelé systématiquement, il peut donc contenir les inclusions de fichiers génériques.
include_once dirname(realpath(__FILE__)).'/../papyrus/configuration/pap_config_avancee.inc.php' ;
include_once dirname(realpath(__FILE__)).'/../papyrus/configuration/pap_config.inc.php' ;
include_once '../'.PAP_CHEMIN_API_PEAR.'Auth.php' ;
include_once '../'.PAP_CHEMIN_API_PEAR.'DB.php' ;
// ATTENTION : bien inclure la racine du site /home/telabotap/www/ et le chemin de l'api PEAR /home/telabotap/www/api/pear/ dans l'include path.
// ATTENTION : l'ancien include_path ajouté grace à get_include_path() doit être impérativement ajouté APRÉS le chemin de l'api Pear de Papyrus!
set_include_path($_SERVER['DOCUMENT_ROOT'].PATH_SEPARATOR.$_SERVER['DOCUMENT_ROOT'].DIRECTORY_SEPARATOR.PAP_CHEMIN_API_PEAR.PATH_SEPARATOR.get_include_path());
include_once 'Auth.php' ;
include_once 'DB.php' ;
include_once 'Net/URL.php' ;
 
$NetUrl = new Net_URL();
/trunk/actu/incl_identification_ellipse.html
1,5 → 1,4
<?php
include_once 'papyrus/configuration/pap_config_avancee.inc.php' ;
include_once 'papyrus/applettes/identification/identification.php';
include_once 'api/debogage/BOG_sql.fonct.php';
include_once 'papyrus/bibliotheque/fonctions/pap_identification.fonct.php';
/trunk/actu/incl_changer_monde.html
1,10 → 1,5
<div id="selecteur_site">
<?php
/** Inclusion du fichier de config général de Papyrus.*/
require_once '../papyrus/configuration/pap_config_avancee.inc.php';
/** Inclusion du fichier de config de Papyrus propre à l'installation courante.*/
require_once '../papyrus/configuration/pap_config.inc.php';
$_GEN_commun['pear_db'] = DB::connect(PAP_DSN);
// ATTENTION : si cela est changé dans Papyrus, il faut le changer ici!
// Définition du code numérique et alphanumérique du site
16,7 → 11,7
// Définition de l'id de langue courant
$_GEN_commun['url_i18n'] = 'fr';// devrait être remplacé par la valeur fournie par Spip
/** Inclusion du fichier de l'applette "Sélecteur de site".*/
require_once '../papyrus/applettes/selecteur_sites/selecteur_sites.php';
require_once 'papyrus/applettes/selecteur_sites/selecteur_sites.php';
echo afficherSelecteurSite(array('', 'XHTML'), $_GEN_commun);// Mettre array('', 'XHTML', 'SANS_1') pour ne pas afficher le site d'admin
$_GEN_commun['pear_db']->disconnect() ;