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(stripslashes($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 = pmb_mysql_query($requete, $dbh);
if(!$nbr_lignes){
$qry = "SELECT FOUND_ROWS() AS NbRows";
if($resnum = pmb_mysql_query($qry)){
$nbr_lignes=pmb_mysql_result($resnum,0,0);
}
}
if($nbr_lignes) {
$categ_list_tmpl=str_replace( "",$nbr_lignes.' ',$categ_list_tmpl);
$parity=1;
$categ_list .= "
".$msg[103]."
".$msg["categ_commentaire"]."
".$msg["count_notices_assoc"]."
";
$num_auth_present=false;
$req="SELECT id_authority_source FROM authorities_sources WHERE authority_type='category' AND TRIM(authority_number) !='' LIMIT 1";
$res_aut=pmb_mysql_query($req,$dbh);
if($res_aut && pmb_mysql_num_rows($res_aut)){
$categ_list=str_replace("","
";
//Numéros d'autorite
if($num_auth_present){
$requete="SELECT authority_number,origin_authorities_name, origin_authorities_country FROM authorities_sources JOIN origin_authorities ON num_origin_authority=id_origin_authorities WHERE authority_type='category' AND num_authority='".$categ->categ_id."' AND TRIM(authority_number) !='' GROUP BY authority_number,origin_authorities_name,origin_authorities_country ORDER BY authority_favorite DESC, origin_authorities_name";
$res_aut=pmb_mysql_query($requete,$dbh);
if($res_aut && pmb_mysql_num_rows($res_aut)){
$categ_list .= "