[platal.git] / modules / search.php

<?php
/***************************************************************************
 *  Copyright (C) 2003-2008 Polytechnique.org                              *
 *  http://opensource.polytechnique.org/                                   *
 *                                                                         *
 *  This program is free software; you can redistribute it and/or modify   *
 *  it under the terms of the GNU General Public License as published by   *
 *  the Free Software Foundation; either version 2 of the License, or      *
 *  (at your option) any later version.                                    *
 *                                                                         *
 *  This program is distributed in the hope that it will be useful,        *
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of         *
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          *
 *  GNU General Public License for more details.                           *
 *                                                                         *
 *  You should have received a copy of the GNU General Public License      *
 *  along with this program; if not, write to the Free Software            *
 *  Foundation, Inc.,                                                      *
 *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
 ***************************************************************************/

class SearchModule extends PLModule
{
    function handlers()
    {
        return array(
            'search'     => $this->make_hook('quick', AUTH_PUBLIC),
            'search/adv' => $this->make_hook('advanced', AUTH_COOKIE),
            'advanced_search.php' => $this->make_hook('redir_advanced', AUTH_PUBLIC),
            'search/autocomplete' => $this->make_hook('autocomplete', AUTH_COOKIE, 'user', NO_AUTH),
            'search/list' => $this->make_hook('list', AUTH_COOKIE, 'user', NO_AUTH),
        );
    }

    function handler_redir_advanced(&$page, $mode = null)
    {
        pl_redirect('search/adv');
        exit;
    }

    function on_subscribe($forlife, $uid, $promo, $pass)
    {
        require_once 'user.func.inc.php';
        user_reindex($uid);
    }


    function form_prepare()
    {
        Platal::page()->assign('formulaire',1);
    }

    function get_diplomas($school = null)
    {
        if (is_null($school) && Env::has('school')) {
            $school = Env::i('school');
        }

        if (!is_null($school)) {
            $sql = 'SELECT name FROM profile_education_enum WHERE id=' . $school;
        } else {
            $sql = 'DESCRIBE profile_education_enum name';
        }

        $res = XDB::query($sql);
        $row = $res->fetchOneRow();
        if (!is_null($school)) {
            $types = $row[0];
        } else {
            $types = explode('(',$row[1]);
            $types = str_replace("'","",substr($types[1],0,-1));
        }
        Platal::page()->assign('choix_diplomas', explode(',',$types));
    }

