Subversion Repositories Sites.tela-botanica.org

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4 david 1
<?php
2
 
3
// +--------------------------------------------------------------------------------+
4
// | admin_annu.php 				                          						|
5
// +--------------------------------------------------------------------------------+
6
// | Copyright (c) 2002 					   							        	|
7
// +--------------------------------------------------------------------------------+
8
// | Administration des inscrits à un annuaire de type annuaire_tela			    |
9
// | de Gsite, 													                    |
10
// | Sont également mises en jeux les tables gen_COUNTRY, gen_FRENCH_DPT,	        |
11
// | LABELS															                |
12
// | Plus spécifique la fonction cotisation($id) en bas permet de				    |
13
// | gérer les cotisations versées par les inscrits, avec la table					|
14
// | annuaire_COTISATION													                |
15
// +--------------------------------------------------------------------------------+
16
// | Auteur : Alexandre Granier <alexandre@tela-botanica.org> 		  		        |
17
// +--------------------------------------------------------------------------------+
18
//
19
// $Id: admin_annu.php,v 1.1 2005/03/24 08:47:31 alex Exp $
20
 
21
 
22
global $HTTP_HOST ;
23
 
24
define ("URL_RECU", $GLOBALS['ann_url']->protocol. '://'.$GLOBALS['ann_url']->host."/client/annuaire/voir_recu_pdf.php") ;
25
 
26
include_once ("HTML/Table.php") ;
27
include_once 'api/formulaire/FORM_formulaire.class.php' ;
28
 
29
// admin_annu est une application cliente de gsite elle commence donc
30
// dans une fonction putFrame()
31
 
32
 
