Subversion Repositories Applications.papyrus

Rev

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
//
1680 alexandre_ 13
// $Id: annuaire_backoffice.fonct.php,v 1.13 2007-11-08 09:26:20 alexandre_tb Exp $
448 ddelon 14
 
15
 
16
/** function mkengine ()
17
*
18
*
19
*
20
*	@return
21
*/
22
 
1298 neiluj 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 $bouton, $HTTP_POST_VARS ;
29
 
679 alexandre_ 30
    $requete = mkquery() ;
1680 alexandre_ 31
    //$ret = '<div>'. $requete .'</div>';
32
    $ret = '';
33
    // Deux requetes, une avec tous les resultats, l'autre avec les resultats affiches
679 alexandre_ 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);
1292 neiluj 56
 
57
 
448 ddelon 58
    $mes_vars = array ("recherche", "nom", "ville", "mail" ,"dept", "prenom", "cotisant", "pays", "sort", "T_REPONSE", "lettre","statut") ;
1292 neiluj 59
 
1432 alexandre_ 60
    // Deux cas , soit on a clique sur rechercher, soit on a clique sur un lien
448 ddelon 61
    foreach ($mes_vars as $key=>$value) {
1432 alexandre_ 62
        if (!$bouton) {     // on a clique sur un lien
448 ddelon 63
            if (empty($HTTP_POST_VARS[$value])) {
679 alexandre_ 64
 
448 ddelon 65
            }
66
        } else {
67
            // Si on clique sur le bouton rechercher
68
            if (empty ($HTTP_POST_VARS[$value])) {
69
                $$value = "" ;
70
            } else {
71
                $$value = $HTTP_POST_VARS[$value] ;
72
            }
73
        }
1292 neiluj 74
    }
1432 alexandre_ 75
    // Comptage du nombre total de donnees dans la table (hors CACHER = 1)
1292 neiluj 76
    $requete_nbre_inscrit = "select count(*) as CPT from ".INS_ANNUAIRE;
77
    $resultat_nbre_inscrit = $GLOBALS['ins_db']->query($requete_nbre_inscrit) ;
78
 
448 ddelon 79
 
1292 neiluj 80
  if ($resultat_nbre_inscrit->numRows() == 1) {
81
        $tmp_nb = $resultat_nbre_inscrit->fetchRow(DB_FETCHMODE_OBJECT);
82
        $nbr_total = $tmp_nb->CPT;
1432 alexandre_ 83
        $chaine = "parmi $nbr_total donn&eacute;es";
84
        if ($nbr_total <= 0) $ret .= "<B>Erreur</B> lors du comptage des structures ($nbr_total trouv&eacute;es) : $requete_nbre_inscrit";
1292 neiluj 85
    }
1298 neiluj 86
  else $ret .=  "<B>Erreur</B> lors du comptage des structures : $requete_nbre_inscrit";
1292 neiluj 87
 
88
 
89
  // fin comptage
90
 
1467 alexandre_ 91
  	//$ret = '';
1292 neiluj 92
	$ret .= '<h1>'.AM_L_TITRE.' '.$chaine.'</h1>'."\n" ;
448 ddelon 93
  // construction du moteur de str
94
 
1680 alexandre_ 95
 	$url = $GLOBALS['ins_url']->getURL();
96
 
97
    isset ($_REQUEST['recherche']) ? $recherche = stripslashes($_REQUEST['recherche']) : $recherche = '';
98
 
1432 alexandre_ 99
    // formulaire contenant les pays, avec par defaut soit le pays en cours
1292 neiluj 100
    // soit "tous les pays"
101
    $liste_pays = new ListeDePays($GLOBALS['ins_db']) ;
102
    $tableau_pays = $liste_pays->getListePays(INS_LANGUE_DEFAUT) ;
103
 
104
    foreach ($tableau_pays as $codeIso => $labelPays) {
105
        if (!empty($pays)) {
1680 alexandre_ 106
                $pays = $_REQUEST['pays'];
1292 neiluj 107
        }
108
    }
1680 alexandre_ 109
 
