".$msg["print_output_skos_uri"]."
"; print " ".$msg['print_output_skos_polyhierarchie']; print " "; print ""; } $rqlang = "select langue_defaut from thesaurus where id_thesaurus=".$aff_num_thesaurus ; $reslang = pmb_mysql_query($rqlang) or die("
Query 'langue_defaut' failed ".pmb_mysql_error()."
".$rqlang); $objlang = pmb_mysql_fetch_object($reslang); if ($objlang->langue_defaut) $aff_langue = $objlang->langue_defaut; else $aff_langue ="fr_FR"; if ($action == "print") { if(substr($output,0,3) =="xml"){ if($output != "xmlent"){ header("Content-Type: text/xml; charset=utf-8"); if($output == "xmlskos"){ header("Content-Disposition: attachement; filename=thesaurus.skos.xml"); }else{ header("Content-Disposition: attachement; filename=thesaurus.xml"); } } $thes = new thesaurus($aff_num_thesaurus); if($thes && $thes->num_noeud_racine){ if($id_noeud_origine){ $id_noeud_debut=$id_noeud_origine; }else{ $id_noeud_debut=$thes->num_noeud_racine; } //Je peux commencer le thésaurus $dom = new DOMDocument('1.0', 'UTF-8'); //$dom->preserveWhiteSpace = false; $dom->formatOutput = true; if($output == "xml"){ $racine=creer_noeud_xml($dom,$dom,"THESAURII"); $noeud=creer_noeud_xml($dom,$racine,"DATE_EX",date('Y-m-d\TH:i:s')); $noeudthes=creer_noeud_xml($dom,$racine,"THES"); creer_noeud_xml($dom,$noeudthes,"LIB_THES",$thes->libelle_thesaurus); $res=categories::listChilds($id_noeud_debut, $aff_langue,1, "libelle_categorie"); if($res && pmb_mysql_num_rows($res)){ while ($categ=pmb_mysql_fetch_object($res)) { if(trim($categ->libelle_categorie)){ creer_categ_xml($dom,$noeudthes,0,$categ->num_noeud,$categ->libelle_categorie,$categ->note_application,$categ->comment_public,$categ->num_parent, $categ->autorite); } } } }elseif(($output == "xmlskos")||($output == "xmlent")){ if(!$uri_thes_skos){ $uri_thes_skos=$pmb_opac_url."thesaurus/".$aff_num_thesaurus; } $uri_thes_skos.="/"; $uri_noeud_skos=$uri_thes_skos; $uri_thes_skos.="#Thesaurus"; if($output == "xmlent"){ $synchro_rdf = new synchro_rdf(); $uri_thes_skos=$synchro_rdf->baseURI."thesaurus#".$aff_num_thesaurus; $uri_noeud_skos=$synchro_rdf->baseURI."concept#"; } //uri_thes_skos, do_polyhierarchie $racine=creer_noeud_xml($dom,$dom,"rdf:RDF","",array("xmlns:rdf" => "http://www.w3.org/1999/02/22-rdf-syntax-ns#", "xmlns:skos" => "http://www.w3.org/2004/02/skos/core#")); $conceptScheme=creer_noeud_xml($dom,$racine,"skos:ConceptScheme","",array("rdf:about"=>$uri_thes_skos)); $prefLabel=creer_noeud_xml($dom,$conceptScheme,"skos:prefLabel",$thes->libelle_thesaurus,array("xml:lang"=>substr($thes->langue_defaut,0,2))); //hasTopConcept $requete="SELECT id_noeud FROM noeuds WHERE num_parent='".$id_noeud_debut."' AND num_renvoi_voir='0' AND autorite != 'ORPHELINS' AND num_thesaurus='".$aff_num_thesaurus."'"; $res_hasTopConcept=pmb_mysql_query($requete); if($res_hasTopConcept && pmb_mysql_num_rows($res_hasTopConcept)){ while ($hasTopConcept=pmb_mysql_fetch_object($res_hasTopConcept)) { creer_noeud_xml($dom,$conceptScheme,"skos:hasTopConcept","",array("rdf:resource"=>$uri_noeud_skos.$hasTopConcept->id_noeud)); } } cree_export_skos($dom,$racine,$thes->num_noeud_racine,$thes->num_noeud_orphelins); } if($output == "xmlent"){ $filename=microtime(); $filename=str_replace(".","",$filename); $filename=str_replace(" ","",$filename); $filename=$base_path."/temp/".$filename.".xml"; $dom->save($filename); //on fait le ménage dans le store $synchro_rdf->deleteTriple("<".$uri_thes_skos.">",'?p','?o'); $requete="SELECT id_noeud FROM noeuds WHERE num_thesaurus='".$aff_num_thesaurus."'"; $res=pmb_mysql_query($requete); while ($row=pmb_mysql_fetch_object($res)) { $synchro_rdf->deleteTriple("<".$uri_noeud_skos.$row->id_noeud.">",'?p','?o'); } //on charge le xml $synchro_rdf->store->query($synchro_rdf->store->prefix."LOAD <".$filename."> into "); unlink($filename); print ""; die(); }else{ echo $dom->saveXML(); } }else{ die("Load thesaurus failed"); } }else{ if ($output=="tt") { header("Content-Type: application/word"); header("Content-Disposition: attachement; filename=thesaurus.doc"); } print ""; print "

