Subversion Repositories Applications.papyrus

Rev

Go to most recent revision | Details | 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
//
13
// $Id: annuaire_backoffice.fonct.php,v 1.1 2005-09-22 14:02:49 ddelon Exp $
14
 
15
 
16
/** function mkengine ()
17
*
18
*
19
*
20
*	@return
21
*/
22
 
23
function mkengine()
24
  {
25
    global $label_bbota;
26
    global $nbr_total;
27
    global $bouton, $HTTP_POST_VARS ;
28
    $mon_frag = new fragmenteur_session() ;
29
 
30
    $mes_vars = array ("recherche", "nom", "ville", "mail" ,"dept", "prenom", "cotisant", "pays", "sort", "T_REPONSE", "lettre","statut") ;
31
 
32
    // Deux cas , soit on a cliqué sur rechercher, soit on a cliqué sur un lien
33
    foreach ($mes_vars as $key=>$value) {
34
        if (!$bouton) {     // on a cliqué sur un lien
35
            if (empty($HTTP_POST_VARS[$value])) {
36
                $$value = $mon_frag->getVariable($value);
37
            }
38
        } else {
39
            // Si on clique sur le bouton rechercher
40
            if (empty ($HTTP_POST_VARS[$value])) {
41
                $$value = "" ;
42
            } else {
43
                $$value = $HTTP_POST_VARS[$value] ;
44
            }
45
        }
46
    }
47
    // Comptage du nombre total de données dans la table (hors CACHER = 1)
48
    $query = "select count(*) as CPT from ".ANN_ANNUAIRE;
49
    $result = mysql_query($query) or die("<B>Erreur !</B> $query a échoué...");
50
 
51
  if (mysql_num_rows($result) == 1)
52
    {
53
    $tmp_nb = mysql_fetch_object($result);
54
    $nbr_total = $tmp_nb->CPT;
55
    if ($nbr_total > 0) $chaine = "parmi $nbr_total données";
56
    else die("<B>Erreur</B> lors du comptage des structures ($nbr_total trouvées) : $query");
57
    }
58
  else die("<B>Erreur</B> lors du comptage des structures : $query");
59
 
60
  mysql_free_result($result);
61
  // fin comptage
62
 
63
  $ret = "";
64
 
65
  // construction du moteur de str
66
 
67
    $ret .= "<form action=\"".$GLOBALS['ann_url']->getURL()."\" method=\"post\">\n";
68
    $ret .= "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\" summary=\"\">\n";
69
    $ret .= "<tr class=\"titlePage\"><td colspan=\"2\">".AM_L_TITRE."</td></tr>\n" ;
70
    $ret .= "<tr class=\"insTitle1\"><td colspan=\"2\">".AM_L_TITRE." $chaine :</td></tr>\n" ;
71
 
72
    // ligne de recherche
73
    $ret .= "<tr><td colspan=\"2\">\n";
74
    $ret .= "<table border=\"0\"><tr>\n" ;
75
    $ret .= "<td class=\"insLabel\">".AM_L_RECHERCHER." :\n</td>\n<td>";
76
    $ret .= form_mk_chaineI(stripslashes($recherche), "recherche")."&nbsp;";
77
    $ret .= "</td><td class=\"insLabel\" colspan=\"4\">".AM_L_PAYS." : \n" ;
78
    $ret .= "" ;
79
 
80
    // formulaire contenant les pays, avec par défaut soit le pays en cours
81
    // soit "tous les pays"
82
 
83
    $query_pays = "select GC_ID, GC_NAME from gen_COUNTRY where GC_LOCALE='fr'" ;
84
    $result_pays = mysql_query($query_pays) or die ("Echec de la requete sur gen_COUNTRY") ;
85
    $ret .= "<select name=\"pays\" class=\"insInputForm\">\n" ;
86
    $ret .= "<option value=\"tous\">Tous les pays</option>\n" ;
87
    while ($row_pays = mysql_fetch_object($result_pays)) {
88
        $ret .= "<option value=\"$row_pays->GC_ID\"" ;
89
				if (!empty($pays)) {
90
						if ($pays == $row_pays->GC_ID) $ret .= " selected" ;
91
				}
92
				$ret .= ">$row_pays->GC_NAME</option>\n" ;
93
    }
94
		$ret .= "</select>\n" ;
95
    $ret .= "</td>\n" ;
96
 
97
	$ret .= "<tr>\n";
98
  $ret .= "<td class=\"insLabel\">".AM_L_NOM." :\n</td><td>";
99
   $ret .= form_mk_chaineI(stripslashes($nom), "nom")."&nbsp;</td>\n<td class=\"insLabel\">" ;
100
   $ret .= AM_L_PRENOM."&nbsp;:</td>\n<td>".form_mk_chaineI(stripslashes($prenom), "prenom")."&nbsp;</td>\n<td class=\"insLabel\">" ;
101
      $ret .= AM_L_VILLE."&nbsp;:</td>\n<td>".form_mk_chaineI(stripslashes($ville), "ville")."&nbsp;</td>" ;
102
    $ret .= "</tr><tr>\n" ;
103
    $ret .= "<td class=\"insLabel\">".AM_L_DEPARTEMENT."&nbsp;: </td>\n<td>" ;
104
 
105
    // Construction du <select> des départements
106
    $requete_dpt = "select GFD_ID, GFD_NAME from gen_FRENCH_DPT" ;
107
    $resultat_dpt = mysql_query($requete_dpt) or die ("Echec de la requete sur gen_FRENCH_DPT<br>".mysql_error()) ;
108
    $ret .= "<select name=\"dept\" class=\"insInputForm\">\n" ;
109
    $ret .= "<option value=\"tous\">tous</option>\n" ;
110
    while ($ligne_dpt = mysql_fetch_object($resultat_dpt)) {
111
        $ret .= "<option value=\"$ligne_dpt->GFD_ID\"" ;
112
        if ($dept == $ligne_dpt->GFD_ID) $ret .= " selected" ;
113
        $ret .= ">$ligne_dpt->GFD_ID - $ligne_dpt->GFD_NAME</option>\n" ;
114
    }
115
    $ret .= "</select></td>\n" ;
116
 
117
    $ret .= "<td class=\"insLabel\">".AM_L_MAIL."&nbsp;: </td>\n<td>".form_mk_chaineI(stripslashes($mail), "mail")."</td>\n" ;
118
    $ret .= "<td class=\"insLabel\">".AM_L_COTISANTS." : </td>\n" ;
119
    $ret .= "<td>".form_mk_select(stripslashes($cotisant), "cotisant")."</td>\n";
120
    $ret .= "</tr></table>\n";
121
    $ret .= "</td></tr>\n";
122
 
123
    $ret .= "<tr><td><table>\n" ;
124
 
125
    // Les statuts des inscrits
126
    $tableau_statut = array ("0" => "Désinscrit", "1" =>"Cotisant non inscrit", "3" =>"Inscrit") ;
127
    $ret .= "<tr>\n";
128
    $ret .= "<td class=\"insLabel\">Statut&nbsp;:&nbsp;</td>" ;
129
    $ret .= "<td><select name=\"statut\" class=\"insInputForm\">\n" ;
130
    foreach ($tableau_statut as $key=>$value) {
131
        $ret .= "<option value=\"$key\"" ;
132
        if (!empty($HTTP_POST_VARS["statut"]) && $HTTP_POST_VARS["statut"] == $key) $ret .= " selected" ;
133
        if (empty($HTTP_POST_VARS["statut"]) && $key == "3") $ret .= " selected" ;
134
        $ret .= ">$value</option>\n" ;
135
    }
136
    $ret .= "</select></td>" ;
137
    $ret .= "<td class=\"insLabel\" width=\"60%\">\n";
138
    $ret .= AM_L_GRP_RES." : </td>" ;
139
    $grp = array(20, 50, 100) ;
140
    $ret .= "<td><select name=\"T_REPONSE\" class=\"insInputForm\">\n" ;
141
    for ($i = 0; $i < count($grp); $i++) {
142
        $ret .= "<option value=\"".$grp[$i]."\">".$grp[$i]."</option>\n" ;
143
    }
144
    $ret .= "</select></td>" ;
145
    $ret .= "<td class=\"texte_tb\" align=\"right\" width=\"40%\">\n";
146
    $ret .= "<input type=\"submit\" class=\"texte_tb\" value=\"".AM_L_RECHERCHER."\" name =\"bouton\">\n";
147
    $ret .= "</td></tr></table>\n</td></tr>\n";
148
    $ret .= "</table></form>\n";
149
    return $ret;
150
}
151
 
