analyser();
$lg = $langages->table;
//affichage du selectionneur de thesaurus et du lien vers les thésaurus
$liste_thesaurus = thesaurus::getThesaurusList();
$sel_thesaurus = '';
$lien_thesaurus = '';
if ($thesaurus_mode_pmb != 0) { //la liste des thesaurus n'est pas affichée en mode monothesaurus
$sel_thesaurus = " ";
$lien_thesaurus = "".$msg[thes_lien]."";
}
$user_query=str_replace("",$sel_thesaurus,$user_query);
$user_query=str_replace("",$lien_thesaurus,$user_query);
//affichage du choix de langue pour la recherche
$sel_langue = '';
$sel_langue = "
";
$sel_langue.= "",$sel_langue,$user_query);
$user_query=str_replace("!!user_input!!",htmlentities(stripslashes($user_input),ENT_QUOTES, $charset),$user_query);
//recuperation du thesaurus session
if(!$id_thes) {
$id_thes = thesaurus::getSessionThesaurusId();
} else {
thesaurus::setSessionThesaurusId($id_thes);
}
if ($id_thes != -1) {
$thes = new thesaurus($id_thes);
}
// nombre de références par pages
if ($nb_per_page_author != "")
$nb_per_page = $nb_per_page_author ;
else $nb_per_page = 10;
// traitement de la saisie utilisateur
include("$include_path/marc_tables/$pmb_indexation_lang/empty_words");
// $authors_list_tmpl : template pour la liste auteurs
$categ_list_tmpl = "
$msg[1320] !!cle!!
!!list!!
!!nav_bar!!
";
function list_categ($cle, $categ_list, $nav_bar) {
global $categ_list_tmpl;
$categ_list_tmpl = str_replace("!!cle!!", $cle, $categ_list_tmpl);
$categ_list_tmpl = str_replace("!!list!!", $categ_list, $categ_list_tmpl);
$categ_list_tmpl = str_replace("!!nav_bar!!", $nav_bar, $categ_list_tmpl);
categ_browser::search_form();
print pmb_bidi($categ_list_tmpl);
}
if(!$page) $page=1;
$debut =($page-1)*$nb_per_page;
if(!$nbr_lignes){
$requete = "SELECT SQL_CALC_FOUND_ROWS noeuds.id_noeud AS categ_id, ";
}else{
$requete = "SELECT noeuds.id_noeud AS categ_id, ";
}
$requete.= "noeuds.num_renvoi_voir AS categ_see, ";
$requete.= "noeuds.num_thesaurus, ";
if($user_input){
$aq=new analyse_query($user_input);
if ($aq->error) {
categ_browser::search_form($parent);
error_message($msg["searcher_syntax_error"],sprintf($msg["searcher_syntax_error_desc"],$aq->current_car,$aq->input_html,$aq->error_message));
exit;
}
}
if(($lg_search == 1) || (($id_thes != -1) && ($thes->langue_defaut == $lang))){
//On recherche dans toutes les langues ou dans celle par défaut du thésaurus
// $user_input -> Permet de savoir si l'on a préciser une recheche
//$id_thes -> Si l'on est ici c'est que l'on a qu'un thésaurus et la langue de l'interface est celle du thésaurus
$requete.= "categories.langue AS langue, ";
$requete.= "categories.libelle_categorie AS categ_libelle, ";
$requete.= "categories.note_application AS categ_comment, ";
$requete.= "categories.index_categorie AS index_categorie ";
if($user_input){
$members = $aq->get_query_members("categories", "libelle_categorie", "index_categorie", "num_noeud");
$requete.= ", ".$members["select"]." AS pert ";
}
$requete.= "FROM noeuds JOIN categories ON noeuds.id_noeud = categories.num_noeud ";
if($lg_search != 1){
$requete.=" AND categories.langue='".addslashes($lang)."' ";
}
$requete.= "WHERE 1 ";
if($user_input){
$requete.= "AND (".$members["where"].") ";
}
if($id_thes != -1) $requete.= "AND noeuds.num_thesaurus = '".$id_thes."' ";
}else{
//J'ai qu'un thésaurus mais la langue du thésaurus est différente de l'interface
$requete.= "IF (catlg.num_noeud IS NULL, catdef.langue, catlg.langue) as langue, ";
$requete.= "IF (catlg.num_noeud IS NULL, catdef.libelle_categorie, catlg.libelle_categorie) as categ_libelle, ";
$requete.= "IF (catlg.num_noeud IS NULL, catdef.note_application, catlg.note_application) as categ_comment, ";
$requete.= "IF (catlg.num_noeud IS NULL, catdef.index_categorie, catlg.index_categorie) as index_categorie ";
if($user_input){
$members_catdef = $aq->get_query_members("catdef", "catdef.libelle_categorie", "catdef.index_categorie", "catdef.num_noeud");
$members_catlg = $aq->get_query_members("catlg", "catlg.libelle_categorie", "catlg.index_categorie", "catlg.num_noeud");
$requete.= ", IF (catlg.num_noeud IS NULL, (".$members_catdef["select"]."), (".$members_catlg["select"].") ) AS pert ";
}
if(($id_thes != -1)){//Je n'ai qu'un thésaurus
$requete.= "FROM noeuds JOIN categories AS catdef ON noeuds.id_noeud = catdef.num_noeud AND catdef.langue = '".$thes->langue_defaut."' ";
$requete.= "LEFT JOIN categories AS catlg ON catdef.num_noeud = catlg.num_noeud AND catlg.langue = '".$lang."' ";
$requete.= "WHERE noeuds.num_thesaurus = '".$id_thes."' ";
}else{
//Plusieurs thésaurus
$requete.= "FROM noeuds JOIN thesaurus ON thesaurus.id_thesaurus = noeuds.num_thesaurus ";
$requete.= "JOIN categories AS catdef ON noeuds.id_noeud = catdef.num_noeud AND catdef.langue = thesaurus.langue_defaut ";
$requete.= "LEFT JOIN categories AS catlg on catdef.num_noeud = catlg.num_noeud AND catlg.langue = '".$lang."' ";
$requete.= "WHERE 1 ";
}
if($user_input){
$requete.= "AND ( IF (catlg.num_noeud IS NULL, ".$members_catdef["where"].", ".$members_catdef["where"].") ) ";
}
}
$requete.= "ORDER BY ";
if($user_input){
$requete.= "pert DESC,";
}
$requete.= " num_thesaurus, index_categorie ";
$requete.= "LIMIT ".$debut.",".$nb_per_page." ";
$res = mysql_query($requete, $dbh);
if(!$nbr_lignes){
$qry = "SELECT FOUND_ROWS() AS NbRows";
if($resnum = mysql_query($qry)){
$nbr_lignes=mysql_result($resnum,0,0);
}
}
if($nbr_lignes) {
$categ_list_tmpl=str_replace( "",$nbr_lignes.' ',$categ_list_tmpl);
$parity=1;
while(($categ=mysql_fetch_object($res))) {
$temp = new categories($categ->categ_id, $categ->langue);
if ($id_thes == -1) {
$thes = new thesaurus($categ->num_thesaurus);
$display = '['.htmlentities($thes->libelle_thesaurus,ENT_QUOTES, $charset).']';
} else {
$display = '';
}
if ($lg_search) $display.= '['.$lg[$categ->langue].'] '; else $display.= '';
if($categ->categ_see) {
$temp = new categories($categ->categ_see, $categ->langue);
$display.= $categ->categ_libelle." -> ";
if ($thesaurus_categories_show_only_last) {
$display.= $temp->libelle_categorie;
} else {
$display.= categories::listAncestorNames($categ->categ_see, $categ->langue);
}
$display.= "@";
} else {
if ($thesaurus_categories_show_only_last) {
$display.= $categ->categ_libelle;
} else {
$display.= categories::listAncestorNames($categ->categ_id, $categ->langue);
}
}
$acateg = new category($categ->categ_id);
$notice_count = $acateg->notice_count(false);
$categ_entry = $display ;
$categ_comment = $categ->categ_comment;
$link_categ = "./autorites.php?categ=categories&sub=categ_form&parent=0&id=".$categ->categ_id."&id_thes=".$categ->num_thesaurus;
if ($parity % 2) {
$pair_impair = "even";
} else {
$pair_impair = "odd";
}
$parity += 1;
$tr_javascript=" onmouseover=\"this.className='surbrillance'\" onmouseout=\"this.className='$pair_impair'\" ";
$categ_list .= "