Subversion Repositories Applications.papyrus

Rev

Rev 1856 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */ 
// +--------------------------------------------------------------------------------------------------------+
// | PHP version 4.1                                                                                                                                                                            |
// +--------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                                                       |
// +--------------------------------------------------------------------------------------------------------+
// | This library is free software; you can redistribute it and/or                                                                      |
// | modify it under the terms of the GNU Lesser General Public                                                                         |
// | License as published by the Free Software Foundation; either                                                                               |
// | version 2.1 of the License, or (at your option) any later version.                                                         |
// |                                                                                                                                                                                                            |
// | This library 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                                                          |
// | Lesser General Public License for more details.                                                                                                    |
// |                                                                                                                                                                                                            |
// | You should have received a copy of the GNU Lesser General Public                                                                   |
// | License along with this library; if not, write to the Free Software                                                                |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                                                  |
// +--------------------------------------------------------------------------------------------------------+
// CVS : $Id: menu.php,v 1.35 2008-08-12 16:22:51 jp_milcent Exp $
/**
* Applette : menu
*
* Génère une liste de listes comportant tous les niveaux des menus "classiques" d'un site.
* Nécessite :
* - Variable de Papyrus.
* - Base de données de Papyrus
* - Pear DB
* - Pear Net_URL
* - API Débogage 1.0
*
*@package Applette
*@subpackage Menu
//Auteur original :
*@author                Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author                Aucun
*@copyright      Tela-Botanica 2000-2004
*@version          $Revision: 1.35 $ $Date: 2008-08-12 16:22:51 $
// +------------------------------------------------------------------------------------------------------+
*/

// +------------------------------------------------------------------------------------------------------+
// |                                                                                    ENTÊTE du PROGRAMME                                                                            |
// +------------------------------------------------------------------------------------------------------+
// Inclusion de la bibliothèque defonction sur les menu : inutile car inclue par Papyrus
 require_once GEN_CHEMIN_BIBLIO.'pap_menu.fonct.php';

$GLOBALS['_MENU_']['nom_fonction'] = 'afficherMenuNiveauMultiple';
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = $GLOBALS['_MENU_']['nom_fonction'];
$GLOBALS['_GEN_commun']['info_applette_balise'] = '<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe'].'(MENU_?(?:(|CLASSIQUE|COMMUN|DEROULANT)_([0-9]+)_([0-9]+)(|_ID_([0-9]+))|(UNIQUE)_([0-9]+))(?:|_NUMID_([0-9]+))) -->';

// +------------------------------------------------------------------------------------------------------+
// |                                                                                    CORPS du PROGRAMME                                                                              |
// +------------------------------------------------------------------------------------------------------+


