Subversion Repositories Sites.tela-botanica.org

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4 david 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_moteur_fonction.php,v 1.1 2005/03/24 08:47:31 alex 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
 
126
    $ret .= "<tr>\n";
127
 
128
    $ret .= "<td class=\"insLabel\" width=\"60%\">\n";
129
    $ret .= AM_L_GRP_RES." : </td>" ;
130
    $grp = array(20, 50, 100) ;
131
    $ret .= "<td><select name=\"T_REPONSE\" class=\"insInputForm\">\n" ;
132
    for ($i = 0; $i < count($grp); $i++) {
133
        $ret .= "<option value=\"".$grp[$i]."\">".$grp[$i]."</option>\n" ;
134
    }
135
    $ret .= "</select></td>" ;
136
    $ret .= "<td class=\"texte_tb\" align=\"right\" width=\"40%\">\n";
137
    $ret .= "<input type=\"submit\" class=\"texte_tb\" value=\"".AM_L_RECHERCHER."\" name =\"bouton\">\n";
138
    $ret .= "</td></tr></table>\n</td></tr>\n";
139
    $ret .= "</table></form>\n";
140
    return $ret;
141
}
142
 
143
/** function form_mk_chaineI () Renvoie une balise de type <input>
144
*
145
*   @param  string  l'attribut value de la balise
146
*   @param  string  l'attibut name de la balise
147
*   @param  string  la classe CSS
148
*   @return string  HTML
149
*/
150
function form_mk_chaineI($value="", $name, $class="insInputForm")
151
{
152
    return "<input type=\"text\" size=\"15\" value=\"$value\" name=\"$name\" class=\"$class\">";
153
}
154
 
155
  function form_mk_select($value="", $name="", $class="insInputForm") {
156
	$res = "<select name=\"$name\" class=\"$class\">\n" ;
157
	$res .= "<option value=\"1\"" ;
158
	if ($value == 1) $res .= " selected" ;
159
	$res .= ">Cotisants</option>\n" ;
160
	$res .= "<option value=\"2\"" ;
161
	if ($value == 2) $res .= " selected" ;
162
	$res .= ">Non cotisants</option>\n" ;
163
	$res .= "<option value=\"3\"" ;
164
	if ($value == 3 || $value == "") $res .= " selected" ;
165
	$res .= ">Tous</option>\n" ;
166
	$res .= "</select>\n" ;
167
	return $res ;
168
  }
169
 
