base_query = $base_query; $this->term = $term; $this->parent_link = $parent_link; $this->url_for_term_show = $url_for_term_show; $this->keep_tilde = (int) $keep_tilde; $this->id_thes = (int) $id_thes; $this->iframe_mode = $iframe_mode; $this->thes = new thesaurus($this->id_thes); } public function has_child($categ_id) { $requete = "select count(1) from noeuds where num_parent = '".$categ_id."' "; $resultat=pmb_mysql_query($requete); return pmb_mysql_result($resultat,0,0); } //Récupération du chemin public function get_categ_lib_($categ_id) { global $charset; $re=""; //Instanciation de la catégorie $r=new category($categ_id); //Récupération du chemin for ($i=0; $ipath_table); $i++) { if ($re!='') $re.=' - '; //Si la catégorie ne commence pas par "~", on affiche le libelle avec un lien pour la recherche sur le terme, sinon on affiche ~ if (($r->path_table[$i]['libelle'][0]!='~')||($this->keep_tilde)) { if ($this->iframe_mode) { $re .= "" . htmlentities($r->path_table[$i]['libelle'], ENT_QUOTES, $charset) . ""; } else { $args = 'term='.rawurlencode($r->path_table[$i]['libelle']).'&id_thes='.$r->thes->id_thesaurus.'&'.$this->base_query; $re.="url_for_term_show.'?'.$args."\" data-evt-args=\"".$args."\" target=\"term_show\">".htmlentities($r->path_table[$i]['libelle'],ENT_QUOTES,$charset).''; } } else{ $re.='~'; } } if ($re!='') $re.=' - '; //Si le libellé de la catégorie ne commence pas par "~", on affiche le libellé avec un lien sinon ~ if ((substr($r->libelle, 0, 1) != '~') || ($this->keep_tilde)) { if ($this->iframe_mode) { $re .= "" . htmlentities($r->libelle, ENT_QUOTES, $charset) . ""; } else { $args = 'term='.rawurlencode($r->libelle).'&id_thes='.$r->thes->id_thesaurus.'&'.$this->base_query; $re.="url_for_term_show.'?'.$args."\" data-evt-args=\"".$args."\" target=\"term_show\">".htmlentities($r->libelle,ENT_QUOTES,$charset).''; } } else{ $re.='~'; } return $re; } public function get_categ_lib($categ_id, $categ_libelle,$force_link=false) { global $charset; $r=new category($categ_id); if($r->is_under_tilde){ return "~"; } if ($r->parent_id) { $path=$this->get_categ_lib_($r->parent_id); } $same=false; if( pmb_strtolower(convert_diacrit($r->libelle)) == pmb_strtolower(convert_diacrit($categ_libelle))){ $same=true; } //if ($r->libelle != $categ_libelle) { if (!$same || $force_link) { if($same){ $re=htmlentities($r->libelle,ENT_QUOTES,$charset); }else{ if ($this->iframe_mode) { $re = "" . htmlentities($r->libelle, ENT_QUOTES, $charset) . ""; } else { $args = 'term='.rawurlencode($r->libelle).'&id_thes='.$r->thes->id_thesaurus.'&'.$this->base_query; $re = "url_for_term_show.'?'.$args."\" data-evt-args=\"".$args."\" target=\"term_show\">".htmlentities($r->libelle,ENT_QUOTES,$charset).''; } } if ($path) $re.=' ('.$path.')'; } else { if ($path) $re=$path; } return $re; } public function is_same_lib($categ_libelle,$categ_id) { $r=new category($categ_id); if( pmb_strtolower(convert_diacrit($r->libelle)) == pmb_strtolower(convert_diacrit($categ_libelle))){ return true; }else{ return false; } } public function show_tree($categ_id,$prefixe,$level,$max_level) { global $charset; global $msg; global $lang; global $dbh; $pl=$this->parent_link; global ${$pl}; $res=''; if ($this->has_child($categ_id)&&($level<($max_level))) { $resultat_2=$this->do_query(4,$categ_id); while ($r2=pmb_mysql_fetch_object($resultat_2)) { if($r2->categ_libelle[0] != "~"){ $visible=$pl($r2->categ_id,$r2->categ_see); if ($visible["VISIBLE"]) { if ($this->iframe_mode) { $res .= $visible['LINK'] ." $prefixe - " . htmlentities($r2->categ_libelle, ENT_QUOTES, $charset) . ""; } else { $args = 'term='.rawurlencode($r2->categ_libelle).'&id_thes='.$this->id_thes.'&'.$this->base_query; $res .= $visible['LINK'] .' '.$prefixe." - url_for_term_show.'?'.$args."\" data-evt-args=\"".$args."\" target=\"term_show\">".htmlentities($r2->categ_libelle,ENT_QUOTES,$charset).''; } if ($r2->categ_see) { $res.='
'.$msg['term_show_see'].' '.$this->get_categ_lib($r2->categ_see,$r2->categ_libelle,true); //if ($this->is_same_lib($r2->categ_libelle,$r2->categ_see)) $res.=' - '.htmlentities($r2->categ_libelle,ENT_QUOTES,$charset); $res.=''; } $res.='
'; } if ($this->iframe_mode) { $prefix = $prefixe." - ".htmlentities($r2->categ_libelle,ENT_QUOTES,$charset).''; } else { $prefix = $prefixe." - url_for_term_show.'?term='.rawurlencode($r2->categ_libelle).'&id_thes='.$this->id_thes.'&'.$this->base_query."\">".htmlentities($r2->categ_libelle,ENT_QUOTES,$charset).''; } $res.=$this->show_tree($r2->categ_id, $prefix, $level + 1, $max_level); } } } return $res; } public function get_level($categ_id) { $l=0; $parent=new category($categ_id); $l=count($parent->path_table); return $l; } public function show_notice() { global $history,$history_thes; global $charset; global $msg; global $dbh; global $lang; global $thesaurus_mode_pmb; $pl=$this->parent_link; global ${$pl}; $res=''; if ($history!='') { if ($this->iframe_mode) { $res .= "< "; } else { $args = 'term='.rawurlencode(stripslashes($history)).'&id_thes='.rawurlencode(stripslashes($history_thes)).'&'.$this->base_query; $res.="url_for_term_show.'?'.$args."\" data-evt-args=\"".$args."\" target=\"term_show\">< "; } } //Récupération des catégories ayant le même libellé $resultat_1=$this->do_query(1); if($thesaurus_mode_pmb == 0){ $res.=''.htmlentities($this->term,ENT_QUOTES,$charset).'

