Subversion Repositories Applications.papyrus

Rev

Rev 1081 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
448 ddelon 1 
<?php
2 
 
3 
// +--------------------------------------------------------------------------------+
4 
// | annuaire_moteur_fonction.php 		                      						|
5 
// +--------------------------------------------------------------------------------+
6 
// | Copyright (c) 2000 - 2003 Tela Botanica 							        	|
7 
// +--------------------------------------------------------------------------------+
8 
// | Les fonctions de annuaire_moteur.php                                           |
9 
// +--------------------------------------------------------------------------------+
10 
// | Auteur : Alexandre Granier <alexandre@tela-botanica.org> 		  		        |
11 
// +--------------------------------------------------------------------------------+
12 
//
1088 florian 13 
// $Id: annuaire_backoffice.fonct.php,v 1.7 2006-12-01 16:02:16 florian Exp $
448 ddelon 14 
 
15 
 
16 
/** function mkengine ()
17 
*
18 
*
19 
*
20 
*	@return
21 
*/
22 
 
1081 florian 23 
include_once PAP_CHEMIN_API_PEAR.'Pager/Pager.php' ;
24 
include_once PAP_CHEMIN_API_PEAR.'HTML/Table.php';
679 alexandre_ 25 
 
448 ddelon 26 
function mkengine()
27 
  {
28 
    global $nbr_total;
29 
    global $bouton, $HTTP_POST_VARS ;
30 
 
679 alexandre_ 31 
    $requete = mkquery() ;
32 
    $ret = '<div>'. $requete .'</div>';
33 
    // Deux requetes, une avec tous les resultats, l'autre avec les résultats affichés
34 
 
35 
    $result_final = $GLOBALS['ins_db']->query($requete) ;
36 
    if (DB::isError($result_final)) {
37 
    	echo $result_final->getMessage().'<br />'.$requete ;
38 
    }
39 
    $nbr_final = $result_final->numRows() ;
40 
 
41 
    $_SESSION['requete_mail_tous'] = $requete ;
42 
 
43 
    $donnees = array();
44 
	while ($ligne = $result_final->fetchRow(DB_FETCHMODE_ASSOC)) {
45 
		$donnees[] = $ligne ;
46 
	}
47 
 
48 
	if (!isset($_REQUEST['setPerPage'])) $_REQUEST['setPerPage'] = 50 ;
49 
 
50 
	$param_pager = array (
51 
                    'mode' => 'Jumping',
52 
                    'delta' => 5,
53 
                    'itemData' => $donnees
54 
             ) ;
55 
    $pager = & Pager::factory($param_pager);
1088 florian 56 
 
448 ddelon 57 
    $mes_vars = array ("recherche", "nom", "ville", "mail" ,"dept", "prenom", "cotisant", "pays", "sort", "T_REPONSE", "lettre","statut") ;
58 
    // Deux cas , soit on a cliqué sur rechercher, soit on a cliqué sur un lien
59 
    foreach ($mes_vars as $key=>$value) {
60 
        if (!$bouton) {     // on a cliqué sur un lien
61 
            if (empty($HTTP_POST_VARS[$value])) {
679 alexandre_ 62 
 
448 ddelon 63 
            }
64 
        } else {
65 
            // Si on clique sur le bouton rechercher
66 
            if (empty ($HTTP_POST_VARS[$value])) {
67 
                $$value = "" ;
68 
            } else {
69 
                $$value = $HTTP_POST_VARS[$value] ;
70 
            }
71 
        }
1088 florian 72 
    }
448 ddelon 73 
 
679 alexandre_ 74 
  	$ret = '';
1088 florian 75 
	$ret .= '<h1>'.AM_L_TITRE.'</h1>'."\n" ;
448 ddelon 76 
  // construction du moteur de str
77 
 
679 alexandre_ 78 
    $ret .= '<form action="'.$GLOBALS['ins_url']->getURL().'" method="post">'."\n";
79 
    $ret .= '<table summary="recherche">'."\n";
80 
 
448 ddelon 81 
    // ligne de recherche
679 alexandre_ 82 
    $ret .= "<tr>\n";
83 
    $ret .= "<td>".AM_L_RECHERCHER." :\n</td>\n<td>";
84 
    $ret .= form_mk_chaineI(isset ($_REQUEST['recherche']) ? stripslashes($_REQUEST['recherche']) : '', "recherche")."&nbsp;";
85 
    $ret .= '</td><td colspan="4">'.AM_L_PAYS." : \n" ;
86 
 
448 ddelon 87 
    // formulaire contenant les pays, avec par défaut soit le pays en cours
88 
    // soit "tous les pays"
679 alexandre_ 89 
    $liste_pays = new ListeDePays($GLOBALS['ins_db']) ;
90 
    $tableau_pays = $liste_pays->getListePays(INS_LANGUE_DEFAUT) ;
448 ddelon 91 
 
679 alexandre_ 92 
    $ret .= "<select name=\"pays\">\n" ;
448 ddelon 93 
    $ret .= "<option value=\"tous\">Tous les pays</option>\n" ;
679 alexandre_ 94 
    foreach ($tableau_pays as $codeIso => $labelPays) {
95 
        $ret .= '<option value="'.$codeIso.'"' ;
96 
        if (!empty($pays)) {
97 
                if ($pays == $codeIso) $ret .= " selected" ;
98 
        }
99 
        $ret .= '>'.$labelPays.'</option>'."\n" ;
448 ddelon 100 
    }
679 alexandre_ 101 
    $ret .= "</select>\n" ;
102 
    $ret .= "</td></tr>\n" ;
448 ddelon 103 
 
104 
	$ret .= "<tr>\n";
679 alexandre_ 105 
    $ret .= "<td>".AM_L_NOM." :\n</td><td>";
106 
    $ret .= form_mk_chaineI(isset ($_REQUEST['nom']) ? stripslashes($_REQUEST['nom']) : '', "nom")."&nbsp;</td>\n<td>" ;
107 
    $ret .= AM_L_PRENOM."&nbsp;:</td>\n<td>".form_mk_chaineI(isset ($_REQUEST['prenom']) ? stripslashes($_REQUEST['prenom']) : '', "prenom")."&nbsp;</td>\n<td class=\"insLabel\">" ;
108 
    $ret .= AM_L_VILLE."&nbsp;:</td>\n<td>".form_mk_chaineI(isset ($_REQUEST['ville']) ? stripslashes($_REQUEST['ville']) : '', "ville")."&nbsp;</td>" ;
448 ddelon 109 
    $ret .= "</tr><tr>\n" ;
679 alexandre_ 110 
    $ret .= "<td>".AM_L_DEPARTEMENT."&nbsp;: </td>\n<td>" ;
448 ddelon 111 
 
112 
    // Construction du <select> des départements
1088 florian 113 
    if (defined('INS_CHAMPS_NOM_DEPARTEMENT')) {
114 
	    $requete_dpt = 'select '.INS_CHAMPS_ID_DEPARTEMENT.', '.INS_CHAMPS_NOM_DEPARTEMENT.' from '.INS_TABLE_DPT ;
115 
	    $resultat_dpt = $GLOBALS['ins_db']->query($requete_dpt) ;
116 
	    if (DB::isError($resultat_dpt)) {
117 
	    	echo 'Echec de la requete<br />'.$requete_dpt.'<br />'.$resultat_dpt->getMessage();
118 
	    }
119 
	    $ret .= "<select name=\"dept\">\n" ;
120 
	    $ret .= "<option value=\"tous\">tous</option>\n" ;
121 
	    while ($ligne_dpt = $resultat_dpt->fetchRow(DB_FETCHMODE_ASSOC)) {
122 
	        $ret .= '<option value="'.$ligne_dpt[INS_CHAMPS_ID_DEPARTEMENT].'"' ;
123 
	        if (isset ($_REQUEST['dept']) && $_REQUEST['dept'] == $ligne_dpt[INS_CHAMPS_ID_DEPARTEMENT]) $ret .= " selected" ;
124 
	        $ret .= '>'.$ligne_dpt[INS_CHAMPS_ID_DEPARTEMENT].' - '.$ligne_dpt[INS_CHAMPS_NOM_DEPARTEMENT].'</option>'."\n" ;
125 
	    }
126 
	    $ret .= "</select></td>\n" ;
127 
    }
679 alexandre_ 128 
    $ret .= '<td>'.AM_L_MAIL.'&nbsp;: </td><td colspan="3">'.form_mk_chaineI(isset ($_REQUEST['mail']) ? stripslashes($_REQUEST['mail']) : '', "mail")."</td>\n" ;
129 
    $ret .= "</tr>" ;
448 ddelon 130 
 
131 
    // Les statuts des inscrits
679 alexandre_ 132 
 
448 ddelon 133 
    $ret .= "<tr>\n";
679 alexandre_ 134 
    $ret .= "<td>\n";
448 ddelon 135 
    $ret .= AM_L_GRP_RES." : </td>" ;
679 alexandre_ 136 
    $ret .= '<td>'.$pager->getperpageselectbox (50 , 200, 50 , false ,'%d').'</td>'."\n" ;
137 
    $ret .= '<td colspan="4">'."\n";
138 
    $ret .= "<input type=\"submit\" value=\"".AM_L_RECHERCHER."\" name =\"bouton\">\n";
139 
    $ret .= "</td></tr></table></form>\n";
140 
 
141 
    $ret .= "\n<div>" ;
142 
 
143 
    // La liste des lettres de l'alphabet
144 
    for ($i = 65 ; $i <91 ; $i++) {
145 
    	$GLOBALS['ins_url']->addQueryString('lettre', chr($i)) ;
146 
        $ret .= "\t<a href=\"".$GLOBALS['ins_url']->getURL();
147 
        $ret .= '">';
148 
        $ret .= chr($i) ;
149 
        $ret .= "</a> \n";
150 
	}
151 
	$GLOBALS['ins_url']->addQueryString ('lettre', 'tous') ;
152 
	$ret .= " <a href=\"".$GLOBALS['ins_url']->getURL().'">'.AM_L_TOUS."</a>\n" ;
153 
    $ret .= "</div>\n" ;
1088 florian 154 
 
155 
    // Comptage du nombre total de données dans la table (hors CACHER = 1)
156 
    $requete_nbre_inscrit = "select count(*) as CPT from ".INS_ANNUAIRE;
157 
    $resultat_nbre_inscrit = $GLOBALS['ins_db']->query($requete_nbre_inscrit) ;
158 
    if ($resultat_nbre_inscrit->numRows() == 1) {
159 
    	$tmp_nb = $resultat_nbre_inscrit->fetchRow(DB_FETCHMODE_OBJECT);
160 
        $nbr_total = $tmp_nb->CPT;
161 
        $chaine = " sur $nbr_total entrées";
162 
        if ($nbr_total <= 0) $ret .= "<B>Erreur</B> lors du comptage des structures ($nbr_total trouvées) : $requete_nbre_inscrit";
163 
    }
164 
  else $ret .=  "<B>Erreur</B> lors du comptage des structures : $requete_nbre_inscrit";
165 
  // fin comptage
166 
 
167 
    $ret .= '<p class="zone_info">'.$nbr_final.' résultat(s)'.$chaine.'</p>' ;
679 alexandre_ 168 
    $GLOBALS['ins_url']->removeQueryString('lettre') ;
169 
 
170 
    // Menu Ajouter un inscrit
171 
    $GLOBALS['ins_url']->addQueryString('ajouter', '1') ;
172 
    $ret .= '<div><a href="'.$GLOBALS['ins_url']->getURL().'">'.INS_AJOUT_MEMBRE.'</a></div>'."\n";
173 
	$data  = $pager->getPageData();
174 
 
175 
	$table = new HTML_Table(array ('class' => 'table_bazar')) ;
1088 florian 176 
	if (defined('INS_CHAMPS_VILLE')) {
177 
		$table->addRow(array(
178 
			'<a href="'.$GLOBALS['ins_url']->getURL().'&amp;sort='.INS_CHAMPS_NOM.'">Identit&eacute;</a>',
179 
			'<a href="'.$GLOBALS['ins_url']->getURL().'&amp;sort='.INS_CHAMPS_MAIL.'">Adresse mail</a>',
180 
			'<a href="'.$GLOBALS['ins_url']->getURL().'&amp;sort='.INS_CHAMPS_VILLE.'">'.AM_L_VILLE.'</a>',
181 
			'Pays ou Dpt (fr)'
679 alexandre_ 182 
			), '', 'TH') ;
1088 florian 183 
	} else {
184 
		$table->addRow(array(
185 
			'<a href="'.$GLOBALS['ins_url']->getURL().'&amp;sort='.INS_CHAMPS_NOM.'">Identit&eacute;</a>',
186 
			'<a href="'.$GLOBALS['ins_url']->getURL().'&amp;sort='.INS_CHAMPS_MAIL.'">Adresse mail</a>',
187 
			'Pays ou Dpt (fr)'
188 
			), '', 'TH') ;
189 
	}
679 alexandre_ 190 
 
191 
	$debut = isset($_REQUEST['pageID']) ? $_REQUEST['pageID'] : 1 ;
192 
	for ($i = ($debut - 1) * $_REQUEST['setPerPage'];
193 
				$i < $_REQUEST['setPerPage'] * $debut;
194 
				$i++) {
195 
		// On teste s'il y une valeur, si oui on ajoute la ligne
196 
		if (isset ($data[$i])) {
197 
			$urlPop = $GLOBALS['ins_url']->getURL().'&amp;'.INS_CHAMPS_ID.'='.$data[$i][INS_CHAMPS_ID];
1088 florian 198 
			if (defined('INS_CHAMPS_VILLE')) {
199 
				$ligne_inscrit = array ("<a href=\"$urlPop\">".$data[$i][INS_CHAMPS_NOM].' '.$data[$i][INS_CHAMPS_PRENOM].
679 alexandre_ 200 
								'</a>', $data[$i][INS_CHAMPS_MAIL], $data[$i][INS_CHAMPS_VILLE]) ;
1088 florian 201 
			} else {
202 
				$ligne_inscrit = array ("<a href=\"$urlPop\">".$data[$i][INS_CHAMPS_NOM].' '.$data[$i][INS_CHAMPS_PRENOM].
203 
								'</a>', $data[$i][INS_CHAMPS_MAIL]) ;
204 
			}
679 alexandre_ 205 
 
206 
			// Pour la france on met le département, sinon on laisse le nom du pays
207 
			if ($data[$i][INS_CHAMPS_PAYS] != 'fr') {
208 
				array_push ($ligne_inscrit, $data[$i][INS_CHAMPS_LABEL_PAYS]);
209 
			} else {
1088 florian 210 
				if (defined('INS_CHAMPS_NOM_DEPARTEMENT')) {
211 
			        $req_dpt = 'select '.INS_CHAMPS_NOM_DEPARTEMENT.' from '.INS_TABLE_DPT.",".INS_ANNUAIRE.
212 
								" where ".INS_ANNUAIRE.'.'.INS_CHAMPS_ID.'='.$data[$i][INS_CHAMPS_ID] ;
213 
			        $req_dpt .= " and ".INS_ANNUAIRE.'.'.INS_CHAMPS_DEPARTEMENT.'='.INS_TABLE_DPT.'.'
214 
			        					.INS_CHAMPS_ID_DEPARTEMENT ;
215 
			        $resultat_dpt = $GLOBALS['ins_db']->query($req_dpt) ;
216 
			        if (DB::isError($resultat_dpt)) {
217 
			        	echo $resultat_dpt->getMessage().$resultat_dpt->getDebugInfo();
218 
			        }
219 
			        $ligne_dpt = $resultat_dpt->fetchRow(DB_FETCHMODE_ASSOC) ;
220 
					array_push ($ligne_inscrit, $ligne_dpt[INS_CHAMPS_NOM_DEPARTEMENT]) ;
221 
				}
679 alexandre_ 222 
			}
223 
 
224 
			$table->addRow($ligne_inscrit) ;
225 
		}
226 
	}
227 
	$ret .= $table->toHTML();
228 
	$links = $pager->getLinks();
229 
	$ret .= $links['all'] ;
230 
 
231 
    $ret .= '<div><a href="'.$GLOBALS['ins_url']->getURL().'&amp;action='.ANN_MAIL_TOUS
232 
    			.'">'.AM_L_MAIL_SELECTION."</a></div>\n" ;
233 
 
448 ddelon 234 
    return $ret;
235 
}
236 
 