152
/** function form_mk_chaineI () Renvoie une balise de type <input>
153
*
154
*   @param  string  l'attribut value de la balise
155
*   @param  string  l'attibut name de la balise
156
*   @param  string  la classe CSS
157
*   @return string  HTML
158
*/
159
function form_mk_chaineI($value="", $name, $class="insInputForm")
160
{
161
    return "<input type=\"text\" size=\"15\" value=\"$value\" name=\"$name\" class=\"$class\">";
162
}
163
 
164
  function form_mk_select($value="", $name="", $class="insInputForm") {
165
	$res = "<select name=\"$name\" class=\"$class\">\n" ;
166
	$res .= "<option value=\"1\"" ;
167
	if ($value == 1) $res .= " selected" ;
168
	$res .= ">Cotisants</option>\n" ;
169
	$res .= "<option value=\"2\"" ;
170
	if ($value == 2) $res .= " selected" ;
171
	$res .= ">Non cotisants</option>\n" ;
172
	$res .= "<option value=\"3\"" ;
173
	if ($value == 3 || $value == "") $res .= " selected" ;
174
	$res .= ">Tous</option>\n" ;
175
	$res .= "</select>\n" ;
176
	return $res ;
177
  }
178
 
179
function mkquery()
180
{
181
    // définition des variables globales
182
	global $lettre ;
183
	global $bouton, $HTTP_POST_VARS ;
184
 
185
    $mon_frag = new fragmenteur_session() ;
186
 
187
	// Requete sur l'annuaire pour extraire le nom, prénom, ville, nom du département (jointure),
188
	// l'état de la cotisation (jointure)
189
 
190
	// le tableau suivant contient tous les champs de la table annuaire_tela sur lesquels on peut effectuer une recherche
191
	$fields_annu = array("nom" => "U_NAME", "prenom" => "U_SURNAME" , "mail" => "U_MAIL" , "ville" => "U_CITY",
192
			"dept" => "U_FRENCH_DPT", "pays" => "U_COUNTRY"  ) ;
193
 
194
    $mes_vars = array ("recherche", "nom", "ville", "mail" ,"dept", "prenom", "cotisant", "pays", "sort", "T_REPONSE", "lettre","statut") ;
195
 
196
    foreach ($mes_vars as $key=>$value) {
197
        if (!$bouton) {
198
            if (empty($HTTP_POST_VARS[$value])) {
199
                $$value = $mon_frag->getVariable($value);
200
            }
201
        } else {
202
            $lettre = "" ;
203
            $mon_frag->setVariable("lettre", "") ;
204
            $mon_frag->fixerLeDebut(0) ;
205
            if (empty ($HTTP_POST_VARS[$value])) {
206
                $$value = "" ;
207
            } else {
208
                $$value = $HTTP_POST_VARS[$value] ;
209
            }
210
        }
211
    }
212
    if ($bouton) $sort = $mon_frag->getVariable("sort") ;
213
 
214
 
215
	$queries = "select ".ANN_ANNUAIRE.".*" ;
216
    $queries .= ", ".ANN_TABLE_PAYS.".GC_NAME ";
217
	$queries .= "from ".ANN_ANNUAIRE ;
218
    $queries .= ",".ANN_TABLE_PAYS ;
219
 
220
	// Construction en fonction des champs saisies
221
 
222
	// juste le champs "rechercher", on regarde partout
223
	$queries .= " where (" ;
224
 
225
	if ($lettre == "") {
226
        if ($recherche != "") {
227
            $queries .= "(U_NAME like '%$recherche%'" ; // le premier
228
                foreach($fields_annu as $key=>$value) {
229
					if ($key == "nom") continue ;
230
							$queries .= ($key == "pays" ?
231
                                    $pays == "tous" ? ")" :
232
                                    ") and $value = '$pays'" : " or $value like '%$recherche%'") ;	// les autres
233
                }
234
 
235
			} else {
236
 
237
			// si un ou plusieurs autres champs ont été indiqué, on les rajoute ici
238
 
239
			$or_flag = false ;
240
			foreach($fields_annu as $key=>$valeur) {
241
                if ($key != "") {
242
                    if ($key == "pays") {
243
                        if ($$key == "tous") $queries .= ") and U_COUNTRY like '%'";
244
                            else $queries .= ") and $valeur like \"%".$$key."%\"" ;
245
                    } else {
246
                        if ($key == "dept") {
247
                            if ($$key != "tous" && isset($HTTP_POST_VARS[$key])) {
248
                                $queries .= " and U_FRENCH_DPT=".$$key ;
249
                                if ($fields_annu["pays"] != "fr") $queries .= " and U_COUNTRY=\"fr\"" ;
250
                            }
251
 
252
                        } else {
253
                            if ($or_flag) $queries .= "$valeur like \"%".$$key."%\"" ;
254
                            else $queries .= "($valeur like \"%".$$key."%\"" ;
255
                            if ($key != "ville") $queries .= " and " ;
256
                        }
257
                    }
258
                    $or_flag = true ;
259
                }
260
			}
261
			// ici le cas ou rien n'a été saisie du tout, on affiche tout
262
			if (!$or_flag) {
263
					$queries .= "U_NAME like '%')" ;
264
			}
265
	}
266
} else {
267
	if ($lettre == "tous") $lettre = "" ;
268
	$queries .="U_NAME like '$lettre%'" ;
269
}
270
    $queries .= ")" ;
271
  $queries .= " and ".ANN_ANNUAIRE.".U_COUNTRY=".ANN_TABLE_PAYS.".GC_ID" ;
272
    if (isset($cotisant) && $cotisant != 3) if ($cotisant == 1) {
273
        $queries .= " and ".ANN_ANNUAIRE.".U_COT=$cotisant" ;
274
    } else {
275
        $queries .= " and ".ANN_ANNUAIRE.".U_COT=0" ;
276
    }
277
    if (isset($nom) && $nom != "") $queries .= " and U_NAME like \"%$nom%\"" ;
278
    if (isset($prenom) && $prenom != "") $queries .= " and U_SURNAME like \"%$prenom%\"" ;
279
    if (isset($ville) && $ville != "") $queries .= " and U_CITY like \"%$ville%\"" ;
280
    if (isset($mail) && $mail != "") $queries .= " and U_MAIL like \"%$mail%\"" ;
281
    if (isset($statut) && $statut != "") $queries .= " and U_SHOW=$statut" ; else $queries .= " and U_SHOW=0" ;
282
  if (isset($sort) && $sort != "") $queries .= " order by $sort" ;
283
  return $queries;
284
}
285
 
