Subversion Repositories Sites.tela-botanica.org

Rev

Rev 549 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 549 Rev 590
Line 38... Line 38...
38
    $url = $GLOBALS['ann_url']->getURL() ;
38
    $url = $GLOBALS['ann_url']->getURL() ;
Line 39... Line 39...
39
 
39
 
Line 40... Line 40...
40
    // mise à jour si il y lieu
40
    // mise à jour si il y lieu
41
 
41
 
42
    if ($action == "up") {
42
    if ($action == "up") {
Line 43... Line 43...
43
        upSQL() ;
43
        $res .= upSQL() ;
Line 44... Line 44...
44
	}
44
	}
Line 60... Line 60...
60
	if (DB::isError($resultat)) {
60
	if (DB::isError($resultat)) {
61
		return $resultat->getMessage().'<br />'.$resultat->getDebugInfo().'<br />'.$query ;
61
		return $resultat->getMessage().'<br />'.$resultat->getDebugInfo().'<br />'.$query ;
62
	}
62
	}
63
    $row = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;
63
    $row = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;
Line -... Line 64...
-
 
64
 
-
 
65
    $lettre = 'non' ;
-
 
66
    if($row->U_LETTRE == 1) {
-
 
67
        $lettre = 'oui' ;
-
 
68
    }
64
 
69
 
65
    $res = "<h1>Edition d'un adh&eacute;rent : $row->U_NAME $row->U_SURNAME</h1>\n" ;
70
    $res = "<h1>Edition d'un adh&eacute;rent : $row->U_NAME $row->U_SURNAME</h1>\n" ;
66
    $res .= "<div>".form("Nom : ", "U_NAME", $row->U_NAME)."</div>\n" ;
71
    $res .= "<div>".form("Nom : ", "U_NAME", $row->U_NAME)."</div>\n" ;
67
    $res .= "<div>".form("Pr&eacute;nom : ", "U_SURNAME", $row->U_SURNAME)."</div>\n" ;
72
    $res .= "<div>".form("Pr&eacute;nom : ", "U_SURNAME", $row->U_SURNAME)."</div>\n" ;
68
    $res .= "<div>".form("Adresse mail : ", "U_MAIL", $row->U_MAIL)."</div>\n" ;
73
    $res .= "<div>".form("Adresse mail : ", "U_MAIL", $row->U_MAIL)."</div>\n" ;
Line 72... Line 77...
72
    $res .= "<div>".form("Région : ", "U_STATE", $row->U_STATE)."</div>\n" ;
77
    $res .= "<div>".form("Région : ", "U_STATE", $row->U_STATE)."</div>\n" ;
73
    $res .= "<div>".form("Code postal : ", "U_ZIP_CODE", $row->U_ZIP_CODE)."</div>\n" ;
78
    $res .= "<div>".form("Code postal : ", "U_ZIP_CODE", $row->U_ZIP_CODE)."</div>\n" ;
74
    $res .= "<div>".form("Ville : ", "U_CITY", $row->U_CITY)."</div>\n" ;
79
    $res .= "<div>".form("Ville : ", "U_CITY", $row->U_CITY)."</div>\n" ;
75
    $res .= "<div>".form("Pays : ", "U_COUNTRY", $row->U_COUNTRY)."</div>\n" ;
80
    $res .= "<div>".form("Pays : ", "U_COUNTRY", $row->U_COUNTRY)."</div>\n" ;
76
    $res .= "<div>".form("Site web personnel : ", "U_WEB", $row->U_WEB)."</div>\n" ;
81
    $res .= "<div>".form("Site web personnel : ", "U_WEB", $row->U_WEB)."</div>\n" ;
-
 
82
    $res .= "<div>".form("Inscrit à la lettre d'actualit&eacute;s : ", "U_LETTRE", $lettre)."</div>\n" ;
77
    $res .= "<div>".form("Organisme : ", "U_TITLE", $row->U_TITLE)."</div>\n" ;
83
    $res .= "<div>".form("Organisme : ", "U_TITLE", $row->U_TITLE)."</div>\n" ;
78
    $res .= "<div>".form("Fonction : ", "U_FONCTION", $row->U_FONCTION)."</div>\n" ;
84
    $res .= "<div>".form("Fonction : ", "U_FONCTION", $row->U_FONCTION)."</div>\n" ;
79
    $res .= "<div>".form("Niveau en botanique : ", "LABEL_NIV", $row->LABEL_NIV)."</div>\n" ;
85
    $res .= "<div>".form("Niveau en botanique : ", "LABEL_NIV", $row->LABEL_NIV)."</div>\n" ;