237 
/** function form_mk_chaineI () Renvoie une balise de type <input>
238 
*
239 
*   @param  string  l'attribut value de la balise
240 
*   @param  string  l'attibut name de la balise
241 
*   @param  string  la classe CSS
242 
*   @return string  HTML
243 
*/
244 
function form_mk_chaineI($value="", $name, $class="insInputForm")
245 
{
246 
    return "<input type=\"text\" size=\"15\" value=\"$value\" name=\"$name\" class=\"$class\">";
247 
}
248 
 
679 alexandre_ 249 
function form_mk_select($value="", $name="", $class="insInputForm") {
448 ddelon 250 
	$res = "<select name=\"$name\" class=\"$class\">\n" ;
251 
	$res .= "<option value=\"1\"" ;
252 
	if ($value == 1) $res .= " selected" ;
253 
	$res .= ">Cotisants</option>\n" ;
254 
	$res .= "<option value=\"2\"" ;
255 
	if ($value == 2) $res .= " selected" ;
256 
	$res .= ">Non cotisants</option>\n" ;
257 
	$res .= "<option value=\"3\"" ;
258 
	if ($value == 3 || $value == "") $res .= " selected" ;
259 
	$res .= ">Tous</option>\n" ;
260 
	$res .= "</select>\n" ;
261 
	return $res ;
262 
  }