".affiche_text($msg["print_thes_titre_".$typeimpression])."

"; switch($typeimpression) { case "arbo": $res.=" "; if ($id_noeud_origine) { // un noeud était fourni pour n'imprimer que cette branche $id_noeud_top = $id_noeud_origine ; } else { $rqt_id_noeud_top = "select id_noeud from noeuds where autorite='TOP' and num_thesaurus=".$aff_num_thesaurus ; $result_rqt_id_noeud_top = pmb_mysql_query($rqt_id_noeud_top) or die("Query 'TOP' failed"); $obj_id_noeud_top = pmb_mysql_fetch_object($result_rqt_id_noeud_top); $id_noeud_top = $obj_id_noeud_top->id_noeud; } // premier parcours pour calculer la profondeur du thésaurus : $profondeurmax $niveau=0; $resultat=""; $profondeurmax=0; enfants($id_noeud_top, $niveau, $resultat, $profondeurmax, false); /// deuxième parcours, cette fois-ci on imprime $niveau=0; $resultat=""; echo ""; enfants($id_noeud_top, $niveau, $resultat, $profondeurmax, true); echo "

" ; break; case "alph": $rqt = "select id_noeud from noeuds n, categories c where c.num_thesaurus=$aff_num_thesaurus and n.num_thesaurus=$aff_num_thesaurus and id_noeud=num_noeud and langue='$aff_langue' and autorite!='TOP' and autorite!='ORPHELINS' and autorite!='NONCLASSES' order by libelle_categorie "; $result = pmb_mysql_query($rqt) or die("Query alpha failed"); while ($obj_id_noeud = pmb_mysql_fetch_object($result)){ echo infos_categorie($obj_id_noeud->id_noeud); } break; case "rota": $mots=array(); if (file_exists("$include_path/marc_tables/$aff_langue/empty_words_thesaurus")) { $mots_vides_thesaurus=true; include("$include_path/marc_tables/$aff_langue/empty_words_thesaurus"); } else $mots_vides_thesaurus=false; $rqt = "select id_noeud, libelle_categorie, index_categorie from noeuds n, categories c where c.num_thesaurus=$aff_num_thesaurus and n.num_thesaurus=$aff_num_thesaurus and id_noeud=num_noeud and langue='$aff_langue' and autorite!='TOP' and autorite!='ORPHELINS' and autorite!='NONCLASSES' order by libelle_categorie "; $result = pmb_mysql_query($rqt) or die("Query rota failed"); while ($obj = pmb_mysql_fetch_object($result)) { // récupération de l'index du libellé, nettoyage $icat=$obj->index_categorie ; // si mots vides supplémentaires if ($mots_vides_thesaurus) { // suppression des mots vides if (is_array($empty_word_thesaurus)) { foreach($empty_word_thesaurus as $dummykey=>$word) { $word = convert_diacrit($word); $icat = pmb_preg_replace("/^${word}$|^${word}\s|\s${word}\s|\s${word}\$/i", ' ', $icat); } } } $icat = trim($icat); // echo "
".$obj->id_noeud." - ".$icat ; $icat = pmb_preg_replace('/\s+/', ' ', $icat); // l'index est propre, on va pouvoir exploser sur espace. $mot=array(); // index non vide (des fois que le ménage précédent l'aie vidé complètement) if ($icat) { $mot = explode(' ',$icat); for ($imot=0;$imotid_noeud ; } } } } // on a un super tableau de mots ksort($mots, SORT_STRING); echo ""; foreach ($mots as $mot=>$idiz) { // on parcourt tous les mots trouvés $rqt="select libelle_categorie, num_noeud from categories where num_noeud in(".implode(",",$idiz).") and langue='".$aff_langue."' order by index_categorie"; $ressql = pmb_mysql_query($rqt) or die ($rqt."

