Subversion Repositories Applications.papyrus

Compare Revisions

Ignore whitespace Rev 150 → Rev 151

/trunk/papyrus/applettes/menu/menu.php
1,4 → 1,4
<?php
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
19,7 → 19,7
// | 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.7 2004-09-23 14:31:40 jpm Exp $
// CVS : $Id: menu.php,v 1.8 2004-11-10 18:59:21 jpm Exp $
/**
* Applette : menu
*
38,7 → 38,7
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.7 $ $Date: 2004-09-23 14:31:40 $
*@version $Revision: 1.8 $ $Date: 2004-11-10 18:59:21 $
// +------------------------------------------------------------------------------------------------------+
*/
 
46,10 → 46,10
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
require_once "papyrus/bibliotheque/fonctions/pap_menu.fonct.php" ;
require_once 'papyrus/bibliotheque/fonctions/pap_menu.fonct.php';
 
$_GEN_commun['info_applette_nom_fonction'] = 'afficherMenuNiveauMultiple';
$_GEN_commun['info_applette_balise'] = 'MENU_([0-9])_([0-9])';
$_GEN_commun['info_applette_balise'] = 'PAPYRUS_MENU_?(?:(|CLASSIQUE|COMMUN)_([0-9])_([0-9])|(UNIQUE)_([0-9]))';
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
85,23 → 85,45
$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];
// 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];
// Pour les menus UNIQUE
if (isset($tab_applette_arguments[5])) {
$menu_type = $tab_applette_arguments[5];
}
if (isset($tab_applette_arguments[6])) {
$niveau_depart = $tab_applette_arguments[6];
}
// Gestion du type de menu
switch ($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;
default:
$menu_type = 'classique';
}
// 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, 1, $indent_origine, $indent_pas);
$xhtml_menu = afficherListeNiveauMultiple($objet_pear_db, $id_site, $id_langue, $i18n_url ,$niveau_depart, $profondeur, 0, 1, $menu_type, $indent_origine, $indent_pas, $_GEN_commun);
//Si nous avons un
if (! empty($xhtml_menu)) {
//$retour = str_repeat(' ', $indent_origine).'<ul id="menu_niveau_'.$niveau_depart.'">'."\n";
$retour = $xhtml_menu;
//$retour .= str_repeat(' ', $indent_origine).'</ul>';
} else {
$retour = '<!-- '.$_GEN_commun['info_applette_balise'].' : aucun menu trouvé ! -->';
$retour = '<!-- '.$balise.' : aucun menu trouvé ! -->';
}
return $retour;
}
120,99 → 142,125
* @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, $indent_origine = 12, $indent_pas = 4)
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)
{
// Initialisation des variables
static $niveau_actuel = 1;
$retour = '';
// On affiche un menu que si $profondeur <= $niveau_actuel <= $depart
if ($niveau_actuel > $profondeur) {
return ;
}
if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
$retour = str_repeat(' ', $indent_origine + ($indent_pas * $position)).
'<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';
$retourultat = $objet_pear_db->query($requete);
(DB::isError($retourultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $retourultat->getMessage(), $requete)) : '';
while ($ligne = $retourultat->fetchRow(DB_FETCHMODE_OBJECT)) {
// On commence par regarder si le menu existe dans la langue demandée
if ($menu_type == 'unique') {
$retour .= afficherEntreeListeMenu( $objet_pear_db, $niveau_depart, $i18n_url,
$niveau_actuel, 1, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun);
} else {
// On affiche un menu que si $profondeur <= $niveau_actuel <= $depart
if ($niveau_actuel > $profondeur) {
return null;
}
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.'"';
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * $position)).
'<ul id="groupe_menu_'.$menu_type.'_'.$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_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 GMR02.gmr_id_menu_02 = gm_id_menu '.
'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 ';
if ($menu_type == 'classique') {
$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é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)) : '';
// Récupération de l'id du menu à afficher
if ($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
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).
'<li id="menu_'.$menu_type.'_'.$id_menu_inf.'" class="'.$classe.'">'."\n";
$retour .= 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';
$retourultat_i18n = $objet_pear_db->query($requete_i18n);
(DB::isError($retourultat_i18n)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $retourultat_i18n->getMessage(), $requete_i18n)) : '';
$resultat_fils = $objet_pear_db->query($requete_fils);
(DB::isError($resultat_fils))
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_fils->getMessage(), $requete_fils))
: '';
if ($retourultat_i18n->numRows() != 0) {
$id_menu_i18n = $retourultat_i18n->fetchRow(DB_FETCHMODE_OBJECT);
$retourultat_i18n->free();
$retour .= afficherEntreeListeMenu($objet_pear_db, $id_menu_i18n->gm_id_menu, $i18n_url,
$niveau_actuel, $ligne->gmr_ordre, $position, $indent_origine, $indent_pas);
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)) {
$niveau_actuel++;
$retour .= afficherListeNiveauMultiple($objet_pear_db, $id_site, $id_langue, $i18n_url, $niveau_depart, $profondeur, $ligne->gm_id_menu, ($position + 2), $menu_type, null, null, $_GEN_commun);
// On ramène $niveau_actuel un cran plus bas
$niveau_actuel--;
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).'</li>'."\n";
} else {
$retour .= afficherEntreeListeMenu($objet_pear_db, $ligne->gm_id_menu, $i18n_url, $niveau_actuel,
$ligne->gmr_ordre, $position, $indent_origine, $indent_pas);
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).'</li>'."\n";
}
}
// 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';
$retourultat_fils = $objet_pear_db->query($requete_fils);
(DB::isError($retourultat_fils))
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $retourultat_fils->getMessage(), $requete_fils))
: '';
if ($retourultat_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)) {
$niveau_actuel++;
$retour .= afficherListeNiveauMultiple($objet_pear_db, $id_site, $id_langue, $i18n_url, $niveau_depart, $profondeur, $ligne->gm_id_menu, ($position + 2));
// On ramène $niveau_actuel un cran plus bas
$niveau_actuel--;
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).'</li>'."\n";
} else {
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).'</li>'."\n";
$resultat_fils->free();
}
$retourultat_fils->free();
$resultat->free();
if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * $position)).'</ul>'."\n";
}
}
$retourultat->free() ;
if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * $position)).'</ul>'."\n";
}
return $retour;
}
 