    function handler_quick(&$page, $action = null, $subaction = null)
    {
        global $globals;

        $res = XDB::query("SELECT  MIN(`diminutif`), MAX(`diminutif`)
                             FROM  `groupex`.`asso`
                            WHERE  `cat` = 'Promotions'");
        list($min, $max) = $res->fetchOneRow();
        $page->assign('promo_min', $min);
        $page->assign('promo_max', $max);

        if (Env::has('quick') || $action == 'geoloc') {
            $quick = trim(Env::v('quick'));
            if (S::logged() && !Env::has('page')) {
                S::logger()->log('search', 'quick=' . $quick);
            }
            $list = 'profile|prf|fiche|fic|referent|ref|mentor';
            if (S::has_perms()) {
                $list .= '|admin|adm|ax';
            }
            if (preg_match('/^(' . $list . '):([-a-z]+(\.[-a-z]+(\.\d{2,4})?)?)$/', replace_accent($quick), $matches)) {
                $forlife = $matches[2];
                switch($matches[1]) {
                  case 'admin': case 'adm':
                    $base = 'admin/user/';
                    break;
                  case 'ax':
                    $base = 'profile/ax/';
                    break;
                  case 'profile': case 'prf': case 'fiche': case 'fic':
                    $base = 'profile/';
                    break;
                  case 'referent': case 'ref': case 'mentor':
                    $base = 'referent/';
                    break;
                }

                require_once 'user.func.inc.php';
                $login = get_user_forlife($forlife, '_silent_user_callback');
                if ($login) {
                    pl_redirect($base . $login);
                }
                $_REQUEST['quick'] = $forlife;
                $_GET['quick'] = $forlife;
            } elseif (strpos($quick, 'doc:') === 0) {
                $url = 'Docs/Recherche?';
                $url .= 'action=search&q=' . urlencode(substr($quick, 4));
                $url .= '&group=' . urlencode('-Equipe,-Main,-PmWiki,-Site,-Review');
                pl_redirect($url);
            }

            $page->assign('formulaire', 0);

            require_once 'userset.inc.php';
            $view = new SearchSet(true, $action == 'geoloc' && substr($subaction, -3) == 'swf');
            $view->addMod('minifiche', 'Mini-fiches', true, array('with_score' => true));
            if (S::logged() && !Env::i('nonins')) {
                $view->addMod('trombi', 'Trombinoscope', false, array('with_promo' => true, 'with_score' => true));
                $view->addMod('geoloc', 'Planisphère', false, array('with_annu' => 'search/adv'));
            }
            $view->apply('search', $page, $action, $subaction);

            $nb_tot = $view->count();
            $page->assign('search_results_nb', $nb_tot);
            if ($subaction) {
                return;
            }
            if (!S::logged() && $nb_tot > $globals->search->public_max) {
                new ThrowError('Votre recherche a généré trop de résultats pour un affichage public.');
            } elseif ($nb_tot > $globals->search->private_max) {
                new ThrowError('Recherche trop générale. Une <a href="search/adv">recherche avancée</a> permet de préciser la recherche.');
            } elseif (empty($nb_tot)) {
                new ThrowError('Il n\'existe personne correspondant à ces critères dans la base !');
            }
        } else {
            $page->assign('formulaire',1);
            $page->addJsLink('ajax.js');
        }

        require_once dirname(__FILE__) . '/search/search.inc.php';
        $page->changeTpl('search/index.tpl');
        $page->setTitle('Annuaire');
    }

    function handler_advanced(&$page, $action = null, $subaction = null)
    {
        global $globals;
        require_once 'geoloc.inc.php';
        require_once dirname(__FILE__) . '/search/search.inc.php';
        $page->assign('advanced',1);
        $page->addJsLink('jquery.autocomplete.js');

        if (!Env::has('rechercher') && $action != 'geoloc') {
            $this->form_prepare();
        } else {
            $textFields = array(
                'country' => array('field' => 'a2', 'table' => 'geoloc_pays', 'text' => 'pays', 'exact' => false),
                'fonction' => array('field' => 'id', 'table' => 'fonctions_def', 'text' => 'fonction_fr', 'exact' => true),
                'secteur' => array('field' => 'id', 'table' => 'emploi_secteur', 'text' => 'label', 'exact' => false),
                'nationalite' => array('field' => 'a2', 'table' => 'geoloc_pays', 'text' => 'nat', 'exact' => 'false'),
                'binet' => array('field' => 'id', 'table' => 'binets_def', 'text' => 'text', 'exact' => false),
                'networking_type' => array('field' => 'network_type', 'table' => 'profile_networking_enum',
                                           'text' => 'name', 'exact' => false),
                'groupex' => array('field' => 'id', 'table' => 'groupex.asso',
                                   'text' => "(a.cat = 'GroupesX' OR a.cat = 'Institutions') AND pub = 'public' AND nom",
                                   'exact' => false),
                'section' => array('field' => 'id', 'table' => 'sections', 'text' => 'text', 'exact' => false),
                'school' => array('field' => 'id', 'table' => 'profile_education_enum', 'text' => 'name', 'exact' => false),
                'city' => array('table' => 'geoloc_city', 'text' => 'name', 'exact' => false)
            );
            if (!Env::has('page')) {
                S::logger()->log('search', 'adv=' . var_export($_GET, true));
            }
            foreach ($textFields as $field=>&$query) {
                if (!Env::v($field) && Env::v($field . 'Txt')) {
                    $res = XDB::query("SELECT  {$query['field']}
                                         FROM  {$query['table']}
                                        WHERE  {$query['text']} " . ($query['exact'] ? " = {?}" :
                                                                    " LIKE CONCAT('%', {?}, '%')"),
                                      Env::v($field . 'Txt'));
                    $_REQUEST[$field] = $res->fetchOneCell();
                }
            }

            require_once 'userset.inc.php';
            $view = new SearchSet(false, $action == 'geoloc' && substr($subaction, -3) == 'swf');
            $view->addMod('minifiche', 'Mini-fiches', true);
            $view->addMod('trombi', 'Trombinoscope', false, array('with_promo' => true));
            //$view->addMod('geoloc', 'Planisphère', false, array('with_annu' => 'search/adv'));
            $view->apply('search/adv', $page, $action, $subaction);

            if ($subaction) {
                return;
            }
            $nb_tot = $view->count();
            if ($nb_tot > $globals->search->private_max) {
                $this->form_prepare();
                new ThrowError('Recherche trop générale.');
            }
        }

        $page->changeTpl('search/index.tpl', $action == 'mini' ? SIMPLE : SKINNED);
        $page->addJsLink('ajax.js');
        $page->assign('public_directory',0);
    }