".pmb_mysql_error()); while ($data=pmb_mysql_fetch_object($ressql)) { // on parcourt toutes les catégories utilisant ce mot pour chercher la position d'utilisation du mot $catnette = " ".str_replace(" - "," ",strtolower(strip_empty_chars_thesaurus($data->libelle_categorie)))." "; $catnette = str_replace(" -"," ",$catnette); $catnette = str_replace("- "," ",$catnette); $posdeb=strpos($catnette," ".$mot." "); $posfin=$posdeb+strlen($mot); // echo "

deb $posdeb - fin: $posfin mot: $mot LIB: ".$data->libelle_categorie ; echo " "; } } // print_r($mots); echo "

".affiche_text(substr($data->libelle_categorie,0,$posdeb))."

".affiche_text(substr($data->libelle_categorie,$posdeb,$posfin-$posdeb))."".affiche_text(substr($data->libelle_categorie,$posfin)); echo infos_categorie($data->num_noeud, false, true)."

"; break; } // pied de page print ""; } } pmb_mysql_close($dbh); function infos_noeud($idnoeud, $niveau, $profondeurmax) { global $dbh, $aff_langue; global $aff_note_application, $aff_commentaire, $aff_voir, $aff_voir_aussi, $aff_tg, $aff_ts, $aff_no_trad, $aff_num_aut; global $color, $fontsize, $paddingmargin ; global $id_noeud_origine, $msg; // récupération info du noeud $restrict_lang = ''; if ($aff_no_trad) { $restrict_lang = " and langue='".$aff_langue."'"; } $rqt = "select num_noeud, libelle_categorie, num_parent, note_application, comment_public, case when langue='$aff_langue' then '' else langue end as trad, langue, autorite from categories,noeuds where num_noeud = id_noeud and num_noeud='$idnoeud' ".$restrict_lang." order by trad "; $ressql = pmb_mysql_query($rqt) or die ($rqt."

".pmb_mysql_error()); while ($data=pmb_mysql_fetch_object($ressql)) { $res.= "\n"; $niv=$niveau-1; switch($niv) { case 10: $res.=" "; case 9: $res.=" "; case 8: $res.=" "; case 7: $res.=" "; case 6: $res.=" "; case 5: $res.=" "; case 4: $res.=" "; case 3: $res.=" "; case 2: $res.=" "; case 1: $res.=" "; } $printingBranche = false; // afin d'avoir les bons colspan sur la branche en cas d'impression d'une branche if ($id_noeud_origine==$idnoeud){ $niveau=$niveau+1 ; $printingBranche = true; } if (($data->note_application || $data->comment_public) && ($aff_note_application || $aff_commentaire)) { $style="style='border-top: 1px dotted gray;border-bottom: 1px dotted gray; "; $largeur="40%"; } else { $style="style='"; $largeur="70%"; } $style.=" ".$fontsize[$niveau]." ".$paddingmargin[$niveau]." '"; if ($data->trad) $res.="".affiche_text($data->trad)." ".affiche_text($data->libelle_categorie).""; else $res.="".affiche_text($data->libelle_categorie); //TERME GÉNÉRAL DANS LE CAS DE L'IMPRESSION D'UNE BRANCHE if ($printingBranche){ $rqttg = "select libelle_categorie from categories where num_noeud = '".$data->num_parent."'"; $restg = pmb_mysql_query($rqttg) or die ($rqttg."