/** 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.
* 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.
*
221,7 → 269,7
* @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, $position, $indent_origine = 12, $indent_pas = 4)
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';
228,41 → 276,47
$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 ';
$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.' ';
$retourultat = $objet_pear_db->query($requete);
(DB::isError($retourultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $retourultat->getMessage(), $requete)) : '';
$resultat = $db->query($requete);
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
$ligne = $retourultat->fetchRow(DB_FETCHMODE_ASSOC);
$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
$resultat->free();
// Nous vérifions si nous avons à faire à un menu commun ou pas
if ($ligne['gm_ce_site'] != 0) {
// Récupération des infos sur le site
$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
$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']);
$objet_pear_url->addQueryString(GEN_URL_CLE_SITE, $ligne[$champs_code_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();
//if ($niveau == 1) $url = "#" ;
// On vérifie si le menu est le menu sélectionné
if (isset($GLOBALS['_GEN_commun']['info_menu']->gm_id_menu) && $id_menu == $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu) {
$classe = 'menu_actif';
} else {
$classe = 'menu_inactif';
}
$url = $objet_pear_url->getURL();
//Création d'une entrée dans la liste du menu
$espaces2 = str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1)));
$espaces3 = str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2)));
$retour = $espaces2.'<li id="menu_'.$id_menu.'" class="'.$classe.'">'."\n".
$espaces3.'<a href="'.$url.'" title="'.$menu_texte_title.'">'.$menu_nom.'</a>'."\n";
$espaces = str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2)));
$retour = $espaces.'<a href="'.$url.'" title="'.$menu_texte_title.'">'.$menu_nom.'</a>'."\n";
return $retour;
}
 
274,6 → 328,9
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* 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.
*