Subversion Repositories Applications.papyrus

Rev

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