Subversion Repositories Applications.papyrus

Rev

Rev 278 | Go to most recent revision | Details | 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 
// +------------------------------------------------------------------------------------------------------+
22 
// CVS : $Id: plan.php,v 1.1 2004-06-16 14:34:53 jpm Exp $
23 
/**
24 
* Application réalisant le plan d'un site web géré par Papyrus.
25 
*
26 
* Construit une liste de listes représentant le plan du site web appelant cette
27 
* application. Cette application est fortement dépendante de Papyrus puisqu'elle se
28 
* base sur le modèle de données de Papyrus.
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
36 
*@version       $Revision: 1.1 $ $Date: 2004-06-16 14:34:53 $
37 
// +------------------------------------------------------------------------------------------------------+
38 
*/
39 
 
40 
// +------------------------------------------------------------------------------------------------------+
41 
// |                                            ENTÊTE du PROGRAMME                                       |
42 
// +------------------------------------------------------------------------------------------------------+
43 
                                    /*Mettre ici les inclusions de fichiers*/
44 
/** <br> Constante permettatn de configurer l'application en affichant que le plan du site courant si sa valeur vaut true.*/
45 
define('PLAN_SITE_COURRANT', false);
46 
define('PLAN_URL_CLE_SITE', GEN_URL_CLE_SITE);
47 
define('PLAN_URL_CLE_MENU', GEN_URL_CLE_MENU);
48 
define('PLAN_URL_CLE_I18N', GEN_URL_CLE_I18N);
49 
define('PLAN_URL_ID_TYPE_SITE', GEN_URL_ID_TYPE_SITE);
50 
define('PLAN_URL_ID_TYPE_MENU', GEN_URL_ID_TYPE_MENU);
51 
 
52 
// +------------------------------------------------------------------------------------------------------+
53 
// |                                            CORPS du PROGRAMME                                        |
54 
// +------------------------------------------------------------------------------------------------------+
55 
                                       /*Mettre ici le code du programme*/
56 
/** Fonction afficherContenuTete() - Fonction appelé par le gestionnaire Papyrus.
57 
*
58 
* Elle retourne l'entête de l'application..
59 
*
60 
* @return  string  du code XHTML correspondant à la zone d'entête de l'application.
61 
*/
62 
function afficherContenuTete()
63 
{
64 
    return '';
65 
}
66 
 
67 
/** Fonction afficherContenuCorps() - Fonction appelé par le gestionnaire Papyrus.
68 
*
69 
* Elle démarre la création de la liste contenant le plan du site.
70 
*
71 
* @return  string  le code HTML produit par l'application.
72 
*/
73 
function afficherContenuCorps()
74 
{
75 
    global $_GEN_commun;
76 
    $objet_pear_db = $_GEN_commun['pear_db'];
77 
    $i18n_url = '';// Evite d'écrire l'i18n dans l'url demandée.
78 
    if (!empty($_GEN_commun['url_i18n'])) {
79 
        // L'écriture de l'i18n dans les urls des menus est demandée.
80 
        $i18n_url = $_GEN_commun['url_i18n'];
81 
    }
82 
 
83 
    // Si on veut seulement le plan du site courrant.
84 
    if (PLAN_SITE_COURRANT) {
85 
        $id_site_principal_courant = $_GEN_commun['info_site']->gs_id_site;
86 
    }
87 
 
88 
    $retour = '';
89 
 
90 
    // On effectue une requête sur le site principal puis
91 
    // on effectue une requête sur les menus, on les affiche.
92 
    $requete =  'SELECT *'.
93 
                'FROM gen_site, gen_site_relation '.
94 
                'WHERE gs_id_site = gsr_id_site_01 '.
95 
                'AND gsr_id_valeur = 102 ';// 102 = site de type "principal"
96 
    // Si on veut seulement le plan du site courrant.
97 
    if (PLAN_SITE_COURRANT) {
98 
        $requete .= 'AND gs_id_site = '.$id_site_principal_courant;
99 
    }
100 
 
101 
    $resultat = $objet_pear_db->query($requete);
102 
    (DB::isError ($resultat))
103 
        ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))