33
function putFrame()
34
{
35
	global $u_id, $cotisation_id ;
36
    global $action ;
37
    global $link ;
38
 
39
    if (empty($action)) $action = false  ;
40
 
41
    $url = $GLOBALS['ann_url']->getURL() ;
42
 
43
    // mise à jour si il y lieu
44
 
45
    if ($action == "up") {
46
        upSQL() ;
47
	}
48
 
49
    // Requete de pour récupérer toutes les infos d'un usager
50
 
51
    $query = "select annuaire_tela.*,annuaire_LABEL_ACT.*,annuaire_LABEL_ASS.*,gen_COUNTRY.GC_NAME" ;
52
    $query .= ", annuaire_LABEL_NIV.*, annuaire_LABEL_STATUT.*" ;
53
    $query .= " from annuaire_tela,gen_COUNTRY,gen_FRENCH_DPT," ;
54
    $query .= " annuaire_LABEL_ACT,annuaire_LABEL_ASS, annuaire_LABEL_NIV, annuaire_LABEL_STATUT" ;
55
    $query .= " where U_ID=$u_id" ;
56
    //$query .= " and annuaire_tela.U_FRENCH_DPT=gen_FRENCH_DPT.GFD_ID" ;
57
    $query .= " and annuaire_tela.U_COUNTRY=gen_COUNTRY.GC_ID" ;
58
    $query .= " and annuaire_tela.U_ACT=annuaire_LABEL_ACT.ID_LABEL_ACT" ;
59
    $query .= " and annuaire_tela.U_ASS=annuaire_LABEL_ASS.ID_LABEL_ASS" ;
60
    $query .= " and annuaire_tela.U_NIV=annuaire_LABEL_NIV.ID_LABEL_NIV" ;
61
 
62
    $result = mysql_query($query) or die("Echec de la requete sur ".ANN_ANNUAIRE.":<br>".mysql_error().'<br>'.$query) ;
63
 
64
    $row = mysql_fetch_object($result) ;
65
 
66
    $res = "<h1>Edition d'un adh&eacute;rent : $row->U_NAME $row->U_SURNAME</h1>\n" ;
67
    $res .= "<div>".form("Nom : ", "U_NAME", $row->U_NAME)."</div>\n" ;
68
    $res .= "<div>".form("Pr&eacute;nom : ", "U_SURNAME", $row->U_SURNAME)."</div>\n" ;
69
    $res .= "<div>".form("Adresse mail : ", "U_MAIL", $row->U_MAIL)."</div>\n" ;
70
    $res .= "<div>".form("Date d'inscription : ", "U_DATE", $row->U_DATE)."</div>\n" ;
71
    $res .= "<div>".form("Adresse 1 : ", "U_ADDR1", $row->U_ADDR1)."</div>\n" ;
72
    $res .= "<div>".form("Adresse 2 : ", "U_ADDR2", $row->U_ADDR2)."</div>\n" ;
73
    $res .= "<div>".form("Région : ", "U_STATE", $row->U_STATE)."</div>\n" ;
74
    $res .= "<div>".form("Code postal : ", "U_ZIP_CODE", $row->U_ZIP_CODE)."</div>\n" ;
75
    $res .= "<div>".form("Ville : ", "U_CITY", $row->U_CITY)."</div>\n" ;
76
    $res .= "<div>".form("Pays : ", "U_COUNTRY", $row->U_COUNTRY)."</div>\n" ;
77
    $res .= "<div>".form("Site web personnel : ", "U_WEB", $row->U_WEB)."</div>\n" ;
78
    $res .= "<div>".form("Organisme : ", "U_TITLE", $row->U_TITLE)."</div>\n" ;
79
    $res .= "<div>".form("Fonction : ", "U_FONCTION", $row->U_FONCTION)."</div>\n" ;
80
    $res .= "<div>".form("Niveau en botanique : ", "LABEL_NIV", $row->LABEL_NIV)."</div>\n" ;
81
    $res .= "<div>".form("Activit&eacute; : ", "LABEL_ACT", $row->LABEL_ACT)."</div>\n" ;
82
    $res .= "<div>".form("Secteur associatif : ", "LABEL_ASS", $row->LABEL_ASS)."</div>\n" ;
83
    $res .= "<div>".form("Sp&eacute;cialit&eacute; : ", "U_SPE", $row->U_SPE)."</div>\n" ;
84
    $res .= "<div>".form("Sp&eacute;cialit&eacute; g&eacute;ographique : ", "U_GEO", $row->U_GEO)."</div>\n" ;
85
    $res .= "<div>".form("Statut : ", "LABEL_STATUT", $row->LABEL_STATUT)."</div>\n" ;
86
    if (isset($cotisation_id) && $cotisation_id != "") {
87
        $db = & $GLOBALS['ann_db'];
88
        include_once ANN_CHEMIN_APPLI."recu_pdf_corps.php" ;
89
        // buffer est une propriété de la classe FPDF qui contient les données au format PDF.
90
        // habituellement on ne l'utilise pas, on appelle $pdf->Output() qui envoie les
91
        // entete HTTP du document généré
92
 
93
        $pdf->Close() ;
94
        $buf = $pdf->buffer;
95
 
96
        // Inclusion des bibliothèques PEAR
97
 
98
        include_once ('Mail.php');
99
        include_once ('Mail/mime.php');
100
 
101
        $file = 'Recu_Fiscal_Tela_Botanica.pdf';
102
        $crlf = "\r\n";
103
        $hdrs = array(
104
              'From'    => 'accueil@tela-botanica.org',
105
              'Subject' => 'Reçu pour don à Tela Botanica'
106
              );
107
 
108
        $mime = new Mail_mime($crlf);
109
        $text = "Bonjour !\n\n".
110
            "Le Réseau Tela Botanica vous remercie du soutien financier que vous lui avez apporté. Votre contribution permettra au réseau :\n\n".
111
            "- de continuer à encourager et accompagner des projets botaniques,\n".
112
            "- de maintenir et d'améliorer nos services Internet dédiés à la botanique.\n\n".
113
            "Vous trouverez en pièce jointe à ce message un document PDF contenant le reçu fiscal à imprimer".
114
            " et à joindre à votre déclaration d'impôts. Si vous n'arrivez pas à imprimer ce document, veuillez".
115
            " nous le signaler en répondant à ce mail et en indiquant votre nom et votre adresse postale. Nous vous".
116
            " ferons parvenir le reçu imprimé à cette adresse.\n\n".
117
            "Rappel : Votre contribution financière ne constitue pas une adhésion à l'Association Tela Botanica mais ".
118
            "bien un soutien aux actions menées par le Réseau Tela Botanica.\n\n".
119
            "Si ce n'est déjà fait, n'oubliez pas de vous inscrire au Réseau sur le site Internet, à l'adresse : ".
120
            "http://www.tela-botanica.org (menu « Inscription», onglet « Inscription»), afin que vous puissiez :\n\n".
121
            "- consulter l'annuaire des personnes inscrites au Réseau ;\n- localiser les membres du Réseau dans tous".
122
            " les pays;\n- accédez à certaines données diffusées sur le site ;\n- vous inscrire à des projets ".
123
            "botaniques ;\n- être informé personnellement des actualités du Réseau.\n\n".
124
            "Bien cordialement,\n\n".
125
            "Tela Botanica\nLe Réseau des Botanistes Francophones\n163, rue A. Broussonnet\n34090 Montpellier\n".
126
            "Tél. : 04-67-52-41-22\naccueil@tela-botanica.org\nhttp://www.tela-botanica.org\n" ;
127
        $mime->setTXTBody($text);
128
 
129
        // On attache le document PDF grace à $buf, et en indiquant son type MIME
130
        $mime->addAttachment($buf, 'application/pdf', $file, false) ;
131
 
132
        $body = $mime->get();
133
        $hdrs = $mime->headers($hdrs);
134
 
135
        $mail =& Mail::factory('mail');
136
        $mail->send($ligne->U_MAIL, $hdrs, $body);
137
 
138
        // On insere le numéro du reçu dans la table annuaire_COTISATION
139
        @mysql_query("update annuaire_COTISATION set IC_RECU=$num_recu, IC_DATE_ENVOIE_RECU=NOW() where IC_ID=$cotisation_id") ;
140
 
141
        // On incrémente le compteur de mail de 1
142
        if (!$deja_envoye) {
143
            $num_recu++ ;
144
            mysql_query("update COMPTEUR_COTISATION set COMPTEUR=$num_recu ") ;
145
        }
146
        $res .= "<div>Le reçu a été envoyé</div>\n" ;
147
    }
148
    $res .= cotisation($u_id) ;
149
    $res .= suppression($u_id) ;
150
    return $res ;
151
}
152
 
