2 /***************************************************************************
3 * Copyright (C) 2003-2009 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 form_prepare()
43 Platal
::page()->assign('formulaire',1);
46 function get_diplomas($school = null
)
48 if (is_null($school) && Env
::has('school')) {
49 $school = Env
::i('school');
52 if ((!is_null($school)) && ($school != '')) {
53 $sql = 'SELECT degreeid
54 FROM profile_education_degree
55 WHERE eduid=' . $school;
58 FROM profile_education_degree_enum
62 $res = XDB
::query($sql);
63 Platal
::page()->assign('choix_diplomas', $res->fetchColumn());
66 FROM profile_education_degree_enum
68 $res = XDB
::query($sql);
69 Platal
::page()->assign('name_diplomas', $res->fetchColumn());
72 function handler_quick(&$page, $action = null
, $subaction = null
)
76 $res = XDB
::query("SELECT MIN(diminutif), MAX(diminutif)
78 WHERE cat = 'Promotions'");
79 list($min, $max) = $res->fetchOneRow();
80 $page->assign('promo_min', $min);
81 $page->assign('promo_max', $max);
83 if (Env
::has('quick') ||
$action == 'geoloc') {
84 $quick = trim(Env
::v('quick'));
85 if (S
::logged() && !Env
::has('page')) {
86 S
::logger()->log('search', 'quick=' . $quick);
88 $list = 'profile|prf|fiche|fic|referent|ref|mentor';
90 $list .= '|admin|adm|ax';
92 if (preg_match('/^(' . $list . '):([-a-z]+(\.[-a-z]+(\.\d{2,4})?)?)$/', replace_accent($quick), $matches)) {
95 case 'admin': case 'adm':
96 $base = 'admin/user/';
99 $base = 'profile/ax/';
101 case 'profile': case 'prf': case 'fiche': case 'fic':
104 case 'referent': case 'ref': case 'mentor':
109 $user = User
::getSilent($login);
111 pl_redirect($base . $user->login());
113 $_REQUEST['quick'] = $login;
114 $_GET['quick'] = $login;
115 } elseif (strpos($quick, 'doc:') === 0) {
116 $url = 'Docs/Recherche?';
117 $url .= 'action=search&q=' . urlencode(substr($quick, 4));
118 $url .= '&group=' . urlencode('-Equipe,-Main,-PmWiki,-Site,-Review');
122 $page->assign('formulaire', 0);
124 require_once 'userset.inc.php';
125 $view = new SearchSet(true
, $action == 'geoloc' && substr($subaction, -3) == 'swf');
126 $view->addMod('minifiche', 'Mini-fiches', true
, array('with_score' => true
));
127 if (S
::logged() && !Env
::i('nonins')) {
128 $view->addMod('trombi', 'Trombinoscope', false
, array('with_promo' => true
, 'with_score' => true
));
129 $view->addMod('geoloc', 'Planisphère', false
, array('with_annu' => 'search/adv'));
131 $view->apply('search', $page, $action, $subaction);
133 $nb_tot = $view->count();
134 $page->assign('search_results_nb', $nb_tot);
138 if (!S
::logged() && $nb_tot > $globals->search
->public_max
) {
139 new ThrowError('Votre recherche a généré trop de résultats pour un affichage public.');
140 } elseif ($nb_tot > $globals->search
->private_max
) {
141 new ThrowError('Recherche trop générale. Une <a href="search/adv">recherche avancée</a> permet de préciser la recherche.');
142 } elseif (empty($nb_tot)) {
143 new ThrowError('Il n\'existe personne correspondant à ces critères dans la base !');
146 $page->assign('formulaire',1);
147 $page->addJsLink('ajax.js');
150 $this->load('search.inc.php');
151 $page->changeTpl('search/index.tpl');
152 $page->setTitle('Annuaire');
155 function handler_advanced(&$page, $action = null
, $subaction = null
)
158 require_once 'geoloc.inc.php';
159 $this->load('search.inc.php');
160 $page->assign('advanced',1);
161 $page->addJsLink('jquery.autocomplete.js');
163 if (!Env
::has('rechercher') && $action != 'geoloc') {
164 $this->form_prepare();
167 'country' => array('field' => 'a2', 'table' => 'geoloc_pays', 'text' => 'pays', 'exact' => false
),
168 'fonction' => array('field' => 'id', 'table' => 'fonctions_def', 'text' => 'fonction_fr', 'exact' => true
),
169 'secteur' => array('field' => 'id', 'table' => 'profile_job_sector_enum', 'text' => 'name', 'exact' => false
),
170 'nationalite' => array('field' => 'a2', 'table' => 'geoloc_pays', 'text' => 'nat', 'exact' => 'false'),
171 'binet' => array('field' => 'id', 'table' => 'binets_def', 'text' => 'text', 'exact' => false
),
172 'networking_type' => array('field' => 'network_type', 'table' => 'profile_networking_enum',
173 'text' => 'name', 'exact' => false
),
174 'groupex' => array('field' => 'id', 'table' => 'groupex.asso',
175 'text' => "(cat = 'GroupesX' OR cat = 'Institutions') AND pub = 'public' AND nom",
177 'section' => array('field' => 'id', 'table' => 'sections', 'text' => 'text', 'exact' => false
),
178 'school' => array('field' => 'id', 'table' => 'profile_education_enum', 'text' => 'name', 'exact' => false
),
179 'city' => array('table' => 'geoloc_city', 'text' => 'name', 'exact' => false
)
181 if (!Env
::has('page')) {
182 S
::logger()->log('search', 'adv=' . var_export($_GET, true
));
184 foreach ($textFields as $field=>&$query) {
185 if (!Env
::v($field) && Env
::v($field . 'Txt')) {
186 $res = XDB
::query("SELECT {$query['field']}
187 FROM {$query['table']}
188 WHERE {$query['text']} " . ($query['exact'] ?
" = {?}" :
189 " LIKE CONCAT('%', {?}, '%')"),
190 Env
::v($field . 'Txt'));
191 $_REQUEST[$field] = $res->fetchOneCell();
195 require_once 'userset.inc.php';
196 $view = new SearchSet(false
, $action == 'geoloc' && substr($subaction, -3) == 'swf');
197 $view->addMod('minifiche', 'Mini-fiches', true
);
198 $view->addMod('trombi', 'Trombinoscope', false
, array('with_promo' => true
));
199 //$view->addMod('geoloc', 'Planisphère', false, array('with_annu' => 'search/adv'));
200 $view->apply('search/adv', $page, $action, $subaction);
205 $nb_tot = $view->count();
206 if ($nb_tot > $globals->search
->private_max
) {
207 $this->form_prepare();
208 new ThrowError('Recherche trop générale.');
212 $page->changeTpl('search/index.tpl', $action == 'mini' ? SIMPLE
: SKINNED
);
213 $page->addJsLink('ajax.js');
214 $page->assign('public_directory',0);
217 function handler_autocomplete(&$page, $type = null
)
219 // Autocompletion : according to type required, return
220 // a list of results matching with the number of matches.
221 // The output format is :
225 header('Content-Type: text/plain; charset="UTF-8"');
226 $q = preg_replace(array('/\*+$/', // always look for $q*
227 '/([\^\$\[\]])/', // escape special regexp char
228 '/\*/'), // replace joker by regexp joker
235 // try to look in cached results
236 $cache = XDB
::query('SELECT result
237 FROM search_autocomplete
240 generated > NOW() - INTERVAL 1 DAY',
242 if ($res = $cache->fetchOneCell()) {
253 $qsearch = str_replace(array('%', '_'), '', $q);
258 $db = 'binets_def INNER JOIN
259 binets_ins ON(binets_def.id = binets_ins.binet_id)';
260 $field = 'binets_def.text';
263 $realid = 'binets_def.id';
265 case 'networking_typeTxt':
266 $db = 'profile_networking_enum INNER JOIN
267 profile_networking ON(profile_networking.network_type = profile_networking_enum.network_type)';
268 $field = 'profile_networking_enum.name';
270 $realid = 'profile_networking_enum.network_type';
273 $db = 'geoloc_city INNER JOIN
274 adresses ON(geoloc_city.id = adresses.cityid)';
276 $field='geoloc_city.name';
279 $db = 'geoloc_pays INNER JOIN
280 adresses ON(geoloc_pays.a2 = adresses.country)';
282 $field = 'geoloc_pays.pays';
283 $field2 = 'geoloc_pays.country';
284 $realid = 'geoloc_pays.a2';
287 $db = 'profile_job_enum INNER JOIN
288 profile_job ON (profile_job.jobid = profile_job_enum.id)';
289 $field = 'profile_job_enum.name';
290 $unique = 'profile_job.uid';
293 $db = 'fonctions_def INNER JOIN
294 profile_job ON (profile_job.fonctionid = fonctions_def.id)';
295 $field = 'fonction_fr';
297 $realid = 'fonctions_def.id';
301 $db = "groupex.asso AS a INNER JOIN
302 groupex.membres AS m ON(a.id = m.asso_id
303 AND (a.cat = 'GroupesX' OR a.cat = 'Institutions')
304 AND a.pub = 'public')";
306 $field2 = 'a.diminutif';
312 case 'nationaliteTxt':
313 $db = 'geoloc_pays AS acgp
314 INNER JOIN profiles AS acp ON (acgp.a2 IN (acp.nationality1, acp.nationality2, acp.nationality3))';
315 $field = 'IF(acgp.nat = \'\', acgp.pays, acgp.nat)';
320 $field = 'description';
324 $db = 'profile_education_enum INNER JOIN
325 profile_education ON (profile_education_enum.id = profile_education.eduid)';
326 $field = 'profile_education_enum.name';
328 $realid = 'profile_education_enum.id';
333 $db = 'profile_job_sector_enum INNER JOIN
334 profile_job ON (profile_job.sectorid = profile_job_sector_enum.id)';
335 $field = 'profile_job_sector_enum.name';
336 $realid = 'profile_job_sector_enum.id';
341 $db = 'profile_job_subsubsector_enum';
348 $db = 'sections AS acs
349 INNER JOIN profiles AS acp ON (acp.section = acs.id)';
357 function make_field_test($fields, $beginwith) {
359 $tests[] = $fields . ' LIKE CONCAT({?}, \'%\')';
361 $tests[] = $fields . ' LIKE CONCAT(\'% \', {?}, \'%\')';
362 $tests[] = $fields . ' LIKE CONCAT(\'%-\', {?}, \'%\')';
364 return '(' . implode(' OR ', $tests) . ')';
366 $field_select = $field;
367 $field_t = make_field_test($field, $beginwith);
369 $field2_t = make_field_test($field2, $beginwith);
370 $field_select = 'IF(' . $field_t . ', ' . $field . ', ' . $field2. ')';
372 $list = XDB
::iterator('SELECT ' . $field_select . ' AS field'
373 . ($distinct ?
(', COUNT(DISTINCT ' . $unique . ') AS nb') : '')
374 . ($realid ?
(', ' . $realid . ' AS id') : '') . '
377 ($field2 ?
(' OR ' . $field2_t) : '') . '
378 GROUP BY ' . $field_select . '
379 ORDER BY ' . ($distinct ?
'nb DESC' : $field_select) . '
381 $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch,
382 $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch);
386 while ($result = $list->next()) {
388 if ($nbResults == 11) {
391 $res .= $result['field'].'|';
392 if (isset($result['nb'])) {
393 $res .= $result['nb'];
395 if (isset($result['id'])) {
396 $res .= '|'.$result['id'];
401 XDB
::query('REPLACE INTO search_autocomplete
402 VALUES ({?}, {?}, {?}, NOW())',
408 function handler_list(&$page, $type = null
, $idVal = null
)
410 // Give the list of all values possible of type and builds a select input for it
419 case 'networking_type':
420 $db = 'profile_networking_enum';
422 $id = 'network_type';
428 $page->assign('onchange', 'changeCountry(this.value)');
431 $db = 'fonctions_def';
432 $field = 'fonction_fr';
435 header('Content-Type: text/xml; charset="UTF-8"');
436 $this->get_diplomas();
437 $page->changeTpl('search/adv.grade.form.tpl', NO_SKIN
);
440 $db = 'groupex.asso';
441 $where = " WHERE (cat = 'GroupesX' OR cat = 'Institutions') AND pub = 'public'";
445 $db = 'geoloc_pays AS acgp INNER JOIN
446 profiles AS acp ON (acgp.a2 IN (acp.nationality1, acp.nationality2, acp.nationality3))';
447 $field = 'IF(acgp.nat=\'\', acgp.pays, acgp.nat)';
451 $db = 'geoloc_region';
454 if (isset($_REQUEST['country'])) {
455 $where .= ' WHERE a2 = "'.$_REQUEST['country'].'"';
459 $db = 'profile_education_enum';
462 $page->assign('onchange', 'changeSchool(this.value)');
468 $db = 'profile_job_sector_enum INNER JOIN
469 profile_job ON (profile_job.sectorid = profile_job_sector_enum.id)';
470 $field = 'profile_job_sector_enum.name';
471 $id = 'profile_job_sector_enum.id';
476 header('Content-Type: text/plain; charset="UTF-8"');
477 $result = XDB
::query('SELECT '.$field.' AS field FROM '.$db.' WHERE '.$id.' = {?} LIMIT 1',$idVal);
478 echo $result->fetchOneCell();
481 header('Content-Type: text/xml; charset="UTF-8"');
482 $page->changeTpl('include/field.select.tpl', NO_SKIN
);
483 $page->assign('name', $type);
484 $page->assign('list', XDB
::iterator('SELECT '.$field.' AS field,
489 $page->assign('with_text_value', true
);
490 $page->assign('onchange', "document.forms.recherche.{$type}Txt.value = this.options[this.selectedIndex].text");
494 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: