Subversion Repositories Applications.papyrus

Rev

Rev 385 | Rev 754 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
289 jpm 1 
<?php
4 jpm 2 
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3 
// +------------------------------------------------------------------------------------------------------+
4 
// | PHP version 4.1                                                                                      |
5 
// +------------------------------------------------------------------------------------------------------+
6 
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7 
// +------------------------------------------------------------------------------------------------------+
8 
// | This library is free software; you can redistribute it and/or                                        |
9 
// | modify it under the terms of the GNU Lesser General Public                                           |
10 
// | License as published by the Free Software Foundation; either                                         |
11 
// | version 2.1 of the License, or (at your option) any later version.                                   |
12 
// |                                                                                                      |
13 
// | This library is distributed in the hope that it will be useful,                                      |
14 
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
15 
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
16 
// | Lesser General Public License for more details.                                                      |
17 
// |                                                                                                      |
18 
// | You should have received a copy of the GNU Lesser General Public                                     |
19 
// | License along with this library; if not, write to the Free Software                                  |
20 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21 
// +------------------------------------------------------------------------------------------------------+
448 ddelon 22 
// CVS : $Id: menu.php,v 1.21 2005-09-22 14:02:49 ddelon Exp $
4 jpm 23 
/**
24 
* Applette : menu
25 
*
26 
* Génère une liste de listes comportant tous les niveaux des menus "classiques" d'un site.
27 
* Nécessite :
28 
* - Variable de Papyrus.
29 
* - Base de données de Papyrus
30 
* - Pear DB
31 
* - Pear Net_URL
32 
* - API Débogage 1.0
33 
*
34 
*@package Applette
35 
*@subpackage Menu
36 
//Auteur original :
37 
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
38 
//Autres auteurs :
39 
*@author        Aucun
40 
*@copyright     Tela-Botanica 2000-2004
448 ddelon 41 
*@version       $Revision: 1.21 $ $Date: 2005-09-22 14:02:49 $
4 jpm 42 
// +------------------------------------------------------------------------------------------------------+
43 
*/
44 
 
45 
// +------------------------------------------------------------------------------------------------------+
46 
// |                                            ENTÊTE du PROGRAMME                                       |
33 alex 47 
// +------------------------------------------------------------------------------------------------------+
338 jpm 48 
// Inclusion de la bibliothèque defonction sur les menu : inutile car inclue par Papyrus
49 
 require_once GEN_CHEMIN_BIBLIO.'pap_menu.fonct.php';
33 alex 50 
 
185 jpm 51 
$GLOBALS['_MENU_']['nom_fonction'] = 'afficherMenuNiveauMultiple';
52 
$_GEN_commun['info_applette_nom_fonction'] = $GLOBALS['_MENU_']['nom_fonction'];
338 jpm 53 
$_GEN_commun['info_applette_balise'] = 'MENU_?(?:(|CLASSIQUE|COMMUN|DEROULANT)_([0-9]+)_([0-9]+)(|_ID_([0-9]+))|(UNIQUE)_([0-9]+))(?:|_NUMID_([0-9]+))';
4 jpm 54 
 
55 
// +------------------------------------------------------------------------------------------------------+
56 
// |                                            CORPS du PROGRAMME                                        |
57 
// +------------------------------------------------------------------------------------------------------+
58 
 
59 
 
