Subversion Repositories Applications.papyrus

Rev

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

Rev Author Line No. Line
5 jpm 1 
<?php
2 
//vim: set expandtab tabstop=4 shiftwidth=4:
3 
// +------------------------------------------------------------------------------------------------------+
4 
// | PHP version 4.1                                                                                      |
5 
// +------------------------------------------------------------------------------------------------------+
6 
// | Copyright (C) 2003 Tela Botanica (accueil@tela-botanica.org)                                         |
7 
// +------------------------------------------------------------------------------------------------------+
8 
// |                                                                                                      |
9 
// | This library is free software; you can redistribute it and/or                                        |
10 
// | modify it under the terms of the GNU Lesser General Public                                           |
11 
// | License as published by the Free Software Foundation; either                                         |
12 
// | version 2.1 of the License, or (at your option) any later version.                                   |
13 
// |                                                                                                      |
14 
// | This library is distributed in the hope that it will be useful,                                      |
15 
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
16 
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
17 
// | Lesser General Public License for more details.                                                      |
18 
// |                                                                                                      |
19 
// | You should have received a copy of the GNU Lesser General Public                                     |
20 
// | License along with this library; if not, write to the Free Software                                  |
21 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
22 
// |                                                                                                      |
23 
// +------------------------------------------------------------------------------------------------------+
1665 ddelon 24 
// CVS : $Id: pap_initialise_info.inc.php,v 1.32 2007-10-23 13:45:33 ddelon Exp $
5 jpm 25 
/**
26 
*Initialisation de Papyrus : vérification et récupération de paramètres généraux.
27 
*
1336 neiluj 28 
* La page contient le code initialisant l'exécution du rendu d'une page par Papyrus.
5 jpm 29 
* Nous y trouvons la recherche des informations disponibles sur :
30 
* - le site présent sur le serveur demandé,
31 
* - l'identification,
32 
* - la langue,
33 
* - le menu,
34 
* - la page
35 
* - l'application
36 
*
37 
*@package Papyrus
38 
//Auteur original :
286 jpm 39 
*@author            Jean-Pascal MILCENT <jpm@tela-botanica.org>
5 jpm 40 
//Autres auteurs :
41 
*@author            Alexandre GRANIER <alex@tela-botanica.org>
286 jpm 42 
*@author            Laurent COUDOUNEAU <laurent.coudouneau@ema.fr>
5 jpm 43 
*@copyright         Tela-Botanica 2000-2004
1665 ddelon 44 
*@version           $Revision: 1.32 $ $Date: 2007-10-23 13:45:33 $
5 jpm 45 
// +------------------------------------------------------------------------------------------------------+
46 
*/
47 
 
48 
// +------------------------------------------------------------------------------------------------------+
49 
// |                                            ENTÊTE du PROGRAMME                                       |
50 
// +------------------------------------------------------------------------------------------------------+
331 jpm 51 
/** Inclusion de l'objet PEAR servant à négocier le language avec le navigateur client. */
402 jpm 52 
require_once PAP_CHEMIN_API_PEAR.'HTTP.php';
331 jpm 53 
/** Inclusion de la classe PEAR gérant les URL : Utilisé pour l'url demandée par le client.*/
402 jpm 54 
require_once PAP_CHEMIN_API_PEAR.'Net/URL.php';
331 jpm 55 
/** Inclusion de la bibliothèque de fonctions servant à l'initialisation des variables globales de Papyrus. */
56 
require_once GEN_CHEMIN_BIBLIO.'pap_initialisation.fonct.php';
57 
/** Inclusion de la classe Papyrus gérant les URL : Utilisé pour l'url demandée par le client.*/
58 
require_once GEN_CHEMIN_BIBLIO_CLASSE.'pap_url.class.php';
1029 jp_milcent 59 
/** Inclusion de la bibliothèque de fonctions servant au menu pour la réecriture d'url. */
60 
require_once GEN_CHEMIN_BIBLIO.'pap_menu.fonct.php';
5 jpm 61 
 
62 
// +------------------------------------------------------------------------------------------------------+
63 
// |                                            CORPS du PROGRAMME                                        |
64 
// +------------------------------------------------------------------------------------------------------+
2076 Jean-Pasca 65 
 
66 
// Recherche de la présence de la valeur d'i18n dans l'url
67 
if ( (isset($_GET[GEN_URL_CLE_I18N])) && (!empty($_GET[GEN_URL_CLE_I18N])) ) {
68 
    $_GEN_commun['i18n'] = $_GET[GEN_URL_CLE_I18N];
69 
} else {
70 
  $_GEN_commun['i18n'] = GEN_I18N_ID_DEFAUT;
71 
}
72 
 