    function handler_autocomplete(&$page, $type = null)
    {
        // Autocompletion : according to type required, return
        // a list of results matching with the number of matches.
        // The output format is :
        //   result1|nb1
        //   result2|nb2
        //   ...
        header('Content-Type: text/plain; charset="UTF-8"');
        $q = preg_replace(array('/\*+$/', // always look for $q*
                                '/([\^\$\[\]])/', // escape special regexp char
                                '/\*/'), // replace joker by regexp joker
                           array('',
                                 '\\\\\1',
                                 '.*'),
                           $_REQUEST['q']);
        if (!$q) exit();

        // try to look in cached results
        $cache = XDB::query('SELECT  `result`
                               FROM  `search_autocomplete`
                              WHERE  `name` = {?} AND
                                     `query` = {?} AND
                                     `generated` > NOW() - INTERVAL 1 DAY',
                             $type, $q);
        if ($res = $cache->fetchOneCell()) {
            echo $res;
            die();
        }

        // default search
        $unique = '`user_id`';
        $db = '`auth_user_md5`';
        $realid = false;
        $beginwith = true;
        $field2 = false;
        $qsearch = str_replace(array('%', '_'), '', $q);

        switch ($type) {
          case 'binetTxt':
            $db = '`binets_def` INNER JOIN
                   `binets_ins` ON(`binets_def`.`id` = `binets_ins`.`binet_id`)';
            $field='`binets_def`.`text`';
            if (strlen($q) > 2)
                $beginwith = false;
            $realid = '`binets_def`.`id`';
            break;
          case 'networking_typeTxt':
            $db = '`profile_networking_enum` INNER JOIN
                   `profile_networking` ON(`profile_networking`.`network_type` = `profile_networking_enum`.`network_type`)';
            $field = '`profile_networking_enum`.`name`';
            $unique = 'uid';
            $realid = '`profile_networking_enum`.`network_type`';
            break;
          case 'city':
            $db = '`geoloc_city` INNER JOIN
                   `adresses` ON(`geoloc_city`.`id` = `adresses`.`cityid`)';
            $unique='`uid`';
            $field='`geoloc_city`.`name`';
            break;
          case 'countryTxt':
            $db = '`geoloc_pays` INNER JOIN
                   `adresses` ON(`geoloc_pays`.`a2` = `adresses`.`country`)';
            $unique='`uid`';
            $field = '`geoloc_pays`.`pays`';
            $field2 = '`geoloc_pays`.`country`';
            $realid='`geoloc_pays`.`a2`';
            break;
          case 'entreprise':
            $db = '`entreprises`';
            $field = '`entreprise`';
            $unique='`uid`';
            break;
          case 'firstname':
            $field = '`prenom`';
            $beginwith = false;
            break;
          case 'fonctionTxt':
            $db = '`fonctions_def` INNER JOIN
                   `entreprises` ON(`entreprises`.`fonction` = `fonctions_def`.`id`)';
            $field = '`fonction_fr`';
            $unique = '`uid`';
            $realid = '`fonctions_def`.`id`';
            $beginwith = false;
            break;
          case 'groupexTxt':
            $db = "groupex.asso AS a INNER JOIN
                   groupex.membres AS m ON(a.id = m.asso_id
                                           AND (a.cat = 'GroupesX' OR a.cat = 'Institutions')
                                           AND a.pub = 'public')";
            $field='a.nom';
            $field2 = 'a.diminutif';
            if (strlen($q) > 2)
                $beginwith = false;
            $realid = 'a.id';
            $unique = 'm.uid';
            break;
          case 'name':
            $field = '`nom`';
            $field2 = '`nom_usage`';
            $beginwith = false;
            break;
          case 'nationaliteTxt':
            $db = '`geoloc_pays` INNER JOIN
                   `auth_user_md5` ON (`geoloc_pays`.`a2` = `auth_user_md5`.`nationalite` OR
                                       `geoloc_pays`.`a2` = `auth_user_md5`.`nationalite2` OR
                                       `geoloc_pays`.`a2` = `auth_user_md5`.`nationalite3`)';
            $field = 'IF(`geoloc_pays`.`nat`=\'\',
                                       `geoloc_pays`.`pays`,
                                       `geoloc_pays`.`nat`)';
            $realid = '`geoloc_pays`.`a2`';
            break;
          case 'nickname':
            $field = '`profile_nick`';
            $db = '`auth_user_quick`';
            $beginwith = false;
            break;
          case 'poste':
            $db = '`entreprises`';
            $field = '`poste`';
            $unique='`uid`';
            break;
          case 'schoolTxt':
            $db = 'profile_education_enum INNER JOIN
                   profile_education ON (profile_education_enum.id = profile_education.eduid)';
            $field = 'profile_education_enum.name';
            $unique = 'uid';
            $realid = 'profile_education_enum.id';
            if (strlen($q) > 2)
                $beginwith = false;
            break;
          case 'secteurTxt':
            $db = '`emploi_secteur` INNER JOIN
                   `entreprises` ON(`entreprises`.`secteur` = `emploi_secteur`.`id`)';
            $field = '`emploi_secteur`.`label`';
            $realid = '`emploi_secteur`.`id`';
            $unique = '`uid`';
            $beginwith = false;
            break;
          case 'sectionTxt':
            $db = '`sections` INNER JOIN
                   `auth_user_md5` ON(`auth_user_md5`.`section` = `sections`.`id`)';
            $field = '`sections`.`text`';
            $realid = '`sections`.`id`';
            $beginwith = false;
            break;
          default: exit();
        }

        function make_field_test($fields, $beginwith) {
            $tests = array();
            $tests[] = $fields . ' LIKE CONCAT({?}, \'%\')';
            if (!$beginwith) {
                $tests[] = $fields . ' LIKE CONCAT(\'% \', {?}, \'%\')';
                $tests[] = $fields . ' LIKE CONCAT(\'%-\', {?}, \'%\')';
            }
            return '(' . implode(' OR ', $tests) . ')';
        }
        $field_select = $field;
        $field_t = make_field_test($field, $beginwith);
        if ($field2) {
            $field2_t = make_field_test($field2, $beginwith);
            $field_select = 'IF(' . $field_t . ', ' . $field . ', ' . $field2. ')';
        }
        $list = XDB::iterator('SELECT  ' . $field_select . ' AS field,
                                       COUNT(DISTINCT ' . $unique . ') AS nb
                                       ' . ($realid ? (', ' . $realid . ' AS id') : '') . '
                                 FROM  ' . $db . '
                                WHERE  ' . $field_t .
                                        ($field2 ? (' OR ' . $field2_t) : '') . '
                             GROUP BY  ' . $field_select . '
                             ORDER BY  nb DESC
                                LIMIT  11',
                               $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch,
                               $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch);

