WebSVN – Sites.tela-botanica.org – Diff – /trunk/client/annuaire/admin_annu.php

     $url = $GLOBALS['ann_url']->getURL() ;
     // mise à jour si il y lieu
     if ($action == "up") {
-        upSQL() ;
+        $res .= upSQL() ;
+	}
 	if (DB::isError($resultat)) {
 		return $resultat->getMessage().'<br />'.$resultat->getDebugInfo().'<br />'.$query ;
+	}
     $row = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;
+    $lettre = 'non' ;
+    if($row->U_LETTRE == 1) {
+        $lettre = 'oui' ;
+    }
     $res = "<h1>Edition d'un adh&eacute;rent : $row->U_NAME $row->U_SURNAME</h1>\n" ;
     $res .= "<div>".form("Nom : ", "U_NAME", $row->U_NAME)."</div>\n" ;
     $res .= "<div>".form("Pr&eacute;nom : ", "U_SURNAME", $row->U_SURNAME)."</div>\n" ;
     $res .= "<div>".form("Adresse mail : ", "U_MAIL", $row->U_MAIL)."</div>\n" ;
     $res .= "<div>".form("Région : ", "U_STATE", $row->U_STATE)."</div>\n" ;
     $res .= "<div>".form("Code postal : ", "U_ZIP_CODE", $row->U_ZIP_CODE)."</div>\n" ;
     $res .= "<div>".form("Ville : ", "U_CITY", $row->U_CITY)."</div>\n" ;
     $res .= "<div>".form("Pays : ", "U_COUNTRY", $row->U_COUNTRY)."</div>\n" ;
     $res .= "<div>".form("Site web personnel : ", "U_WEB", $row->U_WEB)."</div>\n" ;
+    $res .= "<div>".form("Inscrit à la lettre d'actualit&eacute;s : ", "U_LETTRE", $lettre)."</div>\n" ;
     $res .= "<div>".form("Organisme : ", "U_TITLE", $row->U_TITLE)."</div>\n" ;
     $res .= "<div>".form("Fonction : ", "U_FONCTION", $row->U_FONCTION)."</div>\n" ;
     $res .= "<div>".form("Niveau en botanique : ", "LABEL_NIV", $row->LABEL_NIV)."</div>\n" ;
     $res .= "<div>".form("Activit&eacute; : ", "LABEL_ACT", $row->LABEL_ACT)."</div>\n" ;
     $res .= "<div>".form("Secteur associatif : ", "LABEL_ASS", $row->LABEL_ASS)."</div>\n" ;
     $res .= "<div>".form("Sp&eacute;cialit&eacute; : ", "U_SPE", $row->U_SPE)."</div>\n" ;
     $res .= "<div>".form("Sp&eacute;cialit&eacute; g&eacute;ographique : ", "U_GEO", $row->U_GEO)."</div>\n" ;
     if (isset($cotisation_id) && $cotisation_id != "") {
         $db = & $GLOBALS['ann_db'];
         include_once ANN_CHEMIN_APPLI."recu_pdf_corps.php" ;
         // buffer est une propriété de la classe FPDF qui contient les données au format PDF.
         // habituellement on ne l'utilise pas, on appelle $pdf->Output() qui envoie les
             default :$id_field = $field_ ;
+        }
     // Recherche de l'ancien mail
     $req_am = "select U_MAIL from annuaire_tela where U_ID = $u_id" ;
+    $res_am = mysql_query ($req_am);
+    if(!$res_am) {
+    	$res .= "<br>Echec de la requete dans la table annuaire, l'identifiant de personnes est invalide : ".$u_id."<br />" ;
     $res_am = mysql_query ($req_am) or die ("Echec ".mysql_error()) ;
     $ligne_am = mysql_fetch_object ($res_am) ;
     $ancien_mail = $ligne_am->U_MAIL ;
+    $query = "update annuaire_tela set $field_=\"".$HTTP_POST_VARS[$id_field]."\" where U_ID = $u_id" ;
+    $res_update = mysql_query($query);
+    if(!$res_update) {
+    	$res .= "<br>Echec de la requete de mise à jour de la table annuaire <br> du paramètre U_ID <br />
-    $query = "update annuaire_tela set $field_=\"".$HTTP_POST_VARS[$id_field]."\" where U_ID = $u_id" ;
+		ancienne valeur : ".$u_id."  nouvelle valeur : ".$HTTP_POST_VARS[$id_field]." <br />" ;
     mysql_query($query) or die ("<br>Echec de la requete de mise à jour<br>\n") ;
     // Traitement du département
     if ($field_ == "U_MAIL") {
         $requete = "update ins_STATS set IS_MAIL=\"".$HTTP_POST_VARS['U_MAIL']."\" where IS_MAIL=\"$ancien_mail\"" ;
         mysql_query ($requete) ;
+    }
     return "";
+}
         $date = preg_replace("/([0-9]+)-([0-9]+)-([0-9]+)/", "\\3\\2\\1", $IC_DATE) ;
         $query = 'insert into annuaire_COTISATION values ("", '.$IC_MC_ID.', '.$u_id.', '.$date.',"'.$IC_MONTANT.'", 0, "0000-00-00")' ;
 			$resultat = $GLOBALS['ann_db']->query ($query) ;
 			if (DB::isError($resultat)) {
 		    	echo $resultat->getMessage().'<br />'.$resultat->getDebugInfo().'<br />'.$query ;
 			}
 			$GLOBALS['ann_db']->query("update annuaire_tela set U_COT=1 where U_ID=$u_id") ;
+    }
         $query = 'update annuaire_COTISATION set IC_DATE="'.$date.'", IC_MONTANT="'.$IC_MONTANT.'",
                         IC_MC_ID='.$IC_MC_ID.' where IC_ID='.$id_cot ;
 		$GLOBALS['ann_db']->query ($query) ;
 		if (DB::isError($resultat)) {
 		    	echo $resultat->getMessage().'<br />'.$resultat->getDebugInfo().'<br />'.$query ;
 		}