".pmb_mysql_error()); if (pmb_mysql_num_rows($restg)) { $datatg=pmb_mysql_fetch_object($restg); $res.= "
".$msg['thesaurus_printing_broad_term_code']." ".affiche_text($datatg->libelle_categorie).""; } } if ($aff_voir_aussi) { $rqtva = "select libelle_categorie from categories, voir_aussi where num_noeud_orig=$idnoeud and num_noeud=num_noeud_dest and categories.langue='".$data->langue."' and voir_aussi.langue='".$data->langue."' order by libelle_categorie " ; $resva = pmb_mysql_query($rqtva) or die ($rqtva."

".pmb_mysql_error()); if (pmb_mysql_num_rows($resva)) { $res.= "\n"; while ($datava=pmb_mysql_fetch_object($resva)) $res.= "
".$msg['thesaurus_printing_related_term_code']." ".affiche_text($datava->libelle_categorie); $res.= ""; } } if ($aff_voir) { $rqtva = "select libelle_categorie from categories, noeuds where num_renvoi_voir=$idnoeud and num_noeud=id_noeud and categories.langue='".$data->langue."' order by libelle_categorie " ; $resva = pmb_mysql_query($rqtva) or die ($rqtva."

".pmb_mysql_error()); if (pmb_mysql_num_rows($resva)) { $res.= "\n"; while ($datava=pmb_mysql_fetch_object($resva)) $res.= "
".$msg['thesaurus_printing_use_for_code']." ".affiche_text($datava->libelle_categorie).""; } } $res.=""; if ($aff_note_application && $data->note_application) $res.="".affiche_text($data->note_application).""; if ($aff_commentaire && $data->comment_public) $res.="".affiche_text($data->comment_public).""; $res.="\n"; } return $res ; } function infos_categorie($idnoeud, $printcategnoeud=true, $forcer_em=false) { global $dbh, $aff_langue, $msg; global $aff_note_application, $aff_commentaire, $aff_voir, $aff_voir_aussi, $aff_tg, $aff_ts, $aff_no_trad, $aff_num_aut; // récupération info du noeud $restrict_lang = ''; if ($aff_no_trad) { $restrict_lang = " and langue='".$aff_langue."'"; } $rqt = "select num_noeud, num_parent, libelle_categorie, note_application, comment_public, case when langue='$aff_langue' then '' else langue end as trad, langue, autorite from categories join noeuds on num_noeud=id_noeud where num_noeud='$idnoeud' ".$restrict_lang." order by trad "; $ressql = pmb_mysql_query($rqt) or die ($rqt."

".pmb_mysql_error()); while ($data=pmb_mysql_fetch_object($ressql)) { if ($data->trad) $res.="
".affiche_text($data->trad)." ".affiche_text($data->libelle_categorie).""; elseif ($printcategnoeud) $res.="

".affiche_text($data->libelle_categorie).""; // EP et EM if ($aff_voir) { $rqtva = "select libelle_categorie from categories, noeuds where num_renvoi_voir=$idnoeud and num_noeud=id_noeud and categories.langue='".$data->langue."' order by libelle_categorie " ; $resva = pmb_mysql_query($rqtva) or die ($rqtva."

".pmb_mysql_error()); if (pmb_mysql_num_rows($resva)) { $res.= "\n"; while ($datava=pmb_mysql_fetch_object($resva)) $res.= "
".$msg['thesaurus_printing_use_for_code']." ".affiche_text($datava->libelle_categorie).""; } } if ($aff_voir || $forcer_em) { $rqtva = "select libelle_categorie from categories, noeuds where id_noeud=$idnoeud and num_noeud=num_renvoi_voir and categories.langue='".$data->langue."' order by libelle_categorie " ; $resva = pmb_mysql_query($rqtva) or die ($rqtva."

".pmb_mysql_error()); if (pmb_mysql_num_rows($resva)) { $res.= "\n"; while ($datava=pmb_mysql_fetch_object($resva)) $res.= "
".$msg['thesaurus_printing_use_code']." ".affiche_text($datava->libelle_categorie).""; } } // TG if ($aff_tg) { $rqttg = "select libelle_categorie from categories join noeuds on num_noeud=id_noeud where num_noeud='$data->num_parent' and libelle_categorie not like '~%' and categories.langue='".$data->langue."' " ; $restg = pmb_mysql_query($rqttg) or die ($rqttg."