80
    $res .= "<div>".form("Activit&eacute; : ", "LABEL_ACT", $row->LABEL_ACT)."</div>\n" ;
86
    $res .= "<div>".form("Activit&eacute; : ", "LABEL_ACT", $row->LABEL_ACT)."</div>\n" ;
81
    $res .= "<div>".form("Secteur associatif : ", "LABEL_ASS", $row->LABEL_ASS)."</div>\n" ;
87
    $res .= "<div>".form("Secteur associatif : ", "LABEL_ASS", $row->LABEL_ASS)."</div>\n" ;
82
    $res .= "<div>".form("Sp&eacute;cialit&eacute; : ", "U_SPE", $row->U_SPE)."</div>\n" ;
88
    $res .= "<div>".form("Sp&eacute;cialit&eacute; : ", "U_SPE", $row->U_SPE)."</div>\n" ;
83
    $res .= "<div>".form("Sp&eacute;cialit&eacute; g&eacute;ographique : ", "U_GEO", $row->U_GEO)."</div>\n" ;
89
    $res .= "<div>".form("Sp&eacute;cialit&eacute; g&eacute;ographique : ", "U_GEO", $row->U_GEO)."</div>\n" ;
84
    
90
 
85
    if (isset($cotisation_id) && $cotisation_id != "") {
91
    if (isset($cotisation_id) && $cotisation_id != "") {
86
        $db = & $GLOBALS['ann_db'];
92
        $db = & $GLOBALS['ann_db'];
87
        include_once ANN_CHEMIN_APPLI."recu_pdf_corps.php" ;
93
        include_once ANN_CHEMIN_APPLI."recu_pdf_corps.php" ;
88
        // buffer est une propriété de la classe FPDF qui contient les données au format PDF.
94
        // buffer est une propriété de la classe FPDF qui contient les données au format PDF.
89
        // habituellement on ne l'utilise pas, on appelle $pdf->Output() qui envoie les
95
        // habituellement on ne l'utilise pas, on appelle $pdf->Output() qui envoie les
Line 247... Line 253...
247
            default :$id_field = $field_ ;
253
            default :$id_field = $field_ ;
248
        }
254
        }
Line 249... Line 255...
249
 
255
 
250
    // Recherche de l'ancien mail
256
    // Recherche de l'ancien mail
251
    $req_am = "select U_MAIL from annuaire_tela where U_ID = $u_id" ;
257
    $req_am = "select U_MAIL from annuaire_tela where U_ID = $u_id" ;
-
 
258
    $res_am = mysql_query ($req_am);
-
 
259
    if(!$res_am) {
-
 
260
    	$res .= "<br>Echec de la requete dans la table annuaire, l'identifiant de personnes est invalide : ".$u_id."<br />" ;
252
    $res_am = mysql_query ($req_am) or die ("Echec ".mysql_error()) ;
261
    }
253
    $ligne_am = mysql_fetch_object ($res_am) ;
262
    $ligne_am = mysql_fetch_object ($res_am) ;
Line 254... Line 263...
254
    $ancien_mail = $ligne_am->U_MAIL ;
263
    $ancien_mail = $ligne_am->U_MAIL ;
-
 
264
 
-
 
265
    $query = "update annuaire_tela set $field_=\"".$HTTP_POST_VARS[$id_field]."\" where U_ID = $u_id" ;
-
 
266
    $res_update = mysql_query($query);
255
 
267
 
-
 
268
    if(!$res_update) {
-
 
269
    	$res .= "<br>Echec de la requete de mise à jour de la table annuaire <br> du paramètre U_ID <br />
Line 256... Line 270...
256
    $query = "update annuaire_tela set $field_=\"".$HTTP_POST_VARS[$id_field]."\" where U_ID = $u_id" ;
270
		ancienne valeur : ".$u_id."  nouvelle valeur : ".$HTTP_POST_VARS[$id_field]." <br />" ;
257
    mysql_query($query) or die ("<br>Echec de la requete de mise à jour<br>\n") ;
271
    }
258
 
272
 
259
    // Traitement du département
273
    // Traitement du département
Line 271... Line 285...
271
 
285
 
272
    if ($field_ == "U_MAIL") {
286
    if ($field_ == "U_MAIL") {
273
        $requete = "update ins_STATS set IS_MAIL=\"".$HTTP_POST_VARS['U_MAIL']."\" where IS_MAIL=\"$ancien_mail\"" ;
287
        $requete = "update ins_STATS set IS_MAIL=\"".$HTTP_POST_VARS['U_MAIL']."\" where IS_MAIL=\"$ancien_mail\"" ;
274
        mysql_query ($requete) ;
288
        mysql_query ($requete) ;
-
 
289
    }
-
 
290
 
275
    }