263 
 
264 
function mkquery()
265 
{
266 
 
267 
	// Requete sur l'annuaire pour extraire le nom, prénom, ville, nom du département (jointure),
268 
	// l'état de la cotisation (jointure)
269 
 
270 
	// le tableau suivant contient tous les champs de la table annuaire_tela sur lesquels on peut effectuer une recherche
1088 florian 271 
	if (defined('INS_CHAMPS_DEPARTEMENT')) {
272 
		$fields_annu = array("nom" => INS_CHAMPS_NOM, "prenom" => INS_CHAMPS_PRENOM , "mail" => INS_CHAMPS_MAIL ,
273 
		"dept" => INS_CHAMPS_DEPARTEMENT, "pays" => INS_CHAMPS_PAYS ) ;
274 
	}
275 
	else {
276 
		$fields_annu = array("nom" => INS_CHAMPS_NOM, "prenom" => INS_CHAMPS_PRENOM , "mail" => INS_CHAMPS_MAIL ,
277 
		 "pays" => INS_CHAMPS_PAYS ) ;
278 
	}
279 
	if (defined('INS_CHAMPS_VILLE')) $fields_annu["ville"]=INS_CHAMPS_VILLE;
280 
    $mes_vars = array ("recherche", "nom", "ville", "mail" ,"dept", "prenom", "pays", "sort", "T_REPONSE", "lettre", "statut") ;
448 ddelon 281 
 
1088 florian 282 
	$queries = "SELECT ".INS_ANNUAIRE.".*" ;
679 alexandre_ 283 
    $queries .= ", ".INS_TABLE_PAYS.'.'.INS_CHAMPS_LABEL_PAYS ;
1088 florian 284 
	$queries .= " FROM ".INS_ANNUAIRE ;
679 alexandre_ 285 
    $queries .= ",".INS_TABLE_PAYS ;
448 ddelon 286 
 
287 
	// Construction en fonction des champs saisies
288 
 
289 
	// juste le champs "rechercher", on regarde partout
679 alexandre_ 290 
 
1088 florian 291 
	$where = ' WHERE ' ;
679 alexandre_ 292 
    if (isset ($_REQUEST['recherche']) && $_REQUEST['recherche'] != "") {
293 
        $where .= '('.INS_CHAMPS_NOM.' like "%'.$_REQUEST['recherche'].'%"' ; // le premier
294 
        foreach($fields_annu as $key=>$value) {
295 
			if ($key == "nom" || $key == 'dept') continue ;
296 
            $where .= ($key == "pays" ?
297 
                $_REQUEST['pays'] == "tous" ? ")" :
298 
                ") and $value = '".$_REQUEST['pays']."'" : ' or '.$value.' like "%'.$_REQUEST['recherche'].'%"') ;	// les autres
299 
        }
300 
        if (isset ($_REQUEST['dept']) && $_REQUEST['dept'] != 'tous') {
301 
        	$where .= 'and '.INS_CHAMPS_DEPARTEMENT.'="'.$_REQUEST['dept'].'"' ;
302 
        }
303 
	} else {
448 ddelon 304 
 
679 alexandre_ 305 
		// si un ou plusieurs autres champs ont été indiqué, on les rajoute ici
448 ddelon 306 
 
679 alexandre_ 307 
		$or_flag = false ;
308 
		foreach($fields_annu as $key=>$valeur) {
309 
            if ($key != "") {
310 
                if ($key == "pays") {
311 
                    if (!isset($_REQUEST[$key]) || $_REQUEST[$key] == "tous") {
1088 florian 312 
                    	$where .= ' '.INS_CHAMPS_PAYS." like '%'"." and ";
448 ddelon 313 
                    } else {
1088 florian 314 
                    	$where .= " $valeur like \"%".$_REQUEST[$key]."%\""." and " ;
679 alexandre_ 315 
                    }
316 
                } else {
317 
                    if ($key == "dept") {
318 
                        if (isset($_REQUEST[$key]) && $_REQUEST[$key] != "tous") {
319 
                            $where .= " and ".INS_CHAMPS_DEPARTEMENT."=".$_REQUEST[$key] ;
320 
                            if ($fields_annu["pays"] != "fr") $where .= " and ".INS_CHAMPS_PAYS."=\"fr\"" ;
321 
                        }
322 
 
323 
                    } else {
324 
                        if (isset ($_REQUEST[$key]) && $or_flag) {
1088 florian 325 
                        	$where .= "$valeur like \"%".$_REQUEST[$key]."%\" and " ; ;
448 ddelon 326 
                        } else {
1088 florian 327 
                        	$where .= "$valeur like \"%%\" and " ; ;
328 
                        }
448 ddelon 329 
                    }
330 
                }
679 alexandre_ 331 
                $or_flag = true ;
332 
            }
333 
		}
1088 florian 334 
		$where = substr($where, 0, strlen($where)-5);
679 alexandre_ 335 
		// ici le cas ou rien n'a été saisie du tout, on affiche tout
336 
		if (!$or_flag) {
337 
				$where .= INS_CHAMPS_NOM." like '%')" ;
338 
		}
448 ddelon 339 
	}
679 alexandre_ 340 
 
341 
    if (isset($_REQUEST['lettre'])) {
342 
    	if ($_REQUEST['lettre'] == 'tous') $_REQUEST['lettre'] = '';
1088 florian 343 
    	$where = ' WHERE '.INS_CHAMPS_NOM.' LIKE "'.$_REQUEST['lettre'].'%"' ;
448 ddelon 344 
    }
679 alexandre_ 345 
    $where .= " and ".INS_ANNUAIRE.".".INS_CHAMPS_PAYS."=".INS_TABLE_PAYS.".".INS_CHAMPS_ID_PAYS."" ;
346 
 
347 
    if (isset($nom) && $nom != "") $where .= " and ".INS_CHAMPS_NOM." like \"%$nom%\"" ;
348 
    if (isset($_REQUEST['prenom']) && $_REQUEST['prenom'] != "")
349 
    				$where .= " and ".INS_CHAMPS_PRENOM.' like "%'.$_REQUEST['prenom'].'%"' ;
350 
    if (isset($ville) && $ville != "") $where .= " and ".INS_CHAMPS_VILLE." like \"%$ville%\"" ;
351 
    if (isset($mail) && $mail != "") $where .= " and ".INS_CHAMPS_MAIL." like \"%$mail%\"" ;
352 
    $where .= ' and  gip_id_i18n like "%'.$GLOBALS['lang'].'%"' ;
353 
 
354 
	if (isset ($_REQUEST['lettre']) && $_REQUEST['lettre'] == "tous") $_REQUEST['lettre'] = "" ;
355 
    if (!isset ($_REQUEST['lettre'])) $_REQUEST['lettre'] = '' ;
356 
 
357 
 
1088 florian 358 
    $queries .= $where.' AND '.INS_CHAMPS_ID.'!=0';
679 alexandre_ 359 
 
360 
  if (isset($_REQUEST['sort']) && $_REQUEST['sort'] != "") $queries .= ' order by '.$_REQUEST['sort'] ;
448 ddelon 361 
  return $queries;
362 
}
363 
 