1432 alexandre_ 110
    // Construction du <select> des departements
1292 neiluj 111
    $requete_dpt = 'select '.INS_CHAMPS_ID_DEPARTEMENT.', '.INS_CHAMPS_NOM_DEPARTEMENT.' from '.INS_TABLE_DPT ;
112
    $resultat_dpt = $GLOBALS['ins_db']->query($requete_dpt) ;
113
    if (DB::isError($resultat_dpt)) {
114
    	echo 'Echec de la requete<br />'.$requete_dpt.'<br />'.$resultat_dpt->getMessage();
115
    }
1680 alexandre_ 116
 
1292 neiluj 117
    while ($ligne_dpt = $resultat_dpt->fetchRow(DB_FETCHMODE_ASSOC)) {
1680 alexandre_ 118
        $tableau_dpt[$ligne_dpt[INS_CHAMPS_ID_DEPARTEMENT]] = $ligne_dpt[INS_CHAMPS_NOM_DEPARTEMENT];
119
        if (isset ($_REQUEST['dept']) && $_REQUEST['dept'] == $ligne_dpt[INS_CHAMPS_ID_DEPARTEMENT]) {
120
        	$dpt = $_REQUEST['dept'];
121
        }
1292 neiluj 122
    }
1680 alexandre_ 123
 
124
    $pager_select_box = $pager->getperpageselectbox (50 , 200, 50 , false ,'%d');
125
 
126
    ob_start();
127
    include_once INS_CHEMIN_SQUELETTE.INS_FICHIER_SQUELETTE_BACKOFFICE_MOTEUR ;
128
    $ret .= ob_get_contents();
129
    ob_end_clean();
1292 neiluj 130
 
679 alexandre_ 131
    // La liste des lettres de l'alphabet
132
    for ($i = 65 ; $i <91 ; $i++) {
133
    	$GLOBALS['ins_url']->addQueryString('lettre', chr($i)) ;
134
        $ret .= "\t<a href=\"".$GLOBALS['ins_url']->getURL();
135
        $ret .= '">';
136
        $ret .= chr($i) ;
137
        $ret .= "</a> \n";
138
	}
139
	$GLOBALS['ins_url']->addQueryString ('lettre', 'tous') ;
140
	$ret .= " <a href=\"".$GLOBALS['ins_url']->getURL().'">'.AM_L_TOUS."</a>\n" ;
1680 alexandre_ 141
    //$ret .= "</div>\n" ;
1432 alexandre_ 142
    $ret .= '<div>'.$nbr_final.' r&eacute;sultat(s)</div>' ;
679 alexandre_ 143
    $GLOBALS['ins_url']->removeQueryString('lettre') ;
144
 
145
    // Menu Ajouter un inscrit
146
    $GLOBALS['ins_url']->addQueryString('ajouter', '1') ;
147
    $ret .= '<div><a href="'.$GLOBALS['ins_url']->getURL().'">'.INS_AJOUT_MEMBRE.'</a></div>'."\n";
1432 alexandre_ 148
    $GLOBALS['ins_url']->removeQueryString('ajouter') ;
679 alexandre_ 149
	$data  = $pager->getPageData();
150
 
151
	$table = new HTML_Table(array ('class' => 'table_bazar')) ;
1292 neiluj 152
	$table->addRow(array(
153
				'<a href="'.$GLOBALS['ins_url']->getURL().'&amp;sort='.INS_CHAMPS_NOM.'">Identit&eacute;</a>',
154
				'<a href="'.$GLOBALS['ins_url']->getURL().'&amp;sort='.INS_CHAMPS_MAIL.'">Adresse mail</a>',
155
				'<a href="'.$GLOBALS['ins_url']->getURL().'&amp;sort='.INS_CHAMPS_VILLE.'">'.AM_L_VILLE.'</a>',
1432 alexandre_ 156
				'Pays ou Dpt (fr)',
157
				INS_SUPPRIMER
679 alexandre_ 158
			), '', 'TH') ;
159
 
160
	$debut = isset($_REQUEST['pageID']) ? $_REQUEST['pageID'] : 1 ;