153
 
154
// form construit soit un formulaire de type <input type="text" ...> et
155
// de nom $field_ et place un $label devant
156
// soit construit un lien vers un formulaire à partir du champs $field_
157
 
158
 
159
function form($label, $field_, $value)
160
{
161
    global $u_id, $GS_GLOBAL, $field ;
162
 
163
    $url = $GLOBALS['ann_url']->getURL() ;
164
 
165
    if ($field != $field_) {
166
        $res = "<b>$label</b>" ;
167
        $res .= "<a href=\"$url&amp;field=$field_\">" ;
168
				if ($field_ == 'LABEL_NIV' || $field_ == 'LABEL_ACT' || $field_== 'LABEL_ASS') {
169
                    $res .= $value ? $value : "(vide)";
170
				} else if ($field_ == "U_COT") {
171
						if ($value == 0) {
172
								$res .= "non" ;
173
						} else {
174
								$res .= "oui" ;
175
						}
176
				} else {
177
						$res .= $value ? $value : "(vide)";
178
				}
179
				$res .= "</a>\n" ;
180
		}
181
		if ($field == $field_) {
182
						$res = "\n<form action=\"$url&amp;u_id=$u_id&amp;action=up&amp;field_=$field_\" method=\"post\">" ;
183
						$res .= "<b>$label</b>\n" ;
184
						switch ($field_) {
185
								case "U_COUNTRY" :
186
										$select_country = new form($GS_GLOBAL['link']) ;
187
										$res .= ereg_replace("gen_COUNTRY", "U_COUNTRY", $select_country->selectFromTable("gen_COUNTRY", $value, "GC_ID", "GC_NAME")) ;
188
										unset($select_country) ;
189
								break ;
190
 
191
								case "LABEL_NIV" :
192
										$res .= getFormInsInfo($field_, $value) ;
193
								break ;
194
 
195
								case "LABEL_ASS" :
196
										$res .= getFormInsInfo($field_, $value) ;
197
								break ;
198
 
199
								case "LABEL_ACT" :
200
										$res .= getFormInsInfo($field_, $value) ;
201
								break ;
202
 
203
                                case "LABEL_STATUT" :
204
                                        $res .= getFormInsInfo($field_, $value) ;
205
                                break ;
206
 
207
								case "U_COT" :
208
										$res .= "<select class=\"insInputForm\" name=\"II_COT\">\n" ;
209
										if ($value == 0) {
210
												$check0 = " selected" ;
211
												$check1 = "" ;
212
										} else {
213
												$check1 = " selected" ;
214
												$check0 = "" ;
215
										}
216
										$res .= "<option value=\"0\"$check0>non</option>\n" ;
217
										$res .= "<option value=\"1\"$check1>oui</option>\n" ;
218
										$res .= "</select>\n" ;
219
								break ;
220
 
221
								default :
222
										$res .= "<input type=\"text\" size=\"40\" name=\"$field_\" value=\"$value\">\n" ;
223
						}
224
						$res .= "<input type=\"submit\" value=\"valider\" class=\"texte_tb\">\n" ;
225
						$res .= "</form>" ;
226
				}
227
				return $res ;
228
}
229
 