        $nbResults = 0;
        $res = "";
        while ($result = $list->next()) {
            $nbResults++;
            if ($nbResults == 11) {
                $res .= $q."|-1\n";
            } else {
                $res .= $result['field'].'|';
                $res .= $result['nb'];
                if (isset($result['id'])) {
                    $res  .= '|'.$result['id'];
                }
                $res .= "\n";
            }
        }
        XDB::query('REPLACE INTO  `search_autocomplete`
                          VALUES  ({?}, {?}, {?}, NOW())',
                    $type, $q, $res);
        echo $res;
        exit();
    }

    function handler_list(&$page, $type = null, $idVal = null)
    {
        // Give the list of all values possible of type and builds a select input for it
        $field = '`text`';
        $id = '`id`';
        $where = '';

        switch ($type) {
          case 'binet':
            $db = '`binets_def`';
            break;
          case 'networking_type':
            $db = '`profile_networking_enum`';
            $field = '`name`';
            $id = '`network_type`';
            break;
          case 'country':
            $db = '`geoloc_pays`';
            $field = '`pays`';
            $id = '`a2`';
            $page->assign('onchange', 'changeCountry(this.value)');
            break;
          case 'fonction':
            $db = '`fonctions_def`';
            $field = '`fonction_fr`';
            break;
          case 'diploma':
            header('Content-Type: text/xml; charset="UTF-8"');
            $this->get_diplomas();
            $page->changeTpl('search/adv.grade.form.tpl', NO_SKIN);
            return;
          case 'groupex':
            $db = 'groupex.asso';
            $where = " WHERE (cat = 'GroupesX' OR cat = 'Institutions') AND pub = 'public'";
            $field = 'nom';
            break;
          case 'nationalite':
            $db = '`geoloc_pays` INNER JOIN
                   `auth_user_md5` ON (`geoloc_pays`.`a2` = `auth_user_md5`.`nationalite` OR
                                       `geoloc_pays`.`a2` = `auth_user_md5`.`nationalite2` OR
                                       `geoloc_pays`.`a2` = `auth_user_md5`.`nationalite3`)';
            $field = 'IF(`nat`=\'\', `pays`, `nat`)';
            $id = '`a2`';
            break;
          case 'region':
            $db = '`geoloc_region`';
            $field = '`name`';
            $id = '`region`';
            if (isset($_REQUEST['country'])) {
                $where .= ' WHERE `a2` = "'.$_REQUEST['country'].'"';
            }
            break;
          case 'school':
            $db = 'profile_education_enum';
            $page->assign('onchange', 'changeSchool(this.value)');
            break;
          case 'section':
            $db = '`sections`';
            break;
          case 'secteur':
            $db = '`emploi_secteur`';
            $field = '`label`';
            break;
          default: exit();
        }
        if (isset($idVal)) {
            header('Content-Type: text/plain; charset="UTF-8"');
            $result = XDB::query('SELECT '.$field.' AS field FROM '.$db.' WHERE '.$id.' = {?} LIMIT 1',$idVal);
            echo $result->fetchOneCell();
            exit();
        }
        header('Content-Type: text/xml; charset="UTF-8"');
        $page->changeTpl('include/field.select.tpl', NO_SKIN);
        $page->assign('name', $type);
        $page->assign('list', XDB::iterator('SELECT  '.$field.' AS field,
                                                     '.$id.' AS id
                                               FROM  '.$db.$where.'
                                           GROUP BY  '.$field.'
                                           ORDER BY  '.$field));
        $page->assign('with_text_value', true);
        $page->assign('onchange', "document.forms.recherche.{$type}Txt.value = this.options[this.selectedIndex].text");
    }
}

// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
?>
Commit	Line	Data
09824164	1	<?php
09824164	2	/***************************************************************************
179afa7f	3	* Copyright (C) 2003-2008 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
	22	class 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),
2ab7a09f	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	{
d7610c35	50	Platal::page()->assign('formulaire',1);
3c640222	51	}
	52
	53	function get_diplomas($school = null)
	54	{
	55	if (is_null($school) && Env::has('school')) {
	56	$school = Env::i('school');
	57	}
09824164	58
3c640222	59	if (!is_null($school)) {
043bbacf	60	$sql = 'SELECT name FROM profile_education_enum WHERE id=' . $school;
09824164	61	} else {
043bbacf	62	$sql = 'DESCRIBE profile_education_enum name';
09824164	63	}
09824164	64
08cce2ff	65	$res = XDB::query($sql);
09824164	66	$row = $res->fetchOneRow();
3c640222	67	if (!is_null($school)) {
09824164	68	$types = $row[0];
	69	} else {
	70	$types = explode('(',$row[1]);
	71	$types = str_replace("'","",substr($types[1],0,-1));
	72	}
d7610c35	73	Platal::page()->assign('choix_diplomas', explode(',',$types));
09824164	74	}
09824164	75
8c4a0c30	76	function handler_quick(&$page, $action = null, $subaction = null)
09824164	77	{
	78	global $globals;
	79
97eff0ff	80	$res = XDB::query("SELECT MIN(`diminutif`), MAX(`diminutif`)
	81	FROM `groupex`.`asso`
	82	WHERE `cat` = 'Promotions'");
	83	list($min, $max) = $res->fetchOneRow();
	84	$page->assign('promo_min', $min);
	85	$page->assign('promo_max', $max);
	86
8c4a0c30	87	if (Env::has('quick') \|\| $action == 'geoloc') {
383bcdec	88	$quick = trim(Env::v('quick'));
85bb670b	89	if (S::logged() && !Env::has('page')) {
732e5855	90	S::logger()->log('search', 'quick=' . $quick);
e31c1c3e	91	}
383bcdec	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	}
7511200d FB	112
	113	require_once 'user.func.inc.php';
	114	$login = get_user_forlife($forlife, '_silent_user_callback');
	115	if ($login) {
	116	pl_redirect($base . $login);
	117	}
	118	$_REQUEST['quick'] = $forlife;
	119	$_GET['quick'] = $forlife;
8fee4fbd	120	} elseif (strpos($quick, 'doc:') === 0) {
	121	$url = 'Docs/Recherche?';
	122	$url .= 'action=search&q=' . urlencode(substr($quick, 4));
7511200d	123	$url .= '&group=' . urlencode('-Equipe,-Main,-PmWiki,-Site,-Review');
8fee4fbd	124	pl_redirect($url);
383bcdec	125	}
8fee4fbd	126
09824164	127	$page->assign('formulaire', 0);
09824164	128
8c4a0c30	129	require_once 'userset.inc.php';
8c4a0c30	130	$view = new SearchSet(true, $action == 'geoloc' && substr($subaction, -3) == 'swf');
1fae7605	131	$view->addMod('minifiche', 'Mini-fiches', true, array('with_score' => true));
35fa92e8	132	if (S::logged() && !Env::i('nonins')) {
35fa92e8	133	$view->addMod('trombi', 'Trombinoscope', false, array('with_promo' => true, 'with_score' => true));
a2aa8436	134	$view->addMod('geoloc', 'Planisphère', false, array('with_annu' => 'search/adv'));
35fa92e8	135	}
8c4a0c30	136	$view->apply('search', $page, $action, $subaction);
09824164	137
8c4a0c30	138	$nb_tot = $view->count();
e35882be	139	$page->assign('search_results_nb', $nb_tot);
8c4a0c30	140	if ($subaction) {
	141	return;
	142	}
cab08090	143	if (!S::logged() && $nb_tot > $globals->search->public_max) {
a7de4ef7	144	new ThrowError('Votre recherche a généré trop de résultats pour un affichage public.');
09824164	145	} elseif ($nb_tot > $globals->search->private_max) {
8d118e58	146	new ThrowError('Recherche trop générale. Une <a href="search/adv">recherche avancée</a> permet de préciser la recherche.');
09824164	147	} elseif (empty($nb_tot)) {
8d118e58	148	new ThrowError('Il n\'existe personne correspondant à ces critères dans la base !');
09824164	149	}
	150	} else {
	151	$page->assign('formulaire',1);
e654517d	152	$page->addJsLink('ajax.js');
09824164	153	}
09824164	154
90ccb062	155	require_once dirname(__FILE__) . '/search/search.inc.php';
eaf30d86	156	$page->changeTpl('search/index.tpl');
46f272fe	157	$page->setTitle('Annuaire');
09824164	158	}
09824164	159
90ccb062	160	function handler_advanced(&$page, $action = null, $subaction = null)
09824164	161	{
09824164	162	global $globals;
bc67c37c	163	require_once 'geoloc.inc.php';
	164	require_once dirname(__FILE__) . '/search/search.inc.php';
	165	$page->assign('advanced',1);
4b4b4b67	166	$page->addJsLink('jquery.autocomplete.js');
bc67c37c	167
90ccb062	168	if (!Env::has('rechercher') && $action != 'geoloc') {
09824164	169	$this->form_prepare();
09824164	170	} else {
137e819f FB	171	$textFields = array(
	172	'country' => array('field' => 'a2', 'table' => 'geoloc_pays', 'text' => 'pays', 'exact' => false),
	173	'fonction' => array('field' => 'id', 'table' => 'fonctions_def', 'text' => 'fonction_fr', 'exact' => true),
	174	'secteur' => array('field' => 'id', 'table' => 'emploi_secteur', 'text' => 'label', 'exact' => false),
	175	'nationalite' => array('field' => 'a2', 'table' => 'geoloc_pays', 'text' => 'nat', 'exact' => 'false'),
	176	'binet' => array('field' => 'id', 'table' => 'binets_def', 'text' => 'text', 'exact' => false),
92c3f9e5 GB	177	'networking_type' => array('field' => 'network_type', 'table' => 'profile_networking_enum',
92c3f9e5 GB	178	'text' => 'name', 'exact' => false),
579a8c9a FB	179	'groupex' => array('field' => 'id', 'table' => 'groupex.asso',
	180	'text' => "(a.cat = 'GroupesX' OR a.cat = 'Institutions') AND pub = 'public' AND nom",
	181	'exact' => false),
137e819f	182	'section' => array('field' => 'id', 'table' => 'sections', 'text' => 'text', 'exact' => false),
043bbacf	183	'school' => array('field' => 'id', 'table' => 'profile_education_enum', 'text' => 'name', 'exact' => false),
f08062c3	184	'city' => array('table' => 'geoloc_city', 'text' => 'name', 'exact' => false)
137e819f	185	);
e31c1c3e	186	if (!Env::has('page')) {
732e5855	187	S::logger()->log('search', 'adv=' . var_export($_GET, true));
e31c1c3e	188	}
137e819f FB	189	foreach ($textFields as $field=>&$query) {
	190	if (!Env::v($field) && Env::v($field . 'Txt')) {
	191	$res = XDB::query("SELECT {$query['field']}
	192	FROM {$query['table']}
579a8c9a FB	193	WHERE {$query['text']} " . ($query['exact'] ? " = {?}" :
579a8c9a FB	194	" LIKE CONCAT('%', {?}, '%')"),
137e819f FB	195	Env::v($field . 'Txt'));
	196	$_REQUEST[$field] = $res->fetchOneCell();
	197	}
	198	}
	199
8c4a0c30	200	require_once 'userset.inc.php';
8c4a0c30	201	$view = new SearchSet(false, $action == 'geoloc' && substr($subaction, -3) == 'swf');
1fae7605	202	$view->addMod('minifiche', 'Mini-fiches', true);
35fa92e8	203	$view->addMod('trombi', 'Trombinoscope', false, array('with_promo' => true));
8ddd48c3	204	//$view->addMod('geoloc', 'Planisphère', false, array('with_annu' => 'search/adv'));
86b5c8f0	205	$view->apply('search/adv', $page, $action, $subaction);
eaf30d86	206
8c4a0c30	207	if ($subaction) {
8c4a0c30	208	return;
09824164	209	}
8c4a0c30	210	$nb_tot = $view->count();
09824164	211	if ($nb_tot > $globals->search->private_max) {
09824164	212	$this->form_prepare();
8d118e58	213	new ThrowError('Recherche trop générale.');
09824164	214	}
09824164	215	}
09824164	216
90ccb062	217	$page->changeTpl('search/index.tpl', $action == 'mini' ? SIMPLE : SKINNED);
3c640222	218	$page->addJsLink('ajax.js');
8c4a0c30	219	$page->assign('public_directory',0);
09824164	220	}
3c640222	221
838cc16a	222	function handler_autocomplete(&$page, $type = null)
	223	{
	224	// Autocompletion : according to type required, return
	225	// a list of results matching with the number of matches.
	226	// The output format is :
	227	// result1\|nb1
	228	// result2\|nb2
	229	// ...
	230	header('Content-Type: text/plain; charset="UTF-8"');
ff3eb9b7	231	$q = preg_replace(array('/\+$/', // always look for $q
	232	'/([\^\$\[\]])/', // escape special regexp char
	233	'/\*/'), // replace joker by regexp joker
	234	array('',
	235	'\\\\\1',
	236	'.*'),
	237	$_REQUEST['q']);
