Closes #702: When a payment associated with an event is validated, the
[platal.git] / modules / search.php
CommitLineData
09824164 1<?php
2/***************************************************************************
5ddeb07c 3 * Copyright (C) 2003-2007 Polytechnique.org *
09824164 4 * http://opensource.polytechnique.org/ *
5 * *
6 * This program is free software; you can redistribute it and/or modify *
7 * it under the terms of the GNU General Public License as published by *
8 * the Free Software Foundation; either version 2 of the License, or *
9 * (at your option) any later version. *
10 * *
11 * This program is distributed in the hope that it will be useful, *
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
14 * GNU General Public License for more details. *
15 * *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
18 * Foundation, Inc., *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
21
22class SearchModule extends PLModule
23{
24 function handlers()
25 {
26 return array(
27 'search' => $this->make_hook('quick', AUTH_PUBLIC),
28 'search/adv' => $this->make_hook('advanced', AUTH_COOKIE),
ba2afb88 29 'advanced_search.php' => $this->make_hook('redir_advanced', AUTH_PUBLIC),
2ab7a09f 30 'search/autocomplete' => $this->make_hook('autocomplete', AUTH_COOKIE, 'user', NO_AUTH),
31 'search/list' => $this->make_hook('list', AUTH_COOKIE, 'user', NO_AUTH),
09824164 32 );
33 }
34
ba2afb88 35 function handler_redir_advanced(&$page, $mode = null)
36 {
37 pl_redirect('search/adv');
38 exit;
39 }
40
8d8f7607 41 function on_subscribe($forlife, $uid, $promo, $pass)
42 {
43 require_once 'user.func.inc.php';
44 user_reindex($uid);
45 }
46
09824164 47
48 function form_prepare()
49 {
d25e0f0b 50 global $page;
51
09824164 52 $page->assign('formulaire',1);
3c640222 53 }
54
55 function get_diplomas($school = null)
56 {
57 if (is_null($school) && Env::has('school')) {
58 $school = Env::i('school');
59 }
09824164 60
3c640222 61 if (!is_null($school)) {
62 $sql = 'SELECT type FROM applis_def WHERE id=' . $school;
09824164 63 } else {
64 $sql = 'DESCRIBE applis_def type';
65 }
66
08cce2ff 67 $res = XDB::query($sql);
09824164 68 $row = $res->fetchOneRow();
3c640222 69 if (!is_null($school)) {
09824164 70 $types = $row[0];
71 } else {
72 $types = explode('(',$row[1]);
73 $types = str_replace("'","",substr($types[1],0,-1));
74 }
3c640222 75 global $page;
09824164 76 $page->assign('choix_diplomas', explode(',',$types));
77 }
78
8c4a0c30 79 function handler_quick(&$page, $action = null, $subaction = null)
09824164 80 {
81 global $globals;
82
97eff0ff 83 $res = XDB::query("SELECT MIN(`diminutif`), MAX(`diminutif`)
84 FROM `groupex`.`asso`
85 WHERE `cat` = 'Promotions'");
86 list($min, $max) = $res->fetchOneRow();
87 $page->assign('promo_min', $min);
88 $page->assign('promo_max', $max);
89
8c4a0c30 90 if (Env::has('quick') || $action == 'geoloc') {
383bcdec 91 $quick = trim(Env::v('quick'));
92 $list = 'profile|prf|fiche|fic|referent|ref|mentor';
93 if (S::has_perms()) {
94 $list .= '|admin|adm|ax';
95 }
8fee4fbd 96 if (preg_match('/^(' . $list . '):([-a-z]+(\.[-a-z]+(\.\d{2,4})?)?)$/', $quick, $matches)) {
383bcdec 97 $forlife = $matches[2];
98 switch($matches[1]) {
99 case 'admin': case 'adm':
100 $base = 'admin/user/';
101 break;
102 case 'ax':
103 $base = 'profile/ax/';
104 break;
105 case 'profile': case 'prf': case 'fiche': case 'fic':
106 $base = 'profile/';
107 break;
108 case 'referent': case 'ref': case 'mentor':
109 $base = 'referent/';
110 break;
111 }
112 pl_redirect($base . $forlife);
8fee4fbd 113 } elseif (strpos($quick, 'doc:') === 0) {
114 $url = 'Docs/Recherche?';
115 $url .= 'action=search&q=' . urlencode(substr($quick, 4));
116 $url .= '&group=' . urlencode('-Equipe,-Main,-PmWiki,-Site');
117 pl_redirect($url);
383bcdec 118 }
8fee4fbd 119
09824164 120 $page->assign('formulaire', 0);
121
8c4a0c30 122 require_once 'userset.inc.php';
123 $view = new SearchSet(true, $action == 'geoloc' && substr($subaction, -3) == 'swf');
35fa92e8 124 $view->addMod('minifiche', 'Minifiches', true, array('with_score' => true));
125 if (S::logged() && !Env::i('nonins')) {
126 $view->addMod('trombi', 'Trombinoscope', false, array('with_promo' => true, 'with_score' => true));
a2aa8436 127 $view->addMod('geoloc', 'Planisphère', false, array('with_annu' => 'search/adv'));
35fa92e8 128 }
8c4a0c30 129 $view->apply('search', $page, $action, $subaction);
09824164 130
8c4a0c30 131 $nb_tot = $view->count();
e35882be 132 $page->assign('search_results_nb', $nb_tot);
8c4a0c30 133 if ($subaction) {
134 return;
135 }
cab08090 136 if (!S::logged() && $nb_tot > $globals->search->public_max) {
a7de4ef7 137 new ThrowError('Votre recherche a généré trop de résultats pour un affichage public.');
09824164 138 } elseif ($nb_tot > $globals->search->private_max) {
a7de4ef7 139 new ThrowError('Recherche trop générale');
09824164 140 } elseif (empty($nb_tot)) {
a7de4ef7 141 new ThrowError('il n\'existe personne correspondant à ces critères dans la base !');
09824164 142 }
143 } else {
144 $page->assign('formulaire',1);
e654517d 145 $page->addJsLink('ajax.js');
09824164 146 }
147
90ccb062 148 require_once dirname(__FILE__) . '/search/search.inc.php';
eaf30d86 149 $page->changeTpl('search/index.tpl');
8c4a0c30 150 $page->assign('xorg_title','Polytechnique.org - Annuaire');
09824164 151 }
152
90ccb062 153 function handler_advanced(&$page, $action = null, $subaction = null)
09824164 154 {
155 global $globals;
bc67c37c 156 require_once 'geoloc.inc.php';
157 require_once dirname(__FILE__) . '/search/search.inc.php';
158 $page->assign('advanced',1);
159
90ccb062 160 if (!Env::has('rechercher') && $action != 'geoloc') {
09824164 161 $this->form_prepare();
162 } else {
137e819f
FB
163 $textFields = array(
164 'country' => array('field' => 'a2', 'table' => 'geoloc_pays', 'text' => 'pays', 'exact' => false),
165 'fonction' => array('field' => 'id', 'table' => 'fonctions_def', 'text' => 'fonction_fr', 'exact' => true),
166 'secteur' => array('field' => 'id', 'table' => 'emploi_secteur', 'text' => 'label', 'exact' => false),
167 'nationalite' => array('field' => 'a2', 'table' => 'geoloc_pays', 'text' => 'nat', 'exact' => 'false'),
168 'binet' => array('field' => 'id', 'table' => 'binets_def', 'text' => 'text', 'exact' => false),
579a8c9a
FB
169 'groupex' => array('field' => 'id', 'table' => 'groupex.asso',
170 'text' => "(a.cat = 'GroupesX' OR a.cat = 'Institutions') AND pub = 'public' AND nom",
171 'exact' => false),
137e819f
FB
172 'section' => array('field' => 'id', 'table' => 'sections', 'text' => 'text', 'exact' => false),
173 'school' => array('field' => 'id', 'table' => 'applis_def', 'text' => 'text', 'exact' => false)
174 );
175 foreach ($textFields as $field=>&$query) {
176 if (!Env::v($field) && Env::v($field . 'Txt')) {
177 $res = XDB::query("SELECT {$query['field']}
178 FROM {$query['table']}
579a8c9a
FB
179 WHERE {$query['text']} " . ($query['exact'] ? " = {?}" :
180 " LIKE CONCAT('%', {?}, '%')"),
137e819f
FB
181 Env::v($field . 'Txt'));
182 $_REQUEST[$field] = $res->fetchOneCell();
183 }
184 }
185
8c4a0c30 186 require_once 'userset.inc.php';
187 $view = new SearchSet(false, $action == 'geoloc' && substr($subaction, -3) == 'swf');
188 $view->addMod('minifiche', 'Minifiches', true);
35fa92e8 189 $view->addMod('trombi', 'Trombinoscope', false, array('with_promo' => true));
a2aa8436 190 $view->addMod('geoloc', 'Planisphère', false, array('with_annu' => 'search/adv'));
86b5c8f0 191 $view->apply('search/adv', $page, $action, $subaction);
eaf30d86 192
8c4a0c30 193 if ($subaction) {
194 return;
09824164 195 }
8c4a0c30 196 $nb_tot = $view->count();
09824164 197 if ($nb_tot > $globals->search->private_max) {
198 $this->form_prepare();
a7de4ef7 199 new ThrowError('Recherche trop générale');
09824164 200 }
09824164 201 }
202
90ccb062 203 $page->changeTpl('search/index.tpl', $action == 'mini' ? SIMPLE : SKINNED);
3c640222 204 $page->addJsLink('ajax.js');
8c4a0c30 205 $page->assign('public_directory',0);
09824164 206 }
3c640222 207
838cc16a 208 function handler_autocomplete(&$page, $type = null)
209 {
210 // Autocompletion : according to type required, return
211 // a list of results matching with the number of matches.
212 // The output format is :
213 // result1|nb1
214 // result2|nb2
215 // ...
216 header('Content-Type: text/plain; charset="UTF-8"');
ff3eb9b7 217 $q = preg_replace(array('/\*+$/', // always look for $q*
218 '/([\^\$\[\]])/', // escape special regexp char
219 '/\*/'), // replace joker by regexp joker
220 array('',
221 '\\\\\1',
222 '.*'),
223 $_REQUEST['q']);
838cc16a 224 if (!$q) exit();
c15afc4e 225
eaf30d86 226 // try to look in cached results
ff3eb9b7 227 $cache = XDB::query('SELECT `result`
228 FROM `search_autocomplete`
229 WHERE `name` = {?} AND
230 `query` = {?} AND
231 `generated` > NOW() - INTERVAL 1 DAY',
232 $type, $q);
c15afc4e 233 if ($res = $cache->fetchOneCell()) {
ff3eb9b7 234 echo $res;
235 die();
c15afc4e 236 }
eaf30d86 237
2ab7a09f 238 // default search
af2ff9ef 239 $q = preg_quote($q);
f6818108 240 $unique = '`user_id`';
241 $db = '`auth_user_md5`';
2ab7a09f 242 $realid = false;
f3da6d81 243 $beginwith = true;
f6818108 244 $field2 = false;
245 $qsearch = $q;
eaf30d86 246
838cc16a 247 switch ($type) {
ff3eb9b7 248 case 'binetTxt':
249 $db = '`binets_def` INNER JOIN
250 `binets_ins` ON(`binets_def`.`id` = `binets_ins`.`binet_id`)';
251 $field='`binets_def`.`text`';
252 if (strlen($q) > 2)
253 $beginwith = false;
254 $realid = '`binets_def`.`id`';
255 break;
256 case 'city':
257 $db = '`geoloc_city` INNER JOIN
258 `adresses` ON(`geoloc_city`.`id` = `adresses`.`cityid`)';
259 $unique='`uid`';
260 $field='`geoloc_city`.`name`';
261 break;
262 case 'countryTxt':
263 $db = '`geoloc_pays` INNER JOIN
264 `adresses` ON(`geoloc_pays`.`a2` = `adresses`.`country`)';
265 $unique='`uid`';
266 $field = '`geoloc_pays`.`pays`';
267 $field2 = '`geoloc_pays`.`country`';
268 $realid='`geoloc_pays`.`a2`';
269 break;
270 case 'entreprise':
271 $db = '`entreprises`';
272 $field = '`entreprise`';
273 $unique='`uid`';
274 break;
07c4f9cc 275 case 'firstname':
ff3eb9b7 276 $field = '`prenom`';
277 $q = '(^|[ \\-])'.$q;
278 $beginwith = false;
279 break;
280 case 'fonctionTxt':
281 $db = '`fonctions_def` INNER JOIN
282 `entreprises` ON(`entreprises`.`fonction` = `fonctions_def`.`id`)';
283 $field = '`fonction_fr`';
284 $unique = '`uid`';
285 $realid = '`fonctions_def`.`id`';
286 $qsearch = '(^|[ /\\-])'.$q;
287 $beginwith = false;
288 break;
289 case 'groupexTxt':
579a8c9a
FB
290 $db = "groupex.asso AS a INNER JOIN
291 groupex.membres AS m ON(a.id = m.asso_id
292 AND (a.cat = 'GroupesX' OR a.cat = 'Institutions')
293 AND a.pub = 'public')";
294 $field='a.nom';
295 $field2 = 'a.diminutif';
ff3eb9b7 296 if (strlen($q) > 2)
297 $beginwith = false;
579a8c9a
FB
298 $realid = 'a.id';
299 $unique = 'm.uid';
ff3eb9b7 300 break;
301 case 'name':
302 $field = '`nom`';
303 $field2 = '`nom_usage`';
304 $qsearch = '(^|[ \\-])'.$q;
305 $beginwith = false;
306 break;
307 case 'nationaliteTxt':
308 $db = '`geoloc_pays` INNER JOIN
309 `auth_user_md5` ON(`geoloc_pays`.`a2` = `auth_user_md5`.`nationalite`)';
310 $field = 'IF(`geoloc_pays`.`nat`=\'\',
311 `geoloc_pays`.`pays`,
312 `geoloc_pays`.`nat`)';
313 $realid = '`geoloc_pays`.`a2`';
314 break;
315 case 'nickname':
316 $field = '`profile_nick`';
317 $db = '`auth_user_quick`';
318 $qsearch = '(^|[ \\-])'.$q;
319 $beginwith = false;
320 break;
321 case 'poste':
322 $db = '`entreprises`';
323 $field = '`poste`';
324 $unique='`uid`';
325 break;
326 case 'schoolTxt':
327 $db = '`applis_def` INNER JOIN
328 `applis_ins` ON(`applis_def`.`id` = `applis_ins`.`aid`)';
329 $field='`applis_def`.`text`';
330 $unique = '`uid`';
331 $realid = '`applis_def`.`id`';
332 if (strlen($q) > 2)
333 $beginwith = false;
334 break;
335 case 'secteurTxt':
336 $db = '`emploi_secteur` INNER JOIN
337 `entreprises` ON(`entreprises`.`secteur` = `emploi_secteur`.`id`)';
338 $field = '`emploi_secteur`.`label`';
339 $realid = '`emploi_secteur`.`id`';
340 $unique = '`uid`';
341 $beginwith = false;
342 break;
343 case 'sectionTxt':
eaf30d86 344 $db = '`sections` INNER JOIN
ff3eb9b7 345 `auth_user_md5` ON(`auth_user_md5`.`section` = `sections`.`id`)';
346 $field = '`sections`.`text`';
347 $realid = '`sections`.`id`';
348 $beginwith = false;
349 break;
350 default: exit();
838cc16a 351 }
352
ff3eb9b7 353 $field_select = $field;
354 if ($field2) {
355 $field_select = 'IF('.$field.' REGEXP {?}, '.$field.', '.$field2.')';
356 }
357
358 if ($beginwith) {
359 $qsearch = '^'.$qsearch;
360 }
361 $list = XDB::iterator('SELECT '.$field_select.' AS field,
362 COUNT(DISTINCT '.$unique.') AS nb
363 '.($realid?(', '.$realid.' AS id'):'').'
364 FROM '.$db.'
365 WHERE '.$field.' REGEXP {?}'.
366 ($field2?(' OR '.$field2.' REGEXP {?}'):'').'
367 GROUP BY '.$field_select.'
368 ORDER BY nb DESC
369 LIMIT 11',
370 $qsearch, $qsearch, $qsearch, $qsearch);
838cc16a 371 $nbResults = 0;
c15afc4e 372 $res = "";
2ab7a09f 373 while ($result = $list->next()) {
838cc16a 374 $nbResults++;
375 if ($nbResults == 11) {
c15afc4e 376 $res .= '...|1'."\n";
838cc16a 377 } else {
f6818108 378 $res .= $result['field'].'|';
ff3eb9b7 379 $res .= $result['nb'];
380 if (isset($result['id'])) {
381 $res .= '|'.$result['id'];
382 }
383 $res .= "\n";
838cc16a 384 }
385 }
ff3eb9b7 386 XDB::query('REPLACE INTO `search_autocomplete`
387 VALUES ({?}, {?}, {?}, NOW())',
388 $type, $q, $res);
c15afc4e 389 echo $res;
838cc16a 390 exit();
391 }
eaf30d86 392
2ab7a09f 393 function handler_list(&$page, $type = null, $idVal = null)
394 {
ff3eb9b7 395 // Give the list of all values possible of type and builds a select input for it
396 $field = '`text`';
397 $id = '`id`';
398 $where = '';
399
400 switch ($type) {
401 case 'binet':
402 $db = '`binets_def`';
403 break;
404 case 'country':
405 $db = '`geoloc_pays`';
406 $field = '`pays`';
407 $id = '`a2`';
408 $page->assign('onchange', 'changeCountry(this.value)');
409 break;
410 case 'fonction':
411 $db = '`fonctions_def`';
412 $field = '`fonction_fr`';
413 break;
414 case 'diploma':
f6818108 415 header('Content-Type: text/xml; charset="UTF-8"');
ff3eb9b7 416 $this->get_diplomas();
417 $page->changeTpl('search/adv.grade.form.tpl', NO_SKIN);
418 return;
419 case 'groupex':
579a8c9a
FB
420 $db = 'groupex.asso';
421 $where = " WHERE (cat = 'GroupesX' OR cat = 'Institutions') AND pub = 'public'";
422 $field = 'nom';
ff3eb9b7 423 break;
424 case 'nationalite':
eaf30d86 425 $db = '`geoloc_pays` INNER JOIN
a85224e3 426 `auth_user_md5` ON (`geoloc_pays`.`a2` = `auth_user_md5`.`nationalite`)';
ff3eb9b7 427 $field = 'IF(`nat`=\'\', `pays`, `nat`)';
428 $id = '`a2`';
429 break;
430 case 'region':
431 $db = '`geoloc_region`';
432 $field = '`name`';
eaf30d86 433 $id = '`region`';
f6818108 434 if (isset($_REQUEST['country'])) {
435 $where .= ' WHERE `a2` = "'.$_REQUEST['country'].'"';
436 }
ff3eb9b7 437 break;
438 case 'school':
439 $db = '`applis_def`';
440 $page->assign('onchange', 'changeSchool(this.value)');
441 break;
442 case 'section':
443 $db = '`sections`';
444 break;
445 case 'secteur':
446 $db = '`emploi_secteur`';
447 $field = '`label`';
448 break;
449 default: exit();
450 }
451 if (isset($idVal)) {
452 header('Content-Type: text/plain; charset="UTF-8"');
453 $result = XDB::query('SELECT '.$field.' AS field FROM '.$db.' WHERE '.$id.' = {?} LIMIT 1',$idVal);
454 echo $result->fetchOneCell();
455 exit();
456 }
f6818108 457 header('Content-Type: text/xml; charset="UTF-8"');
05cb05c0 458 $page->changeTpl('include/field.select.tpl', NO_SKIN);
f6818108 459 $page->assign('name', $type);
ff3eb9b7 460 $page->assign('list', XDB::iterator('SELECT '.$field.' AS field,
461 '.$id.' AS id
462 FROM '.$db.$where.'
a85224e3 463 GROUP BY '.$field.'
ff3eb9b7 464 ORDER BY '.$field));
2ab7a09f 465 }
09824164 466}
467
a7de4ef7 468// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
09824164 469?>