Subversion Repositories Applications.papyrus

Rev

Rev 1372 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1090 florian 1 
<?php
2 
/*vim: set expandtab tabstop=4 shiftwidth=4: */
33 alex 3 
// +------------------------------------------------------------------------------------------------------+
1090 florian 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 
// +------------------------------------------------------------------------------------------------------+
22 
// CVS : $Id: menu.php,v 1.31 2006-12-01 16:33:40 florian Exp $
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
41 
*@version       $Revision: 1.31 $ $Date: 2006-12-01 16:33:40 $
42 
// +------------------------------------------------------------------------------------------------------+
43 
*/
44 
 
45 
// +------------------------------------------------------------------------------------------------------+
46 
// |                                            ENTÊTE du PROGRAMME                                       |
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 
 
1090 florian 51 
$GLOBALS['_MENU_']['nom_fonction'] = 'afficherMenuNiveauMultiple';
52 
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = $GLOBALS['_MENU_']['nom_fonction'];
53 
$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]+))) -->';
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;
78 
    if (isset($_GEN_commun['info_menu'])) {
79 
    	$id_menu = $_GEN_commun['info_menu']->gm_id_menu;
448 ddelon 80 
    }
1090 florian 81 
    $num_menu = $GLOBALS['_PAPYRUS_']['applette']['comptage'][$GLOBALS['_MENU_']['nom_fonction']];
82 
 
83 
    $indent_origine = 12;// Indentation de départ en nombre d'espace
84 
    $indent_pas     = 4;// Pas d'indentation en nombre d'espace
154 jpm 85 
    $niveau_depart    = 1;
1090 florian 86 
 
87 
    // Récupérations des arguments passés dans la balise.
151 jpm 88 
    // Pour les menus CLASSIQUE et COMMUN
89 
    $balise           = $tab_applette_arguments[1];
90 
    $menu_type        = $tab_applette_arguments[2];
1090 florian 91 
    $niveau_depart    = $tab_applette_arguments[3];
151 jpm 92 
    $profondeur       = $tab_applette_arguments[4];
154 jpm 93 
    if (isset($tab_applette_arguments[5]) && !empty($tab_applette_arguments[5])) {
94 
        $menu_depart = $tab_applette_arguments[6];
95 
    } else {
96 
        $menu_depart = 0;
97 
    }
151 jpm 98 
    // Pour les menus UNIQUE
154 jpm 99 
    if (isset($tab_applette_arguments[7])) {
100 
        $menu_type = $tab_applette_arguments[7];
151 jpm 101 
    }
154 jpm 102 
    if (isset($tab_applette_arguments[8])) {
103 
        $menu_depart = $tab_applette_arguments[8];
151 jpm 104 
    }
338 jpm 105 
    // Gestion du numéro unique pour l'attribut id des li des menus
106 
    if (isset($tab_applette_arguments[9])) {
107 
        $num_menu = $tab_applette_arguments[9];
108 
    }
151 jpm 109 
    // Gestion du type de menu
110 
    switch ($menu_type) {
111 
        case '' :
112 
            $menu_type = 'classique';
113 
        break;
114 
        case 'CLASSIQUE' :
115 
            $menu_type = 'classique';
116 
        break;
117 
        case 'COMMUN' :
118 
            $menu_type = 'commun';
119 
        break;
120 
        case 'UNIQUE' :
121 
            $menu_type = 'unique';
122 
        break;
254 alex 123 
        case 'DEROULANT' :
124 
            $menu_type = 'deroulant';
125 
        break;
151 jpm 126 
        default:
127 
            $menu_type = 'classique';
128 
    }
1090 florian 129 
 
130 
    //Construction du menu
767 ddelon 131 
    $xhtml_menu = afficherListeNiveauMultiple(   $objet_pear_db, $id_site,$niveau_depart,
185 jpm 132 
                                                    $profondeur, $menu_depart, 1, $menu_type, $indent_origine,
1090 florian 133 
                                                    $indent_pas, $_GEN_commun, $num_menu);