838cc16a	238	if (!$q) exit();
c15afc4e	239
eaf30d86	240	// try to look in cached results
ff3eb9b7	241	$cache = XDB::query('SELECT `result`
	242	FROM `search_autocomplete`
	243	WHERE `name` = {?} AND
	244	`query` = {?} AND
	245	`generated` > NOW() - INTERVAL 1 DAY',
	246	$type, $q);
c15afc4e	247	if ($res = $cache->fetchOneCell()) {
ff3eb9b7	248	echo $res;
ff3eb9b7	249	die();
c15afc4e	250	}
eaf30d86	251
2ab7a09f	252	// default search
f6818108	253	$unique = '`user_id`';
f6818108	254	$db = '`auth_user_md5`';
2ab7a09f	255	$realid = false;
f3da6d81	256	$beginwith = true;
f6818108	257	$field2 = false;
baa62e58	258	$qsearch = str_replace(array('%', '_'), '', $q);
eaf30d86	259
838cc16a	260	switch ($type) {
ff3eb9b7	261	case 'binetTxt':
	262	$db = '`binets_def` INNER JOIN
	263	`binets_ins` ON(`binets_def`.`id` = `binets_ins`.`binet_id`)';
	264	$field='`binets_def`.`text`';
	265	if (strlen($q) > 2)
	266	$beginwith = false;
	267	$realid = '`binets_def`.`id`';
	268	break;
92c3f9e5 GB	269	case 'networking_typeTxt':
	270	$db = '`profile_networking_enum` INNER JOIN
	271	`profile_networking` ON(`profile_networking`.`network_type` = `profile_networking_enum`.`network_type`)';
	272	$field = '`profile_networking_enum`.`name`';
	273	$unique = 'uid';
	274	$realid = '`profile_networking_enum`.`network_type`';
	275	break;
ff3eb9b7	276	case 'city':
	277	$db = '`geoloc_city` INNER JOIN
	278	`adresses` ON(`geoloc_city`.`id` = `adresses`.`cityid`)';
	279	$unique='`uid`';
	280	$field='`geoloc_city`.`name`';
	281	break;
	282	case 'countryTxt':
	283	$db = '`geoloc_pays` INNER JOIN
	284	`adresses` ON(`geoloc_pays`.`a2` = `adresses`.`country`)';
	285	$unique='`uid`';
	286	$field = '`geoloc_pays`.`pays`';
	287	$field2 = '`geoloc_pays`.`country`';
	288	$realid='`geoloc_pays`.`a2`';
	289	break;
	290	case 'entreprise':
	291	$db = '`entreprises`';
	292	$field = '`entreprise`';
	293	$unique='`uid`';
	294	break;
07c4f9cc	295	case 'firstname':
ff3eb9b7	296	$field = '`prenom`';
ff3eb9b7	297	$beginwith = false;
	298	break;
	299	case 'fonctionTxt':
	300	$db = '`fonctions_def` INNER JOIN
	301	`entreprises` ON(`entreprises`.`fonction` = `fonctions_def`.`id`)';
	302	$field = '`fonction_fr`';
	303	$unique = '`uid`';
	304	$realid = '`fonctions_def`.`id`';
ff3eb9b7	305	$beginwith = false;
	306	break;
	307	case 'groupexTxt':
579a8c9a FB	308	$db = "groupex.asso AS a INNER JOIN
	309	groupex.membres AS m ON(a.id = m.asso_id
	310	AND (a.cat = 'GroupesX' OR a.cat = 'Institutions')
	311	AND a.pub = 'public')";
	312	$field='a.nom';
	313	$field2 = 'a.diminutif';
ff3eb9b7	314	if (strlen($q) > 2)
ff3eb9b7	315	$beginwith = false;
579a8c9a FB	316	$realid = 'a.id';
579a8c9a FB	317	$unique = 'm.uid';
ff3eb9b7	318	break;
	319	case 'name':
	320	$field = '`nom`';
	321	$field2 = '`nom_usage`';
ff3eb9b7	322	$beginwith = false;
	323	break;
	324	case 'nationaliteTxt':
	325	$db = '`geoloc_pays` INNER JOIN
f781871c SJ	326	`auth_user_md5` ON (`geoloc_pays`.`a2` = `auth_user_md5`.`nationalite` OR
	327	`geoloc_pays`.`a2` = `auth_user_md5`.`nationalite2` OR
	328	`geoloc_pays`.`a2` = `auth_user_md5`.`nationalite3`)';
ff3eb9b7	329	$field = 'IF(`geoloc_pays`.`nat`=\'\',
	330	`geoloc_pays`.`pays`,
	331	`geoloc_pays`.`nat`)';
	332	$realid = '`geoloc_pays`.`a2`';
	333	break;
	334	case 'nickname':
	335	$field = '`profile_nick`';
	336	$db = '`auth_user_quick`';