60 
// +------------------------------------------------------------------------------------------------------+
61 
// |                                           LISTE de FONCTIONS                                         |
62 
// +------------------------------------------------------------------------------------------------------+
63 
/** Fonction GEN_afficherMenuNiveauMultiple() - Retourne la liste des listes de menus.
64 
*
65 
* Cette fonction retourne ne fait qu'encapsuler une fonction récursive
66 
* retournant les listes de menus de l'arborescence d'un site dans une
67 
* langue donnée.
68 
*
69 
* @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).
70 
* @param  array  tableau global de Papyrus.
71 
* @return string HTML la liste des listes de menus.
72 
*/
73 
function afficherMenuNiveauMultiple($tab_applette_arguments, $_GEN_commun)
74 
{
75 
    // Initialisation de variable.
76 
    $objet_pear_db = $_GEN_commun['pear_db'];
77 
    $id_site = $_GEN_commun['info_site']->gs_id_site;
448 ddelon 78 
    if (isset($_GEN_commun['info_menu'])) {
79 
    	$id_menu = $_GEN_commun['info_menu']->gm_id_menu;
80 
    }
185 jpm 81 
    $num_menu = $GLOBALS['_PAPYRUS_']['applette']['comptage'][$GLOBALS['_MENU_']['nom_fonction']];
4 jpm 82 
    $id_langue = $_GEN_commun['i18n'];
83 
    $i18n_url = '';// Evite d'écrire l'i18n dans l'url demandée.
84 
    if (!empty($_GEN_commun['url_i18n'])) {
85 
        // L'écriture de l'i18n dans les urls des menus est demandée.
86 
        $i18n_url = $_GEN_commun['url_i18n'];
87 
    }
88 
    $indent_origine = 12;// Indentation de départ en nombre d'espace
89 
    $indent_pas     = 4;// Pas d'indentation en nombre d'espace
154 jpm 90 
    $niveau_depart    = 1;
4 jpm 91 
 
92 
    // Récupérations des arguments passés dans la balise.
151 jpm 93 
    // Pour les menus CLASSIQUE et COMMUN
94 
    $balise           = $tab_applette_arguments[1];
95 
    $menu_type        = $tab_applette_arguments[2];
96 
    $niveau_depart    = $tab_applette_arguments[3];
97 
    $profondeur       = $tab_applette_arguments[4];
154 jpm 98 
    if (isset($tab_applette_arguments[5]) && !empty($tab_applette_arguments[5])) {
99 
        $menu_depart = $tab_applette_arguments[6];
100 
    } else {
101 
        $menu_depart = 0;
102 
    }
151 jpm 103 
    // Pour les menus UNIQUE
154 jpm 104 
    if (isset($tab_applette_arguments[7])) {
105 
        $menu_type = $tab_applette_arguments[7];
151 jpm 106 
    }
154 jpm 107 
    if (isset($tab_applette_arguments[8])) {
108 
        $menu_depart = $tab_applette_arguments[8];
151 jpm 109 
    }
338 jpm 110 
    // Gestion du numéro unique pour l'attribut id des li des menus
111 
    if (isset($tab_applette_arguments[9])) {
112 
        $num_menu = $tab_applette_arguments[9];
113 
    }
151 jpm 114 
    // Gestion du type de menu
115 
    switch ($menu_type) {
116 
        case '' :
117 
            $menu_type = 'classique';
118 
        break;
119 
        case 'CLASSIQUE' :
120 
            $menu_type = 'classique';
121 
        break;
122 
        case 'COMMUN' :
123 
            $menu_type = 'commun';
124 
        break;
125 
        case 'UNIQUE' :
126 
            $menu_type = 'unique';
127 
        break;
254 alex 128 
        case 'DEROULANT' :
129 
            $menu_type = 'deroulant';
130 
        break;
151 jpm 131 
        default:
132 
            $menu_type = 'classique';
133 
    }
254 alex 134 
 
4 jpm 135 
    //Construction du menu
185 jpm 136 
    $xhtml_menu = afficherListeNiveauMultiple(   $objet_pear_db, $id_site, $id_langue, $i18n_url ,$niveau_depart,
137 
                                                    $profondeur, $menu_depart, 1, $menu_type, $indent_origine,
138 
                                                    $indent_pas, $_GEN_commun, $num_menu);
254 alex 139 
 
140 
    // Si le menu est déroulant il faut stocker un peu de javascript pour IE
141 
    if ($menu_type == 'deroulant') {
142 
        GEN_stockerCodeScript ('sfHover = function() {
143 
	var sfEls = document.getElementById("groupe_menu_1_0").getElementsByTagName("LI");
144 
	for (var i=0; i<sfEls.length; i++) {
145 
		sfEls[i].onmouseover=function() {
146 
			this.className+=" sfhover";
147 
		}
148 
		sfEls[i].onmouseout=function() {
149 
			this.className=this.className.replace(new RegExp(" sfhover\\b"), "");
150 
		}
151 
	}
152 
}
153 
if (window.attachEvent) window.attachEvent("onload", sfHover);') ;
154 
    }
4 jpm 155 
    //Si nous avons un
156 
    if (! empty($xhtml_menu)) {
41 jpm 157 
        $retour = $xhtml_menu;
4 jpm 158 
    } else {
151 jpm 159 
        $retour = '<!-- '.$balise.' : aucun menu trouvé ! -->';
4 jpm 160 
    }
41 jpm 161 
    return $retour;
4 jpm 162 
}
163 
 