364 
 
679 alexandre_ 365 
function ajouterInscrit() {
366 
	$res = '';
367 
	$GLOBALS['ins_url']->addQueryString ('ajouter', '1');
368 
	$GLOBALS['ins_url']->addQueryString ('ajouter_v', '1');
369 
	$formulaire = new HTML_formulaireInscription('inscription',  '',
370 
						str_replace ('&amp;', '&', $GLOBALS['ins_url']->getURL()), '', '') ;
371 
	$formulaire->construitFormulaire(str_replace ('&amp;', '&', $GLOBALS['ins_url']->getURL())) ;
372 
 
373 
	if (isset($_REQUEST['ajouter_v'])) {
374 
		if ($formulaire->validate()) {
939 alexandre_ 375 
			$id_utilisateur = insertion($formulaire->getSubmitValues()) ;
376 
 
377 
			// Appel des actions desinscriptions des applications clientes
378 
		        $d = dir(GEN_CHEMIN_CLIENT);
379 
				while (false !== ($repertoire = $d->read())) {
380 
					if (file_exists(GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.inscription.inc.php'))
381 
					include_once GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.inscription.inc.php' ;
382 
				}
383 
					$d->close();
679 alexandre_ 384 
			if (INS_CHAMPS_LETTRE != '' && isset ($valeurs['lettre'])) {
385 
				inscription_lettre(INS_MAIL_INSCRIPTION_LISTE) ;
386 
			}
387 
		    return mkengine();
388 
        }
448 ddelon 389 
	}
679 alexandre_ 390 
	return $formulaire->toHTML();
448 ddelon 391 
}
392 
?>