254 alex 134 
 
135 
    // Si le menu est déroulant il faut stocker un peu de javascript pour IE
136 
    if ($menu_type == 'deroulant') {
137 
        GEN_stockerCodeScript ('sfHover = function() {
138 
	var sfEls = document.getElementById("groupe_menu_1_0").getElementsByTagName("LI");
139 
	for (var i=0; i<sfEls.length; i++) {
140 
		sfEls[i].onmouseover=function() {
141 
			this.className+=" sfhover";
142 
		}
143 
		sfEls[i].onmouseout=function() {
899 alexandre_ 144 
			this.className=this.className.replace(new RegExp(" sfhover\\\\b"), "");
254 alex 145 
		}
146 
	}
147 
}
148 
if (window.attachEvent) window.attachEvent("onload", sfHover);') ;
1090 florian 149 
    }
150 
    //Si nous avons un
151 
    if (! empty($xhtml_menu)) {
152 
        $retour = $xhtml_menu;
153 
    } else {
154 
        $retour = '<!-- '.$balise.' : aucun menu trouvé ! -->';
155 
    }
156 
    return $retour;
157 
}
158 
 
159 
/** Fonction afficherListeNiveauMultiple() - Affiche une arborescence des menu classiques d'un site.
160 
*
161 
* Créé et retourne une liste pour chaque niveau de menu classique trouvé dans l'arborescence
162 
* des menus d'un site dans une langue donnée.
163 
* C'est une fonction récursive.
164 
*
165 
* @param  mixed   objet Pear DB de connexion à la base de données.
166 
* @param  integer identifiant d'un site.
167 
* @param  integer identifiant de la langue demandée.
168 
* @param  integer niveau de départ.
169 
* @param  integer niveau d'arrivée (profondeur max demandée).
170 
* @param  integer identifiant d'un menu pére.
171 
* @return  string  les listes de menus au format XHTML.
172 
*/
767 ddelon 173 
function afficherListeNiveauMultiple( &$objet_pear_db, $id_site,  $niveau_depart, $profondeur,
185 jpm 174 
                                        $id_pere_menu_a_deployer, $position, $menu_type, $indent_origine = 12,
1090 florian 175 
                                        $indent_pas = 4, $_GEN_commun, $num_menu)
176 
{
177 
    // Initialisation des variables
178 
    static $niveau_actuel = 1;
154 jpm 179 
    $retour = '';
200 jpm 180 
    $tete = '';
181 
    $corps = '';
1090 florian 182 
    $pied = '';
183 
    $i18n_url = '' ;
184 
    $id_langue = $_GEN_commun['i18n'];//identifiant de la langue choisie
185 
 
186 
    if ($id_langue != GEN_I18N_ID_DEFAUT) {
187 
    	$i18n_url=$id_langue;
188 
    }
189 
 
190 
 
191 
	if (isset($id_langue) && ($id_langue!='')) {
192 
		$langue_test=$id_langue;
193 
	} else {
194 
		$langue_test=GEN_I18N_ID_DEFAUT;
195 
	}
196 
 
197 
 
346 jpm 198 
    // Récupération des infos sur sur l'entrée du menu à afficher
199 
    $menu_info = GEN_lireInfoMenu($objet_pear_db, $id_pere_menu_a_deployer, DB_FETCHMODE_ASSOC);
1090 florian 200 
    // Gestion des menus uniques
346 jpm 201 
    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 202 
        $retour .= afficherEntreeListeMenu( $objet_pear_db, $id_pere_menu_a_deployer, $i18n_url,
338 jpm 203 
                                            $niveau_actuel, 1, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun, $num_menu);
154 jpm 204 
        // Dans le cas, d'un menu unique, on retourne directement le résultat ici.
205 
        return $retour;
1090 florian 206 
    }
207 
    // On affiche un menu que si $profondeur <= $niveau_actuel <= $depart