// +------------------------------------------------------------------------------------------------------+
// |                                                                               LISTE de FONCTIONS                                                                                   |
// +------------------------------------------------------------------------------------------------------+
/** Fonction GEN_afficherMenuNiveauMultiple() - Retourne la liste des listes de menus.
*
* Cette fonction retourne ne fait qu'encapsuler une fonction récursive
* retournant les listes de menus de l'arborescence d'un site dans une
* langue donnée.
*
* @param  array contient les arguments de la fonction en 1 le niveau de départ et en 2 le niveau d'arrivée (profondeur max demandée).
* @param  array  tableau global de Papyrus.
* @return string HTML la liste des listes de menus.
*/
function afficherMenuNiveauMultiple($tab_applette_arguments, $_GEN_commun)
{
        // Initialisation de variable et gestion des globales
        $objet_pear_db = $_GEN_commun['pear_db'];
        $id_site = $_GEN_commun['info_site']->gs_id_site;
        if (isset($_GEN_commun['info_menu'])) {
                $id_menu = $_GEN_commun['info_menu']->gm_id_menu;
        }
        $num_menu = $GLOBALS['_PAPYRUS_']['applette']['comptage'][$GLOBALS['_MENU_']['nom_fonction']];
        
        // Indentation du html
        $indent_origine = 12;// Indentation de départ en nombre d'espace
        $indent_pas = 4;// Pas d'indentation en nombre d'espace
        
        // Récupérations des arguments passés dans la balise.
        // Pour les menus CLASSIQUE et COMMUN
        $balise = $tab_applette_arguments[1];
        $menu_type = $tab_applette_arguments[2];
        $niveau_depart = (isset($tab_applette_arguments[3])) ? $tab_applette_arguments[3] : 1;
        $profondeur = $tab_applette_arguments[4];
        $menu_depart = 0;
        // Si on indique un ID de menu de départ
        if (isset($tab_applette_arguments[5]) && !empty($tab_applette_arguments[5])) {
                $menu_depart = $tab_applette_arguments[6];
        }
        // Pour les menus UNIQUE
        if (isset($tab_applette_arguments[7])) {
                $menu_type = $tab_applette_arguments[7]; // Type de menu : UNIQUE
        }
        if (isset($tab_applette_arguments[8])) {
                $menu_depart = $tab_applette_arguments[8]; // ID du menu de type UNIQUE
        }
        // Pour les balises menus avec NUMID en dur     
        // Gestion du numéro unique pour l'attribut id des li des menus
        if (isset($tab_applette_arguments[9])) {
                $num_menu = $tab_applette_arguments[9];
        }
        
        // Gestion du type de menu
        switch ($menu_type) {
                case 'COMMUN' :
                        $menu_type = 'commun';
                break;
                case 'UNIQUE' :
                        $menu_type = 'unique';
                break;
                case 'DEROULANT' :
                        $menu_type = 'deroulant';
                break;
                case 'CLASSIQUE' :
                default:
                        $menu_type = 'classique';
        }
        // Si le niveau de départ est supérieur à 1 et qu'aucun id de menu n'a été indiqué dans la balise
        $niveau_actuel = 1;
        if (1 < $niveau_depart && 0 == $menu_depart && isset($id_menu)) {
                $menu_depart = GEN_lireIdentifiantMenuPere($id_menu);
                $niveau_actuel = GEN_donnerProfondeur($id_site, $id_menu);
                //trigger_error("Niveau actuel du menu si$id_site:me$id_menu pour la balise {$tab_applette_arguments[0]} : $niveau_actuel", E_USER_NOTICE);
        }
        
        //Construction du menu
        $xhtml_menu = afficherListeNiveauMultiple(   $objet_pear_db, $id_site,$niveau_depart, 
                                                                                                        $profondeur, $menu_depart, 1, $menu_type, $indent_origine, 
                                                                                                        $indent_pas, $_GEN_commun, $num_menu, $niveau_actuel);
        
        // Si le menu est déroulant il faut stocker un peu de javascript pour IE
        if ($menu_type == 'deroulant') {
                GEN_stockerCodeScript ('sfHover = function() {
        var sfEls = document.getElementById("groupe_menu_1_0").getElementsByTagName("LI");
        for (var i=0; i<sfEls.length; i++) {
                sfEls[i].onmouseover=function() {
                        this.className+=" sfhover";
                }
                sfEls[i].onmouseout=function() {
                        this.className=this.className.replace(new RegExp(" sfhover\\\\b"), "");
                }
        }
}
if (window.attachEvent) window.attachEvent("onload", sfHover);') ;
        }
        //Si nous avons un 
        if (! empty($xhtml_menu)) {
                $retour = $xhtml_menu;
        } else {
                $retour = '<!-- '.$balise.' : aucun menu trouvé ! -->';
        }
        return $retour;
}

