Subversion Repositories Applications.papyrus

Rev

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