164 
/** Fonction afficherListeNiveauMultiple() - Affiche une arborescence des menu classiques d'un site.
165 
*
166 
* Créé et retourne une liste pour chaque niveau de menu classique trouvé dans l'arborescence
167 
* des menus d'un site dans une langue donnée.
168 
* C'est une fonction récursive.
169 
*
170 
* @param  mixed   objet Pear DB de connexion à la base de données.
171 
* @param  integer identifiant d'un site.
172 
* @param  integer identifiant de la langue demandée.
173 
* @param  integer niveau de départ.
174 
* @param  integer niveau d'arrivée (profondeur max demandée).
175 
* @param  integer identifiant d'un menu pére.
176 
* @return  string  les listes de menus au format XHTML.
177 
*/
346 jpm 178 
function afficherListeNiveauMultiple( &$objet_pear_db, $id_site, $id_langue, $i18n_url, $niveau_depart, $profondeur,
185 jpm 179 
                                        $id_pere_menu_a_deployer, $position, $menu_type, $indent_origine = 12,
180 
                                        $indent_pas = 4, $_GEN_commun, $num_menu)
4 jpm 181 
{
182 
    // Initialisation des variables
183 
    static $niveau_actuel = 1;
154 jpm 184 
    $retour = '';
200 jpm 185 
    $tete = '';
186 
    $corps = '';
187 
    $pied = '';
346 jpm 188 
    // Récupération des infos sur sur l'entrée du menu à afficher
189 
    $menu_info = GEN_lireInfoMenu($objet_pear_db, $id_pere_menu_a_deployer, DB_FETCHMODE_ASSOC);
348 jpm 190 
 
154 jpm 191 
    // Gestion des menus uniques
346 jpm 192 
    if ($menu_type == 'unique' && ($menu_info['gm_date_fin_validite'] == '0000-00-00 00:00:00' || strtotime($menu_info['gm_date_fin_validite']) > time() )) {
154 jpm 193 
        $retour .= afficherEntreeListeMenu( $objet_pear_db, $id_pere_menu_a_deployer, $i18n_url,
338 jpm 194 
                                            $niveau_actuel, 1, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun, $num_menu);
154 jpm 195 
        // Dans le cas, d'un menu unique, on retourne directement le résultat ici.
196 
        return $retour;
197 
    }
198 
    // On affiche un menu que si $profondeur <= $niveau_actuel <= $depart
199 
    if ($niveau_actuel > $profondeur) {
200 
        return null;
201 
    }
202 
 
203 
    // Nous regardons si nous devons afficher un menu racine
364 jpm 204 
    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() )) {
200 jpm 205 
        $tete .=   str_repeat(' ', $indent_origine + ($indent_pas * $position)).
185 jpm 206 
                    '<ul class="groupe_menu_'.$num_menu.'_'.$id_pere_menu_a_deployer.'" class="menu_'.$menu_type.'_'.'n'.$niveau_actuel.'">'."\n";
154 jpm 207 
        $id_menu_selectionne = $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu;
208 
        if (!empty($id_menu_selectionne) && (GEN_etreAncetre($id_pere_menu_a_deployer, $id_menu_selectionne) || $id_pere_menu_a_deployer == $id_menu_selectionne) ) {
209 
            $classe = 'menu_actif';
210 
        } else {
211 
            $classe = 'menu_inactif';
212 
        }
213 
        // Pour un menu dont on spécifie l'identifiant du menu départ, on affiche ce menu.
200 jpm 214 
        $corps .=  str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).