104 
        : '';
105 
 
106 
    // Si on veut seulement le plan du site courrant.
107 
    if (PLAN_SITE_COURRANT) {
108 
        $retour .= '<h1 id="titre_page">Plan du site</h1>'."\n";
109 
    } else {
110 
        $retour .= '<h1 id="titre_page">Plan des sites</h1>'."\n";
111 
    }
112 
 
113 
    $retour .= '<ul id="plan_site" >'."\n";
114 
    while ($ligne_site = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
115 
        $retour .= '<li class="nom_site" >'.$ligne_site->gs_nom."\n";
116 
        $retour .= PLAN_deployerPlanSite($ligne_site->gs_id_site, 0, $i18n_url);
117 
        $retour .= '</li>'."\n";
118 
    }
119 
    $resultat->free();
120 
    $retour.= '</ul>';
121 
    return $retour;
122 
}
123 
 
124 
// +------------------------------------------------------------------------------------------------------+
125 
// |                                           LISTE de FONCTIONS                                         |
126 
// +------------------------------------------------------------------------------------------------------+
127 
                                        /*Mettre ici la liste de fonctions.*/
128 
/** Fonction PLAN_deployerPlanSite() - Déploie les menus d'un site.
129 
*
130 
* Affiche une liste de listes XHTML représentant le plan du site courant.
131 
*
132 
* @param int identifiant du site dont on veut afficher le plan.
133 
* @param int identifiant du menu père de celui qui va être affiché.
134 
* @param mixed Si pas vide contient la valeur i18n à afficher dans l'url.
135 
* @return  string  une liste de listes XHTML représentant le plan du site.
136 
*/
137 
 
138 
function PLAN_deployerPlanSite($id_site, $id_pere = 0, $i18n_url)
139 
{
140 
    global $_GEN_commun;
141 
    $objet_pear_db = $_GEN_commun['pear_db'];
142 
 
143 
    $retour = '';
144 
 
145 
    $requete =  'SELECT gen_menu.* '.
146 
                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
147 
                'WHERE GMR01.gmr_id_menu_02 = '.$id_pere.' '.
148 
                'AND GMR01.gmr_id_menu_01 = gm_id_menu '.
149 
                'AND gm_ce_site = '.$id_site.' '.
150 
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"
151 
                'AND GMR02.gmr_id_menu_02 = gm_id_menu '.
152 
                'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.
153 
                'AND GMR02.gmr_id_valeur = 100 '.// 100 = type "menu classique"
154 
                'ORDER BY GMR01.gmr_ordre ASC';
155 
 
156 
    $resultat = $objet_pear_db->query($requete);
157 
    if (DB::isError($resultat)) {
158 
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
159 
    }
160 
 
161 
    if ($resultat->numRows() > 0) {
162 
        $retour .= '<ul>';
163 
        while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
164 
            $objet_pear_url_base = & new Net_URL('http://'.$_SERVER['HTTP_HOST'].$_SERVER['PHP_SELF']);
165 
 
166 
            // Recherche du code du site
167 
            $requete_site_code =    'SELECT gen_site.* '.
168 
                                    'FROM gen_menu, gen_site '.
169 
                                    'WHERE gm_id_menu = '.$ligne->gm_id_menu.' '.
170 
                                    'AND gm_ce_site = gs_id_site';
171 
 
172 
            $resultat_site_code = $objet_pear_db->query($requete_site_code);
173 
            if (DB::isError($resultat_site_code)) {
174 
                die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_site_code->getMessage(), $requete_site_code));
175 
            }
176 
            $ligne_site_code = $resultat_site_code->fetchRow(DB_FETCHMODE_OBJECT);
177 
 
178 
            if (PLAN_URL_ID_TYPE_SITE == 'int') {
179 
                $objet_pear_url_base->addQueryString(PLAN_URL_CLE_SITE, $ligne_site_code->gs_code_num);
180 
            } else {
181 
                $objet_pear_url_base->addQueryString(PLAN_URL_CLE_SITE, $ligne_site_code->gs_code_alpha);
182 
            }