170
function mkquery()
171
{
172
    // définition des variables globales
173
	global $lettre ;
174
	global $bouton, $HTTP_POST_VARS ;
175
 
176
    $mon_frag = new fragmenteur_session() ;
177
 
178
	// Requete sur l'annuaire pour extraire le nom, prénom, ville, nom du département (jointure),
179
	// l'état de la cotisation (jointure)
180
 
181
	// le tableau suivant contient tous les champs de la table annuaire_tela sur lesquels on peut effectuer une recherche
182
	$fields_annu = array("nom" => "U_NAME", "prenom" => "U_SURNAME" , "mail" => "U_MAIL" , "ville" => "U_CITY",
183
			"dept" => "U_FRENCH_DPT", "pays" => "U_COUNTRY"  ) ;
184
 
185
    $mes_vars = array ("recherche", "nom", "ville", "mail" ,"dept", "prenom", "cotisant", "pays", "sort", "T_REPONSE", "lettre","statut") ;
186
 
187
    foreach ($mes_vars as $key=>$value) {
188
        if (!$bouton) {
189
            if (empty($HTTP_POST_VARS[$value])) {
190
                $$value = $mon_frag->getVariable($value);
191
            }
192
        } else {
193
            $lettre = "" ;
194
            $mon_frag->setVariable("lettre", "") ;
195
            $mon_frag->fixerLeDebut(0) ;
196
            if (empty ($HTTP_POST_VARS[$value])) {
197
                $$value = "" ;
198
            } else {
199
                $$value = $HTTP_POST_VARS[$value] ;
200
            }
201
        }
202
    }
203
    if ($bouton) $sort = $mon_frag->getVariable("sort") ;
204
 
205
 
206
	$queries = "select ".ANN_ANNUAIRE.".*" ;
207
    $queries .= ", ".ANN_TABLE_PAYS.".GC_NAME ";
208
	$queries .= "from ".ANN_ANNUAIRE ;
209
    $queries .= ",".ANN_TABLE_PAYS ;
210
 
211
	// Construction en fonction des champs saisies
212
 
213
	// juste le champs "rechercher", on regarde partout
214
	$queries .= " where (" ;
215
 
216
	if ($lettre == "") {
217
        if ($recherche != "") {
218
            $queries .= "(U_NAME like '%$recherche%'" ; // le premier
219
                foreach($fields_annu as $key=>$value) {
220
					if ($key == "nom") continue ;
221
							$queries .= ($key == "pays" ?
222
                                    $pays == "tous" ? ")" :
223
                                    ") and $value = '$pays'" : " or $value like '%$recherche%'") ;	// les autres
224
                }
225
 
226
			} else {
227
 
228
			// si un ou plusieurs autres champs ont été indiqué, on les rajoute ici
229
 
230
			$or_flag = false ;
231
			foreach($fields_annu as $key=>$valeur) {
232
                if ($key != "") {
233
                    if ($key == "pays") {
234
                        if ($$key == "tous") $queries .= ") and U_COUNTRY like '%'";
235
                            else $queries .= ") and $valeur like \"%".$$key."%\"" ;
236
                    } else {
237
                        if ($key == "dept") {
238
                            if ($$key != "tous" && isset($HTTP_POST_VARS[$key])) {
239
                                $queries .= " and U_FRENCH_DPT=".$$key ;
240
                                if ($fields_annu["pays"] != "fr") $queries .= " and U_COUNTRY=\"fr\"" ;
241
                            }
242
 
243
                        } else {
244
                            if ($or_flag) $queries .= "$valeur like \"%".$$key."%\"" ;
245
                            else $queries .= "($valeur like \"%".$$key."%\"" ;
246
                            if ($key != "ville") $queries .= " and " ;
247
                        }
248
                    }
249
                    $or_flag = true ;
250
                }
251
			}
252
			// ici le cas ou rien n'a été saisie du tout, on affiche tout
253
			if (!$or_flag) {
254
					$queries .= "U_NAME like '%')" ;
255
			}
256
	}
257
} else {
258
	if ($lettre == "tous") $lettre = "" ;
259
	$queries .="U_NAME like '$lettre%'" ;
260
}
261
    $queries .= ")" ;
262
  $queries .= " and ".ANN_ANNUAIRE.".U_COUNTRY=".ANN_TABLE_PAYS.".GC_ID" ;
263
    if (isset($cotisant) && $cotisant != 3) if ($cotisant == 1) {
264
        $queries .= " and ".ANN_ANNUAIRE.".U_COT=$cotisant" ;
265
    } else {
266
        $queries .= " and ".ANN_ANNUAIRE.".U_COT=0" ;
267
    }
268
    if (isset($nom) && $nom != "") $queries .= " and U_NAME like \"%$nom%\"" ;
269
    if (isset($prenom) && $prenom != "") $queries .= " and U_SURNAME like \"%$prenom%\"" ;
270
    if (isset($ville) && $ville != "") $queries .= " and U_CITY like \"%$ville%\"" ;
271
    if (isset($mail) && $mail != "") $queries .= " and U_MAIL like \"%$mail%\"" ;
272
  if (isset($sort) && $sort != "") $queries .= " order by $sort" ;
273
  return $queries;
274
}
275
 