185 jpm 215 
                    '<li id="menu_'.$num_menu.'_'.$id_pere_menu_a_deployer.'" class="'.$classe.'">'."\n";
200 jpm 216 
        $corps .= afficherEntreeListeMenu( $objet_pear_db, $id_pere_menu_a_deployer, $i18n_url,
338 jpm 217 
                                            $niveau_actuel, 1, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun, $num_menu);
154 jpm 218 
    }
219 
 
220 
    if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
200 jpm 221 
        $tete .=   str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).
185 jpm 222 
                    '<ul id="groupe_menu_'.$num_menu.'_'.$id_pere_menu_a_deployer.'" class="menu_'.$menu_type.'_'.'n'.$niveau_actuel.'">'."\n";
154 jpm 223 
    }
224 
 
346 jpm 225 
    $requete =  'SELECT gm_id_menu, gm_date_fin_validite, GMR01.gmr_ordre '.
154 jpm 226 
                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
227 
                'WHERE GMR01.gmr_id_menu_01 = gm_id_menu '.
228 
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = "avoir père"
229 
                'AND GMR02.gmr_id_menu_02 = gm_id_menu '.
230 
                'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 ';
231 
    $requete .= 'AND GMR01.gmr_id_menu_02 = '.$id_pere_menu_a_deployer.' ';
232 
 
254 alex 233 
    if ($menu_type == 'classique' || $menu_type == 'deroulant') {
154 jpm 234 
        $requete .= 'AND gm_ce_site = '.$id_site.' '.
235 
                    'AND GMR02.gmr_id_valeur = 100 '.// 100 = type "menu classique"
236 
                    'ORDER BY GMR01.gmr_ordre ASC';
237 
    } else if ($menu_type == 'commun') {
238 
        $requete .= 'AND gm_ce_site = 0 '.
239 
                    'AND GMR02.gmr_id_valeur = 102 '.// 102 = type "menu commun"
240 
                    'ORDER BY GMR01.gmr_ordre ASC';
241 
    }
242 
    //$GLOBALS['_GEN_commun']['debogage_info'] .= $requete;
243 
    $resultat = $objet_pear_db->query($requete);
244 
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
245 
 
346 jpm 246 
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
364 jpm 247 
        if ($ligne->gm_date_fin_validite == '' || $ligne->gm_date_fin_validite == '0000-00-00 00:00:00' || strtotime($ligne->gm_date_fin_validite) > time()) {
346 jpm 248 
            // On commence par regarder si le menu existe dans la langue demandée
249 
            if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
250 
                $requete_i18n = 'SELECT gm_id_menu '.
251 
                                'FROM gen_menu, gen_menu_relation '.
252 
                                'WHERE gmr_id_menu_01 = '.$ligne->gm_id_menu.' '.
253 
                                'AND gmr_id_menu_02 = gm_id_menu '.
254 
                                'AND gmr_id_valeur = 2 '.// 2 = "avoir traduction"
255 
                                'AND gm_ce_i18n = "'.$id_langue.'"';
256 
 
257 
                $resultat_i18n = $objet_pear_db->query($requete_i18n);
258 
                (DB::isError($resultat_i18n)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_i18n->getMessage(), $requete_i18n)) : '';
259 
 
260 
                // Récupération de l'id du menu à afficher
261 
                if ($resultat_i18n->numRows() != 0) {
262 
                    $id_menu_i18n = $resultat_i18n->fetchRow(DB_FETCHMODE_OBJECT);
263 
                    $id_menu_inf = $id_menu_i18n->gm_id_menu;
264 
                    $resultat_i18n->free();
265 
                } else {
266 
                    $id_menu_inf = $ligne->gm_id_menu;
267 
                }
268 
                $id_menu_selectionne = '';
269 
                if (isset($GLOBALS['_GEN_commun']['info_menu']->gm_id_menu)) {
270 
                    $id_menu_selectionne = $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu;
271 
                }
272 
                // On vérifie si le menu est le menu sélectionné