286
function mkresu()
287
{
288
    global $HTTP_HOST, $SCRIPT_URL, $SCRIPT_NAME, $bouton ;
289
 
290
    $mon_frag = new fragmenteur_session() ;
291
    $mon_frag->setURL($GLOBALS['ann_url']->getURL()) ;
292
    if ($bouton) $mon_frag->fixerLeDebut(0) ;
293
    $requete = mkquery() ;
294
 
295
    // Deux requetes, une avec tous les resultats, l'autre avec les résultats affichés
296
    $result_total = mysql_query($requete) or print ("Echec de la requete <br>$requete<br>".mysql_error()) ;
297
 
298
    // Affichage de la requete
299
    $ret_req = "<tr class=\"texte_tb\"><td><br><b>La requete : </b><br>$requete".
300
                    " limit ".$mon_frag->lireLeDebut().",".$mon_frag->lireLePas()."</td></tr>\n" ;
301
 
302
 
303
    $result_final = mysql_query($requete." limit ".$mon_frag->lireLeDebut().",".$mon_frag->lireLePas()) or print (mysql_error());
304
    $nbr_final = mysql_num_rows($result_total) ;
305
    mysql_free_result($result_total) ;
306
//    cxt_addVariable(AM_BD_BOTA, AM_BD_LINK, "requete_mail_tous", $requete) ;
307
    $_SESSION['requete_mail_tous'] = $requete ;
308
    $ret = "<div><table><tr>" ;
309
 
310
    for ($i = 65 ; $i <91 ; $i++) {
311
        $ret .= "\t<td><a href=\"".$GLOBALS['ann_url']->getURL()."&lettre=";
312
        $ret .= chr($i)."\">";
313
        $ret .= chr($i) ;
314
        $ret .= "</a></td>\n";
315
	}
316
 
317
    $ret .= "<td>&nbsp;&nbsp;<a href=\"".$GLOBALS['ann_url']->getURL()."&lettre=tous\">".AM_L_TOUS."</a></td>\n" ;
318
    $ret .= "<tr></table></div>\n" ;
319
    $ret .= "<div>".$mon_frag->affNbRes($nbr_final).'</div>' ;
320
    $ret .= "<div>".$mon_frag->fragmente($nbr_final)."</div>\n" ;
321
    if ($nbr_final != 0) {
322
        $ret .= "<div><table>\n";
323
        $ret .= "<tr class=\"insTitle1\"><td nowrap><a href=\"".$GLOBALS['ann_url']->getURL()."&amp;sort=U_NAME\">Identit&eacute;</a></td>\n";
324
        $ret .= "<td><a href=\"".$GLOBALS['ann_url']->getURL()."&amp;sort=U_MAIL\">Adresse mail</a></td>\n" ;
325
        $ret .= "<td><a href=\"".$GLOBALS['ann_url']->getURL()."&amp;sort=U_CITY\">".AM_L_VILLE."</a></td>\n" ;
326
        $ret .= "<td>Pays ou Dpt (fr)</td>\n" ;
327
        $ret .= "<td><a href=\"".$GLOBALS['ann_url']->getURL()."&amp;sort=U_COT\">".AM_L_COTISANTS."</a></td></tr>\n" ;
328
 
329
        $cotisant = array( "non", "oui") ;
330
 
331
 $pair = true ;  // pour afficher une ligne de résultat coloré, l'autre non
332
 
333
  while ($row = mysql_fetch_object($result_final))
334
    {
335
    $ret .= "<tr class=\"texte_tb2\"";
336
    if ($pair) {
337
	    $ret .= " bgcolor=\"\"" ;
338
	    $pair = false ;
339
	    } else {
340
	    $pair = true ;
341
	    }
342
    $ret .= ">" ;
343
    $ret .= "\n<td nowrap>";
344
    $urlPop = $GLOBALS['ann_url']->getURL()."&amp;u_id=$row->U_ID";
345
    $ret .= "<a href=\"$urlPop\">" ;
346
    $ret .= $row->U_NAME." ".$row->U_SURNAME ;
347
    $ret .= "</a></td>\n ";
348
    $ret .= "<td><a href=\"mailto:$row->U_MAIL\">$row->U_MAIL</a></td>\n" ;
349
    $ret .= "<td>$row->U_CITY</td>" ;
350
    if ($row->U_COUNTRY != 'fr') {
351
		$ret .= "<td>$row->GC_NAME</td>" ;
352
		} else {
353
        $req_dpt = "select GFD_NAME from ".ANN_TABLE_DEPARTEMENT.",".ANN_ANNUAIRE." where ".ANN_ANNUAIRE.".U_ID=$row->U_ID" ;
354
        $req_dpt .= " and ".ANN_ANNUAIRE.".U_FRENCH_DPT=".ANN_TABLE_DEPARTEMENT.".GFD_ID" ;
355
        $resultat_dpt = mysql_query($req_dpt) or die ("Echec de la requete sur ".ANN_TABLE_DEPARTEMENT."<br>".mysql_error()) ;
356
        $ligne_dpt = mysql_fetch_object($resultat_dpt) ;
357
		$ret .= "<td>$ligne_dpt->GFD_NAME</td>" ;
358
		}
359
    $ret .= "<td>".$cotisant[$row->U_COT]."</td></tr>\n" ;
360
    }
361
 
362
    $ret .= "</table></div>\n" ;
363
    $ret .= "<div>".$mon_frag->fragmente($nbr_final)."</div>\n" ;
364
    $ret .= "<div><a href=\"".$GLOBALS['ann_url']->getURL()."&amp;action=".ANN_MAIL_TOUS."\">".AM_L_MAIL_SELECTION."</a></div>\n" ;
365
    }
366
    // $ret .= $ret_req ;
367
  return $ret;
368
}
369
 
370
/** function presa_mk_blkline ()    insere des lignes vides du type <tr><td>&nbsp;</td></tr>
371
*
372
*
373
*   @param  integer nombre de ligne à insérer
374
*	@return string  HTML
375
*/
376
 
377
function presa_mk_blkline ($nombre) {
378
    $res = "" ;
379
    for ($i = 0; $i < $nombre; $i++) {
380
        $res .= "<tr><td>&nbsp;</td></tr>\n" ;
381
    }
382
    return $res ;
383
}
384
 
385
?>