/** Fonction afficherListeNiveauMultiple() - Affiche une arborescence des menu classiques d'un site.
*
* Créé et retourne une liste pour chaque niveau de menu classique trouvé dans l'arborescence
* des menus d'un site dans une langue donnée.
* C'est une fonction récursive.
*
* @param  mixed   objet Pear DB de connexion à la base de données.
* @param  integer identifiant d'un site.
* @param  integer identifiant de la langue demandée.
* @param  integer niveau de départ.
* @param  integer niveau d'arrivée (profondeur max demandée).
* @param  integer identifiant d'un menu pére.
* @return  string  les listes de menus au format XHTML.
*/
function afficherListeNiveauMultiple( &$objet_pear_db, $id_site,  $niveau_depart, $profondeur, 
                                                                                $id_pere_menu_a_deployer, $position, $menu_type, $indent_origine = 12, 
                                                                                $indent_pas = 4, $_GEN_commun, $num_menu, $niveau_actuel = 1)
{
        // Initialisation des variables
        $retour = '';
        $tete = '';
        $corps = '';
        $pied = '';
        $i18n_url = '';
        $id_langue = $_GEN_commun['i18n'];//identifiant de la langue choisie
        
        if ($id_langue != GEN_I18N_ID_DEFAUT) {
                $i18n_url = $id_langue;
        }
        
        if (isset($id_langue) && ($id_langue!='')) {
                $langue_test = $id_langue;
        } else {
                $langue_test = GEN_I18N_ID_DEFAUT;
        }
        
        // Récupération des infos sur sur l'entrée du menu à afficher
        $menu_info = GEN_lireInfoMenu($objet_pear_db, $id_pere_menu_a_deployer, DB_FETCHMODE_ASSOC);
        // Gestion des menus uniques
        if ($menu_type == 'unique' && ($menu_info['gm_date_fin_validite'] == '0000-00-00 00:00:00' || strtotime($menu_info['gm_date_fin_validite']) > time() )) {
                $retour .= afficherEntreeListeMenu( $objet_pear_db, $id_pere_menu_a_deployer, $i18n_url,
                                                                                        $niveau_actuel, 1, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun, $num_menu);
                // Dans le cas, d'un menu unique, on retourne directement le résultat ici.
                return $retour;
        }
        // On affiche un menu que si $profondeur <= $niveau_actuel <= $depart
        if ($niveau_actuel > $profondeur) {
                return null;
        }
        
        // Nous regardons si nous devons afficher un menu racine
        if ($id_pere_menu_a_deployer != 0 && $niveau_actuel == 1 && ($menu_info['gm_date_fin_validite'] == '' || $menu_info['gm_date_fin_validite'] == '0000-00-00 00:00:00' || strtotime($menu_info['gm_date_fin_validite']) > time() )) {
                $tete .=        str_repeat(' ', $indent_origine + ($indent_pas * $position)).
                                        '<ul class="groupe_menu_'.$num_menu.'_'.$id_pere_menu_a_deployer.'" class="menu_'.$menu_type.'_'.'n'.$niveau_actuel.'">'."\n";
                $id_menu_selectionne = $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu;
                if (!empty($id_menu_selectionne) && (GEN_etreAncetre($id_pere_menu_a_deployer, $id_menu_selectionne) || $id_pere_menu_a_deployer == $id_menu_selectionne) ) {
                        $classe = 'menu_actif';
                } else {
                        $classe = 'menu_inactif';
                }
                
                // Pour un menu dont on spécifie l'identifiant du menu départ, on affiche ce menu. 
                $corps .=  str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).
                                        '<li id="menu_'.$num_menu.'_'.$id_pere_menu_a_deployer.'" class="'.$classe.'">'."\n";
                $corps .= afficherEntreeListeMenu( $objet_pear_db, $id_pere_menu_a_deployer, $i18n_url,
                                                                                        $niveau_actuel, 1, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun, $num_menu);
        }
        
        if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
                $tete .=        str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).
                                        '<ul id="groupe_menu_'.$num_menu.'_'.$id_pere_menu_a_deployer.'" class="menu_'.$menu_type.'_'.'n'.$niveau_actuel.'">'."\n";
        }
        
        $requete =  'SELECT gm_id_menu, gm_date_fin_validite, gm_ce_i18n , GMR01.gmr_ordre, gm_nom '.
                                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
                                'WHERE GMR01.gmr_id_menu_01 = gm_id_menu '.
                                'AND GMR01.gmr_id_valeur = 1 '.// 1 = "avoir père"
                                'AND GMR02.gmr_id_menu_02 = gm_id_menu '.
                                'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.
                                'AND (gm_ce_i18n  = "'.GEN_I18N_ID_DEFAUT.'" '.
                                'OR gm_ce_i18n  = "'.$langue_test.'" )' ;
                                
        $requete .= 'AND GMR01.gmr_id_menu_02 = '.$id_pere_menu_a_deployer.' ';
        
        if ($menu_type == 'classique' || $menu_type == 'deroulant') {
                $requete .= 'AND gm_ce_site = '.$id_site.' '.
                                        'AND GMR02.gmr_id_valeur = 100 '.// 100 = type "menu classique"
                                        'ORDER BY GMR01.gmr_ordre ASC';
        } else if ($menu_type == 'commun') {
                $requete .= 'AND gm_ce_site = 0 '.
                                        'AND GMR02.gmr_id_valeur = 102 '.// 102 = type "menu commun"
                                        'ORDER BY GMR01.gmr_ordre ASC';
        }
        
        $resultat = $objet_pear_db->query($requete);
        (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
        
        $liste_menu=array();
        
        // On ne retient pas les menus qui sont des traductions ...
        while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
                if ($langue_test == GEN_I18N_ID_DEFAUT) {
                        
                        // Le menu n'est pas une traduction : on le traite
                        $requete_est_traduction =   'SELECT gmr_id_menu_01 '.
                                                                'FROM  gen_menu_relation '.
                                                                'WHERE '.$ligne->gm_id_menu.' = gmr_id_menu_02 ' .
                                                                'AND gmr_id_menu_01 <> gmr_id_menu_02  '.
                                                                'AND  gmr_id_valeur  = 2 ';// 2 = "avoir traduction"
                        $resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
                        (DB::isError($resultat_est_traduction)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction)) : '';
                                
                        if ( $resultat_est_traduction->numRows() == 0 ) {
                                $liste_menu[]=$ligne;
                        }
                } else { // Par defaut, on traite tous les menus trouvés
                                $liste_menu[]=$ligne;
                }
        }

        if (!function_exists('cmp')) {
                function cmp($a, $b) {
                        if ($a->gmr_ordre == $b->gmr_ordre) {
                                return 0;
                        }
                        return ($a->gmr_ordre < $b->gmr_ordre) ? -1 : 1;
                }
        }
        
        usort ($liste_menu,"cmp");
        
        foreach ($liste_menu as $ligne) {
                if ($ligne->gm_date_fin_validite == '' || $ligne->gm_date_fin_validite == '0000-00-00 00:00:00' || strtotime($ligne->gm_date_fin_validite) > time()) {
                        // On ne retient pas egalement les menu reserve a une seule langue 
                        $requete_restriction =  'SELECT gmr_id_menu_02 '.
                                                                                'FROM  gen_menu_relation '.
                                                                                'WHERE '.$ligne->gm_id_menu.' = gmr_id_menu_01 ' .
                                                                                'AND  gmr_id_valeur  = 106 ';// 106 restriction de menu
                        $resultat_restriction = $objet_pear_db->query($requete_restriction);
                        (DB::isError($resultat_restriction)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_restriction->getMessage(), $requete_restriction)) : '';

                        if ($resultat_restriction->numRows()>0 && $langue_test!=$ligne->gm_ce_i18n) {
                                $select_menu=0;
                        }
                        else {
                                $select_menu=1;
                        }

                        if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur  && $select_menu == 1) {
                                $id_menu_inf = $ligne->gm_id_menu;
                                $id_menu_selectionne = '';
                                if (isset($GLOBALS['_GEN_commun']['info_menu']->gm_id_menu)) {
                                        $id_menu_selectionne = $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu;
                                }
                                // On vérifie si le menu est le menu sélectionné
                                if (!empty($id_menu_selectionne) && (GEN_etreAncetre($id_menu_inf, $id_menu_selectionne) || $id_menu_inf == $id_menu_selectionne) ) {
                                        $classe = 'menu_actif';
                                } else {
                                        $classe = 'menu_inactif';
                                }
                                
                                $tmp= afficherEntreeListeMenu( $objet_pear_db, $id_menu_inf, $niveau_actuel, 
                                                                                                        $ligne->gmr_ordre, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun, $num_menu);
                                // Affichage du menu
                                
                                if ($tmp!='') {
                                        $corps .=   str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2))).
                                                        '<li id="menu_'.$num_menu.'_'.$id_menu_inf.'" class="'.$classe.'">'."\n";
                                        $corps .= $tmp;
                                }
                        }
                        // Pour chaque menu on regarde s'il y a des fils. Si oui, on les déploie.
                        $requete_fils = 'SELECT gm_id_menu '.
                                                        'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
                                                        'WHERE GMR01.gmr_id_menu_02 = '.$ligne->gm_id_menu.' '.
                                                        'AND GMR01.gmr_id_menu_01 = gm_id_menu '.
                                                        'AND GMR01.gmr_id_valeur = 1 '.// 1 = "avoir père"
                                                        'AND GMR02.gmr_id_menu_02 = gm_id_menu '.
                                                        'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 ' ;
                        if ($menu_type == 'classique') {
                                $requete_fils .='AND GMR02.gmr_id_valeur = 100 ' ;// 100 = type "menu classique"
                        } 
                        if ($menu_type == 'commun') {
                                $requete_fils .='AND GMR02.gmr_id_valeur = 102 '; // 102 = type "menu commun"
                        }
                        $requete_fils .= 'ORDER BY GMR01.gmr_ordre ASC LIMIT 0,1';
                        
                        $resultat_fils = $objet_pear_db->query($requete_fils);
                        (DB::isError($resultat_fils)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_fils->getMessage(), $requete_fils)) : '';

                        if (isset($_GEN_commun['info_menu'])) { 
                                if ($resultat_fils->numRows() != 0 && $ligne->gm_id_menu == $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu 
                                        || GEN_etreAncetre($ligne->gm_id_menu, $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu) || $menu_type == 'deroulant') {
                                        $niveau_actuel++;
                                        $corps .= afficherListeNiveauMultiple( $objet_pear_db, $id_site, $niveau_depart, 
                                                                                                                                $profondeur, $ligne->gm_id_menu, ($position + 3), $menu_type, 
                                                                                                                                null, null, $_GEN_commun, $num_menu, $niveau_actuel);
                                        // On ramène $niveau_actuel un cran plus bas
                                        $niveau_actuel--;
                                }
                        }
                        
                        if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
                                $corps .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2))).'</li>'."\n";
                        }
                        
                        $resultat_fils->free();
                }
        }
        
        if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
                $pied .= str_repeat(' ', $indent_origine + ($indent_pas * $position+ 1)).'</ul>'."\n";
        }
        
        // Nous regardons si nous avons affiché le menu racine
        if ($id_pere_menu_a_deployer != 0 && $niveau_actuel == 1) {
                $corps .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).'</li>'."\n";
                $pied .= str_repeat(' ', $indent_origine + ($indent_pas * $position)).'</ul>'."\n";
        }
        
        if (empty($corps)) {
                return $retour;
        } else {
                $retour = $tete.$corps.$pied;
                return $retour;
        }
}