1029 jp_milcent 73 
// +------------------------------------------------------------------------------------------------------+
74 
// Gestion de la réecriture d'url et des url erreur 404
1037 jp_milcent 75 
if ((defined('PAP_URL_REECRITURE') AND PAP_URL_REECRITURE == '1' && (! isset($_GET[GEN_URL_CLE_SITE]) || empty($_GET[GEN_URL_CLE_SITE])) && (! isset($_GET[GEN_URL_CLE_MENU]) || empty($_GET[GEN_URL_CLE_MENU]))) ) {
76 
	$tab_type_reecriture = array('MENU', 'SITE');
77 
	foreach ($tab_type_reecriture as $reecriture) {
78 
		if (PAP_URL_REECRITURE_SEP == '/') {
1045 jp_milcent 79 
			$masque_reecriture = '/^(\/.*?)'.constant('PAP_URL_REECRITURE_'.$reecriture).'\\'.PAP_URL_REECRITURE_SEP.'([^?]+?)(?:\?(.*)|)$/';
1037 jp_milcent 80 
		} else {
1045 jp_milcent 81 
			$masque_reecriture = '/^(\/.*?)'.constant('PAP_URL_REECRITURE_'.$reecriture).PAP_URL_REECRITURE_SEP.'([^?]+?)(?:\?(.*)|)$/';
1037 jp_milcent 82 
		}
83 
		if (preg_match($masque_reecriture, rawurldecode($_SERVER['REQUEST_URI']), $tab_raccourci)) {
84 
			$chemin_vers_papyrus = $tab_raccourci[1];
85 
			$raccourci = $tab_raccourci[2];
86 
			$parametres = '';
87 
			if (isset($tab_raccourci[3])) {
88 
				$parametres = $tab_raccourci[3];
1029 jp_milcent 89 
			}
1037 jp_milcent 90 
			if ($reecriture == 'SITE') {
91 
				/** Inclusion de la bibliothèque de fonctions servant au site pour la réecriture d'url. */
92 
				require_once GEN_CHEMIN_BIBLIO.'pap_site.fonct.php';
93 
			}
94 
			// Nous cherchons à savoir si le raccourci est entièrement numérique ou pas.
95 
			if (preg_match('/^[0-9]+$/', $raccourci)) {
96 
				// Nous vérifions si nous utilisons les codes numériques ou alphanumérique dans les url
97 
				if (constant('GEN_URL_ID_TYPE_'.$reecriture) != 'int') {
2076 Jean-Pasca 98 
					if ($reecriture == 'SITE') {
99 
						$_GET[constant('GEN_URL_CLE_'.$reecriture)] = call_user_func('GEN_retourner'.$reecriture.'CodeAlpha', $db, $raccourci, $_GEN_commun['i18n']);
100 
					} else {
101 
						$_GET[constant('GEN_URL_CLE_'.$reecriture)] = call_user_func('GEN_retourner'.$reecriture.'CodeAlpha', $db, $raccourci);
102 
					}
1037 jp_milcent 103 
				} else {
104 
					$_GET[constant('GEN_URL_CLE_'.$reecriture)] = $raccourci;
1029 jp_milcent 105 
				}
1037 jp_milcent 106 
			} else {
107 
				// Nous vérifions si nous utilisons les codes numériques ou alphanumérique dans les url
108 
				if (constant('GEN_URL_ID_TYPE_'.$reecriture) != 'int') {
109 
					$_GET[constant('GEN_URL_CLE_'.$reecriture)] = $raccourci;
1029 jp_milcent 110 
				} else {
2076 Jean-Pasca 111 
					if ($reecriture == 'SITE') {
112 
						$_GET[constant('GEN_URL_CLE_'.$reecriture)] = call_user_func('GEN_retourner'.$reecriture.'CodeNum', $db, $raccourci, $_GEN_commun['i18n']);
113 
					} else {
114 
						$_GET[constant('GEN_URL_CLE_'.$reecriture)] = call_user_func('GEN_retourner'.$reecriture.'CodeNum', $db, $raccourci);
115 
					}
1029 jp_milcent 116 
				}
117 
			}
118 
		}
119 
	}
120 
}
5 jpm 121 
 
