| 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 |
?>
|