Subversion Repositories Applications.papyrus

Compare Revisions

Ignore whitespace Rev 5 → Rev 6

/trunk/papyrus/applications/plan/plan.php
New file
0,0 → 1,250
<?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 ----------------------------------------------------------------------------------------+
*/
?>