273 
                if (!empty($id_menu_selectionne) && (GEN_etreAncetre($id_menu_inf, $id_menu_selectionne) || $id_menu_inf == $id_menu_selectionne) ) {
274 
                    $classe = 'menu_actif';
275 
                } else {
276 
                    $classe = 'menu_inactif';
277 
                }
278 
 
279 
                // Affichage du menu
280 
                $corps .=   str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2))).
281 
                            '<li id="menu_'.$num_menu.'_'.$id_menu_inf.'" class="'.$classe.'">'."\n";
282 
                $corps .= afficherEntreeListeMenu( $objet_pear_db, $id_menu_inf, $i18n_url, $niveau_actuel,
283 
                                                    $ligne->gmr_ordre, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun, $num_menu);
284 
            }
285 
            // Pour chaque menu on regarde s'il y a des fils. Si oui, on les déploie.
286 
            $requete_fils = 'SELECT gm_id_menu '.
287 
                            'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
288 
                            'WHERE GMR01.gmr_id_menu_02 = '.$ligne->gm_id_menu.' '.
289 
                            'AND GMR01.gmr_id_menu_01 = gm_id_menu '.
290 
                            'AND GMR01.gmr_id_valeur = 1 '.// 1 = "avoir père"
291 
                            'AND GMR02.gmr_id_menu_02 = gm_id_menu '.
385 alex 292 
                            'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 ' ;
293 
            if ($menu_type == 'classique') {
294 
                $requete_fils .='AND GMR02.gmr_id_valeur = 100 ' ;// 100 = type "menu classique"
295 
            }
296 
            if ($menu_type == 'commun') {
297 
                $requete_fils .='AND GMR02.gmr_id_valeur = 102 '; // 102 = type "menu commun"
298 
            }
299 
            $requete_fils .= 'ORDER BY GMR01.gmr_ordre ASC LIMIT 0,1';
154 jpm 300 
 
346 jpm 301 
            $resultat_fils = $objet_pear_db->query($requete_fils);
302 
            (DB::isError($resultat_fils))
303 
                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_fils->getMessage(), $requete_fils))
304 
                : '';
448 ddelon 305 
 
306 
           	if (isset($_GEN_commun['info_menu'])) {
307 
	            if ($resultat_fils->numRows() != 0 && $ligne->gm_id_menu == $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu
308 
	                || GEN_etreAncetre($ligne->gm_id_menu, $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu) || $menu_type == 'deroulant') {
309 
	                $niveau_actuel++;
310 
	                $corps .= afficherListeNiveauMultiple( $objet_pear_db, $id_site, $id_langue, $i18n_url, $niveau_depart,
311 
	                                                            $profondeur, $ligne->gm_id_menu, ($position + 3), $menu_type,
312 
	                                                            null, null, $_GEN_commun, $num_menu);
313 
	                // On ramène $niveau_actuel un cran plus bas
314 
	                $niveau_actuel--;
315 
	            }
316 
           	}
154 jpm 317 
 
346 jpm 318 
            if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
319 
                $corps .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2))).'</li>'."\n";
154 jpm 320 
            }
346 jpm 321 
 
322 
            $resultat_fils->free();
151 jpm 323 
        }
4 jpm 324 
    }
154 jpm 325 
    $resultat->free();
326 
 
327 
    if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
200 jpm 328 
        $pied .= str_repeat(' ', $indent_origine + ($indent_pas * $position+ 1)).'</ul>'."\n";
154 jpm 329 
    }
330 
 
331 
    // Nous regardons si nous avons affiché le menu racine
332 
    if ($id_pere_menu_a_deployer != 0 && $niveau_actuel == 1) {
200 jpm 333 
        $corps .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).'</li>'."\n";
334 
        $pied .= str_repeat(' ', $indent_origine + ($indent_pas * $position)).'</ul>'."\n";
154 jpm 335 
    }
200 jpm 336 
 
337 
    if (empty($corps)) {
338 
        return $retour;
339 
    } else {
340 
        $retour = $tete.$corps.$pied;
341 
        return $retour;
342 
    }
4 jpm 343 
}
344 
 
