Subversion Repositories Sites.tela-botanica.org

Compare Revisions

Ignore whitespace Rev 503 → Rev 504

/trunk/client/inscription/inscription.php
80,6 → 80,15
*/
function afficherContenuCorps() {
 
// Operation de maintenance sur la table inscription_demande
// On supprime les vieilles demandes qui ont expire
$requete_maintenance = 'delete from inscription_demande where id_date < DATE_SUB(NOW(), interval 1 week)';
$resultat_maintenance = $GLOBALS['ins_db']->query ($requete_maintenance);
if (DB::isError($resultat_maintenance)) {
return ('Echec de la requete : '.$requete_maintenance.'<br />'.$resultat_maintenance->getMessage());
}
$url = preg_replace ('/&amp;/', '&', $GLOBALS['ins_url']->getURL()) ;
// Attibution de l'action par défaut à effectuer.
if (!isset ($_REQUEST['action'])) {
104,7 → 113,7
$resultat = $GLOBALS['AUTH']->removeUser($mail_utilisateur) ;
 
if (PEAR::isError($resultat)) {
die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) ;
return ($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) ;
}
 
// Suppression dans SPIP
118,6 → 127,19
inscription_lettre(INS_MAIL_DESINSCRIPTION_LISTE) ;
}
}
// Appel des actions desinscriptions des applications clientes
$msg = '';
$d = dir(GEN_CHEMIN_CLIENT);
while (false !== ($repertoire = $d->read())) {
if ($repertoire != '.' || $repertoire != '..') {
if (file_exists(GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.desinscription.inc.php'))
include_once GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.desinscription.inc.php' ;
}
if ($msg != '') $res .= $msg;
}
$d->close();
// Deconnexion
$GLOBALS['AUTH']->logout() ;
// Ajout d'une ligne dans les statistiques
148,7 → 170,7
'WHERE id_identifiant_session = "'.$_GET['id'].'" ';
$resultat = $GLOBALS['ins_db']->query($requete);
if (DB::isError ($resultat)) {
die ("Echec de la requete : $requete<br />".$resultat->getMessage());
return ("Echec de la requete : $requete<br />".$resultat->getMessage());
}
if ($resultat->numRows() == 0) {
return INS_MESSAGE_EXPIRATION;