Rev 254 | Rev 338 | Go to most recent revision | 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.14 2005-03-02 11:02:33 jpm 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.14 $ $Date: 2005-03-02 11:02:33 $// +------------------------------------------------------------------------------------------------------+*/// +------------------------------------------------------------------------------------------------------+// | ENTÊTE du PROGRAMME |// +------------------------------------------------------------------------------------------------------+require_once 'papyrus/bibliotheque/fonctions/pap_menu.fonct.php';$GLOBALS['_MENU_']['nom_fonction'] = 'afficherMenuNiveauMultiple';$_GEN_commun['info_applette_nom_fonction'] = $GLOBALS['_MENU_']['nom_fonction'];$_GEN_commun['info_applette_balise'] = 'MENU_?(?:(|CLASSIQUE|COMMUN|DEROULANT)_([0-9]+)_([0-9]+)(|_ID_([0-9]+))|(UNIQUE)_([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.$objet_pear_db = $_GEN_commun['pear_db'];$id_site = $_GEN_commun['info_site']->gs_id_site;$id_menu = $_GEN_commun['info_menu']->gm_id_menu;$num_menu = $GLOBALS['_PAPYRUS_']['applette']['comptage'][$GLOBALS['_MENU_']['nom_fonction']];$id_langue = $_GEN_commun['i18n'];$i18n_url = '';// Evite d'écrire l'i18n dans l'url demandée.if (!empty($_GEN_commun['url_i18n'])) {// L'écriture de l'i18n dans les urls des menus est demandée.$i18n_url = $_GEN_commun['url_i18n'];}$indent_origine = 12;// Indentation de départ en nombre d'espace$indent_pas = 4;// Pas d'indentation en nombre d'espace$niveau_depart = 1;// 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 = $tab_applette_arguments[3];$profondeur = $tab_applette_arguments[4];if (isset($tab_applette_arguments[5]) && !empty($tab_applette_arguments[5])) {$menu_depart = $tab_applette_arguments[6];} else {$menu_depart = 0;}// Pour les menus UNIQUEif (isset($tab_applette_arguments[7])) {$menu_type = $tab_applette_arguments[7];}if (isset($tab_applette_arguments[8])) {$menu_depart = $tab_applette_arguments[8];}// Gestion du type de menuswitch ($menu_type) {case '' :$menu_type = 'classique';break;case 'CLASSIQUE' :$menu_type = 'classique';break;case 'COMMUN' :$menu_type = 'commun';break;case 'UNIQUE' :$menu_type = 'unique';break;case 'DEROULANT' :$menu_type = 'deroulant';break;default:$menu_type = 'classique';}//Construction du menu$xhtml_menu = afficherListeNiveauMultiple( $objet_pear_db, $id_site, $id_langue, $i18n_url ,$niveau_depart,$profondeur, $menu_depart, 1, $menu_type, $indent_origine,$indent_pas, $_GEN_commun, $num_menu);// 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, $id_langue, $i18n_url, $niveau_depart, $profondeur,$id_pere_menu_a_deployer, $position, $menu_type, $indent_origine = 12,$indent_pas = 4, $_GEN_commun, $num_menu){// Initialisation des variablesstatic $niveau_actuel = 1;$retour = '';$tete = '';$corps = '';$pied = '';// Gestion des menus uniquesif ($menu_type == 'unique') {$retour .= afficherEntreeListeMenu( $objet_pear_db, $id_pere_menu_a_deployer, $i18n_url,$niveau_actuel, 1, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun);// 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) {$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);}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, GMR01.gmr_ordre '.'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 ';$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';}//$GLOBALS['_GEN_commun']['debogage_info'] .= $requete;$resultat = $objet_pear_db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {// On commence par regarder si le menu existe dans la langue demandéeif ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {$requete_i18n = 'SELECT gm_id_menu '.'FROM gen_menu, gen_menu_relation '.'WHERE gmr_id_menu_01 = '.$ligne->gm_id_menu.' '.'AND gmr_id_menu_02 = gm_id_menu '.'AND gmr_id_valeur = 2 '.// 2 = "avoir traduction"'AND gm_ce_i18n = "'.$id_langue.'"';$resultat_i18n = $objet_pear_db->query($requete_i18n);(DB::isError($resultat_i18n)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_i18n->getMessage(), $requete_i18n)) : '';// Récupération de l'id du menu à afficherif ($resultat_i18n->numRows() != 0) {$id_menu_i18n = $resultat_i18n->fetchRow(DB_FETCHMODE_OBJECT);$id_menu_inf = $id_menu_i18n->gm_id_menu;$resultat_i18n->free();} else {$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';}// Affichage du menu$corps .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2))).'<li id="menu_'.$num_menu.'_'.$id_menu_inf.'" class="'.$classe.'">'."\n";$corps .= afficherEntreeListeMenu( $objet_pear_db, $id_menu_inf, $i18n_url, $niveau_actuel,$ligne->gmr_ordre, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun);}// 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 '.'AND GMR02.gmr_id_valeur = 100 '.// 100 = type "menu classique"'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 ($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, $id_langue, $i18n_url, $niveau_depart,$profondeur, $ligne->gm_id_menu, ($position + 3), $menu_type,null, null, $_GEN_commun, $num_menu);// 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();}$resultat->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*/function afficherEntreeListeMenu($db, $id_menu, $i18n_url, $niveau, $ordre, $position, $menu_type, $indent_origine = 12, $indent_pas = 4, $_GEN_commun){// Préparation des noms des champs des codes pour le site et le menu$champs_code_site = (GEN_URL_ID_TYPE_SITE == 'int') ? 'gs_code_num' : 'gs_code_alpha';$champs_code_menu = (GEN_URL_ID_TYPE_MENU == 'int') ? 'gm_code_num' : 'gm_code_alpha';// Récupération du nom de l'entrée du menu à afficher$requete = 'SELECT '.$champs_code_menu.', '.'gm_nom, gm_description_resume, gm_raccourci_clavier, gm_ce_i18n, gm_ce_site '.'FROM gen_menu '.'WHERE gm_id_menu = '.$id_menu.' ';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);$resultat->free();// Nous vérifions si nous avons à faire à un menu commun ou pasif ($ligne['gm_ce_site'] != 0) {// Récupération des infos sur le site$bln_url_site = false;$requete_site = 'SELECT '.$champs_code_site.' '.'FROM gen_site '.'WHERE gs_id_site = '.$ligne['gm_ce_site'].' ';$resultat_site = $db->query($requete_site);(DB::isError($resultat_site)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_site->getMessage(), $requete_site)) : '';$ligne_site = $resultat_site->fetchRow(DB_FETCHMODE_ASSOC);$resultat_site->free();} else {// Menu commun$bln_url_site = true;$ligne_site[$champs_code_site] = $_GEN_commun['info_site']->$champs_code_site;}// Préparation d'une entrée dans la liste du menu$menu_nom = htmlentities($ligne['gm_nom']);$menu_texte_title = htmlentities($ligne['gm_description_resume']);// Préparation de l'url de l'entrée$objet_pear_url = & new Net_URL('http://'.$_SERVER['HTTP_HOST'].$_SERVER['PHP_SELF']);if ($bln_url_site) {$objet_pear_url->addQueryString(GEN_URL_CLE_SITE, $ligne_site[$champs_code_site]);}$objet_pear_url->addQueryString(GEN_URL_CLE_MENU, $ligne[$champs_code_menu]);if (!empty($i18n_url)) {$objet_pear_url->addQueryString(GEN_URL_CLE_I18N, $i18n_url);}$url = $objet_pear_url->getURL();//Création d'une entrée dans la liste du menu$espaces = str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2)));$retour = $espaces.'<a href="'.$url.'" title="'.$menu_texte_title.'">'.$menu_nom.'</a>'."\n";return $retour;}// +------------------------------------------------------------------------------------------------------+// | PIED du PROGRAMME |// +------------------------------------------------------------------------------------------------------+/* +--Fin du code ----------------------------------------------------------------------------------------+** $Log: not supported by cvs2svn $* Revision 1.13 2005/02/08 19:03:03 alex* ajout de la balise DEROULANT qui permet de faire un affichage des menus avec survol javascript. Il nécessite des styles particuliers.** Revision 1.12 2004/12/02 10:42:15 jpm* Correction bogue liste ul vide si pas de menu.** Revision 1.11 2004/11/26 19:02:22 jpm* Correction bogue li surnuméraires.** Revision 1.10 2004/11/15 17:40:02 jpm* Changement nom balise.** Revision 1.9 2004/11/15 16:17:40 jpm* Gestion des différents types de menus.** Revision 1.8 2004/11/10 18:59:21 jpm* Début de gestion de l'ensemble des types de menu dans l'applette menu.** Revision 1.7 2004/09/23 14:31:40 jpm* Correction bogue sur le menu actif.** Revision 1.6 2004/09/23 10:47:16 jpm* Amélioration de la gestion du menu actif en fonction du menu demandé dans l'url.** Revision 1.5 2004/09/15 09:32:21 jpm* Mise en conformité avec le standard XHTML Strict.* Amélioration de la gestion de l'indentation.** Revision 1.4 2004/09/13 18:02:34 jpm* Changement de nom de m_select en menu_actif et de m_non_select en menu_inactif.* Amélioration du rendu du code html.** Revision 1.3 2004/07/23 11:21:25 alex* suppression du javascript.** Revision 1.2 2004/06/25 08:32:02 alex* modification des styles** Revision 1.1 2004/06/15 15:04:14 jpm* Changement de nom et d'arborescence de Genesia en Papyrus.** Revision 1.10 2004/05/05 14:33:04 jpm* Gestion de l'indication de langue dans l'url.* Utile que si on veut forcer la langue.** Revision 1.8 2004/05/05 06:44:19 jpm* Complément des commentaires indiquant les paquetages nécessaire à l'applette.** Revision 1.7 2004/05/04 14:19:37 jpm* Mise entre guillemet simple d'un texte.** Revision 1.6 2004/05/03 14:11:01 jpm* Intégration du fichier bibliothèquie de fonctions sur gen_menu provenant de la bibliothèque de Génésia INUTILE!** Revision 1.5 2004/05/03 14:09:32 jpm* Intégration du fichier bibliothèquie de fonctions sur gen_menu provenant de la bibliothèque de Génésia.** Revision 1.4 2004/05/03 11:19:00 jpm* Intégration de la variable globale de Génésia dans les arguments de la fonction de l'applette.** Revision 1.3 2004/05/03 08:52:44 jpm* Modification pour intégrer les sous listes (ul) de menus à l'intèrieur de l'entrée (li) du menu supérieur.** Revision 1.2 2004/05/01 17:22:23 jpm* Changement de nom de l'applette dans les commentaires.** Revision 1.1 2004/05/01 16:12:39 jpm* Ajout de l'applette gérant les menus multi niveaux ou niveau unique.*** +-- Fin du code ----------------------------------------------------------------------------------------+*/?>