183 
 
184 
            if (PLAN_URL_ID_TYPE_MENU == 'int') {
185 
                    $objet_pear_url_base->addQueryString(PLAN_URL_CLE_MENU, $ligne->gm_code_num);
186 
            } else {
187 
                $objet_pear_url_base->addQueryString(PLAN_URL_CLE_MENU, $ligne->gm_code_alpha);
188 
            }
189 
            $objet_pear_url = $objet_pear_url_base;
190 
            if (!empty($i18n_url)) {
191 
                $objet_pear_url->addQueryString(PLAN_URL_CLE_I18N, $i18n_url);
192 
            }
193 
            $url = $objet_pear_url->getURL();
194 
            $retour .= '<li class="nom_menu">'."\n";
195 
            $retour .= '<a href="'.$url.'">'.$ligne->gm_nom.'</a>&nbsp;'."\n";
196 
 
197 
            // Recherche des traductions
198 
            $requete_i18n = 'SELECT gm_id_menu, gm_ce_i18n '.
199 
                            'FROM gen_menu, gen_menu_relation '.
200 
                            'WHERE gmr_id_menu_01 = '.$ligne->gm_id_menu.' '.
201 
                            'AND gmr_id_menu_02 = gm_id_menu '.
202 
                            'AND gmr_id_valeur = 2 ';// 2 = "avoir traduction"
203 
 
204 
            $resultat_i18n = $objet_pear_db->query($requete_i18n);
205 
            (DB::isError($resultat_i18n)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_i18n->getMessage(), $requete_i18n)) : '';
206 
 
207 
            if ($resultat_i18n->numRows() > 0) {
208 
                while ($ligne_i18n = $resultat_i18n->fetchRow(DB_FETCHMODE_OBJECT)) {
209 
                    $objet_pear_url = $objet_pear_url_base;
210 
                    $objet_pear_url->addQueryString(PLAN_URL_CLE_I18N, $ligne_i18n->gm_ce_i18n);
211 
                    $url = $objet_pear_url->getURL();
212 
                    $retour .= '<a href="'.$url.'" hreflang="'.$ligne_i18n->gm_ce_i18n.'">['.$ligne_i18n->gm_ce_i18n.']</a>&nbsp;'."\n";
213 
                }
214 
            }
215 
 
216 
            $retour .= PLAN_deployerPlanSite($id_site, $ligne->gm_id_menu, $i18n_url);
217 
            $retour .=  '</li>'."\n";
218 
        }
219 
        $retour .= '</ul>'."\n";
220 
    }
221 
 
222 
    return $retour;
223 
}
224 
 
225 
// +------------------------------------------------------------------------------------------------------+
226 
// |                                            PIED du PROGRAMME                                         |
227 
// +------------------------------------------------------------------------------------------------------+
228 
                                           /*Partie non obligatoire*/
229 
 
230 
 
231 
/* +--Fin du code ----------------------------------------------------------------------------------------+
232 
*
233 
* $Log: not supported by cvs2svn $
234 
* Revision 1.7  2004/05/05 15:33:59  jpm
235 
* Gestion de l'indication des langues disponibles pour un menu d'un site  donné.
236 
*
237 
* Revision 1.6  2004/05/05 14:33:00  jpm
238 
* Gestion de l'indication de langue dans l'url.
239 
* Utile que si on veut forcer la langue.
240 
*
241 
* Revision 1.5  2004/05/05 06:45:51  jpm
242 
* Suppression de l'appel de la fonction générant le "vous êtes ici" dans la fonction affichant l'entête de l'application.
243 
*
244 
* Revision 1.4  2004/05/04 16:27:27  jpm
245 
* Réduction de code pour la fonction afficherContenuTete().
246 
*
247 
*
248 
* +-- Fin du code ----------------------------------------------------------------------------------------+
249 
*/
250 
?>