291
    return "";
Line 276... Line 292...
276
}
292
}
277
 
293
 
Line 329... Line 345...
329
        $date = preg_replace("/([0-9]+)-([0-9]+)-([0-9]+)/", "\\3\\2\\1", $IC_DATE) ;
345
        $date = preg_replace("/([0-9]+)-([0-9]+)-([0-9]+)/", "\\3\\2\\1", $IC_DATE) ;
330
        $query = 'insert into annuaire_COTISATION values ("", '.$IC_MC_ID.', '.$u_id.', '.$date.',"'.$IC_MONTANT.'", 0, "0000-00-00")' ;
346
        $query = 'insert into annuaire_COTISATION values ("", '.$IC_MC_ID.', '.$u_id.', '.$date.',"'.$IC_MONTANT.'", 0, "0000-00-00")' ;
331
			$resultat = $GLOBALS['ann_db']->query ($query) ;
347
			$resultat = $GLOBALS['ann_db']->query ($query) ;
332
			if (DB::isError($resultat)) {
348
			if (DB::isError($resultat)) {
333
		    	echo $resultat->getMessage().'<br />'.$resultat->getDebugInfo().'<br />'.$query ;
349
		    	echo $resultat->getMessage().'<br />'.$resultat->getDebugInfo().'<br />'.$query ;
334
			}   
350
			}
335
			$GLOBALS['ann_db']->query("update annuaire_tela set U_COT=1 where U_ID=$u_id") ;
351
			$GLOBALS['ann_db']->query("update annuaire_tela set U_COT=1 where U_ID=$u_id") ;
336
    }
352
    }
Line 337... Line 353...
337
 
353
 
Line 342... Line 358...
342
        $query = 'update annuaire_COTISATION set IC_DATE="'.$date.'", IC_MONTANT="'.$IC_MONTANT.'",
358
        $query = 'update annuaire_COTISATION set IC_DATE="'.$date.'", IC_MONTANT="'.$IC_MONTANT.'",
343
                        IC_MC_ID='.$IC_MC_ID.' where IC_ID='.$id_cot ;
359
                        IC_MC_ID='.$IC_MC_ID.' where IC_ID='.$id_cot ;
344
		$GLOBALS['ann_db']->query ($query) ;
360
		$GLOBALS['ann_db']->query ($query) ;
345
		if (DB::isError($resultat)) {
361
		if (DB::isError($resultat)) {
346
		    	echo $resultat->getMessage().'<br />'.$resultat->getDebugInfo().'<br />'.$query ;
362
		    	echo $resultat->getMessage().'<br />'.$resultat->getDebugInfo().'<br />'.$query ;
347
		} 
363
		}
348
    }
364
    }
Line 349... Line 365...
349
 
365
 
Line 350... Line 366...
350
		// l'action 'rm' retire une ligne de la table annuaire_COTISATION
366
		// l'action 'rm' retire une ligne de la table annuaire_COTISATION
Line 464... Line 480...
464
    $res .= "<input type=\"submit\" class=\"texte_tb\" value=\"Supprimer\" " ;
480
    $res .= "<input type=\"submit\" class=\"texte_tb\" value=\"Supprimer\" " ;
465
    $res .= "onclick=\"javascript:return confirmLink(this, '&ecirc;tes-vous s&ucirc;r de vouloir supprimer cet adh&eacute;rent');\">\n" ;
481
    $res .= "onclick=\"javascript:return confirmLink(this, '&ecirc;tes-vous s&ucirc;r de vouloir supprimer cet adh&eacute;rent');\">\n" ;
466
    $res .= "</form></div>\n" ;
482
    $res .= "</form></div>\n" ;
Line 467... Line 483...
467
 
483
 