345 
/** Fonction afficherEntreeListeMenu() - Contruit une entrée dans une liste du menu d'un site.
346 
*
151 jpm 347 
* Cette fonction retourne une entrée dans la liste du menu d'un site (<a></a>).
4 jpm 348 
* Le menu est un lien.
349 
* Necessite l'utilisation de Pear Net_URL par le programme appelant cette fonction.
350 
*
351 
* @param  mixed   objet Pear DB de connexion à la base de données.
352 
* @param  integer niveau du menu.
353 
* @param  integer ordre du menu dans le niveau.
354 
* @return  string  liste représentant le menu duHTML
355 
*/
338 jpm 356 
function afficherEntreeListeMenu($db, $menu_id, $i18n_url, $niveau, $ordre, $position, $menu_type, $indent_origine = 12, $indent_pas = 4, $_GEN_commun, $num_menu)
4 jpm 357 
{
338 jpm 358 
    // Récupération des infos sur sur l'entrée du menu à afficher
359 
    $menu_info = GEN_lireInfoMenu($db, $menu_id, DB_FETCHMODE_ASSOC);
4 jpm 360 
 
338 jpm 361 
    // Préparation d'une entrée dans la liste du menu
362 
    $menu_nom = htmlentities($menu_info['gm_nom']);
363 
    $menu_hreflang = htmlentities($menu_info['gm_ce_i18n']);
364 
    $menu_accesskey = '';
365 
    $raccourci_txt = '';
366 
    if (($menu_accesskey = htmlentities($menu_info['gm_raccourci_clavier'])) != '') {
383 jpm 367 
        $raccourci_txt = '[Raccourci : '.$menu_accesskey.' ] ';
338 jpm 368 
        $menu_accesskey = 'accesskey="'.$menu_accesskey.'" ';
369 
    }
370 
    $menu_texte_title = '';
371 
    if (($menu_texte_title = htmlentities($menu_info['gm_description_resume'])) != '') {
372 
        $menu_texte_title = 'title="'.$raccourci_txt.$menu_texte_title.'" ';;
373 
    }
4 jpm 374 
 
375 
    // Préparation de l'url de l'entrée
338 jpm 376 
    $une_url =& new Pap_URL('http://'.$_SERVER['HTTP_HOST'].$_SERVER['PHP_SELF']);
377 
    $une_url->setId($menu_id);
4 jpm 378 
 
39 jpm 379 
    //Création d'une entrée dans la liste du menu
151 jpm 380 
    $espaces = str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2)));
338 jpm 381 
    $retour  =  $espaces.'<a id="menu_lien_'.$num_menu.'_'.$menu_id.'" href="'.$une_url->getURL().'" '.
382 
                'hreflang="'.$menu_hreflang.'" '.$menu_texte_title.$menu_accesskey.'>'.$menu_nom.'</a>'."\n";
39 jpm 383 
    return $retour;
384 
}
4 jpm 385 
 
386 
// +------------------------------------------------------------------------------------------------------+
387 
// |                                            PIED du PROGRAMME                                         |
388 
// +------------------------------------------------------------------------------------------------------+
389 
 
390 
 