+    }
 		// l'action 'rm' retire une ligne de la table annuaire_COTISATION
     $res .= "<input type=\"submit\" class=\"texte_tb\" value=\"Supprimer\" " ;
     $res .= "onclick=\"javascript:return confirmLink(this, '&ecirc;tes-vous s&ucirc;r de vouloir supprimer cet adh&eacute;rent');\">\n" ;
     $res .= "</form></div>\n" ;
     if ($action=="suppr_adh") {
-        $queryLogin = "select U_MAIL from annuaire_tela where U_ID=$u_id" ;
+        $requete_utilisateur = "select U_MAIL from annuaire_tela where U_ID=".$u_id ;
+        $resultat_utilisateur = mysql_query($requete_utilisateur);
+        if(!$resultat_utilisateur) {
+         	$res .= "<br>Echec de la requete dans la table annuaire utilisateurs, l'identifiant de personne est invalide : ".$u_id."<br />" ;
-        $resultLogin = mysql_query($queryLogin) or die ("Echec de la requete sur annu_USERS");
+    	}
-        $rowLogin = mysql_fetch_object($resultLogin) ;
+        $utilisateur = mysql_fetch_object($resultat_utilisateur) ;
-        $mail = $rowLogin->U_MAIL ;
+        $mail = $utilisateur->U_MAIL ;
-        mysql_free_result($resultLogin) ;
+        mysql_free_result($resultat_utilisateur) ;
         // vérifications
         // 1. annu_ADMIN
+        $requete_annuaire_admin = "select ".ANNUAIRE_ADMIN_ID." from ".ANNUAIRE_ADMIN." where ".ANNUAIRE_ADMIN_ID."=".$u_id ;
+        $r_annu_ADMIN = mysql_query($requete_annuaire_admin);
+        if(!$r_annu_ADMIN) {
+         	$res .= "<br>Echec de la requete dans la table annuaire administrateurs, l'identifiant de personne est invalide : ".$u_id
+         	."<br /> Requete : ".$requete_annuaire_admin ;
         $q_annu_ADMIN = "select AA_ID from annu_ADMIN where AA_ID=$u_id" ;
         $r_annu_ADMIN = mysql_query($q_annu_ADMIN) or die ("Echec ..." );
         if (mysql_num_rows($r_annu_ADMIN) != 0) {
             $res .= "Une référence dans annu_ADMIN" ;
+        }
+        // 2.
+        // suppression
+        $query_supp = "delete from annuaire_tela where U_ID=".$u_id ;
+        $res_supp = mysql_query($query_supp);
+        if(!$res_supp) {
+        	$res .= "<br>Echec de la suppression dans la table annuaire utilisateurs, l'identifiant de personne est invalide : ".$u_id
+        	."<br /> Requete : ".$query_supp ;
+    	}
+    	// Suppression dans SPIP
+		if (INS_UTILISE_SPIP) {
+			desinscription_spip($u_id) ;
+		}
+		// Désinscription de la lettre d'info
+		if (INS_UTILISE_LISTE) {
+			if ($utilisateur->U_LETTRE == 1) {
+				$supp_abo = file_get_contents(URL_LISTE_ACTU.'suppression_abonne.php?domaine=tela-botanica.org&liste=actu&mail='.$mail) ;
+			}
+		}
+		// Appel des actions desinscriptions des applications clientes
+		$msg = '';
+		$id_utilisateur = $u_id;
+        $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'))
-        // 2.
+				include_once GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.desinscription.inc.php' ;
         // suppression
 			if ($msg != '') $res .= $msg;
         $query = "delete from annuaire_tela where U_ID=$u_id" ;
+    }
     $res .= "</select>\n" ;
     return $res ;
+}
+function desinscription_spip($id_utilisateur)
+{
+    //BIEN METTRE alea_actuel, htpass ET alea_futur À ""
+     $requete = 'DELETE FROM '.INS_BDD_SPIP.'.spip_auteurs WHERE id_auteur='.$id_utilisateur ;
+    //echo $requete;
+    $resultat = $GLOBALS['ins_db']->query ($requete) ;
+    if (DB::isError ($resultat)) {
+        return "Echec de la requete : $requete<br />".$resultat->getMessage() ;
+    }
+}

Subversion Repositories Sites.tela-botanica.org

(root)/trunk/client/annuaire/admin_annu.php – Rev 549 → 590