Subversion Repositories Applications.papyrus

Rev

Details | Last modification | View Log | RSS feed

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