Subversion Repositories Applications.papyrus

Rev

Rev 6 | Rev 349 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
6 jpm 1 
<?php
2 
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3 
// +------------------------------------------------------------------------------------------------------+
4 
// | PHP version 4.1                                                                                      |
5 
// +------------------------------------------------------------------------------------------------------+
6 
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7 
// +------------------------------------------------------------------------------------------------------+
8 
// | This library is free software; you can redistribute it and/or                                        |
9 
// | modify it under the terms of the GNU Lesser General Public                                           |
10 
// | License as published by the Free Software Foundation; either                                         |
11 
// | version 2.1 of the License, or (at your option) any later version.                                   |
12 
// |                                                                                                      |
13 
// | This library is distributed in the hope that it will be useful,                                      |
14 
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
15 
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
16 
// | Lesser General Public License for more details.                                                      |
17 
// |                                                                                                      |
18 
// | You should have received a copy of the GNU Lesser General Public                                     |
19 
// | License along with this library; if not, write to the Free Software                                  |
20 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21 
// +------------------------------------------------------------------------------------------------------+
278 jpm 22 
// CVS : $Id: plan.php,v 1.2 2005-02-28 10:38:24 jpm Exp $
6 jpm 23 
/**
24 
* Application réalisant le plan d'un site web géré par Papyrus.
25 
*
278 jpm 26 
* Construit une liste de listes représentant le plans des sites web gérés par Papyrus.
27 
* Cette application est fortement dépendante de Papyrus puisqu'elle se base sur
28 
* le modèle de données de Papyrus.
6 jpm 29 
*
30 
*@package Plan
31 
//Auteur original :
32 
*@author        Alexandre GRANIER <alexandrel@tela-botanica.org>
33 
//Autres auteurs :
34 
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
35 
*@copyright     Tela-Botanica 2000-2004
278 jpm 36 
*@version       $Revision: 1.2 $ $Date: 2005-02-28 10:38:24 $
6 jpm 37 
// +------------------------------------------------------------------------------------------------------+
38 
*/
39 
 
40 
// +------------------------------------------------------------------------------------------------------+
41 
// |                                            ENTÊTE du PROGRAMME                                       |
42 
// +------------------------------------------------------------------------------------------------------+
278 jpm 43 
/** Constante permettatn de configurer l'application en affichant que le plan du site courant si sa valeur vaut true.*/
6 jpm 44 
define('PLAN_SITE_COURRANT', false);
45 
define('PLAN_URL_CLE_SITE', GEN_URL_CLE_SITE);
46 
define('PLAN_URL_CLE_MENU', GEN_URL_CLE_MENU);
47 
define('PLAN_URL_CLE_I18N', GEN_URL_CLE_I18N);
48 
define('PLAN_URL_ID_TYPE_SITE', GEN_URL_ID_TYPE_SITE);
49 
define('PLAN_URL_ID_TYPE_MENU', GEN_URL_ID_TYPE_MENU);
50 
 
51 
// +------------------------------------------------------------------------------------------------------+
52 
// |                                            CORPS du PROGRAMME                                        |
53 
// +------------------------------------------------------------------------------------------------------+
54 
/** Fonction afficherContenuTete() - Fonction appelé par le gestionnaire Papyrus.
55 
*
56 
* Elle retourne l'entête de l'application..
57 
*
58 
* @return  string  du code XHTML correspondant à la zone d'entête de l'application.
59 
*/
60 
function afficherContenuTete()
61 
{
62 
    return '';
63 
}
64 
 
65 
/** Fonction afficherContenuCorps() - Fonction appelé par le gestionnaire Papyrus.
66 
*
67 
* Elle démarre la création de la liste contenant le plan du site.
68 
*
69 
* @return  string  le code HTML produit par l'application.
70 
*/
71 
function afficherContenuCorps()
72 
{
278 jpm 73 
    $objet_pear_db = $GLOBALS['_GEN_commun']['pear_db'];
74 
    // Evite d'écrire l'i18n dans l'url demandée.
75 
    $i18n_url = '';
76 
    if (!empty($GLOBALS['_GEN_commun']['url_i18n'])) {
6 jpm 77 
        // L'écriture de l'i18n dans les urls des menus est demandée.
278 jpm 78 
        $i18n_url = $GLOBALS['_GEN_commun']['url_i18n'];
6 jpm 79 
    }
80 
 
81 
    // Si on veut seulement le plan du site courrant.
82 
    if (PLAN_SITE_COURRANT) {
278 jpm 83 
        $id_site_principal_courant = $GLOBALS['_GEN_commun']['info_site']->gs_id_site;
6 jpm 84 
    }
85 
 
86 
    $retour = '';
87 
 
88 
    // On effectue une requête sur le site principal puis
89 
    // on effectue une requête sur les menus, on les affiche.
90 
    $requete =  'SELECT *'.
91 
                'FROM gen_site, gen_site_relation '.
92 
                'WHERE gs_id_site = gsr_id_site_01 '.
93 
                'AND gsr_id_valeur = 102 ';// 102 = site de type "principal"
94 
    // Si on veut seulement le plan du site courrant.
95 
    if (PLAN_SITE_COURRANT) {
96 
        $requete .= 'AND gs_id_site = '.$id_site_principal_courant;
97 
    }
98 
 
99 
    $resultat = $objet_pear_db->query($requete);
100 
    (DB::isError ($resultat))
101 
        ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))
