Remove a double utf8 encoding
[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();
132 if ($subaction) {
133 return;
134 }
cab08090 135 if (!S::logged() && $nb_tot > $globals->search->public_max) {
a7de4ef7 136 new ThrowError('Votre recherche a généré trop de résultats pour un affichage public.');
09824164 137 } elseif ($nb_tot > $globals->search->private_max) {
a7de4ef7 138 new ThrowError('Recherche trop générale');
09824164 139 } elseif (empty($nb_tot)) {
a7de4ef7 140 new ThrowError('il n\'existe personne correspondant à ces critères dans la base !');
09824164 141 }
142 } else {
143 $page->assign('formulaire',1);
e654517d 144 $page->addJsLink('ajax.js');
09824164 145 }
146
90ccb062 147 require_once dirname(__FILE__) . '/search/search.inc.php';
eaf30d86 148 $page->changeTpl('search/index.tpl');
8c4a0c30 149 $page->assign('xorg_title','Polytechnique.org - Annuaire');
09824164 150 }
151
90ccb062 152 function handler_advanced(&$page, $action = null, $subaction = null)
09824164 153 {
154 global $globals;
bc67c37c 155 require_once 'geoloc.inc.php';
156 require_once dirname(__FILE__) . '/search/search.inc.php';
157 $page->assign('advanced',1);
158
90ccb062 159 if (!Env::has('rechercher') && $action != 'geoloc') {
09824164 160 $this->form_prepare();
161 } else {
8c4a0c30 162 require_once 'userset.inc.php';
163 $view = new SearchSet(false, $action == 'geoloc' && substr($subaction, -3) == 'swf');
164 $view->addMod('minifiche', 'Minifiches', true);
35fa92e8 165 $view->addMod('trombi', 'Trombinoscope', false, array('with_promo' => true));
a2aa8436 166 $view->addMod('geoloc', 'Planisphère', false, array('with_annu' => 'search/adv'));
86b5c8f0 167 $view->apply('search/adv', $page, $action, $subaction);
eaf30d86 168
8c4a0c30 169 if ($subaction) {
170 return;
09824164 171 }
8c4a0c30 172 $nb_tot = $view->count();
09824164 173 if ($nb_tot > $globals->search->private_max) {
174 $this->form_prepare();
a7de4ef7 175 new ThrowError('Recherche trop générale');
09824164 176 }
09824164 177 }
178
90ccb062 179 $page->changeTpl('search/index.tpl', $action == 'mini' ? SIMPLE : SKINNED);
3c640222 180 $page->addJsLink('ajax.js');
8c4a0c30 181 $page->assign('public_directory',0);
09824164 182 }
3c640222 183
838cc16a 184 function handler_autocomplete(&$page, $type = null)
185 {
186 // Autocompletion : according to type required, return
187 // a list of results matching with the number of matches.
188 // The output format is :
189 // result1|nb1
190 // result2|nb2
191 // ...
192 header('Content-Type: text/plain; charset="UTF-8"');
ff3eb9b7 193 $q = preg_replace(array('/\*+$/', // always look for $q*
194 '/([\^\$\[\]])/', // escape special regexp char
195 '/\*/'), // replace joker by regexp joker
196 array('',
197 '\\\\\1',
198 '.*'),
199 $_REQUEST['q']);
838cc16a 200 if (!$q) exit();
c15afc4e 201
eaf30d86 202 // try to look in cached results
ff3eb9b7 203 $cache = XDB::query('SELECT `result`
204 FROM `search_autocomplete`
205 WHERE `name` = {?} AND
206 `query` = {?} AND
207 `generated` > NOW() - INTERVAL 1 DAY',
208 $type, $q);
c15afc4e 209 if ($res = $cache->fetchOneCell()) {
ff3eb9b7 210 echo $res;
211 die();
c15afc4e 212 }
eaf30d86 213
2ab7a09f 214 // default search
af2ff9ef 215 $q = preg_quote($q);
f6818108 216 $unique = '`user_id`';
217 $db = '`auth_user_md5`';
2ab7a09f 218 $realid = false;
f3da6d81 219 $beginwith = true;
f6818108 220 $field2 = false;
221 $qsearch = $q;
eaf30d86 222
838cc16a 223 switch ($type) {
ff3eb9b7 224 case 'binetTxt':
225 $db = '`binets_def` INNER JOIN
226 `binets_ins` ON(`binets_def`.`id` = `binets_ins`.`binet_id`)';
227 $field='`binets_def`.`text`';
228 if (strlen($q) > 2)
229 $beginwith = false;
230 $realid = '`binets_def`.`id`';
231 break;
232 case 'city':
233 $db = '`geoloc_city` INNER JOIN
234 `adresses` ON(`geoloc_city`.`id` = `adresses`.`cityid`)';
235 $unique='`uid`';
236 $field='`geoloc_city`.`name`';
237 break;
238 case 'countryTxt':
239 $db = '`geoloc_pays` INNER JOIN
240 `adresses` ON(`geoloc_pays`.`a2` = `adresses`.`country`)';
241 $unique='`uid`';
242 $field = '`geoloc_pays`.`pays`';
243 $field2 = '`geoloc_pays`.`country`';
244 $realid='`geoloc_pays`.`a2`';
245 break;
246 case 'entreprise':
247 $db = '`entreprises`';
248 $field = '`entreprise`';
249 $unique='`uid`';
250 break;
07c4f9cc 251 case 'firstname':
ff3eb9b7 252 $field = '`prenom`';
253 $q = '(^|[ \\-])'.$q;
254 $beginwith = false;
255 break;
256 case 'fonctionTxt':
257 $db = '`fonctions_def` INNER JOIN
258 `entreprises` ON(`entreprises`.`fonction` = `fonctions_def`.`id`)';
259 $field = '`fonction_fr`';
260 $unique = '`uid`';
261 $realid = '`fonctions_def`.`id`';
262 $qsearch = '(^|[ /\\-])'.$q;
263 $beginwith = false;
264 break;
265 case 'groupexTxt':
266 $db = '`groupesx_def` INNER JOIN
267 `groupesx_ins` ON(`groupesx_def`.`id` = `groupesx_ins`.`gid`)';
268 $field='`groupesx_def`.`text`';
269 if (strlen($q) > 2)
270 $beginwith = false;
271 $realid = '`groupesx_def`.`id`';
272 $unique = '`guid`';
273 break;
274 case 'name':
275 $field = '`nom`';
276 $field2 = '`nom_usage`';
277 $qsearch = '(^|[ \\-])'.$q;
278 $beginwith = false;
279 break;
280 case 'nationaliteTxt':
281 $db = '`geoloc_pays` INNER JOIN
282 `auth_user_md5` ON(`geoloc_pays`.`a2` = `auth_user_md5`.`nationalite`)';
283 $field = 'IF(`geoloc_pays`.`nat`=\'\',
284 `geoloc_pays`.`pays`,
285 `geoloc_pays`.`nat`)';
286 $realid = '`geoloc_pays`.`a2`';
287 break;
288 case 'nickname':
289 $field = '`profile_nick`';
290 $db = '`auth_user_quick`';
291 $qsearch = '(^|[ \\-])'.$q;
292 $beginwith = false;
293 break;
294 case 'poste':
295 $db = '`entreprises`';
296 $field = '`poste`';
297 $unique='`uid`';
298 break;
299 case 'schoolTxt':
300 $db = '`applis_def` INNER JOIN
301 `applis_ins` ON(`applis_def`.`id` = `applis_ins`.`aid`)';
302 $field='`applis_def`.`text`';
303 $unique = '`uid`';
304 $realid = '`applis_def`.`id`';
305 if (strlen($q) > 2)
306 $beginwith = false;
307 break;
308 case 'secteurTxt':
309 $db = '`emploi_secteur` INNER JOIN
310 `entreprises` ON(`entreprises`.`secteur` = `emploi_secteur`.`id`)';
311 $field = '`emploi_secteur`.`label`';
312 $realid = '`emploi_secteur`.`id`';
313 $unique = '`uid`';
314 $beginwith = false;
315 break;
316 case 'sectionTxt':
eaf30d86 317 $db = '`sections` INNER JOIN
ff3eb9b7 318 `auth_user_md5` ON(`auth_user_md5`.`section` = `sections`.`id`)';
319 $field = '`sections`.`text`';
320 $realid = '`sections`.`id`';
321 $beginwith = false;
322 break;
323 default: exit();
838cc16a 324 }
325
ff3eb9b7 326 $field_select = $field;
327 if ($field2) {
328 $field_select = 'IF('.$field.' REGEXP {?}, '.$field.', '.$field2.')';
329 }
330
331 if ($beginwith) {
332 $qsearch = '^'.$qsearch;
333 }
334 $list = XDB::iterator('SELECT '.$field_select.' AS field,
335 COUNT(DISTINCT '.$unique.') AS nb
336 '.($realid?(', '.$realid.' AS id'):'').'
337 FROM '.$db.'
338 WHERE '.$field.' REGEXP {?}'.
339 ($field2?(' OR '.$field2.' REGEXP {?}'):'').'
340 GROUP BY '.$field_select.'
341 ORDER BY nb DESC
342 LIMIT 11',
343 $qsearch, $qsearch, $qsearch, $qsearch);
838cc16a 344 $nbResults = 0;
c15afc4e 345 $res = "";
2ab7a09f 346 while ($result = $list->next()) {
838cc16a 347 $nbResults++;
348 if ($nbResults == 11) {
c15afc4e 349 $res .= '...|1'."\n";
838cc16a 350 } else {
f6818108 351 $res .= $result['field'].'|';
ff3eb9b7 352 $res .= $result['nb'];
353 if (isset($result['id'])) {
354 $res .= '|'.$result['id'];
355 }
356 $res .= "\n";
838cc16a 357 }
358 }
ff3eb9b7 359 XDB::query('REPLACE INTO `search_autocomplete`
360 VALUES ({?}, {?}, {?}, NOW())',
361 $type, $q, $res);
c15afc4e 362 echo $res;
838cc16a 363 exit();
364 }
eaf30d86 365
2ab7a09f 366 function handler_list(&$page, $type = null, $idVal = null)
367 {
ff3eb9b7 368 // Give the list of all values possible of type and builds a select input for it
369 $field = '`text`';
370 $id = '`id`';
371 $where = '';
372
373 switch ($type) {
374 case 'binet':
375 $db = '`binets_def`';
376 break;
377 case 'country':
378 $db = '`geoloc_pays`';
379 $field = '`pays`';
380 $id = '`a2`';
381 $page->assign('onchange', 'changeCountry(this.value)');
382 break;
383 case 'fonction':
384 $db = '`fonctions_def`';
385 $field = '`fonction_fr`';
386 break;
387 case 'diploma':
f6818108 388 header('Content-Type: text/xml; charset="UTF-8"');
ff3eb9b7 389 $this->get_diplomas();
390 $page->changeTpl('search/adv.grade.form.tpl', NO_SKIN);
391 return;
392 case 'groupex':
393 $db = '`groupesx_def`';
394 break;
395 case 'nationalite':
eaf30d86 396 $db = '`geoloc_pays` INNER JOIN
a85224e3 397 `auth_user_md5` ON (`geoloc_pays`.`a2` = `auth_user_md5`.`nationalite`)';
ff3eb9b7 398 $field = 'IF(`nat`=\'\', `pays`, `nat`)';
399 $id = '`a2`';
400 break;
401 case 'region':
402 $db = '`geoloc_region`';
403 $field = '`name`';
eaf30d86 404 $id = '`region`';
f6818108 405 if (isset($_REQUEST['country'])) {
406 $where .= ' WHERE `a2` = "'.$_REQUEST['country'].'"';
407 }
ff3eb9b7 408 break;
409 case 'school':
410 $db = '`applis_def`';
411 $page->assign('onchange', 'changeSchool(this.value)');
412 break;
413 case 'section':
414 $db = '`sections`';
415 break;
416 case 'secteur':
417 $db = '`emploi_secteur`';
418 $field = '`label`';
419 break;
420 default: exit();
421 }
422 if (isset($idVal)) {
423 header('Content-Type: text/plain; charset="UTF-8"');
424 $result = XDB::query('SELECT '.$field.' AS field FROM '.$db.' WHERE '.$id.' = {?} LIMIT 1',$idVal);
425 echo $result->fetchOneCell();
426 exit();
427 }
f6818108 428 header('Content-Type: text/xml; charset="UTF-8"');
05cb05c0 429 $page->changeTpl('include/field.select.tpl', NO_SKIN);
f6818108 430 $page->assign('name', $type);
ff3eb9b7 431 $page->assign('list', XDB::iterator('SELECT '.$field.' AS field,
432 '.$id.' AS id
433 FROM '.$db.$where.'
a85224e3 434 GROUP BY '.$field.'
ff3eb9b7 435 ORDER BY '.$field));
2ab7a09f 436 }
09824164 437}
438
a7de4ef7 439// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
09824164 440?>