208 
    if ($niveau_actuel > $profondeur) {
209 
        return null;
154 jpm 210 
    }
211 
 
212 
    // Nous regardons si nous devons afficher un menu racine
364 jpm 213 
    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 214 
        $tete .=   str_repeat(' ', $indent_origine + ($indent_pas * $position)).
185 jpm 215 
                    '<ul class="groupe_menu_'.$num_menu.'_'.$id_pere_menu_a_deployer.'" class="menu_'.$menu_type.'_'.'n'.$niveau_actuel.'">'."\n";
154 jpm 216 
        $id_menu_selectionne = $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu;
217 
        if (!empty($id_menu_selectionne) && (GEN_etreAncetre($id_pere_menu_a_deployer, $id_menu_selectionne) || $id_pere_menu_a_deployer == $id_menu_selectionne) ) {
218 
            $classe = 'menu_actif';
219 
        } else {
220 
            $classe = 'menu_inactif';
1090 florian 221 
        }
1033 ddelon 222 
 
1090 florian 223 
 
224 
 
1033 ddelon 225 
       // Pour un menu dont on spécifie l'identifiant du menu départ, on affiche ce menu.
226 
   	    $corps .=  str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).
227 
       	            '<li id="menu_'.$num_menu.'_'.$id_pere_menu_a_deployer.'" class="'.$classe.'">'."\n";
200 jpm 228 
        $corps .= afficherEntreeListeMenu( $objet_pear_db, $id_pere_menu_a_deployer, $i18n_url,
1090 florian 229 
   	                                        $niveau_actuel, 1, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun, $num_menu);
154 jpm 230 
    }
1090 florian 231 
 
232 
    if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
200 jpm 233 
        $tete .=   str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).
1090 florian 234 
                    '<ul id="groupe_menu_'.$num_menu.'_'.$id_pere_menu_a_deployer.'" class="menu_'.$menu_type.'_'.'n'.$niveau_actuel.'">'."\n";
154 jpm 235 
    }
1090 florian 236 
 
237 
    $requete =  'SELECT gm_id_menu, gm_date_fin_validite, GMR01.gmr_ordre, gm_nom '.
238 
                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
239 
                'WHERE GMR01.gmr_id_menu_01 = gm_id_menu '.
240 
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = "avoir père"
241 
                'AND GMR02.gmr_id_menu_02 = gm_id_menu '.
242 
                'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.
754 ddelon 243 
                'AND gm_ce_i18n  = "'.GEN_I18N_ID_DEFAUT.'" ';
154 jpm 244 
    $requete .= 'AND GMR01.gmr_id_menu_02 = '.$id_pere_menu_a_deployer.' ';
245 
 
1090 florian 246 
    if ($menu_type == 'classique' || $menu_type == 'deroulant') {
154 jpm 247 
        $requete .= 'AND gm_ce_site = '.$id_site.' '.
248 
                    'AND GMR02.gmr_id_valeur = 100 '.// 100 = type "menu classique"
249 
                    'ORDER BY GMR01.gmr_ordre ASC';
250 
    } else if ($menu_type == 'commun') {
251 
        $requete .= 'AND gm_ce_site = 0 '.
252 
                    'AND GMR02.gmr_id_valeur = 102 '.// 102 = type "menu commun"
253 
                    'ORDER BY GMR01.gmr_ordre ASC';
254 
    }
1090 florian 255 
    //$GLOBALS['_GEN_commun']['debogage_info'] .= $requete;
256 
 
257 
    $resultat = $objet_pear_db->query($requete);
258 
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
259 
 
260 
 
261 
    $liste_menu=array();
262 
 
263 
 
264 
    // On ne retient pas les menus qui sont des traductions ...
265 
 
266 
 
267 
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
268 
 