122 
// +------------------------------------------------------------------------------------------------------+
754 ddelon 123 
// Gestion des sites : disponibles sur le serveur courant.
120 jpm 124 
// Liste des catégories de site à prendre en compte :
754 ddelon 125 
// Pas de site, ni de menu dans l'URL, recherche du site par défaut
120 jpm 126 
$site_liste_id = '102, 103';// 102 = site "principal" et 103 = site "externe"
127 
if ( (! isset($_GET[GEN_URL_CLE_SITE]) || empty($_GET[GEN_URL_CLE_SITE])) && (! isset($_GET[GEN_URL_CLE_MENU]) || empty($_GET[GEN_URL_CLE_MENU])) ) {
128 
    $requete =  'SELECT gen_site.*, GSR02.* '.
129 
                'FROM gen_site, gen_site_relation AS GSR01, gen_site_relation AS GSR02 '.
130 
                'WHERE GSR01.gsr_id_site_01 = GSR01.gsr_id_site_02 '.
131 
                'AND GSR01.gsr_id_valeur = 101 '.// 101 = site défaut
132 
                'AND GSR01.gsr_id_site_01 = gs_id_site '.
133 
                'AND GSR02.gsr_id_site_01 = GSR02.gsr_id_site_02 '.
134 
                'AND GSR02.gsr_id_valeur IN ('.$site_liste_id.') '.
135 
                'AND GSR02.gsr_id_site_01 = gs_id_site';
1029 jp_milcent 136 
 
5 jpm 137 
    $resultat = $db->query($requete);
138 
    if (DB::isError($resultat)) {
139 
        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
140 
    }
1029 jp_milcent 141 
 
5 jpm 142 
    // Aucun site trouvé
143 
    if ($resultat->numRows() == 0) {
93 jpm 144 
        // Appel à l'application Installateur si nécessaire
145 
        /** <br> Inclusion du programme Installateur de Papyrus.
1336 neiluj 146 
        * L'abscence de site oblige à relancer l'installation et le script sql qui régénérera la base de données.*/
93 jpm 147 
        include_once GEN_CHEMIN_APPLICATION.'installateur/installateur.php';
148 
        $_GEN_commun['sortie'] = afficherContenuCorps();
149 
        include_once GEN_CHEMIN_PAP.'pap_envoi.inc.php';
150 
        // Fin du programme Papyrus.
151 
        exit(0);
5 jpm 152 
    }
153 
    // Nous avons trouvé un site.
154 
    $_GEN_commun['info_site'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
155 
    $resultat->free();
156 
    if (GEN_URL_ID_TYPE_SITE == 'int') {
157 
        $_GEN_commun['url_site'] = $_GEN_commun['info_site']->gs_code_num;
158 
    } else {
159 
        $_GEN_commun['url_site'] = $_GEN_commun['info_site']->gs_code_alpha;
160 
    }
754 ddelon 161 
 // Le code du menu est présent dans l'url mais pas celui du site
120 jpm 162 
} else if ( (! isset($_GET[GEN_URL_CLE_SITE]) || empty($_GET[GEN_URL_CLE_SITE])) && (isset($_GET[GEN_URL_CLE_MENU]) || !empty($_GET[GEN_URL_CLE_MENU])) ) {
754 ddelon 163 
    // Nous récupérons les infos du menu et du sites dans la variable globale de Papyrus.
120 jpm 164 
    $_GEN_commun['url_menu'] = $_GET[GEN_URL_CLE_MENU];
165 
    // Récupération des informations sur le menu demandé
166 
    $requete =  'SELECT * '.
167 
                'FROM gen_menu '.
157 jpm 168 
                'WHERE ';
120 jpm 169 
    $requete .= (GEN_URL_ID_TYPE_MENU == 'int')
170 
        ? 'gm_code_num = '.$_GEN_commun['url_menu']
171 
        : 'gm_code_alpha = "'.$_GEN_commun['url_menu'].'"';
436 ddelon 172 
 
120 jpm 173 
    $resultat = $db->query($requete);
174 
    (DB::isError($resultat))
175 
        ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))
436 ddelon 176 
       : '';
1029 jp_milcent 177 
 
