Rev 4 | Rev 39 | 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.2 2004-06-25 08:32:02 alex 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.2 $ $Date: 2004-06-25 08:32:02 $// +------------------------------------------------------------------------------------------------------+*/// +------------------------------------------------------------------------------------------------------+// | ENTÊTE du PROGRAMME |// +------------------------------------------------------------------------------------------------------+$_GEN_commun['info_applette_nom_fonction'] = 'afficherMenuNiveauMultiple';$_GEN_commun['info_applette_balise'] = 'MENU_([0-9])_([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;$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// Récupérations des arguments passés dans la balise.$niveau_depart = $tab_applette_arguments[2];$profondeur = $tab_applette_arguments[3];// Remplacement des valeurs variables du nom de la balise par celles trouvées.//global $_GEN_commun;//$_GEN_commun['info_applette_balise'] = 'MENU_'.$niveau_depart.'_'.$profondeur;//Construction du menu$xhtml_menu = afficherListeNiveauMultiple($objet_pear_db, $id_site, $id_langue, $i18n_url ,$niveau_depart, $profondeur, 0, $indent_origine, $indent_pas);//Si nous avons unif (! empty($xhtml_menu)) {//$res = str_repeat(' ', $indent_origine).'<ul id="menu_niveau_'.$niveau_depart.'">'."\n";$res = $xhtml_menu;//$res .= str_repeat(' ', $indent_origine).'</ul>';} else {$res = '<!-- '.$_GEN_commun['info_applette_balise'].' : aucun menu trouvé ! -->';}return $res;}/** 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, $indent_origine = 12, $indent_pas = 4){// Initialisation des variablesstatic $niveau_actuel = 1;$res = '';// On affiche un menu que si $profondeur <= $niveau_actuel <= $departif ($niveau_actuel > $profondeur) {return ;}if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {$res = str_repeat(' ', $indent_origine + ($indent_pas * 1)).'<ul id="groupe_menu_'.$id_pere_menu_a_deployer.'" class="menu_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_02 = '.$id_pere_menu_a_deployer.' '.'AND GMR01.gmr_id_menu_01 = gm_id_menu '.'AND GMR01.gmr_id_valeur = 1 '.// 1 = "avoir père"'AND gm_ce_site = '.$id_site.' '.'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';$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)) : '';if ($resultat_i18n->numRows() != 0) {$id_menu_i18n = $resultat_i18n->fetchRow(DB_FETCHMODE_OBJECT);$resultat_i18n->free();$res .= afficherEntreeListeMenu($objet_pear_db, $id_menu_i18n->gm_id_menu, $i18n_url,$niveau_actuel, $ligne->gmr_ordre, $indent_origine, $indent_pas);} else {$res .= afficherEntreeListeMenu($objet_pear_db, $ligne->gm_id_menu, $i18n_url, $niveau_actuel,$ligne->gmr_ordre, $indent_origine, $indent_pas);}}// 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) {$niveau_actuel++;$res .= afficherListeNiveauMultiple($objet_pear_db, $id_site, $id_langue, $i18n_url, $niveau_depart, $profondeur, $ligne->gm_id_menu);// On ramène $niveau_actuel un cran plus bas$niveau_actuel--;$res .= '';} else {$res .= "";}$resultat_fils->free();}$resultat->free() ;if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {$res .= str_repeat(' ', $indent_origine + ($indent_pas * 1)).'</ul>'."\n";}return $res;}/** Fonction afficherEntreeListeMenu() - Contruit une entrée dans une liste du menu d'un site.** Cette fonction retourne une entrée (<li></li>) dans la liste du menu d'un site.* 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($objet_pear_db, $id_menu, $i18n_url, $niveau, $ordre, $indent_origine = 12, $indent_pas = 4){// 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_site.', '.$champs_code_menu.', '.'gm_nom, gm_description_resume, gm_raccourci_clavier, gm_ce_i18n '.'FROM gen_menu, gen_site '.'WHERE gm_id_menu = '.$id_menu.' '.'AND gm_ce_site = gs_id_site ';$resultat = $objet_pear_db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);// 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']);$objet_pear_url->addQueryString(GEN_URL_CLE_SITE, $ligne[$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();// On vérifie si le menu est le menu sélectionnéif (isset ($GLOBALS[GEN_URL_CLE_MENU]) && $id_menu == $GLOBALS[GEN_URL_CLE_MENU]) {$classe = 'm_select' ;} else {$classe = 'm_non_select' ;}//Création d'une entrée dans la liste du menu$lien_menu = '<a href="'.$url.'" title="'.$menu_texte_title.'">'.$menu_nom.'</a>'."\n";$retour = str_repeat(' ', $indent_origine + ($indent_pas * 2));$retour .= '<li id="menu_'.$id_menu.'" class="'.$classe.'" onclick="javascript:montre(this);">'.$lien_menu.'</li>'."\n";return $retour;}// +------------------------------------------------------------------------------------------------------+// | PIED du PROGRAMME |// +------------------------------------------------------------------------------------------------------+/* +--Fin du code ----------------------------------------------------------------------------------------+** $Log: not supported by cvs2svn $* 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 ----------------------------------------------------------------------------------------+*/?>