269 
    			if ($langue_test == GEN_I18N_ID_DEFAUT) {
270 
 
271 
    				// Le menu n'est pas une traduction : on le traite
272 
    				$requete_est_traduction =   'SELECT gmr_id_menu_01 '.
273 
	                                    'FROM  gen_menu_relation '.
274 
	                                    'WHERE '.$ligne->gm_id_menu.' = gmr_id_menu_02 ' .
275 
	                                    'AND gmr_id_menu_01 <> gmr_id_menu_02  '.
276 
	                                    'AND  gmr_id_valeur  = 2 ';// 2 = "avoir traduction"
277 
		            $resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
278 
		            (DB::isError($resultat_est_traduction))
279 
		                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
280 
		                : '';
281 
 
282 
		   			if ( $resultat_est_traduction->numRows() == 0 ) {
283 
	    	 			   $liste_menu[]=$ligne;
284 
		            }
285 
    			}
286 
    			// Par defaut, on traite tous les menus trouvés
287 
    			else {
288 
    				    $liste_menu[]=$ligne;
289 
    			}
290 
 
291 
    }
292 
 
293 
	if (!function_exists('cmp')) {
294 
		function cmp($a, $b) {
295 
		    if ($a->gmr_ordre == $b->gmr_ordre) {
296 
	   			return 0;
297 
			}
298 
			return ($a->gmr_ordre < $b->gmr_ordre) ? -1 : 1;
299 
		}
300 
	}
301 
 
302 
	usort ($liste_menu,"cmp");
303 
 
304 
    foreach ($liste_menu as $ligne) {
754 ddelon 305 
    //while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
1090 florian 306 
        if ($ligne->gm_date_fin_validite == '' || $ligne->gm_date_fin_validite == '0000-00-00 00:00:00' || strtotime($ligne->gm_date_fin_validite) > time()) {
307 
            // On commence par regarder si le menu existe dans la langue demandée
308 
            if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
346 jpm 309 
 
1090 florian 310 
                $id_menu_inf = $ligne->gm_id_menu;
346 jpm 311 
                $id_menu_selectionne = '';
312 
                if (isset($GLOBALS['_GEN_commun']['info_menu']->gm_id_menu)) {
313 
                    $id_menu_selectionne = $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu;
314 
                }
315 
                // On vérifie si le menu est le menu sélectionné
316 
                if (!empty($id_menu_selectionne) && (GEN_etreAncetre($id_menu_inf, $id_menu_selectionne) || $id_menu_inf == $id_menu_selectionne) ) {
317 
                    $classe = 'menu_actif';
318 
                } else {
319 
                    $classe = 'menu_inactif';
1090 florian 320 
                }
321 
 
322 
 
1033 ddelon 323 
 
346 jpm 324 
 
1033 ddelon 325 
	                $tmp= afficherEntreeListeMenu( $objet_pear_db, $id_menu_inf, $niveau_actuel,
1090 florian 326 
    	                                                $ligne->gmr_ordre, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun, $num_menu);
327 
            	    // Affichage du menu
328 
 
1033 ddelon 329 
            	    if ($tmp!='') {
330 
	                	$corps .=   str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2))).
331 
                    	        '<li id="menu_'.$num_menu.'_'.$id_menu_inf.'" class="'.$classe.'">'."\n";
1090 florian 332 
		                $corps .= $tmp;
1033 ddelon 333 
            	    }
1090 florian 334 
            }
335 
            // Pour chaque menu on regarde s'il y a des fils. Si oui, on les déploie.
336 
            $requete_fils = 'SELECT gm_id_menu '.
337 
                            'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
338 
                            'WHERE GMR01.gmr_id_menu_02 = '.$ligne->gm_id_menu.' '.
339 
                            'AND GMR01.gmr_id_menu_01 = gm_id_menu '.
340 
                            'AND GMR01.gmr_id_valeur = 1 '.// 1 = "avoir père"
341 
                            'AND GMR02.gmr_id_menu_02 = gm_id_menu '.
342 
                            'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 ' ;
385 alex 343 
            if ($menu_type == 'classique') {
344 
                $requete_fils .='AND GMR02.gmr_id_valeur = 100 ' ;// 100 = type "menu classique"
345 
            }
346 
            if ($menu_type == 'commun') {
347 
                $requete_fils .='AND GMR02.gmr_id_valeur = 102 '; // 102 = type "menu commun"
348 
            }
1090 florian 349 
            $requete_fils .= 'ORDER BY GMR01.gmr_ordre ASC LIMIT 0,1';
350 
 
351 
            $resultat_fils = $objet_pear_db->query($requete_fils);
352 
            (DB::isError($resultat_fils))
353 
                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_fils->getMessage(), $requete_fils))
354 
                : '';
355 
 
356 
           	if (isset($_GEN_commun['info_menu'])) {
448 ddelon 357 
	            if ($resultat_fils->numRows() != 0 && $ligne->gm_id_menu == $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu
1090 florian 358 
	                || GEN_etreAncetre($ligne->gm_id_menu, $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu) || $menu_type == 'deroulant') {
359 
	                $niveau_actuel++;
767 ddelon 360 
	                $corps .= afficherListeNiveauMultiple( $objet_pear_db, $id_site, $niveau_depart,
448 ddelon 361 
	                                                            $profondeur, $ligne->gm_id_menu, ($position + 3), $menu_type,
1090 florian 362 
	                                                            null, null, $_GEN_commun, $num_menu);
363 
	                // On ramène $niveau_actuel un cran plus bas
448 ddelon 364 
	                $niveau_actuel--;
365 
	            }
366 
           	}
154 jpm 367 
 
346 jpm 368 
            if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
369 
                $corps .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2))).'</li>'."\n";
154 jpm 370 
            }
1090 florian 371 
 
346 jpm 372 
            $resultat_fils->free();
1090 florian 373 
        }
154 jpm 374 
    }
375 
 
1090 florian 376 
    if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
377 
        $pied .= str_repeat(' ', $indent_origine + ($indent_pas * $position+ 1)).'</ul>'."\n";
378 
    }
379 
 
154 jpm 380 
    // Nous regardons si nous avons affiché le menu racine
381 
    if ($id_pere_menu_a_deployer != 0 && $niveau_actuel == 1) {
200 jpm 382 
        $corps .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).'</li>'."\n";
383 
        $pied .= str_repeat(' ', $indent_origine + ($indent_pas * $position)).'</ul>'."\n";
154 jpm 384 
    }
200 jpm 385 
 
386 
    if (empty($corps)) {
387 
        return $retour;
388 
    } else {
389 
        $retour = $tete.$corps.$pied;
390 
        return $retour;
1090 florian 391 
    }
392 
}
393 
 
394 
/** Fonction afficherEntreeListeMenu() - Contruit une entrée dans une liste du menu d'un site.
395 
*
396 
* Cette fonction retourne une entrée dans la liste du menu d'un site (<a></a>).
397 
* Le menu est un lien.
398 
* Necessite l'utilisation de Pear Net_URL par le programme appelant cette fonction.
399 
*
400 
* @param  mixed   objet Pear DB de connexion à la base de données.
401 
* @param  integer niveau du menu.
402 
* @param  integer ordre du menu dans le niveau.
403 
* @return  string  liste représentant le menu duHTML
404 
*
405 
* $menu_id : identifiant du menu (!= code menu)
406 
*/
407 
function afficherEntreeListeMenu($db, $menu_id, $niveau, $ordre, $position, $menu_type, $indent_origine = 12, $indent_pas = 4, $_GEN_commun, $num_menu)
408 
{
409 
 
410 
 
411 
 
412 
	$id_langue = $GLOBALS['_GEN_commun']['i18n'];
413 
 
414 
	if (isset($id_langue) && ($id_langue!='')) {
415 
		$langue_test=$id_langue;
416 
	} else {
417 
		$langue_test=GEN_I18N_ID_DEFAUT;
418 
	}
419 
 
420 
 
421 
    $requete_traduction =   'SELECT gmr_id_menu_02,  gm_ce_i18n '.
422 
                            'FROM  gen_menu_relation, gen_menu '.
423 
                            'WHERE '.$menu_id.' = gmr_id_menu_01 ' .
424 
                            'AND  gmr_id_menu_02  = gm_id_menu   '.
425 
                            'AND  gmr_id_valeur  = 2 '.// 2 = "avoir traduction"
426 
                            'AND gm_ce_i18n = "'.$langue_test.'" ';
427 
	$resultat_traduction = $db->query($requete_traduction);
428 
			        (DB::isError($resultat_traduction))             ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction))
429 
			                : '';
430 
 
431 
	if ($resultat_traduction->numRows() > 0) {
432 
		$ligne_resultat_traduction=$resultat_traduction->fetchRow(DB_FETCHMODE_ASSOC);
433 
		$menu_id=$ligne_resultat_traduction['gmr_id_menu_02'];
434 
	}
435 
 
436 
 
437 
	else {
438 
 
439 
		// Ne sont affichés que les traductions par defaut des menus
440 
		// non traduits
441 
 
442 
		// Ici : pas de traduction
443 
 
444 
			if ($langue_test!=GEN_I18N_ID_DEFAUT) {
445 
 
446 
			    $requete_defaut =   'SELECT gmr_id_menu_02 '.
447 
	                            	'FROM  gen_menu_relation '.
448 
	                            	'WHERE '.$menu_id. ' = gmr_id_menu_01 ' .
449 
	                            	'AND  gmr_id_valeur  = 105 ';// 105 Traduction par defaut
450 
				$resultat_defaut = $db->query($requete_defaut);
451 
				(DB::isError($resultat_defaut))             ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_defaut->getMessage(), $requete_defaut))
452 
				: '';
453 
				if ($resultat_defaut->numRows() > 0) {
454 
 
455 
						$ligne_resultat_defaut=$resultat_defaut->fetchRow(DB_FETCHMODE_ASSOC);
456 
						$menu_id=$ligne_resultat_defaut['gmr_id_menu_02'];
457 
				}
458 
			}
459 
 
460 
	}
461 
 
338 jpm 462 
    // Récupération des infos sur sur l'entrée du menu à afficher
463 
    $menu_info = GEN_lireInfoMenu($db, $menu_id, DB_FETCHMODE_ASSOC);
1090 florian 464 
 
465 
 
1033 ddelon 466 
 
1090 florian 467 
    // Préparation d'une entrée dans la liste du menu
468 
    $menu_nom = htmlentities($menu_info['gm_nom']);
469 
 
470 
 
471 
    if (trim($menu_nom)=='') return '';
472 
 
473 
 
338 jpm 474 
    $menu_accesskey = '';
475 
    $raccourci_txt = '';
476 
    if (($menu_accesskey = htmlentities($menu_info['gm_raccourci_clavier'])) != '') {
1063 florian 477 
        $raccourci_txt = '[Raccourci : Alt+'.$menu_accesskey.' ] ';
338 jpm 478 
        $menu_accesskey = 'accesskey="'.$menu_accesskey.'" ';
479 
    }
480 
    $menu_texte_title = '';
481 
    if (($menu_texte_title = htmlentities($menu_info['gm_description_resume'])) != '') {
482 
        $menu_texte_title = 'title="'.$raccourci_txt.$menu_texte_title.'" ';;
483 
    }
1090 florian 484 
 
960 jp_milcent 485 
    $une_url =& new Pap_URL(PAP_URL);
1090 florian 486 
    $une_url->setId($menu_id);
487 
 
488 
	if (isset($i18n) && ($i18n!='')) {
489 
		$une_url->addQuerystring(GEN_URL_CLE_I18N,$i18n);
490 
	}
39 jpm 491 
    //Création d'une entrée dans la liste du menu
