New file |
0,0 → 1,296 |
<?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.1 2004-06-15 15:04:14 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.1 $ $Date: 2004-06-15 15:04:14 $ |
// +------------------------------------------------------------------------------------------------------+ |
*/ |
|
// +------------------------------------------------------------------------------------------------------+ |
// | 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 un |
if (! 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 variables |
static $niveau_actuel = 1; |
$res = ''; |
|
// On affiche un menu que si $profondeur <= $niveau_actuel <= $depart |
if ($niveau_actuel > $profondeur) { |
return ; |
} |
if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) { |
$res = str_repeat(' ', $indent_origine + ($indent_pas * 1)).'<ul id="menus_niveau_'.$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ée |
if ($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 .= '</li>'."\n"; |
} else { |
$res .= '</li>'."\n"; |
} |
|
$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(); |
|
//Création d'une entrée dans la liste du menu |
$lien_menu = '<a href="'.$url.'" title="'.$menu_texte_title.'">'.$menu_nom.'</a>'; |
$retour = str_repeat(' ', $indent_origine + ($indent_pas * 2)); |
$retour .= '<li id="menu_'.$niveau.'_'.$ordre.'">'.$lien_menu; |
|
return $retour; |
} |
|
// +------------------------------------------------------------------------------------------------------+ |
// | PIED du PROGRAMME | |
// +------------------------------------------------------------------------------------------------------+ |
|
|
/* +--Fin du code ----------------------------------------------------------------------------------------+ |
* |
* $Log: not supported by cvs2svn $ |
* 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 ----------------------------------------------------------------------------------------+ |
*/ |
?> |