Subversion Repositories Applications.papyrus

Rev

Rev 349 | 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: plan.php,v 1.1 2004-06-16 14:34:53 jpm Exp $
/**
* Application réalisant le plan d'un site web géré par Papyrus.
*
* Construit une liste de listes représentant le plan du site web appelant cette
* application. Cette application est fortement dépendante de Papyrus puisqu'elle se
* base sur le modèle de données de Papyrus.
*
*@package Plan
//Auteur original :
*@author        Alexandre GRANIER <alexandrel@tela-botanica.org>
//Autres auteurs :
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
*@copyright     Tela-Botanica 2000-2004
*@version       $Revision: 1.1 $ $Date: 2004-06-16 14:34:53 $
// +------------------------------------------------------------------------------------------------------+
*/

// +------------------------------------------------------------------------------------------------------+
// |                                            ENTÊTE du PROGRAMME                                       |
// +------------------------------------------------------------------------------------------------------+
                                    /*Mettre ici les inclusions de fichiers*/
/** <br> Constante permettatn de configurer l'application en affichant que le plan du site courant si sa valeur vaut true.*/
define('PLAN_SITE_COURRANT', false);
define('PLAN_URL_CLE_SITE', GEN_URL_CLE_SITE);
define('PLAN_URL_CLE_MENU', GEN_URL_CLE_MENU);
define('PLAN_URL_CLE_I18N', GEN_URL_CLE_I18N);
define('PLAN_URL_ID_TYPE_SITE', GEN_URL_ID_TYPE_SITE);
define('PLAN_URL_ID_TYPE_MENU', GEN_URL_ID_TYPE_MENU);

// +------------------------------------------------------------------------------------------------------+
// |                                            CORPS du PROGRAMME                                        |
// +------------------------------------------------------------------------------------------------------+
                                       /*Mettre ici le code du programme*/
/** Fonction afficherContenuTete() - Fonction appelé par le gestionnaire Papyrus.
*
* Elle retourne l'entête de l'application..
*
* @return  string  du code XHTML correspondant à la zone d'entête de l'application.
*/
function afficherContenuTete()
{
    return '';
}

/** Fonction afficherContenuCorps() - Fonction appelé par le gestionnaire Papyrus.
*
* Elle démarre la création de la liste contenant le plan du site.
*
* @return  string  le code HTML produit par l'application.
*/
function afficherContenuCorps()
{
    global $_GEN_commun;
    $objet_pear_db = $_GEN_commun['pear_db'];
    $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'];
    }
    
    // Si on veut seulement le plan du site courrant.
    if (PLAN_SITE_COURRANT) {
        $id_site_principal_courant = $_GEN_commun['info_site']->gs_id_site;
    }
    
    $retour = '';
    
    // On effectue une requête sur le site principal puis 
    // on effectue une requête sur les menus, on les affiche.
    $requete =  'SELECT *'.
                'FROM gen_site, gen_site_relation '.
                'WHERE gs_id_site = gsr_id_site_01 '.
                'AND gsr_id_valeur = 102 ';// 102 = site de type "principal"
    // Si on veut seulement le plan du site courrant.
    if (PLAN_SITE_COURRANT) {
        $requete .= 'AND gs_id_site = '.$id_site_principal_courant;
    }
    
    $resultat = $objet_pear_db->query($requete);
    (DB::isError ($resultat))
        ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))
        : '';
    
    // Si on veut seulement le plan du site courrant.
    if (PLAN_SITE_COURRANT) {
        $retour .= '<h1 id="titre_page">Plan du site</h1>'."\n";
    } else {
        $retour .= '<h1 id="titre_page">Plan des sites</h1>'."\n";
    }
    
    $retour .= '<ul id="plan_site" >'."\n";
    while ($ligne_site = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
        $retour .= '<li class="nom_site" >'.$ligne_site->gs_nom."\n";
        $retour .= PLAN_deployerPlanSite($ligne_site->gs_id_site, 0, $i18n_url);
        $retour .= '</li>'."\n";
    }
    $resultat->free();
    $retour.= '</ul>';
    return $retour;
}

// +------------------------------------------------------------------------------------------------------+
// |                                           LISTE de FONCTIONS                                         |
// +------------------------------------------------------------------------------------------------------+
                                        /*Mettre ici la liste de fonctions.*/
/** Fonction PLAN_deployerPlanSite() - Déploie les menus d'un site.
*
* Affiche une liste de listes XHTML représentant le plan du site courant.
*
* @param int identifiant du site dont on veut afficher le plan.
* @param int identifiant du menu père de celui qui va être affiché.
* @param mixed Si pas vide contient la valeur i18n à afficher dans l'url.
* @return  string  une liste de listes XHTML représentant le plan du site.
*/