102 
        : '';
103 
 
104 
    // Si on veut seulement le plan du site courrant.
105 
    if (PLAN_SITE_COURRANT) {
106 
        $retour .= '<h1 id="titre_page">Plan du site</h1>'."\n";
107 
    } else {
108 
        $retour .= '<h1 id="titre_page">Plan des sites</h1>'."\n";
109 
    }
110 
 
111 
    $retour .= '<ul id="plan_site" >'."\n";
112 
    while ($ligne_site = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
113 
        $retour .= '<li class="nom_site" >'.$ligne_site->gs_nom."\n";
114 
        $retour .= PLAN_deployerPlanSite($ligne_site->gs_id_site, 0, $i18n_url);
115 
        $retour .= '</li>'."\n";
116 
    }
117 
    $resultat->free();
118 
    $retour.= '</ul>';
119 
    return $retour;
120 
}
121 
 
122 
// +------------------------------------------------------------------------------------------------------+
123 
// |                                           LISTE de FONCTIONS                                         |
124 
// +------------------------------------------------------------------------------------------------------+
125 
/** Fonction PLAN_deployerPlanSite() - Déploie les menus d'un site.
126 
*
127 
* Affiche une liste de listes XHTML représentant le plan du site courant.
128 
*
129 
* @param int identifiant du site dont on veut afficher le plan.
130 
* @param int identifiant du menu père de celui qui va être affiché.
131 
* @param mixed Si pas vide contient la valeur i18n à afficher dans l'url.
132 
* @return  string  une liste de listes XHTML représentant le plan du site.
133 
*/
134 
function PLAN_deployerPlanSite($id_site, $id_pere = 0, $i18n_url)
135 
{
278 jpm 136 
    $objet_pear_db = $GLOBALS['_GEN_commun']['pear_db'];
6 jpm 137 
 
138 
    $retour = '';
139 
 
140 
    $requete =  'SELECT gen_menu.* '.
141 
                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
142 
                'WHERE GMR01.gmr_id_menu_02 = '.$id_pere.' '.
143 
                'AND GMR01.gmr_id_menu_01 = gm_id_menu '.
144 
                'AND gm_ce_site = '.$id_site.' '.
145 
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"
146 
                'AND GMR02.gmr_id_menu_02 = gm_id_menu '.
147 
                'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.
148 
                'AND GMR02.gmr_id_valeur = 100 '.// 100 = type "menu classique"
149 
                'ORDER BY GMR01.gmr_ordre ASC';
150 
 
151 
    $resultat = $objet_pear_db->query($requete);
152 
    if (DB::isError($resultat)) {
153 
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
154 
    }
155 
 
156 
    if ($resultat->numRows() > 0) {
157 
        $retour .= '<ul>';
158 
        while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
159 
            $objet_pear_url_base = & new Net_URL('http://'.$_SERVER['HTTP_HOST'].$_SERVER['PHP_SELF']);
160 
 
161 
            // Recherche du code du site
162 
            $requete_site_code =    'SELECT gen_site.* '.
163 
                                    'FROM gen_menu, gen_site '.
164 
                                    'WHERE gm_id_menu = '.$ligne->gm_id_menu.' '.
165 
                                    'AND gm_ce_site = gs_id_site';
166 
 
167 
            $resultat_site_code = $objet_pear_db->query($requete_site_code);
168 
            if (DB::isError($resultat_site_code)) {
169 
                die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_site_code->getMessage(), $requete_site_code));
170 
            }
