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> '."\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> '."\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 ----------------------------------------------------------------------------------------+*/?>