ff3eb9b7	337	$beginwith = false;
	338	break;
	339	case 'poste':
	340	$db = '`entreprises`';
	341	$field = '`poste`';
	342	$unique='`uid`';
	343	break;
	344	case 'schoolTxt':
043bbacf SJ	345	$db = 'profile_education_enum INNER JOIN
	346	profile_education ON (profile_education_enum.id = profile_education.eduid)';
	347	$field = 'profile_education_enum.name';
	348	$unique = 'uid';
	349	$realid = 'profile_education_enum.id';
ff3eb9b7	350	if (strlen($q) > 2)
	351	$beginwith = false;
	352	break;
	353	case 'secteurTxt':
	354	$db = '`emploi_secteur` INNER JOIN
	355	`entreprises` ON(`entreprises`.`secteur` = `emploi_secteur`.`id`)';
	356	$field = '`emploi_secteur`.`label`';
	357	$realid = '`emploi_secteur`.`id`';
	358	$unique = '`uid`';
	359	$beginwith = false;
	360	break;
	361	case 'sectionTxt':
eaf30d86	362	$db = '`sections` INNER JOIN
ff3eb9b7	363	`auth_user_md5` ON(`auth_user_md5`.`section` = `sections`.`id`)';
	364	$field = '`sections`.`text`';
	365	$realid = '`sections`.`id`';
	366	$beginwith = false;
	367	break;
	368	default: exit();
