2 /***************************************************************************
3 * Copyright (C) 2003-2008 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
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. *
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. *
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 *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
22 class SearchModule
extends PLModule
27 'search' => $this->make_hook('quick', AUTH_PUBLIC
),
28 'search/adv' => $this->make_hook('advanced', AUTH_COOKIE
),
29 'advanced_search.php' => $this->make_hook('redir_advanced', AUTH_PUBLIC
),
30 'search/autocomplete' => $this->make_hook('autocomplete', AUTH_COOKIE
, 'user', NO_AUTH
),
31 'search/list' => $this->make_hook('list', AUTH_COOKIE
, 'user', NO_AUTH
),
35 function handler_redir_advanced(&$page, $mode = null
)
37 pl_redirect('search/adv');
41 function on_subscribe($forlife, $uid, $promo, $pass)
43 require_once 'user.func.inc.php';
48 function form_prepare()
52 $page->assign('formulaire',1);
55 function get_diplomas($school = null
)
57 if (is_null($school) && Env
::has('school')) {
58 $school = Env
::i('school');
61 if (!is_null($school)) {
62 $sql = 'SELECT type FROM applis_def WHERE id=' . $school;
64 $sql = 'DESCRIBE applis_def type';
67 $res = XDB
::query($sql);
68 $row = $res->fetchOneRow();
69 if (!is_null($school)) {
72 $types = explode('(',$row[1]);
73 $types = str_replace("'","",substr($types[1],0,-1));
76 $page->assign('choix_diplomas', explode(',',$types));
79 function handler_quick(&$page, $action = null
, $subaction = null
)
83 $res = XDB
::query("SELECT MIN(`diminutif`), MAX(`diminutif`)
85 WHERE `cat` = 'Promotions'");
86 list($min, $max) = $res->fetchOneRow();
87 $page->assign('promo_min', $min);
88 $page->assign('promo_max', $max);
90 if (Env
::has('quick') ||
$action == 'geoloc') {
91 $quick = trim(Env
::v('quick'));
92 if (S
::logged() && !Env
::has('page')) {
93 $_SESSION['log']->log('search', 'quick=' . $quick);
95 $list = 'profile|prf|fiche|fic|referent|ref|mentor';
97 $list .= '|admin|adm|ax';
99 if (preg_match('/^(' . $list . '):([-a-z]+(\.[-a-z]+(\.\d{2,4})?)?)$/', replace_accent($quick), $matches)) {
100 $forlife = $matches[2];
101 switch($matches[1]) {
102 case 'admin': case 'adm':
103 $base = 'admin/user/';
106 $base = 'profile/ax/';
108 case 'profile': case 'prf': case 'fiche': case 'fic':
111 case 'referent': case 'ref': case 'mentor':
116 require_once 'user.func.inc.php';
117 $login = get_user_forlife($forlife, '_silent_user_callback');
119 pl_redirect($base . $login);
121 $_REQUEST['quick'] = $forlife;
122 $_GET['quick'] = $forlife;
123 } elseif (strpos($quick, 'doc:') === 0) {
124 $url = 'Docs/Recherche?';
125 $url .= 'action=search&q=' . urlencode(substr($quick, 4));
126 $url .= '&group=' . urlencode('-Equipe,-Main,-PmWiki,-Site,-Review');
130 $page->assign('formulaire', 0);
132 require_once 'userset.inc.php';
133 $view = new SearchSet(true
, $action == 'geoloc' && substr($subaction, -3) == 'swf');
134 $view->addMod('minifiche', 'Minifiches', true
, array('with_score' => true
));
135 if (S
::logged() && !Env
::i('nonins')) {
136 $view->addMod('trombi', 'Trombinoscope', false
, array('with_promo' => true
, 'with_score' => true
));
137 $view->addMod('geoloc', 'Planisphère', false
, array('with_annu' => 'search/adv'));
139 $view->apply('search', $page, $action, $subaction);
141 $nb_tot = $view->count();
142 $page->assign('search_results_nb', $nb_tot);
146 if (!S
::logged() && $nb_tot > $globals->search
->public_max
) {
147 new ThrowError('Votre recherche a généré trop de résultats pour un affichage public.');
148 } elseif ($nb_tot > $globals->search
->private_max
) {
149 new ThrowError('Recherche trop générale. Une <a href="search/adv">recherche avancée</a> permet de préciser la recherche.');
150 } elseif (empty($nb_tot)) {
151 new ThrowError('Il n\'existe personne correspondant à ces critères dans la base !');
154 $page->assign('formulaire',1);
155 $page->addJsLink('ajax.js');
158 require_once dirname(__FILE__
) . '/search/search.inc.php';
159 $page->changeTpl('search/index.tpl');
160 $page->assign('xorg_title','Polytechnique.org - Annuaire');
163 function handler_advanced(&$page, $action = null
, $subaction = null
)
166 require_once 'geoloc.inc.php';
167 require_once dirname(__FILE__
) . '/search/search.inc.php';
168 $page->assign('advanced',1);
169 $page->addJsLink('jquery.autocomplete.js');
171 $res = XDB
::iterator("SELECT nw.network_type AS type, nw.name
172 FROM profile_networking_enum AS nw
174 $page->assign('network_list', $res->fetchAllAssoc());
176 if (!Env
::has('rechercher') && $action != 'geoloc') {
177 $this->form_prepare();
180 'country' => array('field' => 'a2', 'table' => 'geoloc_pays', 'text' => 'pays', 'exact' => false
),
181 'fonction' => array('field' => 'id', 'table' => 'fonctions_def', 'text' => 'fonction_fr', 'exact' => true
),
182 'secteur' => array('field' => 'id', 'table' => 'emploi_secteur', 'text' => 'label', 'exact' => false
),
183 'nationalite' => array('field' => 'a2', 'table' => 'geoloc_pays', 'text' => 'nat', 'exact' => 'false'),
184 'binet' => array('field' => 'id', 'table' => 'binets_def', 'text' => 'text', 'exact' => false
),
185 'groupex' => array('field' => 'id', 'table' => 'groupex.asso',
186 'text' => "(a.cat = 'GroupesX' OR a.cat = 'Institutions') AND pub = 'public' AND nom",
188 'section' => array('field' => 'id', 'table' => 'sections', 'text' => 'text', 'exact' => false
),
189 'school' => array('field' => 'id', 'table' => 'applis_def', 'text' => 'text', 'exact' => false
),
190 'city' => array('table' => 'geoloc_city', 'text' => 'name', 'exact' => false
)
192 if (!Env
::has('page')) {
193 $_SESSION['log']->log('search', 'adv=' . var_export($_GET, true
));
195 foreach ($textFields as $field=>&$query) {
196 if (!Env
::v($field) && Env
::v($field . 'Txt')) {
197 $res = XDB
::query("SELECT {$query['field']}
198 FROM {$query['table']}
199 WHERE {$query['text']} " . ($query['exact'] ?
" = {?}" :
200 " LIKE CONCAT('%', {?}, '%')"),
201 Env
::v($field . 'Txt'));
202 $_REQUEST[$field] = $res->fetchOneCell();
206 require_once 'userset.inc.php';
207 $view = new SearchSet(false
, $action == 'geoloc' && substr($subaction, -3) == 'swf');
208 $view->addMod('minifiche', 'Minifiches', true
);
209 $view->addMod('trombi', 'Trombinoscope', false
, array('with_promo' => true
));
210 //$view->addMod('geoloc', 'Planisphère', false, array('with_annu' => 'search/adv'));
211 $view->apply('search/adv', $page, $action, $subaction);
216 $nb_tot = $view->count();
217 if ($nb_tot > $globals->search
->private_max
) {
218 $this->form_prepare();
219 new ThrowError('Recherche trop générale.');
223 $page->changeTpl('search/index.tpl', $action == 'mini' ? SIMPLE
: SKINNED
);
224 $page->addJsLink('ajax.js');
225 $page->assign('public_directory',0);
228 function handler_autocomplete(&$page, $type = null
)
230 // Autocompletion : according to type required, return
231 // a list of results matching with the number of matches.
232 // The output format is :
236 header('Content-Type: text/plain; charset="UTF-8"');
237 $q = preg_replace(array('/\*+$/', // always look for $q*
238 '/([\^\$\[\]])/', // escape special regexp char
239 '/\*/'), // replace joker by regexp joker
246 // try to look in cached results
247 $cache = XDB
::query('SELECT `result`
248 FROM `search_autocomplete`
249 WHERE `name` = {?} AND
251 `generated` > NOW() - INTERVAL 1 DAY',
253 if ($res = $cache->fetchOneCell()) {
259 $unique = '`user_id`';
260 $db = '`auth_user_md5`';
264 $qsearch = str_replace(array('%', '_'), '', $q);
268 $db = '`binets_def` INNER JOIN
269 `binets_ins` ON(`binets_def`.`id` = `binets_ins`.`binet_id`)';
270 $field='`binets_def`.`text`';
273 $realid = '`binets_def`.`id`';
276 $db = '`geoloc_city` INNER JOIN
277 `adresses` ON(`geoloc_city`.`id` = `adresses`.`cityid`)';
279 $field='`geoloc_city`.`name`';
282 $db = '`geoloc_pays` INNER JOIN
283 `adresses` ON(`geoloc_pays`.`a2` = `adresses`.`country`)';
285 $field = '`geoloc_pays`.`pays`';
286 $field2 = '`geoloc_pays`.`country`';
287 $realid='`geoloc_pays`.`a2`';
290 $db = '`entreprises`';
291 $field = '`entreprise`';
299 $db = '`fonctions_def` INNER JOIN
300 `entreprises` ON(`entreprises`.`fonction` = `fonctions_def`.`id`)';
301 $field = '`fonction_fr`';
303 $realid = '`fonctions_def`.`id`';
307 $db = "groupex.asso AS a INNER JOIN
308 groupex.membres AS m ON(a.id = m.asso_id
309 AND (a.cat = 'GroupesX' OR a.cat = 'Institutions')
310 AND a.pub = 'public')";
312 $field2 = 'a.diminutif';
320 $field2 = '`nom_usage`';
323 case 'nationaliteTxt':
324 $db = '`geoloc_pays` INNER JOIN
325 `auth_user_md5` ON(`geoloc_pays`.`a2` = `auth_user_md5`.`nationalite`)';
326 $field = 'IF(`geoloc_pays`.`nat`=\'\',
327 `geoloc_pays`.`pays`,
328 `geoloc_pays`.`nat`)';
329 $realid = '`geoloc_pays`.`a2`';
332 $field = '`profile_nick`';
333 $db = '`auth_user_quick`';
337 $db = '`entreprises`';
342 $db = '`applis_def` INNER JOIN
343 `applis_ins` ON(`applis_def`.`id` = `applis_ins`.`aid`)';
344 $field='`applis_def`.`text`';
346 $realid = '`applis_def`.`id`';
351 $db = '`emploi_secteur` INNER JOIN
352 `entreprises` ON(`entreprises`.`secteur` = `emploi_secteur`.`id`)';
353 $field = '`emploi_secteur`.`label`';
354 $realid = '`emploi_secteur`.`id`';
359 $db = '`sections` INNER JOIN
360 `auth_user_md5` ON(`auth_user_md5`.`section` = `sections`.`id`)';
361 $field = '`sections`.`text`';
362 $realid = '`sections`.`id`';
368 function make_field_test($fields, $beginwith) {
370 $tests[] = $fields . ' LIKE CONCAT({?}, \'%\')';
372 $tests[] = $fields . ' LIKE CONCAT(\'% \', {?}, \'%\')';
373 $tests[] = $fields . ' LIKE CONCAT(\'%-\', {?}, \'%\')';
375 return '(' . implode(' OR ', $tests) . ')';
377 $field_select = $field;
378 $field_t = make_field_test($field, $beginwith);
380 $field2_t = make_field_test($field2, $beginwith);
381 $field_select = 'IF(' . $field_t . ', ' . $field . ', ' . $field2. ')';
383 $list = XDB
::iterator('SELECT ' . $field_select . ' AS field,
384 COUNT(DISTINCT ' . $unique . ') AS nb
385 ' . ($realid ?
(', ' . $realid . ' AS id') : '') . '
388 ($field2 ?
(' OR ' . $field2_t) : '') . '
389 GROUP BY ' . $field_select . '
392 $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch,
393 $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch);
396 while ($result = $list->next()) {
398 if ($nbResults == 11) {
401 $res .= $result['field'].'|';
402 $res .= $result['nb'];
403 if (isset($result['id'])) {
404 $res .= '|'.$result['id'];
409 XDB
::query('REPLACE INTO `search_autocomplete`
410 VALUES ({?}, {?}, {?}, NOW())',
416 function handler_list(&$page, $type = null
, $idVal = null
)
418 // Give the list of all values possible of type and builds a select input for it
425 $db = '`binets_def`';
428 $db = '`geoloc_pays`';
431 $page->assign('onchange', 'changeCountry(this.value)');
434 $db = '`fonctions_def`';
435 $field = '`fonction_fr`';
438 header('Content-Type: text/xml; charset="UTF-8"');
439 $this->get_diplomas();
440 $page->changeTpl('search/adv.grade.form.tpl', NO_SKIN
);
443 $db = 'groupex.asso';
444 $where = " WHERE (cat = 'GroupesX' OR cat = 'Institutions') AND pub = 'public'";
448 $db = '`geoloc_pays` INNER JOIN
449 `auth_user_md5` ON (`geoloc_pays`.`a2` = `auth_user_md5`.`nationalite`)';
450 $field = 'IF(`nat`=\'\', `pays`, `nat`)';
454 $db = '`geoloc_region`';
457 if (isset($_REQUEST['country'])) {
458 $where .= ' WHERE `a2` = "'.$_REQUEST['country'].'"';
462 $db = '`applis_def`';
463 $page->assign('onchange', 'changeSchool(this.value)');
469 $db = '`emploi_secteur`';
475 header('Content-Type: text/plain; charset="UTF-8"');
476 $result = XDB
::query('SELECT '.$field.' AS field FROM '.$db.' WHERE '.$id.' = {?} LIMIT 1',$idVal);
477 echo $result->fetchOneCell();
480 header('Content-Type: text/xml; charset="UTF-8"');
481 $page->changeTpl('include/field.select.tpl', NO_SKIN
);
482 $page->assign('name', $type);
483 $page->assign('list', XDB
::iterator('SELECT '.$field.' AS field,
488 $page->assign('with_text_value', true
);
489 $page->assign('onchange', "document.forms.recherche.{$type}Txt.value = this.options[this.selectedIndex].text");
493 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: