Subversion Repositories Applications.papyrus

Rev

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