161
	for ($i = ($debut - 1) * $_REQUEST['setPerPage'];
162
				$i < $_REQUEST['setPerPage'] * $debut;
163
				$i++) {
164
		// On teste s'il y une valeur, si oui on ajoute la ligne
165
		if (isset ($data[$i])) {
166
			$urlPop = $GLOBALS['ins_url']->getURL().'&amp;'.INS_CHAMPS_ID.'='.$data[$i][INS_CHAMPS_ID];
1292 neiluj 167
			$ligne_inscrit = array ("<a href=\"$urlPop\">".$data[$i][INS_CHAMPS_NOM].' '.$data[$i][INS_CHAMPS_PRENOM].
679 alexandre_ 168
								'</a>', $data[$i][INS_CHAMPS_MAIL], $data[$i][INS_CHAMPS_VILLE]) ;
169
 
1432 alexandre_ 170
			// Pour la france on met le departement, sinon on laisse le nom du pays
679 alexandre_ 171
			if ($data[$i][INS_CHAMPS_PAYS] != 'fr') {
172
				array_push ($ligne_inscrit, $data[$i][INS_CHAMPS_LABEL_PAYS]);
173
			} else {
1298 neiluj 174
		        $req_dpt = 'select '.INS_CHAMPS_NOM_DEPARTEMENT.' from '.INS_TABLE_DPT.",".INS_ANNUAIRE.
1292 neiluj 175
							" where ".INS_ANNUAIRE.'.'.INS_CHAMPS_ID.'='.$data[$i][INS_CHAMPS_ID] ;
1298 neiluj 176
		        $req_dpt .= " and ".INS_ANNUAIRE.'.'.INS_CHAMPS_DEPARTEMENT.'='.INS_TABLE_DPT.'.'
1292 neiluj 177
		        					.INS_CHAMPS_ID_DEPARTEMENT ;
178
		        $resultat_dpt = $GLOBALS['ins_db']->query($req_dpt) ;
1298 neiluj 179
		        if (DB::isError($resultat_dpt)) {
180
		        	echo $resultat_dpt->getMessage().$resultat_dpt->getDebugInfo();
181
		        }
1292 neiluj 182
		        $ligne_dpt = $resultat_dpt->fetchRow(DB_FETCHMODE_ASSOC) ;
183
				array_push ($ligne_inscrit, $ligne_dpt[INS_CHAMPS_NOM_DEPARTEMENT]) ;
1680 alexandre_ 184
 
679 alexandre_ 185
			}
1680 alexandre_ 186
			$GLOBALS['ins_url']->addQueryString(ANN_VARIABLE_ACTION, ANN_ACTION_SUPPRIMER_INSCRIT);
187
			$GLOBALS['ins_url']->addQueryString(INS_VARIABLE_ID_INSCRIT, $data[$i][INS_CHAMPS_ID]);
188
			array_push ($ligne_inscrit, '<a href="'.$GLOBALS['ins_url']->getURL().
189
					'" onclick="javascript:return confirm(\''.INS_SUPPRIMER.' ?\');">'.INS_SUPPRIMER.'</a>');
190
			$GLOBALS['ins_url']->removeQueryString(ANN_VARIABLE_ACTION);
191
			$GLOBALS['ins_url']->removeQueryString(INS_VARIABLE_ID_INSCRIT);
679 alexandre_ 192
			$table->addRow($ligne_inscrit) ;
193
		}
194
	}
195
	$ret .= $table->toHTML();
196
	$links = $pager->getLinks();
197
	$ret .= $links['all'] ;
198
 
199
    $ret .= '<div><a href="'.$GLOBALS['ins_url']->getURL().'&amp;action='.ANN_MAIL_TOUS
200
    			.'">'.AM_L_MAIL_SELECTION."</a></div>\n" ;
201
 
448 ddelon 202
    return $ret;
203
}
204
 
205
 