151 jpm 492 
    $espaces = str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2)));
1063 florian 493 
    $retour  =  $espaces.'<a id="menu_lien_'.$num_menu.'_'.$menu_id.'" href="'.$une_url->getURL().'" '.$menu_texte_title.$menu_accesskey.'>'.$menu_nom.'</a>'."\n";
39 jpm 494 
    return $retour;
495 
}
1090 florian 496 
 
497 
// +------------------------------------------------------------------------------------------------------+
498 
// |                                            PIED du PROGRAMME                                         |
499 
// +------------------------------------------------------------------------------------------------------+
500 
 
501 
 
502 
/* +--Fin du code ----------------------------------------------------------------------------------------+
503 
*
4 jpm 504 
* $Log: not supported by cvs2svn $
1090 florian 505 
* Revision 1.30  2006/11/27 13:47:23  florian
506 
* ajout de la touche alt pour les raccourcis
507 
*
1063 florian 508 
* Revision 1.29  2006/10/16 15:49:46  ddelon
509 
* Refactorisation code mulitlinguisme et gestion menu invisibles
510 
*
1033 ddelon 511 
* Revision 1.28  2006/09/21 15:52:19  jp_milcent
512 
* Utilisation de PAP_URL pour Net_URL à la place des constantes serveur.
513 
*
960 jp_milcent 514 
* Revision 1.27  2006/09/20 09:25:31  alexandre_tb
515 
* Initialisation de la variable $i18n_url pour éviter un notice
516 
*
949 alexandre_ 517 
* Revision 1.26  2006/07/04 09:43:21  alexandre_tb
518 
* correction d'un bug du javascript
519 
*
899 alexandre_ 520 
* Revision 1.25  2006/06/28 12:53:34  ddelon
521 
* Multilinguisme : menu par defaut
522 
*
871 ddelon 523 
* Revision 1.24  2006/03/13 21:00:20  ddelon
524 
* Suppression messages d'erreur multilinguisme
525 
*
767 ddelon 526 
* Revision 1.23  2006/03/02 10:49:49  ddelon
527 
* Fusion branche multilinguisme dans branche principale
528 
*
754 ddelon 529 
* Revision 1.22.2.2  2006/02/28 14:02:11  ddelon
530 
* Finition multilinguisme
531 
*
532 
* Revision 1.22.2.1  2005/12/20 14:40:25  ddelon
533 
* Fusion Head vers Livraison
534 
*
535 
* Revision 1.22  2005/09/27 08:42:49  ddelon
536 
* Menu et Squelette
537 
*
466 ddelon 538 
* Revision 1.21  2005/09/22 14:02:49  ddelon
539 
* nettoyage annuaire et php5
540 
*
448 ddelon 541 
* Revision 1.20  2005/05/27 14:56:51  alex
542 
* correction de bug d'affichage des menus communs
543 
*
385 alex 544 
* Revision 1.19  2005/05/27 10:23:00  jpm
545 
* Modification du style des raccourcis.
546 
*
383 jpm 547 
* Revision 1.18  2005/05/03 08:39:32  jpm
548 
* Ajout d'un test sur la date.
549 
*
364 jpm 550 
* Revision 1.17  2005/04/19 16:59:51  jpm
551 
* Suppression de l'affichage d'un débogage.
552 
*
348 jpm 553 
* Revision 1.16  2005/04/19 16:47:24  jpm
554 
* Gestion des dates  de fin de validité des menus.
555 
*
346 jpm 556 
* Revision 1.15  2005/04/14 16:37:48  jpm
557 
* Ajout de la gestion des URL avec la classe Pap_URL de Papyrus.
558 
*
338 jpm 559 
* Revision 1.14  2005/03/02 11:02:33  jpm
560 
* Suppression des espaces avant l'ouverture de la balise php.
561 
*
289 jpm 562 
* Revision 1.13  2005/02/08 19:03:03  alex
563 
* ajout de la balise DEROULANT qui permet de faire un affichage des menus avec survol javascript. Il nécessite des styles particuliers.
564 
*
254 alex 565 
* Revision 1.12  2004/12/02 10:42:15  jpm
566 
* Correction bogue liste ul vide si pas de menu.
567 
*
200 jpm 568 
* Revision 1.11  2004/11/26 19:02:22  jpm
569 
* Correction bogue li surnuméraires.
570 
*
185 jpm 571 
* Revision 1.10  2004/11/15 17:40:02  jpm
572 
* Changement nom balise.
573 
*
158 jpm 574 
* Revision 1.9  2004/11/15 16:17:40  jpm
575 
* Gestion des différents types de menus.
576 
*
154 jpm 577 
* Revision 1.8  2004/11/10 18:59:21  jpm
578 
* Début de gestion de l'ensemble des types de menu dans l'applette menu.
579 
*
151 jpm 580 
* Revision 1.7  2004/09/23 14:31:40  jpm
581 
* Correction bogue sur le menu actif.
582 
*
52 jpm 583 
* Revision 1.6  2004/09/23 10:47:16  jpm
584 
* Amélioration de la gestion du menu actif en fonction du menu demandé dans l'url.
585 
*
48 jpm 586 
* Revision 1.5  2004/09/15 09:32:21  jpm
587 
* Mise en conformité avec le standard XHTML Strict.
588 
* Amélioration de la gestion de l'indentation.
589 
*
41 jpm 590 
* Revision 1.4  2004/09/13 18:02:34  jpm
591 
* Changement de nom de m_select en menu_actif et de m_non_select en menu_inactif.
592 
* Amélioration du rendu du code html.
593 
*
39 jpm 594 
* Revision 1.3  2004/07/23 11:21:25  alex
595 
* suppression du javascript.
596 
*
33 alex 597 
* Revision 1.2  2004/06/25 08:32:02  alex
598 
* modification des styles
599 
*
19 alex 600 
* Revision 1.1  2004/06/15 15:04:14  jpm
601 
* Changement de nom et d'arborescence de Genesia en Papyrus.
602 
*
4 jpm 603 
* Revision 1.10  2004/05/05 14:33:04  jpm
604 
* Gestion de l'indication de langue dans l'url.
605 
* Utile que si on veut forcer la langue.
1090 florian 606 
*
607 
* Revision 1.8  2004/05/05 06:44:19  jpm
608 
* Complément des commentaires indiquant les paquetages nécessaire à l'applette.
609 
*
610 
* Revision 1.7  2004/05/04 14:19:37  jpm
611 
* Mise entre guillemet simple d'un texte.
612 
*
613 
* Revision 1.6  2004/05/03 14:11:01  jpm
614 
* Intégration du fichier bibliothèquie de fonctions sur gen_menu provenant de la bibliothèque de Génésia INUTILE!
615 
*
616 
* Revision 1.5  2004/05/03 14:09:32  jpm
617 
* Intégration du fichier bibliothèquie de fonctions sur gen_menu provenant de la bibliothèque de Génésia.
618 
*
619 
* Revision 1.4  2004/05/03 11:19:00  jpm
620 
* Intégration de la variable globale de Génésia dans les arguments de la fonction de l'applette.
621 
*
622 
* Revision 1.3  2004/05/03 08:52:44  jpm
623 
* Modification pour intégrer les sous listes (ul) de menus à l'intèrieur de l'entrée (li) du menu supérieur.
624 
*
625 
* Revision 1.2  2004/05/01 17:22:23  jpm
626 
* Changement de nom de l'applette dans les commentaires.
627 
*
628 
* Revision 1.1  2004/05/01 16:12:39  jpm
629 
* Ajout de l'applette gérant les menus multi niveaux ou niveau unique.
630 
*
631 
*
632 
* +-- Fin du code ----------------------------------------------------------------------------------------+
633 
*/
4 jpm 634 
?>