Less confusing default text for payment email
[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 }
11647113 96 if (preg_match('/^(' . $list . '):([-a-z]+(\.[-a-z]+(\.\d{2,4})?)?)$/', replace_accent($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 172 'section' => array('field' => 'id', 'table' => 'sections', 'text' => 'text', 'exact' => false),
f08062c3
FB
173 'school' => array('field' => 'id', 'table' => 'applis_def', 'text' => 'text', 'exact' => false),
174 'city' => array('table' => 'geoloc_city', 'text' => 'name', 'exact' => false)
137e819f
FB
175 );
176 foreach ($textFields as $field=>&$query) {
177 if (!Env::v($field) && Env::v($field . 'Txt')) {
178 $res = XDB::query("SELECT {$query['field']}
179 FROM {$query['table']}
579a8c9a
FB
180 WHERE {$query['text']} " . ($query['exact'] ? " = {?}" :
181 " LIKE CONCAT('%', {?}, '%')"),
137e819f
FB
182 Env::v($field . 'Txt'));
183 $_REQUEST[$field] = $res->fetchOneCell();
184 }
185 }
186
8c4a0c30 187 require_once 'userset.inc.php';
188 $view = new SearchSet(false, $action == 'geoloc' && substr($subaction, -3) == 'swf');
189 $view->addMod('minifiche', 'Minifiches', true);
35fa92e8 190 $view->addMod('trombi', 'Trombinoscope', false, array('with_promo' => true));
a2aa8436 191 $view->addMod('geoloc', 'Planisphère', false, array('with_annu' => 'search/adv'));
86b5c8f0 192 $view->apply('search/adv', $page, $action, $subaction);
eaf30d86 193
8c4a0c30 194 if ($subaction) {
195 return;
09824164 196 }
8c4a0c30 197 $nb_tot = $view->count();
09824164 198 if ($nb_tot > $globals->search->private_max) {
199 $this->form_prepare();
a7de4ef7 200 new ThrowError('Recherche trop générale');
09824164 201 }
09824164 202 }
203
90ccb062 204 $page->changeTpl('search/index.tpl', $action == 'mini' ? SIMPLE : SKINNED);
3c640222 205 $page->addJsLink('ajax.js');
8c4a0c30 206 $page->assign('public_directory',0);
09824164 207 }
3c640222 208
838cc16a 209 function handler_autocomplete(&$page, $type = null)
210 {
211 // Autocompletion : according to type required, return
212 // a list of results matching with the number of matches.
213 // The output format is :
214 // result1|nb1
215 // result2|nb2
216 // ...
217 header('Content-Type: text/plain; charset="UTF-8"');
ff3eb9b7 218 $q = preg_replace(array('/\*+$/', // always look for $q*
219 '/([\^\$\[\]])/', // escape special regexp char
220 '/\*/'), // replace joker by regexp joker
221 array('',
222 '\\\\\1',
223 '.*'),
224 $_REQUEST['q']);
838cc16a 225 if (!$q) exit();
c15afc4e 226
eaf30d86 227 // try to look in cached results
ff3eb9b7 228 $cache = XDB::query('SELECT `result`
229 FROM `search_autocomplete`
230 WHERE `name` = {?} AND
231 `query` = {?} AND
232 `generated` > NOW() - INTERVAL 1 DAY',
233 $type, $q);
c15afc4e 234 if ($res = $cache->fetchOneCell()) {
ff3eb9b7 235 echo $res;
236 die();
c15afc4e 237 }
eaf30d86 238
2ab7a09f 239 // default search
af2ff9ef 240 $q = preg_quote($q);
f6818108 241 $unique = '`user_id`';
242 $db = '`auth_user_md5`';
2ab7a09f 243 $realid = false;
f3da6d81 244 $beginwith = true;
f6818108 245 $field2 = false;
246 $qsearch = $q;
eaf30d86 247
838cc16a 248 switch ($type) {
ff3eb9b7 249 case 'binetTxt':
250 $db = '`binets_def` INNER JOIN
251 `binets_ins` ON(`binets_def`.`id` = `binets_ins`.`binet_id`)';
252 $field='`binets_def`.`text`';
253 if (strlen($q) > 2)
254 $beginwith = false;
255 $realid = '`binets_def`.`id`';
256 break;
257 case 'city':
258 $db = '`geoloc_city` INNER JOIN
259 `adresses` ON(`geoloc_city`.`id` = `adresses`.`cityid`)';
260 $unique='`uid`';
261 $field='`geoloc_city`.`name`';
262 break;
263 case 'countryTxt':
264 $db = '`geoloc_pays` INNER JOIN
265 `adresses` ON(`geoloc_pays`.`a2` = `adresses`.`country`)';
266 $unique='`uid`';
267 $field = '`geoloc_pays`.`pays`';
268 $field2 = '`geoloc_pays`.`country`';
269 $realid='`geoloc_pays`.`a2`';
270 break;
271 case 'entreprise':
272 $db = '`entreprises`';
273 $field = '`entreprise`';
274 $unique='`uid`';
275 break;
07c4f9cc 276 case 'firstname':
ff3eb9b7 277 $field = '`prenom`';
278 $q = '(^|[ \\-])'.$q;
279 $beginwith = false;
280 break;
281 case 'fonctionTxt':
282 $db = '`fonctions_def` INNER JOIN
283 `entreprises` ON(`entreprises`.`fonction` = `fonctions_def`.`id`)';
284 $field = '`fonction_fr`';
285 $unique = '`uid`';
286 $realid = '`fonctions_def`.`id`';
287 $qsearch = '(^|[ /\\-])'.$q;
288 $beginwith = false;
289 break;
290 case 'groupexTxt':
579a8c9a
FB
291 $db = "groupex.asso AS a INNER JOIN
292 groupex.membres AS m ON(a.id = m.asso_id
293 AND (a.cat = 'GroupesX' OR a.cat = 'Institutions')
294 AND a.pub = 'public')";
295 $field='a.nom';
296 $field2 = 'a.diminutif';
ff3eb9b7 297 if (strlen($q) > 2)
298 $beginwith = false;
579a8c9a
FB
299 $realid = 'a.id';
300 $unique = 'm.uid';
ff3eb9b7 301 break;
302 case 'name':
303 $field = '`nom`';
304 $field2 = '`nom_usage`';
305 $qsearch = '(^|[ \\-])'.$q;
306 $beginwith = false;
307 break;
308 case 'nationaliteTxt':
309 $db = '`geoloc_pays` INNER JOIN
310 `auth_user_md5` ON(`geoloc_pays`.`a2` = `auth_user_md5`.`nationalite`)';
311 $field = 'IF(`geoloc_pays`.`nat`=\'\',
312 `geoloc_pays`.`pays`,
313 `geoloc_pays`.`nat`)';
314 $realid = '`geoloc_pays`.`a2`';
315 break;
316 case 'nickname':
317 $field = '`profile_nick`';
318 $db = '`auth_user_quick`';
319 $qsearch = '(^|[ \\-])'.$q;
320 $beginwith = false;
321 break;
322 case 'poste':
323 $db = '`entreprises`';
324 $field = '`poste`';
325 $unique='`uid`';
326 break;
327 case 'schoolTxt':
328 $db = '`applis_def` INNER JOIN
329 `applis_ins` ON(`applis_def`.`id` = `applis_ins`.`aid`)';
330 $field='`applis_def`.`text`';
331 $unique = '`uid`';
332 $realid = '`applis_def`.`id`';
333 if (strlen($q) > 2)
334 $beginwith = false;
335 break;
336 case 'secteurTxt':
337 $db = '`emploi_secteur` INNER JOIN
338 `entreprises` ON(`entreprises`.`secteur` = `emploi_secteur`.`id`)';
339 $field = '`emploi_secteur`.`label`';
340 $realid = '`emploi_secteur`.`id`';
341 $unique = '`uid`';
342 $beginwith = false;
343 break;
344 case 'sectionTxt':
eaf30d86 345 $db = '`sections` INNER JOIN
ff3eb9b7 346 `auth_user_md5` ON(`auth_user_md5`.`section` = `sections`.`id`)';
347 $field = '`sections`.`text`';
348 $realid = '`sections`.`id`';
349 $beginwith = false;
350 break;
351 default: exit();
838cc16a 352 }
353
ff3eb9b7 354 $field_select = $field;
355 if ($field2) {
356 $field_select = 'IF('.$field.' REGEXP {?}, '.$field.', '.$field2.')';
357 }
358
359 if ($beginwith) {
360 $qsearch = '^'.$qsearch;
361 }
362 $list = XDB::iterator('SELECT '.$field_select.' AS field,
363 COUNT(DISTINCT '.$unique.') AS nb
364 '.($realid?(', '.$realid.' AS id'):'').'
365 FROM '.$db.'
366 WHERE '.$field.' REGEXP {?}'.
367 ($field2?(' OR '.$field2.' REGEXP {?}'):'').'
368 GROUP BY '.$field_select.'
369 ORDER BY nb DESC
370 LIMIT 11',
371 $qsearch, $qsearch, $qsearch, $qsearch);
838cc16a 372 $nbResults = 0;
c15afc4e 373 $res = "";
2ab7a09f 374 while ($result = $list->next()) {
838cc16a 375 $nbResults++;
376 if ($nbResults == 11) {
c15afc4e 377 $res .= '...|1'."\n";
838cc16a 378 } else {
f6818108 379 $res .= $result['field'].'|';
ff3eb9b7 380 $res .= $result['nb'];
381 if (isset($result['id'])) {
382 $res .= '|'.$result['id'];
383 }
384 $res .= "\n";
838cc16a 385 }
386 }
ff3eb9b7 387 XDB::query('REPLACE INTO `search_autocomplete`
388 VALUES ({?}, {?}, {?}, NOW())',
389 $type, $q, $res);
c15afc4e 390 echo $res;
838cc16a 391 exit();
392 }
eaf30d86 393
2ab7a09f 394 function handler_list(&$page, $type = null, $idVal = null)
395 {
ff3eb9b7 396 // Give the list of all values possible of type and builds a select input for it
397 $field = '`text`';
398 $id = '`id`';
399 $where = '';
400
401 switch ($type) {
402 case 'binet':
403 $db = '`binets_def`';
404 break;
405 case 'country':
406 $db = '`geoloc_pays`';
407 $field = '`pays`';
408 $id = '`a2`';
409 $page->assign('onchange', 'changeCountry(this.value)');
410 break;
411 case 'fonction':
412 $db = '`fonctions_def`';
413 $field = '`fonction_fr`';
414 break;
415 case 'diploma':
f6818108 416 header('Content-Type: text/xml; charset="UTF-8"');
ff3eb9b7 417 $this->get_diplomas();
418 $page->changeTpl('search/adv.grade.form.tpl', NO_SKIN);
419 return;
420 case 'groupex':
579a8c9a
FB
421 $db = 'groupex.asso';
422 $where = " WHERE (cat = 'GroupesX' OR cat = 'Institutions') AND pub = 'public'";
423 $field = 'nom';
ff3eb9b7 424 break;
425 case 'nationalite':
eaf30d86 426 $db = '`geoloc_pays` INNER JOIN
a85224e3 427 `auth_user_md5` ON (`geoloc_pays`.`a2` = `auth_user_md5`.`nationalite`)';
ff3eb9b7 428 $field = 'IF(`nat`=\'\', `pays`, `nat`)';
429 $id = '`a2`';
430 break;
431 case 'region':
432 $db = '`geoloc_region`';
433 $field = '`name`';
eaf30d86 434 $id = '`region`';
f6818108 435 if (isset($_REQUEST['country'])) {
436 $where .= ' WHERE `a2` = "'.$_REQUEST['country'].'"';
437 }
ff3eb9b7 438 break;
439 case 'school':
440 $db = '`applis_def`';
441 $page->assign('onchange', 'changeSchool(this.value)');
442 break;
443 case 'section':
444 $db = '`sections`';
445 break;
446 case 'secteur':
447 $db = '`emploi_secteur`';
448 $field = '`label`';
449 break;
450 default: exit();
451 }
452 if (isset($idVal)) {
453 header('Content-Type: text/plain; charset="UTF-8"');
454 $result = XDB::query('SELECT '.$field.' AS field FROM '.$db.' WHERE '.$id.' = {?} LIMIT 1',$idVal);
455 echo $result->fetchOneCell();
456 exit();
457 }
f6818108 458 header('Content-Type: text/xml; charset="UTF-8"');
05cb05c0 459 $page->changeTpl('include/field.select.tpl', NO_SKIN);
f6818108 460 $page->assign('name', $type);
ff3eb9b7 461 $page->assign('list', XDB::iterator('SELECT '.$field.' AS field,
462 '.$id.' AS id
463 FROM '.$db.$where.'
a85224e3 464 GROUP BY '.$field.'
ff3eb9b7 465 ORDER BY '.$field));
b0691e10
FB
466 $page->assign('with_text_value', true);
467 $page->assign('onchange', "document.forms.recherche.{$type}Txt.value = this.options[this.selectedIndex].text");
2ab7a09f 468 }
09824164 469}
470
a7de4ef7 471// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
09824164 472?>