206
function mkquery()
207
{
208
 
1432 alexandre_ 209
	// Requete sur l'annuaire pour extraire le nom, prenom, ville, nom du departement (jointure),
210
	// l'etat de la cotisation (jointure)
448 ddelon 211
 
212
	// le tableau suivant contient tous les champs de la table annuaire_tela sur lesquels on peut effectuer une recherche
1292 neiluj 213
	$fields_annu = array("nom" => INS_CHAMPS_NOM, "prenom" => INS_CHAMPS_PRENOM , "mail" => INS_CHAMPS_MAIL , "ville" => INS_CHAMPS_VILLE,
214
			"dept" => INS_CHAMPS_DEPARTEMENT, "pays" => INS_CHAMPS_PAYS ) ;
448 ddelon 215
 
1292 neiluj 216
    $mes_vars = array ("recherche", "nom", "ville", "mail" ,"dept", "prenom", "cotisant", "pays", "sort", "T_REPONSE", "lettre","statut") ;
217
 
218
	$queries = "select ".INS_ANNUAIRE.".*" ;
679 alexandre_ 219
    $queries .= ", ".INS_TABLE_PAYS.'.'.INS_CHAMPS_LABEL_PAYS ;
1292 neiluj 220
	$queries .= " from ".INS_ANNUAIRE ;
679 alexandre_ 221
    $queries .= ",".INS_TABLE_PAYS ;
448 ddelon 222
 
223
	// Construction en fonction des champs saisies
224
 
225
	// juste le champs "rechercher", on regarde partout
679 alexandre_ 226
 
1292 neiluj 227
	$where = ' where ' ;
679 alexandre_ 228
    if (isset ($_REQUEST['recherche']) && $_REQUEST['recherche'] != "") {
229
        $where .= '('.INS_CHAMPS_NOM.' like "%'.$_REQUEST['recherche'].'%"' ; // le premier
230
        foreach($fields_annu as $key=>$value) {
231
			if ($key == "nom" || $key == 'dept') continue ;
232
            $where .= ($key == "pays" ?
233
                $_REQUEST['pays'] == "tous" ? ")" :
234
                ") and $value = '".$_REQUEST['pays']."'" : ' or '.$value.' like "%'.$_REQUEST['recherche'].'%"') ;	// les autres
235
        }
236
        if (isset ($_REQUEST['dept']) && $_REQUEST['dept'] != 'tous') {
237
        	$where .= 'and '.INS_CHAMPS_DEPARTEMENT.'="'.$_REQUEST['dept'].'"' ;
238
        }
239
	} else {
448 ddelon 240
 
1432 alexandre_ 241
		// si un ou plusieurs autres champs ont ete indique, on les rajoute ici
448 ddelon 242
 
679 alexandre_ 243
		$or_flag = false ;
244
		foreach($fields_annu as $key=>$valeur) {
245
            if ($key != "") {
246
                if ($key == "pays") {
247
                    if (!isset($_REQUEST[$key]) || $_REQUEST[$key] == "tous") {
1292 neiluj 248
                    	$where .= " and ".INS_CHAMPS_PAYS." like '%'";
448 ddelon 249
                    } else {
1292 neiluj 250
                    	$where .= " and $valeur like \"%".$_REQUEST[$key]."%\"" ;
679 alexandre_ 251
                    }
252
                } else {
253
                    if ($key == "dept") {
254
                        if (isset($_REQUEST[$key]) && $_REQUEST[$key] != "tous") {
255
                            $where .= " and ".INS_CHAMPS_DEPARTEMENT."=".$_REQUEST[$key] ;
256
                            if ($fields_annu["pays"] != "fr") $where .= " and ".INS_CHAMPS_PAYS."=\"fr\"" ;
257
                        }
258
 
259
                    } else {
260
                        if (isset ($_REQUEST[$key]) && $or_flag) {
1292 neiluj 261
                        	$where .= "$valeur like \"%".$_REQUEST[$key]."%\"" ;
448 ddelon 262
                        } else {
1292 neiluj 263
                        	$where .= "$valeur like \"%%\"" ;
264
                        }
265
                        if ($key != "ville") $where .= " and " ;
448 ddelon 266
                    }
267
                }
679 alexandre_ 268
                $or_flag = true ;
269
            }
270
		}
1432 alexandre_ 271
		// ici le cas ou rien n'a ete saisie du tout, on affiche tout
679 alexandre_ 272
		if (!$or_flag) {
273
				$where .= INS_CHAMPS_NOM." like '%')" ;
274
		}
448 ddelon 275
	}
679 alexandre_ 276
 
277
    if (isset($_REQUEST['lettre'])) {
278
    	if ($_REQUEST['lettre'] == 'tous') $_REQUEST['lettre'] = '';
1292 neiluj 279
    	$where = ' where '.INS_CHAMPS_NOM.' like "'.$_REQUEST['lettre'].'%"' ;
448 ddelon 280
    }
679 alexandre_ 281
    $where .= " and ".INS_ANNUAIRE.".".INS_CHAMPS_PAYS."=".INS_TABLE_PAYS.".".INS_CHAMPS_ID_PAYS."" ;
282
 
283
    if (isset($nom) && $nom != "") $where .= " and ".INS_CHAMPS_NOM." like \"%$nom%\"" ;
284
    if (isset($_REQUEST['prenom']) && $_REQUEST['prenom'] != "")
285
    				$where .= " and ".INS_CHAMPS_PRENOM.' like "%'.$_REQUEST['prenom'].'%"' ;
286
    if (isset($ville) && $ville != "") $where .= " and ".INS_CHAMPS_VILLE." like \"%$ville%\"" ;
287
    if (isset($mail) && $mail != "") $where .= " and ".INS_CHAMPS_MAIL." like \"%$mail%\"" ;
288
    $where .= ' and  gip_id_i18n like "%'.$GLOBALS['lang'].'%"' ;
289
 
290
	if (isset ($_REQUEST['lettre']) && $_REQUEST['lettre'] == "tous") $_REQUEST['lettre'] = "" ;
291
    if (!isset ($_REQUEST['lettre'])) $_REQUEST['lettre'] = '' ;
292
 
293
 
1292 neiluj 294
    $queries .= $where ;
679 alexandre_ 295
 
296
  if (isset($_REQUEST['sort']) && $_REQUEST['sort'] != "") $queries .= ' order by '.$_REQUEST['sort'] ;
448 ddelon 297
  return $queries;
298
}
299
 