230
 
231
// upSQL met à jour la table annuaire_tela
232
 
233
function upSQL()
234
{
235
    global $field_ ;
236
    global  $u_id ;
237
    global $HTTP_POST_VARS ;
238
        switch ($field_) {
239
            case "LABEL_NIV" : $field_ = "U_NIV" ;
240
                                $id_field = "ID_LABEL_NIV";
241
            break ;
242
            case "LABEL_ACT" : $field_ = "U_ACT" ;
243
                                $id_field = "ID_LABEL_ACT";
244
            break ;
245
            case "LABEL_ASS" : $field_ = "U_ACT" ;
246
                                $id_field = "ID_LABEL_ASS";
247
            break ;
248
            default :$id_field = $field_ ;
249
        }
250
 
251
    // Recherche de l'ancien mail
252
    $req_am = "select U_MAIL from annuaire_tela where U_ID = $u_id" ;
253
    $res_am = mysql_query ($req_am) or die ("Echec ".mysql_error()) ;
254
    $ligne_am = mysql_fetch_object ($res_am) ;
255
    $ancien_mail = $ligne_am->U_MAIL ;
256
 
257
    $query = "update annuaire_tela set $field_=\"".$HTTP_POST_VARS[$id_field]."\" where U_ID = $u_id" ;
258
    mysql_query($query) or die ("<br>Echec de la requete de mise à jour<br>\n") ;
259
 
260
    // Traitement du département
261
    if ($field_ == "U_ZIP_CODE") {
262
        if (preg_match("/^97|98[0-9]*/", $HTTP_POST_VARS['U_ZIP_CODE'])) {
263
            $n_dpt = substr($HTTP_POST_VARS['U_ZIP_CODE'], 0, 3) ;
264
        } else {
265
            $n_dpt = substr($HTTP_POST_VARS['U_ZIP_CODE'], 0, 2) ;
266
        }
267
        mysql_query ("update annuaire_tela set U_FRENCH_DPT='$n_dpt' where U_ID='$u_id'") ;
268
    }
269
 
270
    // Traitement de l'adresse mail
271
 
272
 
273
    if ($field_ == "U_MAIL") {
274
        $requete = "update ins_STATS set IS_MAIL=\"".$HTTP_POST_VARS['U_MAIL']."\" where IS_MAIL=\"$ancien_mail\"" ;
275
        mysql_query ($requete) ;
276
    }
277
}
278
 