".pmb_mysql_error()); if (pmb_mysql_num_rows($restg)) { $res.= "\n"; while ($datatg=pmb_mysql_fetch_object($restg)) $res.= "
".$msg['thesaurus_printing_broad_term_code']." ".affiche_text($datatg->libelle_categorie); $res.= ""; } } // TS if ($aff_ts) { $rqtts = "select libelle_categorie from categories join noeuds on num_noeud=id_noeud where num_parent='$data->num_noeud' and libelle_categorie not like '~%' and categories.langue='".$data->langue."' " ; $rests = pmb_mysql_query($rqtts) or die ($rqttg."

".pmb_mysql_error()); if (pmb_mysql_num_rows($rests)) { $res.= "\n"; while ($datats=pmb_mysql_fetch_object($rests)) $res.= "
".$msg['thesaurus_printing_narrower_term_code']." ".affiche_text($datats->libelle_categorie); $res.= ""; } } // TA if ($aff_voir_aussi) { $rqtva = "select libelle_categorie from categories, voir_aussi where num_noeud_orig=$idnoeud and num_noeud=num_noeud_dest and categories.langue='".$data->langue."' and voir_aussi.langue='".$data->langue."' order by libelle_categorie " ; $resva = pmb_mysql_query($rqtva) or die ($rqtva."