'; }else{ $res.=''.htmlentities("[".$this->thes->libelle_thesaurus."] ".$this->term,ENT_QUOTES,$charset).'
'; } //Initialisation du tableau des renvois (permet d'éviter d'afficher deux fois un même renvoi, ou un renvoi vers le noeud traité) $t_see=array(); //Pour chaque catégorie ayant le même libellé while ($r1=pmb_mysql_fetch_object($resultat_1)) { $t_see[$r1->categ_id]=1;//Pour les renvois vers le un noeud traité //Lecture du chemin vers la catégorie $renvoi=$this->get_categ_lib($r1->categ_id,$this->term).' '; //Si la catégorie est une sous catégorie d'une terme "~", alors c'est un renvoi d'un terme orphelin ou on en tient pas compte if ((substr($renvoi, 0, 1) == '~') && ($r1->categ_see) && (!$this->keep_tilde)) { //Si le renvoi n'existe pas déjà, on l'affiche et on l'enregistre if (!isset($t_see[$r1->categ_see]) || !$t_see[$r1->categ_see]) { $visible=$pl($r1->categ_id,$r1->categ_see); if ($visible["VISIBLE"]) $res.=$visible["LINK"].' '.$msg['term_show_see'].' '.$this->get_categ_lib($r1->categ_see,$this->term).'
'; $t_see[$r1->categ_see]=1; } } else { if (substr($renvoi, 0, 1) != '~' || ($this->keep_tilde)) { //Si la catégorie n'est pas une sous catégorie d'un terme "~", on affiche le chemin $visible=$pl($r1->categ_id,$r1->categ_see); $visible=$pl($r1->categ_id,$r1->categ_see); if ($visible["VISIBLE"]) { $res.=$visible["LINK"].' '.$renvoi.' - '.$r1->categ_libelle.'
'; //Si il y a un renvoi, on l'affiche if ($r1->categ_see) { $res.='
'.$msg['term_show_see'].' '.$this->get_categ_lib($r1->categ_see,$r1->categ_libelle,true); //Si c'est le même libellé, on l'ajoute au chemin parent, sans lien $res.='

'; } } } } //Si le renvoi ne commence pas par "~" alors on affiche les sous niveaux et les catégories associées if ((substr($renvoi, 0, 1) != '~') || ($this->keep_tilde)) { //Affichage des premiers sous niveaux $res.='
'; //Recherche du niveau de la catégorie (0,1 ou supérieur à 1) $l=$this->get_level($r1->categ_id); //Si le niveau est supérieur à 1, on affiche que deux sous niveaux sinon 3 if ($l>1) $max_level=3; else $max_level=2; //Affichage des n sous premiers niveaux $res.=$this->show_tree($r1->categ_id,$this->term,0,$max_level); $res.='
'; //Recherche des catégories associées $requete = "select count(1) from voir_aussi where voir_aussi.num_noeud_orig = '".$r1->categ_id."' "; $nta=pmb_mysql_result(pmb_mysql_query($requete),0,0); //Si il y en a if ($nta) { $res.='
'; $resultat_ta=$this->do_query(2,$r1->categ_id); $first = 1; $res1 = ''; while ($r_ta=pmb_mysql_fetch_object($resultat_ta)) { $visible=$pl($r_ta->categ_id,$r_ta->categ_see); if ($visible["VISIBLE"]) { if (!$first) $res1.=", "; else $first=0; $args = 'term='.rawurlencode($r_ta->categ_libelle).'&id_thes='.$this->id_thes.'&'.$this->base_query; if ($this->iframe_mode) { $res1 .= $visible["LINK"] . " " . htmlentities($r_ta->categ_libelle, ENT_QUOTES, $charset).""; } else { $res1 .= $visible["LINK"] . " url_for_term_show.'?'.$args."\" data-evt-args=\"".$args."\" target=\"term_show\">".htmlentities($r_ta->categ_libelle,ENT_QUOTES,$charset).''; } } } if ($res1!='') $res.=''.$msg['term_show_see_also'].'
'.$res1.'
'; $res.= '
'; } //Recherche des liens d'autorités entre catégories $aut_link= new aut_link(AUT_TABLE_CATEG,$r1->categ_id); if(count($aut_link->aut_list)){ $res1_tab = array(); $source = new marc_list("aut_link"); $liste_type_relation = $source->table; foreach ( $aut_link->aut_list as $val ) { if($val["to"] == AUT_TABLE_CATEG){ $r_link=$this->do_query(3,$val["to_num"]); if(pmb_mysql_num_rows($r_link) == 1){ $r_link_res=pmb_mysql_fetch_object($r_link); $visible=$pl($r_link_res->categ_id,$r_link_res->categ_see); $info_thes=""; if($r_link_res->thes_id != $this->id_thes){ $info_thes="[".$r_link_res->thes_libelle."] "; } if ($visible["VISIBLE"]) { $tmp=$visible["LINK"]." ".htmlentities($info_thes,ENT_QUOTES,$charset).$this->get_categ_lib($r_link_res->categ_id, $this->term,true); if ($val['direction'] == 'up') { $res1_tab[$liste_type_relation['ascendant'][$val["type"]]][]=$tmp; } else { $res1_tab[$liste_type_relation['descendant'][$val["type"]]][]=$tmp; } } } } } if(count($res1_tab)){ $res.='
'.$msg['aut_link'].' :'; foreach ( $res1_tab as $key => $value ) { $res.=''.htmlentities($key,ENT_QUOTES,$charset).' : '.implode(",",$value).'
'; } $res.= '
'; } } } } $res.= '
'; return $res; } public function do_query($mode,$param=""){ global $lang; $select="SELECT DISTINCT noeuds.id_noeud AS categ_id, "; $from="FROM noeuds "; $join=" JOIN categories AS catdef ON noeuds.id_noeud = catdef.num_noeud AND catdef.langue = '".addslashes($this->thes->langue_defaut)."' "; $where="WHERE 1 "; $order="ORDER BY categ_libelle "; $limit=""; if(($lang==$this->thes->langue_defaut) || (in_array($lang, thesaurus::getTranslationsList())===false)){ $simple=true; }else{ $simple=false; } //$select.= "noeuds.num_parent AS categ_parent, "; if($simple){ $select.="catdef.libelle_categorie AS categ_libelle, "; //$select.= "catdef.note_application as categ_comment, "; //$select.= "catdef.index_categorie as index_categorie "; }else{ $select.="IF (catlg.num_noeud IS NULL, catdef.libelle_categorie, catlg.libelle_categorie) AS categ_libelle, "; $join.="LEFT JOIN categories AS catlg ON catdef.num_noeud = catlg.num_noeud AND catlg.langue = '".$lang."' "; //$select.= "if (catlg.num_noeud is null, catdef.note_application, catlg.note_application) as categ_comment, "; //$select.= "if (catlg.num_noeud is null, catdef.index_categorie, catlg.index_categorie) as index_categorie "; } if($mode == 1){ $where.="AND noeuds.num_thesaurus = '".$this->id_thes."' "; if($simple){ $where.="AND catdef.libelle_categorie = '".addslashes($this->term)."' "; }else{ $where.="AND (IF (catlg.num_noeud IS NULL, catdef.libelle_categorie = '".addslashes($this->term)."', catlg.libelle_categorie = '".addslashes($this->term)."') ) "; } }elseif($mode == 2){ $from="FROM voir_aussi JOIN noeuds ON noeuds.id_noeud=voir_aussi.num_noeud_dest ";//On écrase l'ancien from car ce n'est pas ce que l'on veut $where.="AND voir_aussi.num_noeud_orig = '".$param."' "; }elseif($mode == 3){ $select.="noeuds.num_thesaurus as thes_id, "; $select.="thesaurus.libelle_thesaurus as thes_libelle, "; $join.="JOIN thesaurus ON noeuds.num_thesaurus=thesaurus.id_thesaurus "; $where.="AND noeuds.id_noeud = '".$param."' "; }elseif($mode == 4){ $where.="AND noeuds.num_parent = '".$param."' "; $limit.="LIMIT 400"; } $select.="noeuds.num_renvoi_voir AS categ_see "; $requete=$select.$from.$join.$where.$order.$limit; return pmb_mysql_query($requete); } }