function PLAN_deployerPlanSite($id_site, $id_pere = 0, $i18n_url)
{
    global $_GEN_commun;
    $objet_pear_db = $_GEN_commun['pear_db'];
    
    $retour = '';
    
    $requete =  'SELECT gen_menu.* '.
                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
                'WHERE GMR01.gmr_id_menu_02 = '.$id_pere.' '.
                'AND GMR01.gmr_id_menu_01 = gm_id_menu '.
                'AND gm_ce_site = '.$id_site.' '.
                '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';
    
    $resultat = $objet_pear_db->query($requete);
    if (DB::isError($resultat)) {
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
    }
    
    if ($resultat->numRows() > 0) {
        $retour .= '<ul>';
        while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
            $objet_pear_url_base = & new Net_URL('http://'.$_SERVER['HTTP_HOST'].$_SERVER['PHP_SELF']);
            
            // Recherche du code du site
            $requete_site_code =    'SELECT gen_site.* '.
                                    'FROM gen_menu, gen_site '.
                                    'WHERE gm_id_menu = '.$ligne->gm_id_menu.' '.
                                    'AND gm_ce_site = gs_id_site';
            
            $resultat_site_code = $objet_pear_db->query($requete_site_code);
            if (DB::isError($resultat_site_code)) {
                die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_site_code->getMessage(), $requete_site_code));
            }
            $ligne_site_code = $resultat_site_code->fetchRow(DB_FETCHMODE_OBJECT);
            
            if (PLAN_URL_ID_TYPE_SITE == 'int') {
                $objet_pear_url_base->addQueryString(PLAN_URL_CLE_SITE, $ligne_site_code->gs_code_num);
            } else {
                $objet_pear_url_base->addQueryString(PLAN_URL_CLE_SITE, $ligne_site_code->gs_code_alpha);
            }
            
            if (PLAN_URL_ID_TYPE_MENU == 'int') {
                    $objet_pear_url_base->addQueryString(PLAN_URL_CLE_MENU, $ligne->gm_code_num);
            } else {
                $objet_pear_url_base->addQueryString(PLAN_URL_CLE_MENU, $ligne->gm_code_alpha);
            }
            $objet_pear_url = $objet_pear_url_base;
            if (!empty($i18n_url)) {
                $objet_pear_url->addQueryString(PLAN_URL_CLE_I18N, $i18n_url);
            }
            $url = $objet_pear_url->getURL();
            $retour .= '<li class="nom_menu">'."\n";
            $retour .= '<a href="'.$url.'">'.$ligne->gm_nom.'</a>&nbsp;'."\n";
            
            // Recherche des traductions
            $requete_i18n = 'SELECT gm_id_menu, gm_ce_i18n '.
                            '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"
            
            $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) {
                while ($ligne_i18n = $resultat_i18n->fetchRow(DB_FETCHMODE_OBJECT)) {
                    $objet_pear_url = $objet_pear_url_base;
                    $objet_pear_url->addQueryString(PLAN_URL_CLE_I18N, $ligne_i18n->gm_ce_i18n);
                    $url = $objet_pear_url->getURL();
                    $retour .= '<a href="'.$url.'" hreflang="'.$ligne_i18n->gm_ce_i18n.'">['.$ligne_i18n->gm_ce_i18n.']</a>&nbsp;'."\n";
                }
            }
            
            $retour .= PLAN_deployerPlanSite($id_site, $ligne->gm_id_menu, $i18n_url);
            $retour .=  '</li>'."\n";
        }
        $retour .= '</ul>'."\n";
    }
    
    return $retour;
}

// +------------------------------------------------------------------------------------------------------+
// |                                            PIED du PROGRAMME                                         |
// +------------------------------------------------------------------------------------------------------+
                                           /*Partie non obligatoire*/                                     


/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.7  2004/05/05 15:33:59  jpm
* Gestion de l'indication des langues disponibles pour un menu d'un site  donné.
*
* Revision 1.6  2004/05/05 14:33:00  jpm
* Gestion de l'indication de langue dans l'url.
* Utile que si on veut forcer la langue.
*
* Revision 1.5  2004/05/05 06:45:51  jpm
* Suppression de l'appel de la fonction générant le "vous êtes ici" dans la fonction affichant l'entête de l'application.
*
* Revision 1.4  2004/05/04 16:27:27  jpm
* Réduction de code pour la fonction afficherContenuTete().
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>