279
function getFormInsInfo($field, $value)
280
{
281
 
282
    $query = "select * from annuaire_$field" ;
283
    $id_field = "ID_$field" ;
284
    $result = mysql_query($query) or die ("Echec de la requete sur ID_$field<br>".mysql_error()) ;
285
 
286
    $res = "<select name=\"$id_field\" class=\"insInputForm\">\n" ;
287
    $i = 0 ;
288
    while ($row = mysql_fetch_object($result)) {
289
 
290
        $res .= "<option value=\"".$row->$id_field."\"" ;
291
	if ($value == $row->$field) $res .= " selected";
292
	$res .= ">" ;
293
    $res .= $row->$field ;
294
	$res .= "</option>\n" ;
295
	$i++ ;
296
    }
297
    $res .= "</select>\n" ;
298
    return $res ;
299
}
300
 
301
// Fonction pour gérer les cotisations d'un inscrit, en
302
// fonction de son id  ($u_id)
303
 
304
function cotisation($u_id)
305
{
306
    global $GS_GLOBAL, $action, $IC_MONTANT, $IC_DATE, $id_cot, $IC_MC_ID ;
307
 
308
    $res = '' ;
309
    // un peu de javascript pour la confirmation en cas de destruction
310
 
311
    $outputText = "function confirmLink(theLink, theSqlQuery)
312
    {
313
      var is_confirmed = confirm(theSqlQuery);
314
      return is_confirmed;
315
    } " ;
316
 
317
		// fonction gsite pour inclure la fonction Javascript
318
		// au code html
319
 
320
    GEN_stockerCodeScript($outputText) ;
321
 
322
    $url = $GLOBALS['ann_url']->getURL() ;
323
 
324
		// Ce qui suit sont le traitement des 3 actions ajouter, modifier, supprimer
325
		// qui agissent sur la table annuaire_COTISATION
326
 
327
		// l'action 'cu' consiste en l'insertion d'une ligne dans la table annuaire_COTISATION
328
 
329
    if ($action == "cu") {
330
        $date = preg_replace("/([0-9]+)-([0-9]+)-([0-9]+)/", "\\3\\2\\1", $IC_DATE) ;
331
        $query = "insert into annuaire_COTISATION values (\"\", $IC_MC_ID, $u_id, UNIX_TIMESTAMP($date),\"$IC_MONTANT\", 0, \"0000-00-00\")" ;
332
				mysql_query ($query) or die ("Echec de la requete d'insertion dans annuaire_COTISATION<br>$query<br>".mysql_error()) ;
333
				mysql_query("update annuaire_tela set U_COT=1 where U_ID=$u_id") ;
334
    }
335
 
336
		// l'action 'mu' permet de mettre à jour une ligne dans annuaire_COTISATION
337
 
338
    if ($action == "mu") {
339
        $date = preg_replace("/([0-9]+)-([0-9]+)-([0-9]+)/", "\\3\\2\\1", $IC_DATE) ;
340
        $query = "update annuaire_COTISATION set IC_DATE=UNIX_TIMESTAMP($date), IC_MONTANT=\"$IC_MONTANT\",
341
                        IC_MC_ID=$IC_MC_ID where IC_ID=$id_cot" ;
342
				mysql_query ($query) or die ("Echec de la requete d'insertion dans annuaire_COTISATION<br>$query<br>".mysql_error()) ;
343
    }
344
 
345
		// l'action 'rm' retire une ligne de la table annuaire_COTISATION
346
 
347
    if ($action == "rm") {
348
        $query = "delete from annuaire_COTISATION where IC_ID=$id_cot" ;
349
				mysql_query ($query) or die ("Echec de la requete de suppression dans annuaire_COTISATION") ;
350
				mysql_query("update annuaire_tela set U_COT=0 where U_ID=$u_id") ;
351
    }
352
 
353
		// Quoi qu'il arrive, on récupère les informations concernant
354
		// les cotisations d'un inscrit et on les affiche sous forme de
355
		// table HTML
356
 
357
    $query = "select * from annuaire_COTISATION, MODE_COTISATION where IC_ANNU_ID=$u_id
358
                and IC_MC_ID=MC_ID" ;
359
    $result = mysql_query($query) or die ("Echec de la requete sur annuaire_COTISATION<br>".$query) ;
360
    $res = "<h1>Etat des cotisations : </h1>" ;
361
 
362
		// formatage de la date
363
    $date = date("d-m-Y") ;
364
 
365
 
366
		// l'action 'sc' correspond à l'édition d'une ligne de la table
367
		// annuaire_COTISATION. Si elle est présente on affiche un formulaire
368
		// de modification
369
 
370
    if ($action == "sc") {
371
 
372
        $res .= "<div><form action=\"$url&action=cu\" method=\"post\"><b>Date : </b>" ;
373
				$res .= "<input type=\"text\" size=\"9\" class=\"insInputForm\" name=\"IC_DATE\" value=\"";
374
				$res .= $date ;
375
				$res .= "\">\n" ;
376
				$res .= "<b>Montant : </b><input type=\"text\" class=\"insInputForm\" size=\"5\" name=\"IC_MONTANT\" value=\"30\"> &euro;\n" ;
377
                $res .= mode_paiement(0) ;
378
				$res .= "<input type=\"submit\" value=\"Valider\" class=\"texte_tb\">\n" ;
379
				$res .= "<input type=\"button\" value=\"Annuler\" class=\"texte_tb\" onclick=\"javascript:window.location.href='$url';\"></form>\n" ;
380
				$res .= "</div>\n" ;
381
 
382
		// si l'action 'sc' n'est pas active on affiche toutes les lignes
383
		// de cotisation de l'inscrit
384
 
385
		} else {
386
        if (mysql_num_rows($result) != 0) {
387
            $res .= "<div>" ;
388
            $table = new HTML_Table(array("width" => "100%", "class" => "texte_tb2")) ;
389
            $table->addRow(array("Date", "Montant", "Mode", "modifier", "supprimer", "Voir le reçu", "Envoyer le reçu",
390
                                        "Date d'envoie du reçu"),
391
                            array("class" => "insTitle1")) ;
392
 
393
            while ($row = mysql_fetch_object($result)) {
394
                            // Le reçu a t il été envoyé ?
395
                if ($row->IC_RECU != 0) {
396
                    $message_envoye =  $row->IC_DATE_ENVOIE_RECU ; ;
397
                } else  {
398
                    $message_envoye = "Reçu non envoyé";
399
                }
400
                if ($action != "mc" || $id_cot != $row->IC_ID) {
401
                    $table->addRow(array (date ("j m Y", $row->IC_DATE), $row->IC_MONTANT." <b>&euro;</b>", $row->MC_LABEL,
402
                                            "<a href=\"$url&amp;action=mc&amp;id_cot=$row->IC_ID\">modifier</a>",
403
                                            "<a href=\"$url&amp;action=rm&amp;id_cot=$row->IC_ID\"".
404
                                            " onclick=\"javascript:return confirmLink(this, '&ecirc;tes-vous".
405
                                            " s&ucirc;r de vouloir supprimer cette entr&eacute;e');\">supprimer</a>",
406
                                            "<a href=\"".URL_RECU."?cotisation_id=$row->IC_ID\">Voir le reçu</a>",
407
                                            "<a href=\"$url&cotisation_id=$row->IC_ID\">Envoyer le reçu</a>",
408
                                            $message_envoye)) ;
409
                } else {
410
                    // Recherche du mode de paiement
411
 
412
                    $table->addRow(array("<form action=\"$url&amp;action=mu&amp;id_cot=$row->IC_ID\" method=\"post\">\n".
413
                                        "<input type=\"text\" size=\"9\" class=\"insInputForm\" name=\"IC_DATE\" value=\"".date ("j-m-Y", $row->IC_DATE)."\">",
414
                                        "<input type=\"text\" size=\"5\" class=\"insInputForm\" name=\"IC_MONTANT\" value=\"$row->IC_MONTANT\"><b>&euro;</b>",
415
                                        mode_paiement($row->IC_MC_ID),
416
                                        "<input type=\"submit\" class=\"texte_tb\" value=\"valider\">".
417
                                        "<input type=\"button\" value=\"Annuler\" class=\"texte_tb\" onclick=\"javascript:window.location.href='$url';\"></form>",
418
                                        "&nbsp;")) ;
419
                }
420
            }
421
            $table->altRowAttributes(1, array("class" => "texte_tb2"), array("class" => "text2")) ;
422
            $res .= $table->toHTML()."</div>\n" ;
423
            unset($table) ;
424
        } else {
425
            $res .= "<div>non cotisant</div>\n" ;
426
        }
427
        $res .= "<div><input type=\"button\" class=\"texte_tb\" " ;
428
        $res .= "value=\"Saisir une cotisation\" onclick=\"javascript:window.location.href='$url&action=sc';\"></div>\n" ;
429
    }
430
 
431
    return $res ;
432
}
433
 