120 jpm 178 
    $_GEN_commun['info_menu'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
179 
    $resultat->free();
157 jpm 180 
    if ($_GEN_commun['info_menu']->gm_ce_site != 0) {
181 
        // Récupération des infos du site
182 
        $requete =  'SELECT * '.
183 
                    'FROM gen_site, gen_site_relation '.
184 
                    'WHERE gsr_id_site_01 = gsr_id_site_02 '.
185 
                    'AND gsr_id_valeur IN ('.$site_liste_id.') '.
186 
                    'AND gsr_id_site_01 = gs_id_site '.
187 
                    'AND gs_id_site = '. $_GEN_commun['info_menu']->gm_ce_site;
1029 jp_milcent 188 
 
157 jpm 189 
        $resultat = $db->query($requete);
190 
        (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1029 jp_milcent 191 
 
157 jpm 192 
        $_GEN_commun['info_site'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
193 
        $_GEN_commun['url_site'] = (GEN_URL_ID_TYPE_SITE == 'int')
194 
            ? $_GEN_commun['info_site']->gs_code_num
195 
            : $_GEN_commun['info_site']->gs_code_alpha;
196 
        $resultat->free();
197 
    } else {
198 
        // Récupération des infos du site
199 
        $requete =  'SELECT * '.
200 
                    'FROM gen_site, gen_site_relation '.
201 
                    'WHERE gsr_id_site_01 = gsr_id_site_02 '.
202 
                    'AND gsr_id_valeur = 101 '.
203 
                    'AND gsr_id_site_01 = gs_id_site ';
1029 jp_milcent 204 
 
157 jpm 205 
        $resultat = $db->query($requete);
206 
        (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1029 jp_milcent 207 
 
157 jpm 208 
        $_GEN_commun['info_site'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
209 
        $_GEN_commun['url_site'] = (GEN_URL_ID_TYPE_SITE == 'int')
210 
            ? $_GEN_commun['info_site']->gs_code_num
211 
            : $_GEN_commun['info_site']->gs_code_alpha;
212 
        $resultat->free();
213 
    }
5 jpm 214 
} else {
2076 Jean-Pasca 215 
	// Récupération de la valeur identifiant le site depuis l'url
5 jpm 216 
    $_GEN_commun['url_site'] = $_GET[GEN_URL_CLE_SITE];
1029 jp_milcent 217 
 
5 jpm 218 
    // Récupération des informations sur le site
2076 Jean-Pasca 219 
    // ATTENTION : pour fonctionner le site par dans la langue par défaut doit avoir une relation : id_site id_site id_valeur=1
220 
    $requete =  'SELECT gen_site.*, gsr01.* '.
221 
                'FROM gen_site, gen_site_relation AS gsr01, gen_site_relation AS gsr02 '.
222 
                'WHERE gsr01.gsr_id_site_01 = gsr01.gsr_id_site_02 '.
223 
                'AND gsr01.gsr_id_valeur IN ('.$site_liste_id.') '.
224 
                'AND gsr01.gsr_id_site_01 = gs_id_site '.
225 
    			'AND gsr02.gsr_id_site_01 = gs_id_site '.
226 
    			'AND gsr02.gsr_id_site_01 = gsr02.gsr_id_site_02 '.
227 
    			'AND gsr02.gsr_id_valeur = 1 '.
5 jpm 228 
                'AND ';
229 
    $requete .= (GEN_URL_ID_TYPE_SITE == 'int')
2076 Jean-Pasca 230 
        ? 'gs_code_num = "'.$_GEN_commun['url_site'].'" '
231 
        : 'gs_code_alpha = "'.$_GEN_commun['url_site'].'" ';
1029 jp_milcent 232 
 
5 jpm 233 
    $resultat = $db->query($requete);
234 
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
235 
    $_GEN_commun['info_site'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
236 
    $resultat->free();
237 
}
238 
 
239 
//Gestion de l'erreur aucun site trouvable.
240 
if (! isset($_GEN_commun['info_site'])) {
93 jpm 241 
    // Appel à l'application Installateur si nécessaire
242 
    /** <br> Inclusion du programme Installateur de Papyrus.
1336 neiluj 243 
    * L'abscence de site oblige à relancer l'installation et le script sql qui régénérera la base de données.*/
93 jpm 244 
    include_once GEN_CHEMIN_APPLICATION.'installateur/installateur.php';
245 
    $_GEN_commun['sortie'] .= afficherContenuCorps();
246 
    include_once GEN_CHEMIN_PAP.'pap_envoi.inc.php';
247 
    // Fin du programme Papyrus.
248 
    exit(0);
117 jpm 249 
} else if ($_GEN_commun['info_site']->gsr_id_valeur == 103) {
250 
    // Gestion de la redirection pour les sites "externes"
251 
    header('Location:'.$_GEN_commun['info_site']->gs_url);
252 
    exit(0);
5 jpm 253 
}
254 
 
255 
// Nous récupérons des informations sur l'internationalisation
256 
$requete =  'SELECT * '.
257 
            'FROM gen_i18n '.
258 
            'WHERE gi_id_i18n = "'.$_GEN_commun['i18n'].'"';
259 
 
260 
$resultat = $db->query($requete);
261 
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
262 
 
263 
$_GEN_commun['info_i18n'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
264 
$resultat->free();
265 
 
443 ddelon 266 
 
5 jpm 267 
// Récupération des informations sur la langue
268 
$requete =  'SELECT * '.
269 
            'FROM gen_i18n_langue '.
270 
            'WHERE gil_id_langue = "'.$_GEN_commun['info_i18n']->gi_ce_langue.'"';
271 
$resultat = $db->query($requete);
272 
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
273 
 
274 
$_GEN_commun['info_i18n_langue'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
275 
$resultat->free();
276 
 
277 
// Récupération des informations sur le pays
278 
$requete =  'SELECT * '.
279 
            'FROM gen_i18n_pays '.
280 
            'WHERE gip_id_pays = "'.$_GEN_commun['info_i18n']->gi_ce_pays.'"';
281 
$resultat = $db->query($requete);
282 
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
283 
 
284 
$_GEN_commun['info_i18n_pays'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
285 
$resultat->free();
286 
 
287 
// +------------------------------------------------------------------------------------------------------+
288 
// Gestion des menus
2076 Jean-Pasca 289 
//
5 jpm 290 
// Nous vérifions le cas où le code du menu est introuvable dans l'url.
291 
if ( (! isset($_GET[GEN_URL_CLE_MENU])) || (empty($_GET[GEN_URL_CLE_MENU])) ) {
292 
    // Recherche du premier menu du site courant:
293 
    $requete =  'SELECT gen_menu.* '.
294 
                'FROM gen_menu, gen_menu_relation '.
295 
                'WHERE gm_ce_site = '.$_GEN_commun['info_site']->gs_id_site.' '.
296 
                'AND gmr_id_menu_01 = gm_id_menu '.
297 
                'AND gmr_id_menu_01 = gmr_id_menu_02 '.
298 
                'AND gmr_id_valeur = 101 ';// 101 = menu par "defaut"
754 ddelon 299 
 
5 jpm 300 
    $resultat = $db->query($requete);
301 
    (DB::isError($resultat))
302 
        ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))
303 
        : '';
304 
    // Nous avons trouvé un menu "défaut" pour le site courant.
305 
    $_GEN_commun['info_menu'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
306 
    $resultat->free();
754 ddelon 307 
 
448 ddelon 308 
    if (isset($_GEN_commun['url_menu'])) {
309 
	    // Stockage du code du menu demandée dans la variable globale de Papyrus.
310 
	    if (GEN_URL_ID_TYPE_MENU == 'int') {
311 
	        $_GEN_commun['url_menu'] = $_GEN_commun['info_menu']->gm_code_num;
312 
	    } else {
313 
	        $_GEN_commun['url_menu'] = $_GEN_commun['info_menu']->gm_code_alpha;
314 
	    }
5 jpm 315 
    }
448 ddelon 316 
}
317 
 
318 
else
319 
if (! isset($_GET['url_menu']) && empty($_GEN_commun['url_menu'])) {
120 jpm 320 
    // Le code du menu est présent dans l'url et il n'a pas encore été récupéré
321 
    // Nous le récupérons dans la variable globale de Papyrus.
5 jpm 322 
    $_GEN_commun['url_menu'] = $_GET[GEN_URL_CLE_MENU];
754 ddelon 323 
 
5 jpm 324 
    // Récupération des informations sur le menu demandé
325 
    $requete = 'SELECT * '.
326 
                'FROM gen_menu '.
157 jpm 327 
                'WHERE ';
5 jpm 328 
    $requete .= (GEN_URL_ID_TYPE_MENU == 'int')
329 
        ? 'gm_code_num = '.$_GEN_commun['url_menu']
330 
        : 'gm_code_alpha = "'.$_GEN_commun['url_menu'].'"';
754 ddelon 331 
 
5 jpm 332 
    $resultat = $db->query($requete);
333 
    (DB::isError($resultat))
334 
        ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))
335 
        : '';
754 ddelon 336 
 
5 jpm 337 
    $_GEN_commun['info_menu'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
338 
    $resultat->free();
339 
}
340 
 
341 
// +------------------------------------------------------------------------------------------------------+
342 
// Gestion des traductions
343 
 
344 
// Si le résultat de la négociation de l'internationalisation donne une langue différente
345 
//  de celle du site principal, nous récupérons les éventuelles valeurs traduite pour le site.
754 ddelon 346 
 
1342 ddelon 347 
$id_langue = $GLOBALS['_GEN_commun']['i18n'];
348 
 
349 
if (isset($id_langue) && ($id_langue!='')) {
350 
       $langue_test=$id_langue;
351 
} else {
352 
       $langue_test=GEN_I18N_ID_DEFAUT;
353 
}
354 
 
355 
if ($langue_test!=GEN_I18N_ID_DEFAUT) {
5 jpm 356 
    // Récupération des informations sur la traduction du site
357 
    $requete =  'SELECT * '.
358 
                'FROM gen_site '.
1342 ddelon 359 
                'WHERE gs_ce_i18n = "'.$langue_test.'" '.
360 
                'AND gs_code_num = "'.$_GEN_commun['info_site']->gs_code_num.'"';
361 
 
1336 neiluj 362 
//                'WHERE gs_ce_i18n = "'.$_GEN_commun['i18n'].'" '.
363 
//                'AND gs_code_alpha = "'.$_GEN_commun['info_site']->gs_code_alpha.'"';
754 ddelon 364 
 
5 jpm 365 
    $resultat = $db->query($requete);
366 
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
754 ddelon 367 
 
1336 neiluj 368 
    // Nous créons l'entrée 'traduction_info_site' dans _GEN_commun que si nous avons bien trouvé une
5 jpm 369 
    // traduction pour le site. Il faut donc tester l'existence de cette entrée avant de l'utiliser.
370 
    if ($resultat->numRows() > 0) {
371 
        $_GEN_commun['traduction_info_site'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
372 
    }
373 
    $resultat->free();
374 
}
375 
 
376 
// Si le résultat de la négociation de l'internationalisation donne une langue différente
377 
//  de celle du menu, nous récupérons les éventuelles valeurs traduite pour le menu.
754 ddelon 378 
 
1665 ddelon 379 
//print_r($_GEN_commun);
754 ddelon 380 
 
1665 ddelon 381 
if (isset($_GEN_commun['info_menu']))  { // Evite les warning si pas encore de menu cree pour ce site
754 ddelon 382 
 
1665 ddelon 383 
    if ($langue_test!=GEN_I18N_ID_DEFAUT) {
384 
        // Récupération des informations sur la traduction du menu
385 
        $requete =  'SELECT * '.
386 
                    'FROM gen_menu '.
387 
                    'WHERE gm_ce_i18n = "'.$langue_test.'" '.
388 
                    'AND gm_code_num = "'.$_GEN_commun['info_menu']->gm_code_num.'"';
389 
    //                'WHERE gm_ce_i18n = "'.$_GEN_commun['i18n'].'" '.
390 
    //                'AND gm_code_alpha = "'.$_GEN_commun['info_menu']->gm_code_alpha.'"';
391 
 
392 
        $resultat = $db->query($requete);
393 
        (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
394 
 
395 
        // Nous créons l'entrée 'traduction_info_menu' dans _GEN_commun que si nous avons bien trouvé une
396 
        // traduction pour le menu. Il faut donc tester l'existence de cette entrée avant de l'utiliser.
397 
        if ($resultat->numRows() > 0) {
398 
            $_GEN_commun['traduction_info_menu'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
399 
        }
400 
        $resultat->free();
5 jpm 401 
    }
1665 ddelon 402 
 
5 jpm 403 
}
1665 ddelon 404 
 
5 jpm 405 
// +------------------------------------------------------------------------------------------------------+
406 
// Gestion de l'application du menu demandé.
407 
 
408 
// Recherche de la première application liée
93 jpm 409 
if (isset($_GEN_commun['info_menu']->gm_id_menu)) {
410 
    $info_appli_menu = GEN_donnerIdPremiereApplicationLiee($_GEN_commun['info_menu']->gm_id_menu);
411 
    if (is_array($info_appli_menu)) {
412 
        $id_application = $info_appli_menu['gm_ce_application'];
413 
        $id_menu_actif = $info_appli_menu['gm_id_menu'];
754 ddelon 414 
 
93 jpm 415 
        // Si le menu n'a pas d'application lié, on recalcule l'objet $_GEN_commun['info_menu']
416 
        if ($id_menu_actif != $_GEN_commun['info_menu']->gm_id_menu) {
417 
            $requete =  'SELECT gen_menu.* '.
418 
                        'FROM gen_menu '.
419 
                        'WHERE gm_id_menu = '.$id_menu_actif;
754 ddelon 420 
 
93 jpm 421 
            $resultat = $db->query($requete);
422 
            (DB::isError($resultat))
423 
                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))
424 
                : '';
425 
            // Nous avons trouvé un menu "défaut" pour le site courant.
426 
            $_GEN_commun['info_menu'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
427 
            $resultat->free();
428 
        }
754 ddelon 429 
 
430 
 
93 jpm 431 
        // Recherche des informations sur l'application liée
432 
        $requete_applicaton =   'SELECT * '.
433 
                                'FROM gen_application '.
434 
                                'WHERE gap_id_application = '.$id_application;
754 ddelon 435 
 
93 jpm 436 
        $resultat_applicaton = $db->query($requete_applicaton);
437 
        (DB::isError($resultat_applicaton))
438 
            ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_applicaton->getMessage(), $requete_applicaton))
439 
            : '';
754 ddelon 440 
 
93 jpm 441 
        $_GEN_commun['info_application'] = $resultat_applicaton->fetchRow(DB_FETCHMODE_OBJECT) ;
442 
        $resultat_applicaton->free();
112 jpm 443 
    } else {
444 
        // Gestion des erreurs sur la recherche de l'application liée.
273 jpm 445 
        // Finalement il a été décidé de ne pas afficher cette information sous la forme d'erreur.
446 
        //trigger_error('application du menu demandée introuvable', E_USER_NOTICE);
93 jpm 447 
    }
16 alex 448 
}
449 
 
5 jpm 450 
// +------------------------------------------------------------------------------------------------------+
451 
// Gestion des arguments de l'application
452 
 
93 jpm 453 
if (isset($_GEN_commun['info_menu']->gm_application_arguments)) {
454 
    $arguments = explode(' ', $_GEN_commun['info_menu']->gm_application_arguments);
754 ddelon 455 
 
93 jpm 456 
    // Initialisaton de la variable globale $GS_ARGUMENTS
457 
    $_GEN_commun['info_application']->cache = false;
458 
    $_GEN_commun['info_application']->cache_duree = 0;
754 ddelon 459 
 
93 jpm 460 
    for ($i = 0; $i < count($arguments); $i++) {
461 
        $attr = explode('=', $arguments[$i]);
754 ddelon 462 
 
93 jpm 463 
        if ($attr[0] == 'cache_duree') {
464 
            $_GEN_commun['info_application']->cache_duree = $attr[1];
465 
            if ($_GEN_commun['info_application']->cache_duree > 0) {
466 
                $_GEN_commun['info_application']->cache = true;
467 
            }
468 
        } else if ($attr[0] != '') {
469 
            $_GEN_commun['info_application']->$attr[0] = (isset($attr[1]) ? $attr[1] : '');
5 jpm 470 
        }
471 
    }
472 
}
473 
 
474 
// +------------------------------------------------------------------------------------------------------+
475 
// Gestion des applettes
476 
 
477 
$requete =  'SELECT * '.
478 
            'FROM gen_application '.
479 
            'WHERE gap_bool_applette = 1 ';
480 
$resultat = $_GEN_commun['pear_db']->query($requete);
481 
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
482 
 
483 
$_GEN_commun['info_applette'] = array();
484 
$i = 0;
485 
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
486 
    $_GEN_commun['info_applette'][$i] = $ligne;
487 
    $i++;
488 
}
489 
$resultat->free();
490 
 
491 
// +------------------------------------------------------------------------------------------------------+
492 
// Gestion de l'objet URL
493 
 
1029 jp_milcent 494 
$_GEN_commun['url'] = & new Pap_URL(PAP_URL);
1083 ddelon 495 
if (isset($_GEN_commun['info_menu'])) {
496 
	$_GEN_commun['url']->setId($_GEN_commun['info_menu']->gm_id_menu);
497 
}
5 jpm 498 
 
93 jpm 499 
if ( (isset($_GEN_commun['url_site'])) && (!empty($_GEN_commun['url_site'])) ) {
500 
    $_GEN_commun['url']->addQueryString(GEN_URL_CLE_SITE, $_GEN_commun['url_site']);
501 
}
502 
 
503 
if ( (isset($_GEN_commun['url_menu'])) && (!empty($_GEN_commun['url_menu'])) ) {
504 
    $_GEN_commun['url']->addQueryString(GEN_URL_CLE_MENU, $_GEN_commun['url_menu']);
505 
}
506 
 
5 jpm 507 
if ( (isset($_GET[GEN_URL_CLE_DATE])) && (!empty($_GET[GEN_URL_CLE_DATE])) ) {
508 
    $_GEN_commun['url_date'] = $_GET[GEN_URL_CLE_DATE];
509 
    $_GEN_commun['url']->addQueryString(GEN_URL_CLE_DATE, $_GEN_commun['url_date']);
510 
}
511 
 
512 
if ( (isset($_GET[GEN_URL_CLE_FORMAT])) && (!empty($_GET[GEN_URL_CLE_FORMAT])) ) {
513 
    $_GEN_commun['url_format'] = $_GET[GEN_URL_CLE_FORMAT];
331 jpm 514 
    $_GEN_commun['url']->addQueryString(GEN_URL_CLE_FORMAT, $_GEN_commun['url_format']);
5 jpm 515 
}
516 
 
517 
/* +--Fin du code ---------------------------------------------------------------------------------------+
518 
* $Log: not supported by cvs2svn $
1665 ddelon 519 
* Revision 1.31  2007-04-19 16:54:52  ddelon
520 
* backport mulitlinguisme
521 
*
1342 ddelon 522 
* Revision 1.30  2007/04/19 15:34:35  neiluj
523 
* préparration release (livraison) "Narmer" - v0.25
524 
*
1336 neiluj 525 
* Revision 1.29  2007/04/13 09:41:09  neiluj
526 
* réparration cvs
527 
*
1316 neiluj 528 
* Revision 1.28  2006/12/01 15:41:21  ddelon
529 
* erreur affichage
530 
*
1083 ddelon 531 
* Revision 1.27  2006/11/07 18:43:54  jp_milcent
532 
* Modification des expressions régulières des permaliens.
533 
*
1045 jp_milcent 534 
* Revision 1.26  2006/10/18 10:18:05  jp_milcent
535 
* Gestion des erreurs HTTP par Papyrus.
536 
*
1037 jp_milcent 537 
* Revision 1.25  2006/10/11 18:04:11  jp_milcent
538 
* Gestion avancée de la réecriture d'URL.
539 
*
1029 jp_milcent 540 
* Revision 1.24  2006/03/02 10:49:49  ddelon
541 
* Fusion branche multilinguisme dans branche principale
542 
*
754 ddelon 543 
* Revision 1.23.2.2  2005/12/20 14:40:24  ddelon
544 
* Fusion Head vers Livraison
545 
*
546 
* Revision 1.23.2.1  2005/12/01 23:31:57  ddelon
547 
* Merge Head vers multilinguisme
548 
*
549 
* Revision 1.23  2005/09/22 14:02:49  ddelon
550 
* nettoyage annuaire et php5
551 
*
448 ddelon 552 
* Revision 1.22  2005/09/20 17:01:22  ddelon
553 
* php5 et bugs divers
554 
*
443 ddelon 555 
* Revision 1.21  2005/08/31 17:34:52  ddelon
556 
* Integrateur Wikini et administration des Wikini
557 
*
436 ddelon 558 
* Revision 1.20  2005/06/24 10:48:35  jpm
559 
* Modification des chemins des fichiers pour fonctionnement avec API Pear locale.
560 
*
402 jpm 561 
* Revision 1.19  2005/04/14 13:52:37  jpm
562 
* Utilisation de la classe Pap_URL.
563 
*
331 jpm 564 
* Revision 1.18  2005/02/28 11:20:42  jpm
565 
* Modification des auteurs.
566 
*
286 jpm 567 
* Revision 1.17  2005/02/23 15:35:04  jpm
568 
* L'erreur "pas d'application" a été supprimé une message dans le corps du texte fourni déjà cette information.
569 
*
273 jpm 570 
* Revision 1.16  2005/02/17 17:51:40  florian
571 
* Correction bug monde sans menu ni appli
572 
*
262 florian 573 
* Revision 1.15  2004/12/06 12:12:28  jpm
574 
* Début de gestion des auth multiples.
575 
*
207 jpm 576 
* Revision 1.14  2004/11/15 17:14:09  jpm
577 
* Gestion des url avec seulement le code d'un menu.
578 
*
157 jpm 579 
* Revision 1.13  2004/11/03 17:14:38  jpm
580 
* Gestion des sites externes.
581 
*
120 jpm 582 
* Revision 1.12  2004/10/26 18:42:21  jpm
583 
* Gestion des sites externes.
584 
*
117 jpm 585 
* Revision 1.11  2004/10/25 16:28:47  jpm
586 
* Ajout de nouvelles balises Papyrus, ajout vérification mise à jour de Papyrus, meilleure gestion des sessions...
587 
*
112 jpm 588 
* Revision 1.10  2004/10/22 17:23:59  jpm
589 
* Début amélioration de la gestion des erreurs et de l'installation.
590 
*
93 jpm 591 
* Revision 1.9  2004/10/15 18:29:19  jpm
592 
* Modif pour gérer l'appli installateur de Papyrus.
593 
*
67 jpm 594 
* Revision 1.8  2004/09/23 14:30:53  jpm
595 
* Correction bogue sur les menus.
596 
*
50 jpm 597 
* Revision 1.7  2004/09/23 10:46:46  jpm
598 
* Amélioration de la gestion du menu actif quand un menu n'a pas d'application liée.
599 
*
47 jpm 600 
* Revision 1.6  2004/09/10 16:38:34  jpm
601 
* Ajout de l'initialisation d'une variable stockant les infos de débogage.
602 
*
34 jpm 603 
* Revision 1.5  2004/06/30 07:35:16  jpm
604 
* Correction d'un bogue du à une mauvaise gestion de la résolution des conflits entre fichier CVS.
605 
*
23 jpm 606 
* Revision 1.4  2004/06/30 07:25:37  jpm
607 
* Ajout d'un commentaire.
608 
*
21 jpm 609 
* Revision 1.3  2004/06/18 15:52:45  alex
610 
* Actualisation de la variable $_GEN_commun['info_menu'] lorsque un menu n'a pas d'application lié
611 
*
16 alex 612 
* Revision 1.2  2004/06/17 07:03:01  jpm
613 
* Correction d'un bogue concernant l'internationalisation par défaut quand la langue du navigateur ne correspond pas à celle du site.
614 
*
13 jpm 615 
* Revision 1.1  2004/06/16 08:13:20  jpm
1336 neiluj 616 
* Changement de nom de Papyrus en Papyrus.
13 jpm 617 
* Changement de l'arborescence.
618 
*
5 jpm 619 
* Revision 1.24  2004/05/05 14:33:37  jpm
620 
* Gestion de l'indication de langue dans l'url.
621 
* Utile que si on veut forcer la langue.
622 
*
623 
* Revision 1.23  2004/05/05 10:42:35  jpm
624 
* Amélioration de la gestion de l'internationalisation.
625 
*
626 
* Revision 1.22  2004/05/04 16:17:05  jpm
1336 neiluj 627 
* Légère amélioration du code (libération
5 jpm 628 
 
629 
 de ressource).
630 
*
631 
* Revision 1.21  2004/05/03 11:21:58  jpm
632 
* Fin de la gestion des applettes et suppression de l'info_menu_hierarchie de _GEN_commun.
1336 neiluj 633 
*
634 
* Revision 1.20  2004/04/30 16:17:27  jpm
5 jpm 635 
* Ajout de la récupération d'une info sur la hiérarchie.
636 
* Surement à supprimer car inutile.
1336 neiluj 637 
*
5 jpm 638 
* Revision 1.19  2004/04/28 12:04:31  jpm
639 
* Changement du modèle de la base de données.
640 
*
641 
* Revision 1.18  2004/04/22 08:28:12  jpm
642 
* Transformation de $GS_GLOBAL en $_GEN_commun.
643 
*
644 
* Revision 1.17  2004/04/09 16:43:32  jpm
645 
* Suppression d'un blanc.
1336 neiluj 646 
*
5 jpm 647 
* Revision 1.16  2004/04/09 16:20:11  jpm
648 
* Récupération de la création de l'objet URL.
649 
* Gestion des tables i18n.
1336 neiluj 650 
*
5 jpm 651 
* Revision 1.15  2004/04/05 16:37:43  jpm
652 
* Utilisation de la classe Pear HTTP pour la négociation du langage à utiliser pour le site.
1336 neiluj 653 
*
5 jpm 654 
* Revision 1.14  2004/04/02 16:29:30  jpm
655 
* Déplacement dans le fichier gen_initialisation_pear.inc.php de la création des objets Pear Net_URL et Auth.
656 
*
657 
* Revision 1.13  2004/04/01 11:27:13  jpm
658 
* Ajout et modification de commentaires pour PhpDocumentor.
1336 neiluj 659 
*
5 jpm 660 
* Revision 1.12  2004/03/31 16:50:04  jpm
661 
* Prise en compte du nouveau modèle de Papyrus révision 1.9.
1336 neiluj 662 
*
663 
* Revision 1.11  2004/03/27 11:04:14  jpm
5 jpm 664 
* Déplacement des fonctions de gestion d'erreur dans la bibliotheque de l'application Installateur.
665 
* Modification des commentaires vis à vis du nouveau modèle.
1336 neiluj 666 
* Changement et simplification des noms des variables globales.
5 jpm 667 
* Suppression de l'attribution d'une configuration par défaut.
668 
* Remplacement de variable par des constante provenant du fichier de configuration.
669 
* Traduction en français de certaines variables et partie de code.
1336 neiluj 670 
*
5 jpm 671 
* Revision 1.10  2004/03/24 07:20:03  jpm
672 
* Mise en forme requête sql.
1336 neiluj 673 
*
674 
* Revision 1.9  2004/03/23 17:06:56  jpm
5 jpm 675 
* Ajout de commentaire dans l'entête.
676 
* Mise en conformité avec la convention de codage.
677 
*
678 
* Revision 1.8  2004/03/23 16:31:54  jpm
679 
* Ajout du code provenant de gen_noyau.inc.php.
680 
* Ajout, formatage et traduction des commentaires.
681 
*
1336 neiluj 682 
* Revision 1.7  2004/03/22 18:35:32  jpm
683 
* Traduction et ajout de commentaires.
5 jpm 684 
* Amélioration de la conformité avec la convention de codage.
685 
* Changement requête sql pour le nouveau modèle de Papyrus.
686 
*
1336 neiluj 687 
* Revision 1.6  2004/03/22 11:14:30  jpm
5 jpm 688 
* Ajout de commentaires et mise en forme.
689 
* Correction des requêtes sql pour mise en conformité avec le nouveau modèle de Papyrus et la convention de codage.
690 
*
691 
* Revision 1.5  2003/12/16 16:57:59  alex
692 
* mise à jour pour compatibilité avec genesia
1336 neiluj 693 
*
5 jpm 694 
* Revision 1.4  2003/11/24 16:05:02  jpm
695 
* Ajout de commentaires et début de mise en conformité
696 
* avec la convention de codage.
697 
*
698 
*
699 
* +--Fin du code ----------------------------------------------------------------------------------------+
700 
*/
701 
?>