171 
            $ligne_site_code = $resultat_site_code->fetchRow(DB_FETCHMODE_OBJECT);
172 
 
173 
            if (PLAN_URL_ID_TYPE_SITE == 'int') {
174 
                $objet_pear_url_base->addQueryString(PLAN_URL_CLE_SITE, $ligne_site_code->gs_code_num);
175 
            } else {
176 
                $objet_pear_url_base->addQueryString(PLAN_URL_CLE_SITE, $ligne_site_code->gs_code_alpha);
177 
            }
178 
 
179 
            if (PLAN_URL_ID_TYPE_MENU == 'int') {
180 
                    $objet_pear_url_base->addQueryString(PLAN_URL_CLE_MENU, $ligne->gm_code_num);
181 
            } else {
182 
                $objet_pear_url_base->addQueryString(PLAN_URL_CLE_MENU, $ligne->gm_code_alpha);
183 
            }
184 
            $objet_pear_url = $objet_pear_url_base;
185 
            if (!empty($i18n_url)) {
186 
                $objet_pear_url->addQueryString(PLAN_URL_CLE_I18N, $i18n_url);
187 
            }
188 
            $url = $objet_pear_url->getURL();
189 
            $retour .= '<li class="nom_menu">'."\n";
190 
            $retour .= '<a href="'.$url.'">'.$ligne->gm_nom.'</a>&nbsp;'."\n";
191 
 
192 
            // Recherche des traductions
193 
            $requete_i18n = 'SELECT gm_id_menu, gm_ce_i18n '.
194 
                            'FROM gen_menu, gen_menu_relation '.
195 
                            'WHERE gmr_id_menu_01 = '.$ligne->gm_id_menu.' '.
196 
                            'AND gmr_id_menu_02 = gm_id_menu '.
197 
                            'AND gmr_id_valeur = 2 ';// 2 = "avoir traduction"
198 
 
199 
            $resultat_i18n = $objet_pear_db->query($requete_i18n);
200 
            (DB::isError($resultat_i18n)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_i18n->getMessage(), $requete_i18n)) : '';
201 
 
202 
            if ($resultat_i18n->numRows() > 0) {
203 
                while ($ligne_i18n = $resultat_i18n->fetchRow(DB_FETCHMODE_OBJECT)) {
204 
                    $objet_pear_url = $objet_pear_url_base;
205 
                    $objet_pear_url->addQueryString(PLAN_URL_CLE_I18N, $ligne_i18n->gm_ce_i18n);
206 
                    $url = $objet_pear_url->getURL();
207 
                    $retour .= '<a href="'.$url.'" hreflang="'.$ligne_i18n->gm_ce_i18n.'">['.$ligne_i18n->gm_ce_i18n.']</a>&nbsp;'."\n";
208 
                }
209 
            }
210 
 
211 
            $retour .= PLAN_deployerPlanSite($id_site, $ligne->gm_id_menu, $i18n_url);
212 
            $retour .=  '</li>'."\n";
213 
        }
214 
        $retour .= '</ul>'."\n";
215 
    }
216 
 
217 
    return $retour;
218 
}
219 
 
220 
// +------------------------------------------------------------------------------------------------------+
221 
// |                                            PIED du PROGRAMME                                         |
222 
// +------------------------------------------------------------------------------------------------------+
223 
 
224 
 
225 
/* +--Fin du code ----------------------------------------------------------------------------------------+
226 
*
227 
* $Log: not supported by cvs2svn $
278 jpm 228 
* Revision 1.1  2004/06/16 14:34:53  jpm
229 
* Changement de nom de Génésia en Papyrus.
230 
* Changement de l'arborescence.
231 
*
6 jpm 232 
* Revision 1.7  2004/05/05 15:33:59  jpm
233 
* Gestion de l'indication des langues disponibles pour un menu d'un site  donné.
234 
*
235 
* Revision 1.6  2004/05/05 14:33:00  jpm
236 
* Gestion de l'indication de langue dans l'url.
237 
* Utile que si on veut forcer la langue.
238 
*
239 
* Revision 1.5  2004/05/05 06:45:51  jpm
240 
* Suppression de l'appel de la fonction générant le "vous êtes ici" dans la fonction affichant l'entête de l'application.
241 
*
242 
* Revision 1.4  2004/05/04 16:27:27  jpm
243 
* Réduction de code pour la fonction afficherContenuTete().
244 
*
245 
*
246 
* +-- Fin du code ----------------------------------------------------------------------------------------+
247 
*/
248 
?>