/** Fonction afficherEntreeListeMenu() - Contruit une entrée dans une liste du menu d'un site.
*
* Cette fonction retourne une entrée dans la liste du menu d'un site (<a></a>).
* Le menu est un lien.
* Necessite l'utilisation de Pear Net_URL par le programme appelant cette fonction.
*
* @param  mixed   objet Pear DB de connexion à la base de données.
* @param  integer niveau du menu.
* @param  integer ordre du menu dans le niveau.
* @return  string  liste représentant le menu duHTML
* 
* $menu_id : identifiant du menu (!= code menu)
*/
function afficherEntreeListeMenu($db, $menu_id, $niveau, $ordre, $position, $menu_type, $indent_origine = 12, $indent_pas = 4, $_GEN_commun, $num_menu)
{
        $id_langue = $GLOBALS['_GEN_commun']['i18n'];
        
        if (isset($id_langue) && ($id_langue != '')) {
                $langue_test = $id_langue;
        } else {
                $langue_test = GEN_I18N_ID_DEFAUT;
        }

        $requete_traduction = 'SELECT gmr_id_menu_02,  gm_ce_i18n '.
                                                        'FROM  gen_menu_relation, gen_menu '.
                                                        'WHERE '.$menu_id.' = gmr_id_menu_01 ' .
                                                        'AND  gmr_id_menu_02  = gm_id_menu   '.
                                                        'AND  gmr_id_valeur  = 2 '.// 2 = "avoir traduction"
                                                        'AND gm_ce_i18n = "'.$langue_test.'" ';
        $resultat_traduction = $db->query($requete_traduction);
        (DB::isError($resultat_traduction)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction)) : '';

        if ($resultat_traduction->numRows() > 0) {
                $ligne_resultat_traduction=$resultat_traduction->fetchRow(DB_FETCHMODE_ASSOC);
                $menu_id=$ligne_resultat_traduction['gmr_id_menu_02'];
        } else {
                // Ne sont affichés que les traductions par defaut des menus
                // non traduits
                // Ici : pas de traduction
                        if ($langue_test!=GEN_I18N_ID_DEFAUT) {
                                $requete_defaut =       'SELECT gmr_id_menu_02 '.
                                                                        'FROM  gen_menu_relation '.
                                                                        'WHERE '.$menu_id. ' = gmr_id_menu_01 ' .
                                                                        'AND  gmr_id_valeur  = 105 ';// 105 Traduction par defaut
                                $resultat_defaut = $db->query($requete_defaut);
                                (DB::isError($resultat_defaut)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_defaut->getMessage(), $requete_defaut)) : '';
                                if ($resultat_defaut->numRows() > 0) {
                                        $ligne_resultat_defaut=$resultat_defaut->fetchRow(DB_FETCHMODE_ASSOC);
                                        $menu_id=$ligne_resultat_defaut['gmr_id_menu_02'];
                                }
                        }
                
        }
        
        // Récupération des infos sur sur l'entrée du menu à afficher
        $menu_info = GEN_lireInfoMenu($db, $menu_id, DB_FETCHMODE_ASSOC);
        
        // Préparation d'une entrée dans la liste du menu
        $menu_nom = htmlentities($menu_info['gm_nom']);
        

        if (trim($menu_nom) == '') return '';
                
        $menu_accesskey = '';
        $raccourci_txt = '';
        if ($menu_info['gm_raccourci_clavier'] != '') {
                $menu_accesskey = htmlentities($menu_info['gm_raccourci_clavier']);
                $raccourci_txt = '[Raccourci : Alt+'.$menu_accesskey.' ] ';
                $menu_accesskey = 'accesskey="'.$menu_accesskey.'" ';
        }
        $menu_texte_title = '';
        if ($menu_info['gm_description_resume'] != '' && $menu_info['gm_description_resume'] != $menu_info['gm_nom']) {
                $menu_texte_title = htmlentities($menu_info['gm_description_resume']);
                $menu_texte_title = 'title="'.$raccourci_txt.$menu_texte_title.'" ';
        }
        
        $une_url =& new Pap_URL(PAP_URL);
        $une_url->setId($menu_id);

        if (isset($id_langue) && ($id_langue != '')) {
                $une_url->addQuerystring(GEN_URL_CLE_I18N, $id_langue);
        }
        
        //Création d'une entrée dans la liste du menu
        $espaces = str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2)));
        $retour  =  $espaces.'<a id="menu_lien_'.$num_menu.'_'.$menu_id.'" href="'.$une_url->getURL().'" '.$menu_texte_title.$menu_accesskey.'>'.$menu_nom.'</a>'."\n";
        return $retour;
}
?>