Subversion Repositories Applications.papyrus

Rev

Rev 448 | Rev 1029 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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