391 
/* +--Fin du code ----------------------------------------------------------------------------------------+
392 
*
393 
* $Log: not supported by cvs2svn $
448 ddelon 394 
* Revision 1.20  2005/05/27 14:56:51  alex
395 
* correction de bug d'affichage des menus communs
396 
*
385 alex 397 
* Revision 1.19  2005/05/27 10:23:00  jpm
398 
* Modification du style des raccourcis.
399 
*
383 jpm 400 
* Revision 1.18  2005/05/03 08:39:32  jpm
401 
* Ajout d'un test sur la date.
402 
*
364 jpm 403 
* Revision 1.17  2005/04/19 16:59:51  jpm
404 
* Suppression de l'affichage d'un débogage.
405 
*
348 jpm 406 
* Revision 1.16  2005/04/19 16:47:24  jpm
407 
* Gestion des dates  de fin de validité des menus.
408 
*
346 jpm 409 
* Revision 1.15  2005/04/14 16:37:48  jpm
410 
* Ajout de la gestion des URL avec la classe Pap_URL de Papyrus.
411 
*
338 jpm 412 
* Revision 1.14  2005/03/02 11:02:33  jpm
413 
* Suppression des espaces avant l'ouverture de la balise php.
414 
*
289 jpm 415 
* Revision 1.13  2005/02/08 19:03:03  alex
416 
* ajout de la balise DEROULANT qui permet de faire un affichage des menus avec survol javascript. Il nécessite des styles particuliers.
417 
*
254 alex 418 
* Revision 1.12  2004/12/02 10:42:15  jpm
419 
* Correction bogue liste ul vide si pas de menu.
420 
*
200 jpm 421 
* Revision 1.11  2004/11/26 19:02:22  jpm
422 
* Correction bogue li surnuméraires.
423 
*
185 jpm 424 
* Revision 1.10  2004/11/15 17:40:02  jpm
425 
* Changement nom balise.
426 
*
158 jpm 427 
* Revision 1.9  2004/11/15 16:17:40  jpm
428 
* Gestion des différents types de menus.
429 
*
154 jpm 430 
* Revision 1.8  2004/11/10 18:59:21  jpm
431 
* Début de gestion de l'ensemble des types de menu dans l'applette menu.
432 
*
151 jpm 433 
* Revision 1.7  2004/09/23 14:31:40  jpm
434 
* Correction bogue sur le menu actif.
435 
*
52 jpm 436 
* Revision 1.6  2004/09/23 10:47:16  jpm
437 
* Amélioration de la gestion du menu actif en fonction du menu demandé dans l'url.
438 
*
48 jpm 439 
* Revision 1.5  2004/09/15 09:32:21  jpm
440 
* Mise en conformité avec le standard XHTML Strict.
441 
* Amélioration de la gestion de l'indentation.
442 
*
41 jpm 443 
* Revision 1.4  2004/09/13 18:02:34  jpm
444 
* Changement de nom de m_select en menu_actif et de m_non_select en menu_inactif.
445 
* Amélioration du rendu du code html.
446 
*
39 jpm 447 
* Revision 1.3  2004/07/23 11:21:25  alex
448 
* suppression du javascript.
449 
*
33 alex 450 
* Revision 1.2  2004/06/25 08:32:02  alex
451 
* modification des styles
452 
*
19 alex 453 
* Revision 1.1  2004/06/15 15:04:14  jpm
454 
* Changement de nom et d'arborescence de Genesia en Papyrus.
455 
*
4 jpm 456 
* Revision 1.10  2004/05/05 14:33:04  jpm
457 
* Gestion de l'indication de langue dans l'url.
458 
* Utile que si on veut forcer la langue.
459 
*
460 
* Revision 1.8  2004/05/05 06:44:19  jpm
461 
* Complément des commentaires indiquant les paquetages nécessaire à l'applette.
462 
*
463 
* Revision 1.7  2004/05/04 14:19:37  jpm
464 
* Mise entre guillemet simple d'un texte.
465 
*
466 
* Revision 1.6  2004/05/03 14:11:01  jpm
467 
* Intégration du fichier bibliothèquie de fonctions sur gen_menu provenant de la bibliothèque de Génésia INUTILE!
468 
*
469 
* Revision 1.5  2004/05/03 14:09:32  jpm
470 
* Intégration du fichier bibliothèquie de fonctions sur gen_menu provenant de la bibliothèque de Génésia.
471 
*
472 
* Revision 1.4  2004/05/03 11:19:00  jpm
473 
* Intégration de la variable globale de Génésia dans les arguments de la fonction de l'applette.
474 
*
475 
* Revision 1.3  2004/05/03 08:52:44  jpm
476 
* Modification pour intégrer les sous listes (ul) de menus à l'intèrieur de l'entrée (li) du menu supérieur.
477 
*
478 
* Revision 1.2  2004/05/01 17:22:23  jpm
479 
* Changement de nom de l'applette dans les commentaires.
480 
*
481 
* Revision 1.1  2004/05/01 16:12:39  jpm
482 
* Ajout de l'applette gérant les menus multi niveaux ou niveau unique.
483 
*
484 
*
485 
* +-- Fin du code ----------------------------------------------------------------------------------------+
486 
*/
487 
?>