838cc16a	369	}
838cc16a	370
baa62e58 FB	371	function make_field_test($fields, $beginwith) {
	372	$tests = array();
	373	$tests[] = $fields . ' LIKE CONCAT({?}, \'%\')';
	374	if (!$beginwith) {
	375	$tests[] = $fields . ' LIKE CONCAT(\'% \', {?}, \'%\')';
	376	$tests[] = $fields . ' LIKE CONCAT(\'%-\', {?}, \'%\')';
	377	}
	378	return '(' . implode(' OR ', $tests) . ')';
	379	}
ff3eb9b7	380	$field_select = $field;
baa62e58	381	$field_t = make_field_test($field, $beginwith);
ff3eb9b7	382	if ($field2) {
baa62e58 FB	383	$field2_t = make_field_test($field2, $beginwith);
baa62e58 FB	384	$field_select = 'IF(' . $field_t . ', ' . $field . ', ' . $field2. ')';
ff3eb9b7	385	}
baa62e58 FB	386	$list = XDB::iterator('SELECT ' . $field_select . ' AS field,
	387	COUNT(DISTINCT ' . $unique . ') AS nb
	388	' . ($realid ? (', ' . $realid . ' AS id') : '') . '
	389	FROM ' . $db . '
	390	WHERE ' . $field_t .
	391	($field2 ? (' OR ' . $field2_t) : '') . '
	392	GROUP BY ' . $field_select . '
ff3eb9b7	393	ORDER BY nb DESC
ff3eb9b7	394	LIMIT 11',
7eb43a1d	395	$qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch,
011b438c	396	$qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch, $qsearch);
f781871c	397
838cc16a	398	$nbResults = 0;
c15afc4e	399	$res = "";
2ab7a09f	400	while ($result = $list->next()) {
838cc16a	401	$nbResults++;
838cc16a	402	if ($nbResults == 11) {
b3ec63d5	403	$res .= $q."\|-1\n";
838cc16a	404	} else {
f6818108	405	$res .= $result['field'].'\|';
ff3eb9b7	406	$res .= $result['nb'];
	407	if (isset($result['id'])) {
	408	$res .= '\|'.$result['id'];
	409	}
	410	$res .= "\n";
838cc16a	411	}
838cc16a	412	}
ff3eb9b7	413	XDB::query('REPLACE INTO `search_autocomplete`
	414	VALUES ({?}, {?}, {?}, NOW())',
	415	$type, $q, $res);