276
function mkresu()
277
{
278
    global $HTTP_HOST, $SCRIPT_URL, $SCRIPT_NAME, $bouton ;
279
 
280
    $mon_frag = new fragmenteur_session() ;
281
    $mon_frag->setURL($GLOBALS['ann_url']->getURL()) ;
282
    if ($bouton) $mon_frag->fixerLeDebut(0) ;
283
    $requete = mkquery() ;
284
 
285
    // Deux requetes, une avec tous les resultats, l'autre avec les résultats affichés
286
    $result_total = mysql_query($requete) or print ("Echec de la requete <br>$requete<br>".mysql_error()) ;
287
 
288
    // Affichage de la requete
289
    $ret_req = "<tr class=\"texte_tb\"><td><br><b>La requete : </b><br>$requete".
290
                    " limit ".$mon_frag->lireLeDebut().",".$mon_frag->lireLePas()."</td></tr>\n" ;
291
 
292
 
293
    $result_final = mysql_query($requete." limit ".$mon_frag->lireLeDebut().",".$mon_frag->lireLePas()) or print (mysql_error());
294
    $nbr_final = mysql_num_rows($result_total) ;
295
    mysql_free_result($result_total) ;
296
//    cxt_addVariable(AM_BD_BOTA, AM_BD_LINK, "requete_mail_tous", $requete) ;
297
    $_SESSION['requete_mail_tous'] = $requete ;
298
    $ret = "<div><table><tr>" ;
299
 
300
    for ($i = 65 ; $i <91 ; $i++) {
301
        $ret .= "\t<td><a href=\"".$GLOBALS['ann_url']->getURL()."&lettre=";
302
        $ret .= chr($i)."\">";
303
        $ret .= chr($i) ;
304
        $ret .= "</a></td>\n";
305
	}
306
 
307
    $ret .= "<td>&nbsp;&nbsp;<a href=\"".$GLOBALS['ann_url']->getURL()."&lettre=tous\">".AM_L_TOUS."</a></td>\n" ;
308
    $ret .= "<tr></table></div>\n" ;
309
    $ret .= "<div>".$mon_frag->affNbRes($nbr_final).'</div>' ;
310
    $ret .= "<div>".$mon_frag->fragmente($nbr_final)."</div>\n" ;
311
    if ($nbr_final != 0) {
312
        $ret .= "<div><table>\n";
313
        $ret .= "<tr class=\"insTitle1\"><td nowrap><a href=\"".$GLOBALS['ann_url']->getURL()."&amp;sort=U_NAME\">Identit&eacute;</a></td>\n";
314
        $ret .= "<td><a href=\"".$GLOBALS['ann_url']->getURL()."&amp;sort=U_MAIL\">Adresse mail</a></td>\n" ;
315
        $ret .= "<td><a href=\"".$GLOBALS['ann_url']->getURL()."&amp;sort=U_CITY\">".AM_L_VILLE."</a></td>\n" ;
316
        $ret .= "<td>Pays ou Dpt (fr)</td>\n" ;
317
        $ret .= "<td><a href=\"".$GLOBALS['ann_url']->getURL()."&amp;sort=U_COT\">".AM_L_COTISANTS."</a></td></tr>\n" ;
318
 
319
        $cotisant = array( "non", "oui") ;
320
 
321
 $pair = true ;  // pour afficher une ligne de résultat coloré, l'autre non
322
 
323
  while ($row = mysql_fetch_object($result_final))
324
    {
325
    $ret .= "<tr class=\"texte_tb2\"";
326
    if ($pair) {
327
	    $ret .= " bgcolor=\"\"" ;
328
	    $pair = false ;
329
	    } else {
330
	    $pair = true ;
331
	    }
332
    $ret .= ">" ;
333
    $ret .= "\n<td nowrap>";
334
    $urlPop = $GLOBALS['ann_url']->getURL()."&amp;u_id=$row->U_ID";
335
    $ret .= "<a href=\"$urlPop\">" ;
336
    $ret .= $row->U_NAME." ".$row->U_SURNAME ;
337
    $ret .= "</a></td>\n ";
338
    $ret .= "<td><a href=\"mailto:$row->U_MAIL\">$row->U_MAIL</a></td>\n" ;
339
    $ret .= "<td>$row->U_CITY</td>" ;
340
    if ($row->U_COUNTRY != 'fr') {
341
		$ret .= "<td>$row->GC_NAME</td>" ;
342
		} else {
343
        $req_dpt = "select GFD_NAME from ".ANN_TABLE_DEPARTEMENT.",".ANN_ANNUAIRE." where ".ANN_ANNUAIRE.".U_ID=$row->U_ID" ;
344
        $req_dpt .= " and ".ANN_ANNUAIRE.".U_FRENCH_DPT=".ANN_TABLE_DEPARTEMENT.".GFD_ID" ;
345
        $resultat_dpt = mysql_query($req_dpt) or die ("Echec de la requete sur ".ANN_TABLE_DEPARTEMENT."<br>".mysql_error()) ;
346
        $ligne_dpt = mysql_fetch_object($resultat_dpt) ;
347
		$ret .= "<td>$ligne_dpt->GFD_NAME</td>" ;
348
		}
349
    $ret .= "<td>".$cotisant[$row->U_COT]."</td></tr>\n" ;
350
    }
351
 
352
    $ret .= "</table></div>\n" ;
353
    $ret .= "<div>".$mon_frag->fragmente($nbr_final)."</div>\n" ;
354
    $ret .= "<div><a href=\"".$GLOBALS['ann_url']->getURL()."&amp;action=".ANN_MAIL_TOUS."\">".AM_L_MAIL_SELECTION."</a></div>\n" ;
355
    }
356
    // $ret .= $ret_req ;
357
  return $ret;
358
}
359
 
360
/** function presa_mk_blkline ()    insere des lignes vides du type <tr><td>&nbsp;</td></tr>
361
*
362
*
363
*   @param  integer nombre de ligne à insérer
364
*	@return string  HTML
365
*/
366
 
367
function presa_mk_blkline ($nombre) {
368
    $res = "" ;
369
    for ($i = 0; $i < $nombre; $i++) {
370
        $res .= "<tr><td>&nbsp;</td></tr>\n" ;
371
    }
372
    return $res ;
373
}
374
 
375
?>