Subversion Repositories Applications.papyrus

Rev

Rev 200 | Rev 289 | 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.13 2005-02-08 19:03:03 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.13 $ $Date: 2005-02-08 19:03:03 $
// +------------------------------------------------------------------------------------------------------+
*/

// +------------------------------------------------------------------------------------------------------+
// |                                            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 UNIQUE
    if (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 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;
        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 IE
    if ($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 un 
    if (! 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 variables
    static $niveau_actuel = 1;
    $retour = '';
    $tete = '';
    $corps = '';
    $pied = '';
    
    // Gestion des menus uniques
    if ($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 <= $depart
    if ($niveau_actuel > $profondeur) {
        return null;
    }
    
    // Nous regardons si nous devons afficher un menu racine
    if ($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é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
            $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 racine
    if ($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 pas
    if ($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.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 ----------------------------------------------------------------------------------------+
*/
?>