c15afc4e	416	echo $res;
838cc16a	417	exit();
838cc16a	418	}
eaf30d86	419
2ab7a09f	420	function handler_list(&$page, $type = null, $idVal = null)
2ab7a09f	421	{
ff3eb9b7	422	// Give the list of all values possible of type and builds a select input for it
	423	$field = '`text`';
	424	$id = '`id`';
	425	$where = '';
	426
	427	switch ($type) {
	428	case 'binet':
	429	$db = '`binets_def`';
	430	break;
92c3f9e5 GB	431	case 'networking_type':
	432	$db = '`profile_networking_enum`';
	433	$field = '`name`';
	434	$id = '`network_type`';
	435	break;
ff3eb9b7	436	case 'country':
	437	$db = '`geoloc_pays`';
	438	$field = '`pays`';
	439	$id = '`a2`';
	440	$page->assign('onchange', 'changeCountry(this.value)');
	441	break;
	442	case 'fonction':
	443	$db = '`fonctions_def`';
	444	$field = '`fonction_fr`';
	445	break;
	446	case 'diploma':
f6818108	447	header('Content-Type: text/xml; charset="UTF-8"');
ff3eb9b7	448	$this->get_diplomas();
	449	$page->changeTpl('search/adv.grade.form.tpl', NO_SKIN);
	450	return;
	451	case 'groupex':
579a8c9a FB	452	$db = 'groupex.asso';
	453	$where = " WHERE (cat = 'GroupesX' OR cat = 'Institutions') AND pub = 'public'";
	454	$field = 'nom';
ff3eb9b7	455	break;
ff3eb9b7	456	case 'nationalite':
eaf30d86	457	$db = '`geoloc_pays` INNER JOIN
f781871c SJ	458	`auth_user_md5` ON (`geoloc_pays`.`a2` = `auth_user_md5`.`nationalite` OR
	459	`geoloc_pays`.`a2` = `auth_user_md5`.`nationalite2` OR
	460	`geoloc_pays`.`a2` = `auth_user_md5`.`nationalite3`)';
ff3eb9b7	461	$field = 'IF(`nat`=\'\', `pays`, `nat`)';
	462	$id = '`a2`';
	463	break;
	464	case 'region':
	465	$db = '`geoloc_region`';
	466	$field = '`name`';
eaf30d86	467	$id = '`region`';
f6818108	468	if (isset($_REQUEST['country'])) {
	469	$where .= ' WHERE `a2` = "'.$_REQUEST['country'].'"';
	470	}
ff3eb9b7	471	break;
ff3eb9b7	472	case 'school':
043bbacf	473	$db = 'profile_education_enum';
ff3eb9b7	474	$page->assign('onchange', 'changeSchool(this.value)');
	475	break;
	476	case 'section':
	477	$db = '`sections`';
	478	break;
	479	case 'secteur':
	480	$db = '`emploi_secteur`';
	481	$field = '`label`';
	482	break;
	483	default: exit();
	484	}
	485	if (isset($idVal)) {
	486	header('Content-Type: text/plain; charset="UTF-8"');
	487	$result = XDB::query('SELECT '.$field.' AS field FROM '.$db.' WHERE '.$id.' = {?} LIMIT 1',$idVal);
	488	echo $result->fetchOneCell();
	489	exit();
	490	}
f6818108	491	header('Content-Type: text/xml; charset="UTF-8"');
05cb05c0	492	$page->changeTpl('include/field.select.tpl', NO_SKIN);
f6818108	493	$page->assign('name', $type);
ff3eb9b7	494	$page->assign('list', XDB::iterator('SELECT '.$field.' AS field,
	495	'.$id.' AS id
	496	FROM '.$db.$where.'
a85224e3	497	GROUP BY '.$field.'
ff3eb9b7	498	ORDER BY '.$field));
b0691e10 FB	499	$page->assign('with_text_value', true);
b0691e10 FB	500	$page->assign('onchange', "document.forms.recherche.{$type}Txt.value = this.options[this.selectedIndex].text");
2ab7a09f	501	}
09824164	502	}
09824164	503
a7de4ef7	504	// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
09824164	505	?>