300
 
679 alexandre_ 301
function ajouterInscrit() {
302
	$res = '';
303
	$GLOBALS['ins_url']->addQueryString ('ajouter', '1');
304
	$GLOBALS['ins_url']->addQueryString ('ajouter_v', '1');
305
	$formulaire = new HTML_formulaireInscription('inscription',  '',
306
						str_replace ('&amp;', '&', $GLOBALS['ins_url']->getURL()), '', '') ;
307
	$formulaire->construitFormulaire(str_replace ('&amp;', '&', $GLOBALS['ins_url']->getURL())) ;
1467 alexandre_ 308
	$msg = '';
679 alexandre_ 309
	if (isset($_REQUEST['ajouter_v'])) {
310
		if ($formulaire->validate()) {
1298 neiluj 311
			$id_utilisateur = insertion($formulaire->getSubmitValues()) ;
312
 
313
			// Appel des actions desinscriptions des applications clientes
1467 alexandre_ 314
	        $d = dir(GEN_CHEMIN_CLIENT);
315
			while (false !== ($repertoire = $d->read())) {
316
				if (file_exists(GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.inscription.inc.php'))
317
				include_once GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.inscription.inc.php' ;
318
				$msg .= GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.inscription.inc.php<br />';
319
			}
320
			$d->close();
679 alexandre_ 321
			if (INS_CHAMPS_LETTRE != '' && isset ($valeurs['lettre'])) {
322
				inscription_lettre(INS_MAIL_INSCRIPTION_LISTE) ;
323
			}
1467 alexandre_ 324
			if (!isset ($msg)) $msg = '';
325
		    return $msg.mkengine();
679 alexandre_ 326
        }
448 ddelon 327
	}
679 alexandre_ 328
	return $formulaire->toHTML();
448 ddelon 329
}
1292 neiluj 330
?>