Blame | Last modification | View Log | RSS feed
<?php// +--------------------------------------------------------------------------------+// | annuaire_moteur_fonction.php |// +--------------------------------------------------------------------------------+// | Copyright (c) 2000 - 2003 Tela Botanica |// +--------------------------------------------------------------------------------+// | Les fonctions de annuaire_moteur.php |// +--------------------------------------------------------------------------------+// | Auteur : Alexandre Granier <alexandre@tela-botanica.org> |// +--------------------------------------------------------------------------------+//// $Id: annuaire_moteur_fonction.php,v 1.1 2005/03/24 08:47:31 alex Exp $/** function mkengine ()**** @return*/function mkengine(){global $label_bbota;global $nbr_total;global $bouton, $HTTP_POST_VARS ;$mon_frag = new fragmenteur_session() ;$mes_vars = array ("recherche", "nom", "ville", "mail" ,"dept", "prenom", "cotisant", "pays", "sort", "T_REPONSE", "lettre","statut") ;// Deux cas , soit on a cliqué sur rechercher, soit on a cliqué sur un lienforeach ($mes_vars as $key=>$value) {if (!$bouton) { // on a cliqué sur un lienif (empty($HTTP_POST_VARS[$value])) {$$value = $mon_frag->getVariable($value);}} else {// Si on clique sur le bouton rechercherif (empty ($HTTP_POST_VARS[$value])) {$$value = "" ;} else {$$value = $HTTP_POST_VARS[$value] ;}}}// Comptage du nombre total de données dans la table (hors CACHER = 1)$query = "select count(*) as CPT from ".ANN_ANNUAIRE;$result = mysql_query($query) or die("<B>Erreur !</B> $query a échoué...");if (mysql_num_rows($result) == 1){$tmp_nb = mysql_fetch_object($result);$nbr_total = $tmp_nb->CPT;if ($nbr_total > 0) $chaine = "parmi $nbr_total données";else die("<B>Erreur</B> lors du comptage des structures ($nbr_total trouvées) : $query");}else die("<B>Erreur</B> lors du comptage des structures : $query");mysql_free_result($result);// fin comptage$ret = "";// construction du moteur de str$ret .= "<form action=\"".$GLOBALS['ann_url']->getURL()."\" method=\"post\">\n";$ret .= "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\" summary=\"\">\n";$ret .= "<tr class=\"titlePage\"><td colspan=\"2\">".AM_L_TITRE."</td></tr>\n" ;$ret .= "<tr class=\"insTitle1\"><td colspan=\"2\">".AM_L_TITRE." $chaine :</td></tr>\n" ;// ligne de recherche$ret .= "<tr><td colspan=\"2\">\n";$ret .= "<table border=\"0\"><tr>\n" ;$ret .= "<td class=\"insLabel\">".AM_L_RECHERCHER." :\n</td>\n<td>";$ret .= form_mk_chaineI(stripslashes($recherche), "recherche")." ";$ret .= "</td><td class=\"insLabel\" colspan=\"4\">".AM_L_PAYS." : \n" ;$ret .= "" ;// formulaire contenant les pays, avec par défaut soit le pays en cours// soit "tous les pays"$query_pays = "select GC_ID, GC_NAME from gen_COUNTRY where GC_LOCALE='fr'" ;$result_pays = mysql_query($query_pays) or die ("Echec de la requete sur gen_COUNTRY") ;$ret .= "<select name=\"pays\" class=\"insInputForm\">\n" ;$ret .= "<option value=\"tous\">Tous les pays</option>\n" ;while ($row_pays = mysql_fetch_object($result_pays)) {$ret .= "<option value=\"$row_pays->GC_ID\"" ;if (!empty($pays)) {if ($pays == $row_pays->GC_ID) $ret .= " selected" ;}$ret .= ">$row_pays->GC_NAME</option>\n" ;}$ret .= "</select>\n" ;$ret .= "</td>\n" ;$ret .= "<tr>\n";$ret .= "<td class=\"insLabel\">".AM_L_NOM." :\n</td><td>";$ret .= form_mk_chaineI(stripslashes($nom), "nom")." </td>\n<td class=\"insLabel\">" ;$ret .= AM_L_PRENOM." :</td>\n<td>".form_mk_chaineI(stripslashes($prenom), "prenom")." </td>\n<td class=\"insLabel\">" ;$ret .= AM_L_VILLE." :</td>\n<td>".form_mk_chaineI(stripslashes($ville), "ville")." </td>" ;$ret .= "</tr><tr>\n" ;$ret .= "<td class=\"insLabel\">".AM_L_DEPARTEMENT." : </td>\n<td>" ;// Construction du <select> des départements$requete_dpt = "select GFD_ID, GFD_NAME from gen_FRENCH_DPT" ;$resultat_dpt = mysql_query($requete_dpt) or die ("Echec de la requete sur gen_FRENCH_DPT<br>".mysql_error()) ;$ret .= "<select name=\"dept\" class=\"insInputForm\">\n" ;$ret .= "<option value=\"tous\">tous</option>\n" ;while ($ligne_dpt = mysql_fetch_object($resultat_dpt)) {$ret .= "<option value=\"$ligne_dpt->GFD_ID\"" ;if ($dept == $ligne_dpt->GFD_ID) $ret .= " selected" ;$ret .= ">$ligne_dpt->GFD_ID - $ligne_dpt->GFD_NAME</option>\n" ;}$ret .= "</select></td>\n" ;$ret .= "<td class=\"insLabel\">".AM_L_MAIL." : </td>\n<td>".form_mk_chaineI(stripslashes($mail), "mail")."</td>\n" ;$ret .= "<td class=\"insLabel\">".AM_L_COTISANTS." : </td>\n" ;$ret .= "<td>".form_mk_select(stripslashes($cotisant), "cotisant")."</td>\n";$ret .= "</tr></table>\n";$ret .= "</td></tr>\n";$ret .= "<tr><td><table>\n" ;$ret .= "<tr>\n";$ret .= "<td class=\"insLabel\" width=\"60%\">\n";$ret .= AM_L_GRP_RES." : </td>" ;$grp = array(20, 50, 100) ;$ret .= "<td><select name=\"T_REPONSE\" class=\"insInputForm\">\n" ;for ($i = 0; $i < count($grp); $i++) {$ret .= "<option value=\"".$grp[$i]."\">".$grp[$i]."</option>\n" ;}$ret .= "</select></td>" ;$ret .= "<td class=\"texte_tb\" align=\"right\" width=\"40%\">\n";$ret .= "<input type=\"submit\" class=\"texte_tb\" value=\"".AM_L_RECHERCHER."\" name =\"bouton\">\n";$ret .= "</td></tr></table>\n</td></tr>\n";$ret .= "</table></form>\n";return $ret;}/** function form_mk_chaineI () Renvoie une balise de type <input>** @param string l'attribut value de la balise* @param string l'attibut name de la balise* @param string la classe CSS* @return string HTML*/function form_mk_chaineI($value="", $name, $class="insInputForm"){return "<input type=\"text\" size=\"15\" value=\"$value\" name=\"$name\" class=\"$class\">";}function form_mk_select($value="", $name="", $class="insInputForm") {$res = "<select name=\"$name\" class=\"$class\">\n" ;$res .= "<option value=\"1\"" ;if ($value == 1) $res .= " selected" ;$res .= ">Cotisants</option>\n" ;$res .= "<option value=\"2\"" ;if ($value == 2) $res .= " selected" ;$res .= ">Non cotisants</option>\n" ;$res .= "<option value=\"3\"" ;if ($value == 3 || $value == "") $res .= " selected" ;$res .= ">Tous</option>\n" ;$res .= "</select>\n" ;return $res ;}function mkquery(){// définition des variables globalesglobal $lettre ;global $bouton, $HTTP_POST_VARS ;$mon_frag = new fragmenteur_session() ;// Requete sur l'annuaire pour extraire le nom, prénom, ville, nom du département (jointure),// l'état de la cotisation (jointure)// le tableau suivant contient tous les champs de la table annuaire_tela sur lesquels on peut effectuer une recherche$fields_annu = array("nom" => "U_NAME", "prenom" => "U_SURNAME" , "mail" => "U_MAIL" , "ville" => "U_CITY","dept" => "U_FRENCH_DPT", "pays" => "U_COUNTRY" ) ;$mes_vars = array ("recherche", "nom", "ville", "mail" ,"dept", "prenom", "cotisant", "pays", "sort", "T_REPONSE", "lettre","statut") ;foreach ($mes_vars as $key=>$value) {if (!$bouton) {if (empty($HTTP_POST_VARS[$value])) {$$value = $mon_frag->getVariable($value);}} else {$lettre = "" ;$mon_frag->setVariable("lettre", "") ;$mon_frag->fixerLeDebut(0) ;if (empty ($HTTP_POST_VARS[$value])) {$$value = "" ;} else {$$value = $HTTP_POST_VARS[$value] ;}}}if ($bouton) $sort = $mon_frag->getVariable("sort") ;$queries = "select ".ANN_ANNUAIRE.".*" ;$queries .= ", ".ANN_TABLE_PAYS.".GC_NAME ";$queries .= "from ".ANN_ANNUAIRE ;$queries .= ",".ANN_TABLE_PAYS ;// Construction en fonction des champs saisies// juste le champs "rechercher", on regarde partout$queries .= " where (" ;if ($lettre == "") {if ($recherche != "") {$queries .= "(U_NAME like '%$recherche%'" ; // le premierforeach($fields_annu as $key=>$value) {if ($key == "nom") continue ;$queries .= ($key == "pays" ?$pays == "tous" ? ")" :") and $value = '$pays'" : " or $value like '%$recherche%'") ; // les autres}} else {// si un ou plusieurs autres champs ont été indiqué, on les rajoute ici$or_flag = false ;foreach($fields_annu as $key=>$valeur) {if ($key != "") {if ($key == "pays") {if ($$key == "tous") $queries .= ") and U_COUNTRY like '%'";else $queries .= ") and $valeur like \"%".$$key."%\"" ;} else {if ($key == "dept") {if ($$key != "tous" && isset($HTTP_POST_VARS[$key])) {$queries .= " and U_FRENCH_DPT=".$$key ;if ($fields_annu["pays"] != "fr") $queries .= " and U_COUNTRY=\"fr\"" ;}} else {if ($or_flag) $queries .= "$valeur like \"%".$$key."%\"" ;else $queries .= "($valeur like \"%".$$key."%\"" ;if ($key != "ville") $queries .= " and " ;}}$or_flag = true ;}}// ici le cas ou rien n'a été saisie du tout, on affiche toutif (!$or_flag) {$queries .= "U_NAME like '%')" ;}}} else {if ($lettre == "tous") $lettre = "" ;$queries .="U_NAME like '$lettre%'" ;}$queries .= ")" ;$queries .= " and ".ANN_ANNUAIRE.".U_COUNTRY=".ANN_TABLE_PAYS.".GC_ID" ;if (isset($cotisant) && $cotisant != 3) if ($cotisant == 1) {$queries .= " and ".ANN_ANNUAIRE.".U_COT=$cotisant" ;} else {$queries .= " and ".ANN_ANNUAIRE.".U_COT=0" ;}if (isset($nom) && $nom != "") $queries .= " and U_NAME like \"%$nom%\"" ;if (isset($prenom) && $prenom != "") $queries .= " and U_SURNAME like \"%$prenom%\"" ;if (isset($ville) && $ville != "") $queries .= " and U_CITY like \"%$ville%\"" ;if (isset($mail) && $mail != "") $queries .= " and U_MAIL like \"%$mail%\"" ;if (isset($sort) && $sort != "") $queries .= " order by $sort" ;return $queries;}function mkresu(){global $HTTP_HOST, $SCRIPT_URL, $SCRIPT_NAME, $bouton ;$mon_frag = new fragmenteur_session() ;$mon_frag->setURL($GLOBALS['ann_url']->getURL()) ;if ($bouton) $mon_frag->fixerLeDebut(0) ;$requete = mkquery() ;// Deux requetes, une avec tous les resultats, l'autre avec les résultats affichés$result_total = mysql_query($requete) or print ("Echec de la requete <br>$requete<br>".mysql_error()) ;// Affichage de la requete$ret_req = "<tr class=\"texte_tb\"><td><br><b>La requete : </b><br>$requete"." limit ".$mon_frag->lireLeDebut().",".$mon_frag->lireLePas()."</td></tr>\n" ;$result_final = mysql_query($requete." limit ".$mon_frag->lireLeDebut().",".$mon_frag->lireLePas()) or print (mysql_error());$nbr_final = mysql_num_rows($result_total) ;mysql_free_result($result_total) ;// cxt_addVariable(AM_BD_BOTA, AM_BD_LINK, "requete_mail_tous", $requete) ;$_SESSION['requete_mail_tous'] = $requete ;$ret = "<div><table><tr>" ;for ($i = 65 ; $i <91 ; $i++) {$ret .= "\t<td><a href=\"".$GLOBALS['ann_url']->getURL()."&lettre=";$ret .= chr($i)."\">";$ret .= chr($i) ;$ret .= "</a></td>\n";}$ret .= "<td> <a href=\"".$GLOBALS['ann_url']->getURL()."&lettre=tous\">".AM_L_TOUS."</a></td>\n" ;$ret .= "<tr></table></div>\n" ;$ret .= "<div>".$mon_frag->affNbRes($nbr_final).'</div>' ;$ret .= "<div>".$mon_frag->fragmente($nbr_final)."</div>\n" ;if ($nbr_final != 0) {$ret .= "<div><table>\n";$ret .= "<tr class=\"insTitle1\"><td nowrap><a href=\"".$GLOBALS['ann_url']->getURL()."&sort=U_NAME\">Identité</a></td>\n";$ret .= "<td><a href=\"".$GLOBALS['ann_url']->getURL()."&sort=U_MAIL\">Adresse mail</a></td>\n" ;$ret .= "<td><a href=\"".$GLOBALS['ann_url']->getURL()."&sort=U_CITY\">".AM_L_VILLE."</a></td>\n" ;$ret .= "<td>Pays ou Dpt (fr)</td>\n" ;$ret .= "<td><a href=\"".$GLOBALS['ann_url']->getURL()."&sort=U_COT\">".AM_L_COTISANTS."</a></td></tr>\n" ;$cotisant = array( "non", "oui") ;$pair = true ; // pour afficher une ligne de résultat coloré, l'autre nonwhile ($row = mysql_fetch_object($result_final)){$ret .= "<tr class=\"texte_tb2\"";if ($pair) {$ret .= " bgcolor=\"\"" ;$pair = false ;} else {$pair = true ;}$ret .= ">" ;$ret .= "\n<td nowrap>";$urlPop = $GLOBALS['ann_url']->getURL()."&u_id=$row->U_ID";$ret .= "<a href=\"$urlPop\">" ;$ret .= $row->U_NAME." ".$row->U_SURNAME ;$ret .= "</a></td>\n ";$ret .= "<td><a href=\"mailto:$row->U_MAIL\">$row->U_MAIL</a></td>\n" ;$ret .= "<td>$row->U_CITY</td>" ;if ($row->U_COUNTRY != 'fr') {$ret .= "<td>$row->GC_NAME</td>" ;} else {$req_dpt = "select GFD_NAME from ".ANN_TABLE_DEPARTEMENT.",".ANN_ANNUAIRE." where ".ANN_ANNUAIRE.".U_ID=$row->U_ID" ;$req_dpt .= " and ".ANN_ANNUAIRE.".U_FRENCH_DPT=".ANN_TABLE_DEPARTEMENT.".GFD_ID" ;$resultat_dpt = mysql_query($req_dpt) or die ("Echec de la requete sur ".ANN_TABLE_DEPARTEMENT."<br>".mysql_error()) ;$ligne_dpt = mysql_fetch_object($resultat_dpt) ;$ret .= "<td>$ligne_dpt->GFD_NAME</td>" ;}$ret .= "<td>".$cotisant[$row->U_COT]."</td></tr>\n" ;}$ret .= "</table></div>\n" ;$ret .= "<div>".$mon_frag->fragmente($nbr_final)."</div>\n" ;$ret .= "<div><a href=\"".$GLOBALS['ann_url']->getURL()."&action=".ANN_MAIL_TOUS."\">".AM_L_MAIL_SELECTION."</a></div>\n" ;}// $ret .= $ret_req ;return $ret;}/** function presa_mk_blkline () insere des lignes vides du type <tr><td> </td></tr>*** @param integer nombre de ligne à insérer* @return string HTML*/function presa_mk_blkline ($nombre) {$res = "" ;for ($i = 0; $i < $nombre; $i++) {$res .= "<tr><td> </td></tr>\n" ;}return $res ;}?>