434
function suppression($u_id) {
435
    global $GS_GLOBAL, $action ;
436
 
437
    // un peu de javascript pour la confirmation en cas de destruction
438
 
439
    $outputText = "function confirmLink(theLink, theSqlQuery)
440
    {
441
      var is_confirmed = confirm(theSqlQuery);
442
      return is_confirmed;
443
    } " ;
444
 
445
		// fonction gsite pour inclure la fonction Javascript
446
		// au code html
447
 
448
    GEN_stockerCodeScript($outputText) ;
449
 
450
    $url = $GLOBALS['ann_url']->getURL() ;
451
 
452
    $res = "<div>Supprimer l'inscription</div>\n" ;
453
    $res .="<div><form action=\"$url&action=suppr_adh\" method=\"post\">\n" ;
454
    $res .= "<input type=\"submit\" class=\"texte_tb\" value=\"Supprimer\" " ;
455
    $res .= "onclick=\"javascript:return confirmLink(this, '&ecirc;tes-vous s&ucirc;r de vouloir supprimer cet adh&eacute;rent');\">\n" ;
456
    $res .= "</form></div>\n" ;
457
 
458
    if ($action=="suppr_adh") {
459
        $queryLogin = "select U_MAIL from annuaire_tela where U_ID=$u_id" ;
460
        $resultLogin = mysql_query($queryLogin) or die ("Echec de la requete sur annu_USERS");
461
        $rowLogin = mysql_fetch_object($resultLogin) ;
462
        $mail = $rowLogin->U_MAIL ;
463
        mysql_free_result($resultLogin) ;
464
 
465
        // vérifications
466
        // 1. annu_ADMIN
467
        $q_annu_ADMIN = "select AA_ID from annu_ADMIN where AA_ID=$u_id" ;
468
        $r_annu_ADMIN = mysql_query($q_annu_ADMIN) or die ("Echec ..." );
469
        if (mysql_num_rows($r_annu_ADMIN) != 0) {
470
            $res .= "Une référence dans annu_ADMIN" ;
471
        }
472
 
473
        // 2.
474
        // suppression
475
 
476
        $query = "delete from annuaire_tela where U_ID=$u_id" ;
477
    }
478
    return $res ;
479
}
480
 
481
/** function mode_paiement () Produit un champs select avec le mode de paiement
482
*
483
*
484
*   @param  integer mode de paiement par defaut
485
*	@return string  HTML
486
*/
487
function mode_paiement ($defaut) {
488
    $res = "<select name=\"IC_MC_ID\" class=\"insInputForm\">\n" ;
489
    $req_mode = "select * from MODE_COTISATION" ;
490
    $res_mode = mysql_query($req_mode) or die ($req_mode."<br>".mysql_error()) ;
491
    while ($ligne_mode = mysql_fetch_object($res_mode)) {
492
        $res .= "<option value=\"$ligne_mode->MC_ID\"" ;
493
        if ($ligne_mode ->MC_ID == $defaut) $res .= " selected" ;
494
        $res .= ">$ligne_mode->MC_LABEL</option>\n" ;
495
    }
496
    $res .= "</select>\n" ;
497
    return $res ;
498
}
499
 
500
?>