Rev 2093 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<?php/*vim: set expandtab tabstop=4 shiftwidth=4: */// +--------------------------------------------------------------------------------------------------------+// | PHP version 4.1 |// +--------------------------------------------------------------------------------------------------------+// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |// +--------------------------------------------------------------------------------------------------------+// | This library is free software; you can redistribute it and/or |// | modify it under the terms of the GNU Lesser General Public |// | License as published by the Free Software Foundation; either |// | version 2.1 of the License, or (at your option) any later version. |// | |// | This library is distributed in the hope that it will be useful, |// | but WITHOUT ANY WARRANTY; without even the implied warranty of |// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |// | Lesser General Public License for more details. |// | |// | You should have received a copy of the GNU Lesser General Public |// | License along with this library; if not, write to the Free Software |// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |// +--------------------------------------------------------------------------------------------------------+// CVS : $Id: menu.php,v 1.35 2008-08-12 16:22:51 jp_milcent Exp $/*** Applette : menu** Génère une liste de listes comportant tous les niveaux des menus "classiques" d'un site.* Nécessite :* - Variable de Papyrus.* - Base de données de Papyrus* - Pear DB* - Pear Net_URL* - API Débogage 1.0**@package Applette*@subpackage Menu//Auteur original :*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>//Autres auteurs :*@author Aucun*@copyright Tela-Botanica 2000-2004*@version $Revision: 1.35 $ $Date: 2008-08-12 16:22:51 $// +------------------------------------------------------------------------------------------------------+*/// +------------------------------------------------------------------------------------------------------+// | ENTÊTE du PROGRAMME |// +------------------------------------------------------------------------------------------------------+date_default_timezone_set('Europe/Paris');// Inclusion de la bibliothèque defonction sur les menu : inutile car inclue par Papyrusrequire_once GEN_CHEMIN_BIBLIO.'pap_menu.fonct.php';$GLOBALS['_MENU_']['nom_fonction'] = 'afficherMenuNiveauMultiple';$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = $GLOBALS['_MENU_']['nom_fonction'];$GLOBALS['_GEN_commun']['info_applette_balise'] = '<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe'].'(MENU_?(?:(|CLASSIQUE|COMMUN|DEROULANT)_([0-9]+)_([0-9]+)(|_ID_([0-9]+))|(UNIQUE)_([0-9]+))(?:|_NUMID_([0-9]+))) -->';// +------------------------------------------------------------------------------------------------------+// | CORPS du PROGRAMME |// +------------------------------------------------------------------------------------------------------+// +------------------------------------------------------------------------------------------------------+// | LISTE de FONCTIONS |// +------------------------------------------------------------------------------------------------------+/** Fonction GEN_afficherMenuNiveauMultiple() - Retourne la liste des listes de menus.** Cette fonction retourne ne fait qu'encapsuler une fonction récursive* retournant les listes de menus de l'arborescence d'un site dans une* langue donnée.** @param array contient les arguments de la fonction en 1 le niveau de départ et en 2 le niveau d'arrivée (profondeur max demandée).* @param array tableau global de Papyrus.* @return string HTML la liste des listes de menus.*/function afficherMenuNiveauMultiple($tab_applette_arguments, $_GEN_commun){// Initialisation de variable et gestion des globales$objet_pear_db = $_GEN_commun['pear_db'];$id_site = $_GEN_commun['info_site']->gs_id_site;if (isset($_GEN_commun['info_menu'])) {$id_menu = $_GEN_commun['info_menu']->gm_id_menu;}$num_menu = $GLOBALS['_PAPYRUS_']['applette']['comptage'][$GLOBALS['_MENU_']['nom_fonction']];// Indentation du html$indent_origine = 12;// Indentation de départ en nombre d'espace$indent_pas = 4;// Pas d'indentation en nombre d'espace// Récupérations des arguments passés dans la balise.// Pour les menus CLASSIQUE et COMMUN$balise = $tab_applette_arguments[1];$menu_type = $tab_applette_arguments[2];$niveau_depart = (isset($tab_applette_arguments[3])) ? $tab_applette_arguments[3] : 1;$profondeur = $tab_applette_arguments[4];$menu_depart = 0;// Si on indique un ID de menu de départif (isset($tab_applette_arguments[5]) && !empty($tab_applette_arguments[5])) {$menu_depart = $tab_applette_arguments[6];}// Pour les menus UNIQUEif (isset($tab_applette_arguments[7])) {$menu_type = $tab_applette_arguments[7]; // Type de menu : UNIQUE}if (isset($tab_applette_arguments[8])) {$menu_depart = $tab_applette_arguments[8]; // ID du menu de type UNIQUE}// Pour les balises menus avec NUMID en dur// Gestion du numéro unique pour l'attribut id des li des menusif (isset($tab_applette_arguments[9])) {$num_menu = $tab_applette_arguments[9];}// Gestion du type de menuswitch ($menu_type) {case 'COMMUN' :$menu_type = 'commun';break;case 'UNIQUE' :$menu_type = 'unique';break;case 'DEROULANT' :$menu_type = 'deroulant';break;case 'CLASSIQUE' :default:$menu_type = 'classique';}// Si le niveau de départ est supérieur à 1 et qu'aucun id de menu n'a été indiqué dans la balise$niveau_actuel = 1;if (1 < $niveau_depart && 0 == $menu_depart && isset($id_menu)) {$menu_depart = GEN_lireIdentifiantMenuPere($id_menu);$niveau_actuel = GEN_donnerProfondeur($id_site, $id_menu);//trigger_error("Niveau actuel du menu si$id_site:me$id_menu pour la balise {$tab_applette_arguments[0]} : $niveau_actuel", E_USER_NOTICE);}// PATCH TEMPORAIRE pour stopper une erreur due à la mauvaise gestion des traductionsif(!$menu_depart) {$menu_depart = 0 ;}//Construction du menu$xhtml_menu = afficherListeNiveauMultiple( $objet_pear_db, $id_site,$niveau_depart,$profondeur, $menu_depart, 1, $menu_type, $indent_origine,$indent_pas, $_GEN_commun, $num_menu, $niveau_actuel);// Si le menu est déroulant il faut stocker un peu de javascript pour IEif ($menu_type == 'deroulant') {GEN_stockerCodeScript ('sfHover = function() {var sfEls = document.getElementById("groupe_menu_1_0").getElementsByTagName("LI");for (var i=0; i<sfEls.length; i++) {sfEls[i].onmouseover=function() {this.className+=" sfhover";}sfEls[i].onmouseout=function() {this.className=this.className.replace(new RegExp(" sfhover\\\\b"), "");}}}if (window.attachEvent) window.attachEvent("onload", sfHover);') ;}//Si nous avons unif (! empty($xhtml_menu)) {$retour = $xhtml_menu;} else {$retour = '<!-- '.$balise.' : aucun menu trouvé ! -->';}return $retour;}/** Fonction afficherListeNiveauMultiple() - Affiche une arborescence des menu classiques d'un site.** Créé et retourne une liste pour chaque niveau de menu classique trouvé dans l'arborescence* des menus d'un site dans une langue donnée.* C'est une fonction récursive.** @param mixed objet Pear DB de connexion à la base de données.* @param integer identifiant d'un site.* @param integer identifiant de la langue demandée.* @param integer niveau de départ.* @param integer niveau d'arrivée (profondeur max demandée).* @param integer identifiant d'un menu pére.* @return string les listes de menus au format XHTML.*/function afficherListeNiveauMultiple( &$objet_pear_db, $id_site, $niveau_depart, $profondeur,$id_pere_menu_a_deployer, $position, $menu_type, $indent_origine = 12,$indent_pas = 4, $_GEN_commun, $num_menu, $niveau_actuel = 1){// Initialisation des variables$retour = '';$tete = '';$corps = '';$pied = '';$i18n_url = '';$id_langue = $_GEN_commun['i18n'];//identifiant de la langue choisieif ($id_langue != GEN_I18N_ID_DEFAUT) {$i18n_url = $id_langue;}if (isset($id_langue) && ($id_langue!='')) {$langue_test = $id_langue;} else {$langue_test = GEN_I18N_ID_DEFAUT;}if($id_pere_menu_a_deployer == '') {$id_pere_menu_a_deployer = 0;}// Récupération des infos sur sur l'entrée du menu à afficher$menu_info = GEN_lireInfoMenu($objet_pear_db, $id_pere_menu_a_deployer, DB_FETCHMODE_ASSOC);// Gestion des menus uniquesif ($menu_type == 'unique' && ($menu_info['gm_date_fin_validite'] == '0000-00-00 00:00:00' || strtotime($menu_info['gm_date_fin_validite']) > time() )) {$retour .= afficherEntreeListeMenu( $objet_pear_db, $id_pere_menu_a_deployer, $i18n_url,$niveau_actuel, 1, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun, $num_menu);// Dans le cas, d'un menu unique, on retourne directement le résultat ici.return $retour;}// On affiche un menu que si $profondeur <= $niveau_actuel <= $departif ($niveau_actuel > $profondeur) {return null;}// Nous regardons si nous devons afficher un menu racineif ($id_pere_menu_a_deployer != 0 && $niveau_actuel == 1 && ($menu_info['gm_date_fin_validite'] == '' || $menu_info['gm_date_fin_validite'] == '0000-00-00 00:00:00' || strtotime($menu_info['gm_date_fin_validite']) > time() )) {$tete .= str_repeat(' ', $indent_origine + ($indent_pas * $position)).'<ul class="groupe_menu_'.$num_menu.'_'.$id_pere_menu_a_deployer.'" class="menu_'.$menu_type.'_'.'n'.$niveau_actuel.'">'."\n";$id_menu_selectionne = $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu;if (!empty($id_menu_selectionne) && (GEN_etreAncetre($id_pere_menu_a_deployer, $id_menu_selectionne) || $id_pere_menu_a_deployer == $id_menu_selectionne) ) {$classe = 'menu_actif';} else {$classe = 'menu_inactif';}// Pour un menu dont on spécifie l'identifiant du menu départ, on affiche ce menu.$corps .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).'<li id="menu_'.$num_menu.'_'.$id_pere_menu_a_deployer.'" class="'.$classe.'">'."\n";$corps .= afficherEntreeListeMenu( $objet_pear_db, $id_pere_menu_a_deployer, $i18n_url,$niveau_actuel, 1, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun, $num_menu);}if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {$tete .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).'<ul id="groupe_menu_'.$num_menu.'_'.$id_pere_menu_a_deployer.'" class="menu_'.$menu_type.'_'.'n'.$niveau_actuel.'">'."\n";}$requete = 'SELECT gm_id_menu, gm_date_fin_validite, gm_ce_i18n , GMR01.gmr_ordre, gm_nom '.'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.'WHERE GMR01.gmr_id_menu_01 = gm_id_menu '.'AND GMR01.gmr_id_valeur = 1 '.// 1 = "avoir père"'AND GMR02.gmr_id_menu_02 = gm_id_menu '.'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.'AND (gm_ce_i18n = "'.GEN_I18N_ID_DEFAUT.'" '.'OR gm_ce_i18n = "'.$langue_test.'" )' ;$requete .= 'AND GMR01.gmr_id_menu_02 = '.$id_pere_menu_a_deployer.' ';if ($menu_type == 'classique' || $menu_type == 'deroulant') {$requete .= 'AND gm_ce_site = '.$id_site.' '.'AND GMR02.gmr_id_valeur = 100 '.// 100 = type "menu classique"'ORDER BY GMR01.gmr_ordre ASC';} else if ($menu_type == 'commun') {$requete .= 'AND gm_ce_site = 0 '.'AND GMR02.gmr_id_valeur = 102 '.// 102 = type "menu commun"'ORDER BY GMR01.gmr_ordre ASC';}$resultat = $objet_pear_db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';$liste_menu=array();// On ne retient pas les menus qui sont des traductions ...while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {if ($langue_test == GEN_I18N_ID_DEFAUT) {// Le menu n'est pas une traduction : on le traite$requete_est_traduction = 'SELECT gmr_id_menu_01 '.'FROM gen_menu_relation '.'WHERE '.$ligne->gm_id_menu.' = gmr_id_menu_02 ' .'AND gmr_id_menu_01 <> gmr_id_menu_02 '.'AND gmr_id_valeur = 2 ';// 2 = "avoir traduction"$resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);(DB::isError($resultat_est_traduction)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction)) : '';if ( $resultat_est_traduction->numRows() == 0 ) {$liste_menu[]=$ligne;}} else { // Par defaut, on traite tous les menus trouvés$liste_menu[]=$ligne;}}if (!function_exists('cmp')) {function cmp($a, $b) {if ($a->gmr_ordre == $b->gmr_ordre) {return 0;}return ($a->gmr_ordre < $b->gmr_ordre) ? -1 : 1;}}usort ($liste_menu,"cmp");foreach ($liste_menu as $ligne) {if ($ligne->gm_date_fin_validite == '' || $ligne->gm_date_fin_validite == '0000-00-00 00:00:00' || strtotime($ligne->gm_date_fin_validite) > time()) {// On ne retient pas egalement les menu reserve a une seule langue$requete_restriction = 'SELECT gmr_id_menu_02 '.'FROM gen_menu_relation '.'WHERE '.$ligne->gm_id_menu.' = gmr_id_menu_01 ' .'AND gmr_id_valeur = 106 ';// 106 restriction de menu$resultat_restriction = $objet_pear_db->query($requete_restriction);(DB::isError($resultat_restriction)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_restriction->getMessage(), $requete_restriction)) : '';if ($resultat_restriction->numRows()>0 && $langue_test!=$ligne->gm_ce_i18n) {$select_menu=0;}else {$select_menu=1;}if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur && $select_menu == 1) {$id_menu_inf = $ligne->gm_id_menu;$id_menu_selectionne = '';if (isset($GLOBALS['_GEN_commun']['info_menu']->gm_id_menu)) {$id_menu_selectionne = $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu;}// On vérifie si le menu est le menu sélectionnéif (!empty($id_menu_selectionne) && (GEN_etreAncetre($id_menu_inf, $id_menu_selectionne) || $id_menu_inf == $id_menu_selectionne) ) {$classe = 'menu_actif';} else {$classe = 'menu_inactif';}$tmp= afficherEntreeListeMenu( $objet_pear_db, $id_menu_inf, $niveau_actuel,$ligne->gmr_ordre, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun, $num_menu);// Affichage du menuif ($tmp!='') {$corps .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2))).'<li id="menu_'.$num_menu.'_'.$id_menu_inf.'" class="'.$classe.'">'."\n";$corps .= $tmp;}}// Pour chaque menu on regarde s'il y a des fils. Si oui, on les déploie.$requete_fils = 'SELECT gm_id_menu '.'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.'WHERE GMR01.gmr_id_menu_02 = '.$ligne->gm_id_menu.' '.'AND GMR01.gmr_id_menu_01 = gm_id_menu '.'AND GMR01.gmr_id_valeur = 1 '.// 1 = "avoir père"'AND GMR02.gmr_id_menu_02 = gm_id_menu '.'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 ' ;if ($menu_type == 'classique') {$requete_fils .='AND GMR02.gmr_id_valeur = 100 ' ;// 100 = type "menu classique"}if ($menu_type == 'commun') {$requete_fils .='AND GMR02.gmr_id_valeur = 102 '; // 102 = type "menu commun"}$requete_fils .= 'ORDER BY GMR01.gmr_ordre ASC LIMIT 0,1';$resultat_fils = $objet_pear_db->query($requete_fils);(DB::isError($resultat_fils)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_fils->getMessage(), $requete_fils)) : '';if (isset($_GEN_commun['info_menu'])) {if ($resultat_fils->numRows() != 0 && $ligne->gm_id_menu == $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu|| GEN_etreAncetre($ligne->gm_id_menu, $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu) || $menu_type == 'deroulant') {$niveau_actuel++;$corps .= afficherListeNiveauMultiple( $objet_pear_db, $id_site, $niveau_depart,$profondeur, $ligne->gm_id_menu, ($position + 3), $menu_type,null, null, $_GEN_commun, $num_menu, $niveau_actuel);// On ramène $niveau_actuel un cran plus bas$niveau_actuel--;}}if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {$corps .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2))).'</li>'."\n";}$resultat_fils->free();}}if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {$pied .= str_repeat(' ', $indent_origine + ($indent_pas * $position+ 1)).'</ul>'."\n";}// Nous regardons si nous avons affiché le menu racineif ($id_pere_menu_a_deployer != 0 && $niveau_actuel == 1) {$corps .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).'</li>'."\n";$pied .= str_repeat(' ', $indent_origine + ($indent_pas * $position)).'</ul>'."\n";}if (empty($corps)) {return $retour;} else {$retour = $tete.$corps.$pied;return $retour;}}/** Fonction afficherEntreeListeMenu() - Contruit une entrée dans une liste du menu d'un site.** Cette fonction retourne une entrée dans la liste du menu d'un site (<a></a>).* Le menu est un lien.* Necessite l'utilisation de Pear Net_URL par le programme appelant cette fonction.** @param mixed objet Pear DB de connexion à la base de données.* @param integer niveau du menu.* @param integer ordre du menu dans le niveau.* @return string liste représentant le menu duHTML** $menu_id : identifiant du menu (!= code menu)*/function afficherEntreeListeMenu($db, $menu_id, $niveau, $ordre, $position, $menu_type, $indent_origine = 12, $indent_pas = 4, $_GEN_commun, $num_menu){$id_langue = $GLOBALS['_GEN_commun']['i18n'];if (isset($id_langue) && ($id_langue != '')) {$langue_test = $id_langue;} else {$langue_test = GEN_I18N_ID_DEFAUT;}$requete_traduction = 'SELECT gmr_id_menu_02, gm_ce_i18n '.'FROM gen_menu_relation, gen_menu '.'WHERE '.$menu_id.' = gmr_id_menu_01 ' .'AND gmr_id_menu_02 = gm_id_menu '.'AND gmr_id_valeur = 2 '.// 2 = "avoir traduction"'AND gm_ce_i18n = "'.$langue_test.'" ';$resultat_traduction = $db->query($requete_traduction);(DB::isError($resultat_traduction)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction)) : '';if ($resultat_traduction->numRows() > 0) {$ligne_resultat_traduction=$resultat_traduction->fetchRow(DB_FETCHMODE_ASSOC);$menu_id=$ligne_resultat_traduction['gmr_id_menu_02'];} else {// Ne sont affichés que les traductions par defaut des menus// non traduits// Ici : pas de traductionif ($langue_test!=GEN_I18N_ID_DEFAUT) {$requete_defaut = 'SELECT gmr_id_menu_02 '.'FROM gen_menu_relation '.'WHERE '.$menu_id. ' = gmr_id_menu_01 ' .'AND gmr_id_valeur = 105 ';// 105 Traduction par defaut$resultat_defaut = $db->query($requete_defaut);(DB::isError($resultat_defaut)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_defaut->getMessage(), $requete_defaut)) : '';if ($resultat_defaut->numRows() > 0) {$ligne_resultat_defaut=$resultat_defaut->fetchRow(DB_FETCHMODE_ASSOC);$menu_id=$ligne_resultat_defaut['gmr_id_menu_02'];}}}// Récupération des infos sur sur l'entrée du menu à afficher$menu_info = GEN_lireInfoMenu($db, $menu_id, DB_FETCHMODE_ASSOC);// Préparation d'une entrée dans la liste du menu$menu_nom = htmlentities($menu_info['gm_nom']);if (trim($menu_nom) == '') return '';$menu_accesskey = '';$raccourci_txt = '';if ($menu_info['gm_raccourci_clavier'] != '') {$menu_accesskey = htmlentities($menu_info['gm_raccourci_clavier']);$raccourci_txt = '[Raccourci : Alt+'.$menu_accesskey.' ] ';$menu_accesskey = 'accesskey="'.$menu_accesskey.'" ';}$menu_texte_title = '';if ($menu_info['gm_description_resume'] != '' && $menu_info['gm_description_resume'] != $menu_info['gm_nom']) {$menu_texte_title = htmlentities($menu_info['gm_description_resume']);$menu_texte_title = 'title="'.$raccourci_txt.$menu_texte_title.'" ';}$une_url =& new Pap_URL(PAP_URL);$une_url->setId($menu_id);if (isset($id_langue) && ($id_langue != '')) {$une_url->addQuerystring(GEN_URL_CLE_I18N, $id_langue);}//Création d'une entrée dans la liste du menu$espaces = str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2)));$retour = $espaces.'<a id="menu_lien_'.$num_menu.'_'.$menu_id.'" href="'.$une_url->getURL().'" '.$menu_texte_title.$menu_accesskey.'>'.$menu_nom.'</a>'."\n";return $retour;}?>