Subversion Repositories Applications.papyrus

    <?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.8 2004-11-10 18:59:21 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.8 $ $Date: 2004-11-10 18:59:21 $

// +------------------------------------------------------------------------------------------------------+

*/

// +------------------------------------------------------------------------------------------------------+

// |                                            ENTÊTE du PROGRAMME                                       |

// +------------------------------------------------------------------------------------------------------+

require_once 'papyrus/bibliotheque/fonctions/pap_menu.fonct.php';

$_GEN_commun['info_applette_nom_fonction'] = 'afficherMenuNiveauMultiple';

$_GEN_commun['info_applette_balise'] = 'PAPYRUS_MENU_?(?:(|CLASSIQUE|COMMUN)_([0-9])_([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;

    $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.

    // 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';

    }

    //Construction du menu

    $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 = $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)

{

    // Initialisation des variables

    static $niveau_actuel = 1;

    $retour = '';

    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) {

            $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';

            $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)) {

                $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 .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).'</li>'."\n";

            }

            $resultat_fils->free();

        }

        $resultat->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 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

        $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_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.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 ----------------------------------------------------------------------------------------+

*/

?>