Subversion Repositories Applications.papyrus

Rev

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