468
    if ($action=="suppr_adh") {
484
    if ($action=="suppr_adh") {
469
        $queryLogin = "select U_MAIL from annuaire_tela where U_ID=$u_id" ;
485
        $requete_utilisateur = "select U_MAIL from annuaire_tela where U_ID=".$u_id ;
-
 
486
        $resultat_utilisateur = mysql_query($requete_utilisateur);
-
 
487
 
-
 
488
        if(!$resultat_utilisateur) {
-
 
489
         	$res .= "<br>Echec de la requete dans la table annuaire utilisateurs, l'identifiant de personne est invalide : ".$u_id."<br />" ;
470
        $resultLogin = mysql_query($queryLogin) or die ("Echec de la requete sur annu_USERS");
490
    	}
471
        $rowLogin = mysql_fetch_object($resultLogin) ;
491
        $utilisateur = mysql_fetch_object($resultat_utilisateur) ;
472
        $mail = $rowLogin->U_MAIL ;
492
        $mail = $utilisateur->U_MAIL ;
Line 473... Line 493...
473
        mysql_free_result($resultLogin) ;
493
        mysql_free_result($resultat_utilisateur) ;
474
 
494
 
475
        // vérifications
495
        // vérifications
476
        // 1. annu_ADMIN
496
        // 1. annu_ADMIN
-
 
497
        $requete_annuaire_admin = "select ".ANNUAIRE_ADMIN_ID." from ".ANNUAIRE_ADMIN." where ".ANNUAIRE_ADMIN_ID."=".$u_id ;
-
 
498
        $r_annu_ADMIN = mysql_query($requete_annuaire_admin);
-
 
499
 
-
 
500
        if(!$r_annu_ADMIN) {
-
 
501
         	$res .= "<br>Echec de la requete dans la table annuaire administrateurs, l'identifiant de personne est invalide : ".$u_id
-
 
502
         	."<br /> Requete : ".$requete_annuaire_admin ;
477
        $q_annu_ADMIN = "select AA_ID from annu_ADMIN where AA_ID=$u_id" ;
503
    	}
478
        $r_annu_ADMIN = mysql_query($q_annu_ADMIN) or die ("Echec ..." );
504
 
479
        if (mysql_num_rows($r_annu_ADMIN) != 0) {
505
        if (mysql_num_rows($r_annu_ADMIN) != 0) {
Line 480... Line 506...
480
            $res .= "Une référence dans annu_ADMIN" ;
506
            $res .= "Une référence dans annu_ADMIN" ;
481
        }
507
        }
-
 
508
 
-
 
509
        // 2.
-
 
510
        // suppression
-
 
511
        $query_supp = "delete from annuaire_tela where U_ID=".$u_id ;
-
 
512
        $res_supp = mysql_query($query_supp);
-
 
513
        if(!$res_supp) {
-
 
514
        	$res .= "<br>Echec de la suppression dans la table annuaire utilisateurs, l'identifiant de personne est invalide : ".$u_id
-
 
515
        	."<br /> Requete : ".$query_supp ;
-
 
516
    	}
-
 
517
 
-
 
518
    	// Suppression dans SPIP
-
 
519
		if (INS_UTILISE_SPIP) {
-
 
520
			desinscription_spip($u_id) ;
-
 
521
		}
-
 
522
 
-
 
523
		// Désinscription de la lettre d'info
-
 
524
		if (INS_UTILISE_LISTE) {
-
 
525
			if ($utilisateur->U_LETTRE == 1) {
-
 
526
				$supp_abo = file_get_contents(URL_LISTE_ACTU.'suppression_abonne.php?domaine=tela-botanica.org&liste=actu&mail='.$mail) ;
-
 
527
			}
-
 
528
		}
-
 
529
		// Appel des actions desinscriptions des applications clientes
Line -... Line 530...
-
 
530
		$msg = '';
-
 
531
 
482
 
532
		$id_utilisateur = $u_id;
-
 
533
 
-
 
534
        $d = dir(GEN_CHEMIN_CLIENT);
-
 
535
		while (false !== ($repertoire = $d->read())) {
-
 
536
			if ($repertoire != '.' || $repertoire != '..') {
-
 
537
				if (file_exists(GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.desinscription.inc.php'))
483
        // 2.
538
				include_once GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.desinscription.inc.php' ;
484
        // suppression
539
			}
485
 
540
			if ($msg != '') $res .= $msg;
Line 486... Line 541...
486
        $query = "delete from annuaire_tela where U_ID=$u_id" ;
541
		}
Line 505... Line 560...
505
    }
560
    }
506
    $res .= "</select>\n" ;
561
    $res .= "</select>\n" ;
507
    return $res ;
562
    return $res ;
508
}
563
}
Line -... Line 564...
-
 
564
 
-
 
565
function desinscription_spip($id_utilisateur)
-
 
566
{
-
 
567
    //BIEN METTRE alea_actuel, htpass ET alea_futur À ""
-
 
568
     $requete = 'DELETE FROM '.INS_BDD_SPIP.'.spip_auteurs WHERE id_auteur='.$id_utilisateur ;
-
 
569
    //echo $requete;
-
 
570
    $resultat = $GLOBALS['ins_db']->query ($requete) ;
-
 
571
    if (DB::isError ($resultat)) {
-
 
572
        return "Echec de la requete : $requete<br />".$resultat->getMessage() ;
-
 
573
    }
-
 
574
}
509
 
575