".pmb_mysql_error()); if (pmb_mysql_num_rows($resva)) { $res.= "\n"; while ($datava=pmb_mysql_fetch_object($resva)) $res.= "
".$msg['thesaurus_printing_related_term_code']." ".affiche_text($datava->libelle_categorie); $res.= ""; } } if ($aff_note_application && $data->note_application) $res.="
".$msg['thesaurus_printing_scope_note_code']." ".affiche_text($data->note_application).""; if ($aff_commentaire && $data->comment_public) $res.="
".$msg['thesaurus_printing_public_comment_code']." ".affiche_text($data->comment_public).""; if ($aff_num_aut && $data->autorite) $res.="
".$msg['thesaurus_printing_num_aut']." ".affiche_text($data->autorite).""; } return $res ; } function enfants($id, $niveau, &$resultat, &$profondeurmax, $imprimer=false) { global $dbh, $aff_langue; if ($imprimer) { $resultat=infos_noeud($id, $niveau, $profondeurmax) ; echo $resultat; flush(); } elseif ($niveau>$profondeurmax) $profondeurmax=$niveau; // chercher les enfants $rqt = "select id_noeud from noeuds, categories where num_parent='$id' and id_noeud=num_noeud and langue='$aff_langue' and autorite!='TOP' and autorite!='ORPHELINS' and autorite!='NONCLASSES' order by libelle_categorie "; $res = pmb_mysql_query($rqt) ; if (pmb_mysql_num_rows($res)) { $niveau++; while ($data=pmb_mysql_fetch_object($res)) { enfants($data->id_noeud, $niveau, $resultat, $profondeurmax, $imprimer); } } } function strip_empty_chars_thesaurus($string) { // traitement des diacritiques $string = convert_diacrit($string); // Mis en commentaire : qu'en est-il des caractères non latins ??? // SUPPRIME DU COMMENTAIRE : ER : 12/05/2004 : ça fait tout merder... // RECH_14 : Attention : ici suppression des éventuels " // les " ne sont plus supprimés $string = stripslashes($string) ; $string = pmb_alphabetic('^a-z0-9\s', ' ',pmb_strtolower($string)); // espaces en début et fin $string = pmb_preg_replace('/^\s+|\s+$/', '', $string); return $string; } function affiche_text($string){ global $charset; if($charset != 'utf-8'){ $string = cp1252Toiso88591($string); } return htmlentities($string,ENT_QUOTES,$charset); } //Fonctions utilisées pour l'export du thésaurus en xml function creer_categ_xml($dom,$parent,$niveau, $num_noeud,$libelle_categorie,$note_application,$comment_public,$num_parent, $autorite){ global $dbh, $aff_langue; global $aff_note_application, $aff_commentaire, $aff_voir, $aff_voir_aussi, $aff_tg, $aff_ts, $aff_num_aut; global $msg; $noeud_categ=creer_noeud_xml($dom,$parent,"DE"); //ID creer_noeud_xml($dom,$noeud_categ,"ID",$num_noeud); //Libellé creer_noeud_xml($dom,$noeud_categ,"LIB_DE",$libelle_categorie); //Note application if($note_application && $aff_note_application){ creer_noeud_xml($dom,$noeud_categ,$msg['thesaurus_printing_scope_note_code'],$note_application); } //Commentaire public if($comment_public && $aff_commentaire){ creer_noeud_xml($dom,$noeud_categ,"NOTE",$comment_public); } //numero d'autorite if($autorite && $aff_num_aut){ creer_noeud_xml($dom,$noeud_categ,$msg['thesaurus_printing_num_aut'],$autorite); } //Voir aussi if($aff_voir_aussi){ $requete="SELECT libelle_categorie,num_noeud_dest FROM voir_aussi JOIN categories ON num_noeud_dest=num_noeud AND categories.langue='".$aff_langue."' WHERE num_noeud_orig='".$num_noeud."' AND voir_aussi.langue='".$aff_langue."' ORDER BY libelle_categorie"; $res=pmb_mysql_query($requete); if($res && pmb_mysql_num_rows($res)){ while ( $va=pmb_mysql_fetch_object($res) ) { if(trim($va->libelle_categorie)){ creer_noeud_xml($dom,$noeud_categ,$msg['thesaurus_printing_related_term_code'],$va->libelle_categorie); } } } } //Employé pour if($aff_voir){ $requete="SELECT libelle_categorie,id_noeud FROM noeuds JOIN categories ON id_noeud=num_noeud AND categories.langue='".$aff_langue."' WHERE num_renvoi_voir='".$num_noeud."' ORDER BY libelle_categorie"; $res=pmb_mysql_query($requete); if($res && pmb_mysql_num_rows($res)){ while ( $ep=pmb_mysql_fetch_object($res) ) { if(trim($ep->libelle_categorie)){ creer_noeud_xml($dom,$noeud_categ,$msg['thesaurus_printing_use_for_code'],$ep->libelle_categorie); } } } } //Terme générique if($aff_tg && $num_parent){ $requete="SELECT libelle_categorie FROM categories WHERE langue='".$aff_langue."' AND num_noeud='".$num_parent."'"; $res=pmb_mysql_query($requete); if($res && pmb_mysql_num_rows($res)){ while ( $tg=pmb_mysql_fetch_object($res) ) { if(trim($tg->libelle_categorie)){ creer_noeud_xml($dom,$noeud_categ,$msg['thesaurus_printing_broad_term_code'],$tg->libelle_categorie); } } } } //TS if($aff_ts){ $res=categories::listChilds($num_noeud, $aff_langue,0, "libelle_categorie"); if($res && pmb_mysql_num_rows($res)){ $noeud_ts=creer_noeud_xml($dom,$noeud_categ,$msg['thesaurus_printing_narrower_term_code'].$niveau); while ($categ=pmb_mysql_fetch_object($res)) { if(trim($categ->libelle_categorie)){ creer_categ_xml($dom,$noeud_ts,($niveau+1),$categ->num_noeud,$categ->libelle_categorie,$categ->note_application,$categ->comment_public,$categ->num_parent, $categ->autorite); } } } } } function encode_libelle_xml($val){ global $charset; if($charset == "utf-8"){ return htmlspecialchars($val,ENT_QUOTES,$charset); }else{ return htmlspecialchars(utf8_encode($val),ENT_QUOTES,$charset); } } function creer_noeud_xml(&$dom,&$noeud_parent,$name,$val="",$att=array()){ if($val){ $noeud=$dom->createElement($name,encode_libelle_xml($val)); }else{ $noeud=$dom->createElement($name); } $noeud=$noeud_parent->appendChild($noeud); if(count($att)){ do_att_xml($dom,$noeud,$att); } return $noeud; } function do_att_xml(&$dom,&$noeud_parent,$att=array()){ foreach ( $att as $name => $value ) { $element_att = $dom->createAttribute($name); $element_att->value = $value; $noeud_parent->appendChild($element_att); } } //Fin des fonctions utilisées pour l'export du thésaurus en xml function cree_export_skos(&$dom,&$racine,$num_noeud_racine,$num_noeud_orphelins){ global $aff_num_thesaurus,$uri_thes_skos,$uri_noeud_skos,$do_polyhierarchie,$aff_voir_aussi; global $aff_note_application, $aff_commentaire,$aff_tg, $aff_ts,$aff_voir, $aff_langue, $aff_no_trad, $aff_num_aut; //On corrige les renvoies de renvoies dans les noeuds si il y en a $arrayId=array(); $monTest=true; while($monTest){ $requete="SELECT n1.id_noeud, n2.num_renvoi_voir FROM noeuds n1 LEFT JOIN noeuds n2 ON n1.num_renvoi_voir=n2.id_noeud WHERE n1.num_renvoi_voir <>'0' AND n2.num_renvoi_voir <>'0'"; $res=pmb_mysql_query($requete); if(pmb_mysql_num_rows($res)){ while ($ligne=pmb_mysql_fetch_object($res)) { if(!in_array($ligne->id_noeud,$arrayId)){ $arrayId[]=$ligne->id_noeud; } pmb_mysql_query("UPDATE noeuds SET num_renvoi_voir=".$ligne->num_renvoi_voir." WHERE id_noeud=".$ligne->id_noeud); } }else{ $monTest=false; } } //Je récupère les ids de tous les noeuds qui n'ont pas de renvoie $requete="SELECT * FROM noeuds WHERE num_thesaurus='".$aff_num_thesaurus."' AND num_renvoi_voir='0' AND id_noeud != ".$num_noeud_racine." AND autorite != 'ORPHELINS'"; $res=pmb_mysql_query($requete); if($res && pmb_mysql_num_rows($res)){ while ($noeud=pmb_mysql_fetch_object($res)) { $concept=creer_noeud_xml($dom,$racine,"skos:Concept","",array("rdf:about"=>$uri_noeud_skos.$noeud->id_noeud)); $noeud_liee=array(); //On ne traite jamais les Orphelins et le noeud racine $noeud_liee[$num_noeud_orphelins]=1; $noeud_liee[$num_noeud_racine]=1; //Gestion des parents if($aff_tg && $noeud->num_parent){ if($num_noeud_racine == $noeud->num_parent){ creer_noeud_xml($dom,$concept,"skos:topConceptOf","",array("rdf:resource"=>$uri_thes_skos)); }else{ creer_noeud_xml($dom,$concept,"skos:broader","",array("rdf:resource"=>$uri_noeud_skos.$noeud->num_parent)); } $noeud_liee[$noeud->num_parent] = 1; } //Les renvois if($aff_voir){ $requete="SELECT id_noeud, num_parent, libelle_categorie, langue FROM noeuds JOIN categories ON id_noeud=num_noeud AND noeuds.num_thesaurus=categories.num_thesaurus WHERE num_renvoi_voir='".$noeud->id_noeud."' AND noeuds.num_thesaurus='".$aff_num_thesaurus."' ORDER BY libelle_categorie"; $res_renvoi=pmb_mysql_query($requete); if($res_renvoi && pmb_mysql_num_rows($res_renvoi)){ while ($renvoi=pmb_mysql_fetch_object($res_renvoi)) { if($do_polyhierarchie){ //Je regarde si le libellé du renvoie est le même que celui du noeuds $requete="SELECT * FROM categories WHERE num_noeud='".$noeud->id_noeud."' AND num_thesaurus='".$aff_num_thesaurus."' AND libelle_categorie='".addslashes($renvoi->libelle_categorie)."' AND langue='".addslashes($renvoi->langue)."'"; $res2=pmb_mysql_query($requete); if($res2 && pmb_mysql_num_rows($res2)){//Dans ce cas il s'agit de la même categ qui a été duppliqué pour la polyhierarchie if(!$noeud_liee[$renvoi->num_parent]){ creer_noeud_xml($dom,$concept,"skos:broader","",array("rdf:resource"=>$uri_noeud_skos.$renvoi->num_parent)); $noeud_liee[$renvoi->num_parent]=1; }else{ creer_noeud_xml($dom,$concept,"skos:altLabel",$renvoi->libelle_categorie,array("xml:lang"=>substr($renvoi->langue,0,2))); } }else{ creer_noeud_xml($dom,$concept,"skos:altLabel",$renvoi->libelle_categorie,array("xml:lang"=>substr($renvoi->langue,0,2))); } }else{ creer_noeud_xml($dom,$concept,"skos:altLabel",$renvoi->libelle_categorie,array("xml:lang"=>substr($renvoi->langue,0,2))); } } } } //Gestion des enfants if($aff_ts){ //$requete="SELECT id_noeud FROM noeuds WHERE num_parent='".$noeud->id_noeud."' AND num_renvoi_voir='0' AND num_thesaurus='".$aff_num_thesaurus."'"; $requete="SELECT id_noeud, num_renvoi_voir FROM noeuds WHERE num_parent='".$noeud->id_noeud."' AND num_thesaurus='".$aff_num_thesaurus."'"; $res_narrower=pmb_mysql_query($requete); if($res_narrower && pmb_mysql_num_rows($res_narrower)){ while ($narrower=pmb_mysql_fetch_object($res_narrower)) { if($narrower->num_renvoi_voir){ if(!$noeud_liee[$narrower->num_renvoi_voir]){ creer_noeud_xml($dom,$concept,"skos:narrower","",array("rdf:resource"=>$uri_noeud_skos.$narrower->num_renvoi_voir)); $noeud_liee[$narrower->num_renvoi_voir]=1; } }elseif(!$noeud_liee[$narrower->id_noeud]){ creer_noeud_xml($dom,$concept,"skos:narrower","",array("rdf:resource"=>$uri_noeud_skos.$narrower->id_noeud)); $noeud_liee[$narrower->id_noeud]=1; } } } } //Je vais chercher les informations des catégories $restrict_lang = ''; if ($aff_no_trad) { $restrict_lang = " and langue='".$aff_langue."'"; } $requete="SELECT * FROM categories WHERE num_noeud='".$noeud->id_noeud."' AND num_thesaurus='".$aff_num_thesaurus."'".$restrict_lang; $res_cat=pmb_mysql_query($requete); if($res_cat && pmb_mysql_num_rows($res_cat)){ while ($categ=pmb_mysql_fetch_object($res_cat)) { //Appartenance au schéma creer_noeud_xml($dom,$concept,"skos:inScheme","",array("rdf:resource"=>$uri_thes_skos)); //Libellé $tmp = trim($categ->libelle_categorie); if($tmp){ creer_noeud_xml($dom,$concept,"skos:prefLabel",$categ->libelle_categorie,array("xml:lang"=>substr($categ->langue,0,2))); } //Note application if($aff_note_application){ $tmp = trim($categ->note_application); if($tmp){ creer_noeud_xml($dom,$concept,"skos:scopeNote",$categ->note_application,array("xml:lang"=>substr($categ->langue,0,2))); } } //Commentaire public if($aff_commentaire){ $tmp = trim($categ->comment_public); if($tmp){ creer_noeud_xml($dom,$concept,"skos:note",$categ->comment_public,array("xml:lang"=>substr($categ->langue,0,2))); } } } } //Les voir aussi if($aff_voir_aussi){ $requete="SELECT num_noeud_dest FROM voir_aussi WHERE num_noeud_orig='".$noeud->id_noeud."'"; $res_related=pmb_mysql_query($requete); if($res_related && pmb_mysql_num_rows($res_related)){ while ($related=pmb_mysql_fetch_object($res_related)) { if(!$noeud_liee[$related->num_noeud_dest]){ creer_noeud_xml($dom,$concept,"skos:related","",array("rdf:resource"=>$uri_noeud_skos.$related->num_noeud_dest)); $noeud_liee[$related->num_noeud_dest]=1; } } } } //numero d'autorite if($aff_num_aut){ if($noeud->autorite){ creer_noeud_xml($dom,$concept,"skos:notation",$noeud->autorite,array("xml:lang"=>substr($categ->langue,0,2))); } } } } } ?>