1 |
<?php
|
1 |
<?php
|
2 |
/*vim: set expandtab tabstop=4 shiftwidth=4: */
|
2 |
/*vim: set expandtab tabstop=4 shiftwidth=4: */
|
3 |
// Copyright (C) 1999-2004 Tela Botanica (accueil@tela-botanica.org)
|
3 |
// Copyright (C) 1999-2004 Tela Botanica (accueil@tela-botanica.org)
|
4 |
//
|
4 |
//
|
5 |
// Ce logiciel est un programme informatique servant à gérer du contenu et des
|
5 |
// Ce logiciel est un programme informatique servant à gérer du contenu et des
|
6 |
// applications web.
|
6 |
// applications web.
|
7 |
|
7 |
|
8 |
// Ce logiciel est régi par la licence CeCILL soumise au droit français et
|
8 |
// Ce logiciel est régi par la licence CeCILL soumise au droit français et
|
9 |
// respectant les principes de diffusion des logiciels libres. Vous pouvez
|
9 |
// respectant les principes de diffusion des logiciels libres. Vous pouvez
|
10 |
// utiliser, modifier et/ou redistribuer ce programme sous les conditions
|
10 |
// utiliser, modifier et/ou redistribuer ce programme sous les conditions
|
11 |
// de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA
|
11 |
// de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA
|
12 |
// sur le site "http://www.cecill.info".
|
12 |
// sur le site "http://www.cecill.info".
|
13 |
|
13 |
|
14 |
// En contrepartie de l'accessibilité au code source et des droits de copie,
|
14 |
// En contrepartie de l'accessibilité au code source et des droits de copie,
|
15 |
// de modification et de redistribution accordés par cette licence, il n'est
|
15 |
// de modification et de redistribution accordés par cette licence, il n'est
|
16 |
// offert aux utilisateurs qu'une garantie limitée. Pour les mêmes raisons,
|
16 |
// offert aux utilisateurs qu'une garantie limitée. Pour les mêmes raisons,
|
17 |
// seule une responsabilité restreinte pèse sur l'auteur du programme, le
|
17 |
// seule une responsabilité restreinte pèse sur l'auteur du programme, le
|
18 |
// titulaire des droits patrimoniaux et les concédants successifs.
|
18 |
// titulaire des droits patrimoniaux et les concédants successifs.
|
19 |
|
19 |
|
20 |
// A cet égard l'attention de l'utilisateur est attirée sur les risques
|
20 |
// A cet égard l'attention de l'utilisateur est attirée sur les risques
|
21 |
// associés au chargement, à l'utilisation, à la modification et/ou au
|
21 |
// associés au chargement, à l'utilisation, à la modification et/ou au
|
22 |
// développement et à la reproduction du logiciel par l'utilisateur étant
|
22 |
// développement et à la reproduction du logiciel par l'utilisateur étant
|
23 |
// donné sa spécificité de logiciel libre, qui peut le rendre complexe à
|
23 |
// donné sa spécificité de logiciel libre, qui peut le rendre complexe à
|
24 |
// manipuler et qui le réserve donc à des développeurs et des professionnels
|
24 |
// manipuler et qui le réserve donc à des développeurs et des professionnels
|
25 |
// avertis possédant des connaissances informatiques approfondies. Les
|
25 |
// avertis possédant des connaissances informatiques approfondies. Les
|
26 |
// utilisateurs sont donc invités à charger et tester l'adéquation du
|
26 |
// utilisateurs sont donc invités à charger et tester l'adéquation du
|
27 |
// logiciel à leurs besoins dans des conditions permettant d'assurer la
|
27 |
// logiciel à leurs besoins dans des conditions permettant d'assurer la
|
28 |
// sécurité de leurs systèmes et ou de leurs données et, plus généralement,
|
28 |
// sécurité de leurs systèmes et ou de leurs données et, plus généralement,
|
29 |
// à l'utiliser et l'exploiter dans les mêmes conditions de sécurité.
|
29 |
// à l'utiliser et l'exploiter dans les mêmes conditions de sécurité.
|
30 |
|
30 |
|
31 |
// Le fait que vous puissiez accéder à cet en-tête signifie que vous avez
|
31 |
// Le fait que vous puissiez accéder à cet en-tête signifie que vous avez
|
32 |
// pris connaissance de la licence CeCILL, et que vous en avez accepté les
|
32 |
// pris connaissance de la licence CeCILL, et que vous en avez accepté les
|
33 |
// termes.
|
33 |
// termes.
|
34 |
// ----
|
34 |
// ----
|
35 |
// CVS : $Id: adme_general.fonct.php,v 1.14 2006-03-23 20:24:59 ddelon Exp $
|
35 |
// CVS : $Id: adme_general.fonct.php,v 1.15 2006-03-24 13:03:24 ddelon Exp $
|
36 |
/**
|
36 |
/**
|
37 |
* Contient l'affichage par défaut de l'appli quand aucune actin
|
37 |
* Contient l'affichage par défaut de l'appli quand aucune actin
|
38 |
*
|
38 |
*
|
39 |
* Ce fichier contient les fonctions d'affichage commune à toute l'application Admin Menu.
|
39 |
* Ce fichier contient les fonctions d'affichage commune à toute l'application Admin Menu.
|
40 |
* Nous y trouvons, entre autre, la fonction d'affichage par défaut de l'appli.
|
40 |
* Nous y trouvons, entre autre, la fonction d'affichage par défaut de l'appli.
|
41 |
*
|
41 |
*
|
42 |
*@package Admin_menu
|
42 |
*@package Admin_menu
|
43 |
*@subpackage Fonctions
|
43 |
*@subpackage Fonctions
|
44 |
//Auteur original :
|
44 |
//Auteur original :
|
45 |
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
|
45 |
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
|
46 |
//Autres auteurs :
|
46 |
//Autres auteurs :
|
47 |
*@author Aucun
|
47 |
*@author Aucun
|
48 |
*@copyright Tela-Botanica 2000-2004
|
48 |
*@copyright Tela-Botanica 2000-2004
|
49 |
*@version $Revision: 1.14 $ $Date: 2006-03-23 20:24:59 $
|
49 |
*@version $Revision: 1.15 $ $Date: 2006-03-24 13:03:24 $
|
50 |
// +------------------------------------------------------------------------------------------------------+
|
50 |
// +------------------------------------------------------------------------------------------------------+
|
51 |
*/
|
51 |
*/
|
52 |
|
52 |
|
53 |
// +------------------------------------------------------------------------------------------------------+
|
53 |
// +------------------------------------------------------------------------------------------------------+
|
54 |
// | ENTETE du PROGRAMME |
|
54 |
// | ENTETE du PROGRAMME |
|
55 |
// +------------------------------------------------------------------------------------------------------+
|
55 |
// +------------------------------------------------------------------------------------------------------+
|
56 |
|
56 |
|
57 |
|
57 |
|
58 |
// +------------------------------------------------------------------------------------------------------+
|
58 |
// +------------------------------------------------------------------------------------------------------+
|
59 |
// | LISTE de FONCTIONS |
|
59 |
// | LISTE de FONCTIONS |
|
60 |
// +------------------------------------------------------------------------------------------------------+
|
60 |
// +------------------------------------------------------------------------------------------------------+
|
61 |
/** Fonction ADME_afficherFormPrincipal() - Affichage par défaut.
|
61 |
/** Fonction ADME_afficherFormPrincipal() - Affichage par défaut.
|
62 |
*
|
62 |
*
|
63 |
* Fournit l'affichage par défaut de l'application Admin Menus.
|
63 |
* Fournit l'affichage par défaut de l'application Admin Menus.
|
64 |
*
|
64 |
*
|
65 |
* @param object objet Pear de connection à la base de données.
|
65 |
* @param object objet Pear de connection à la base de données.
|
66 |
* @param object objet Pear représentant l'url de base.
|
66 |
* @param object objet Pear représentant l'url de base.
|
67 |
* @return string le XHTML par défaut de la page.
|
67 |
* @return string le XHTML par défaut de la page.
|
68 |
*/
|
68 |
*/
|
69 |
function ADME_afficherFormPrincipal($objet_pear_db, $objet_pear_url, $adme_site_id, $adme_menu_id, $adme_action)
|
69 |
function ADME_afficherFormPrincipal($objet_pear_db, $objet_pear_url, $adme_site_id, $adme_menu_id, $adme_action)
|
70 |
{
|
70 |
{
|
71 |
|
71 |
/*
|
72 |
$id_langue = $GLOBALS['_GEN_commun']['i18n'];//identifiant de la langue choisie
|
72 |
$id_langue = $GLOBALS['_GEN_commun']['i18n'];//identifiant de la langue choisie
|
73 |
|
73 |
|
74 |
//---------------------------------------------------------------------------------------------------------------
|
74 |
//---------------------------------------------------------------------------------------------------------------
|
75 |
// Nous affichons la liste des menus classiques et communs
|
75 |
// Nous affichons la liste des menus classiques et communs
|
76 |
$retour = '';
|
76 |
$retour = '';
|
77 |
|
77 |
|
78 |
if (isset($id_langue) && ($id_langue!='')) {
|
78 |
if (isset($id_langue) && ($id_langue!='')) {
|
79 |
$langue_test=$id_langue;
|
79 |
$langue_test=$id_langue;
|
80 |
} else {
|
80 |
} else {
|
81 |
$langue_test=GEN_I18N_ID_DEFAUT;
|
81 |
$langue_test=GEN_I18N_ID_DEFAUT;
|
82 |
}
|
82 |
}
|
- |
|
83 |
*/
|
- |
|
84 |
|
- |
|
85 |
$db=$objet_pear_db;
|
- |
|
86 |
|
- |
|
87 |
$id_langue = $GLOBALS['_GEN_commun']['i18n']; //identifiant de la langue choisie
|
- |
|
88 |
|
- |
|
89 |
// Langue en cours : langue choisie ou langue par defaut (principale)
|
- |
|
90 |
|
- |
|
91 |
if (isset($id_langue) && ($id_langue!='')) {
|
- |
|
92 |
$langue_test=$id_langue;
|
- |
|
93 |
} else {
|
- |
|
94 |
$langue_test=GEN_I18N_ID_DEFAUT;
|
- |
|
95 |
}
|
- |
|
96 |
|
- |
|
97 |
//$langue_test=GEN_I18N_ID_DEFAUT;
|
- |
|
98 |
|
- |
|
99 |
// Liste des sites principaux :
|
- |
|
100 |
// Recherche de tous les sites langue en cours
|
- |
|
101 |
|
- |
|
102 |
$requete = 'SELECT * '.
|
- |
|
103 |
'FROM gen_site, gen_site_relation '.
|
- |
|
104 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
- |
|
105 |
'AND gsr_id_site_01 = gs_id_site '.
|
- |
|
106 |
'AND gsr_id_valeur IN (102, 103) '.
|
- |
|
107 |
'AND gs_ce_i18n = "'.$langue_test.'" '.
|
- |
|
108 |
'ORDER BY gsr_ordre';
|
- |
|
109 |
|
- |
|
110 |
|
- |
|
111 |
$resultat = $db->query($requete);
|
- |
|
112 |
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;
|
- |
|
113 |
|
- |
|
114 |
$liste_site=array();
|
- |
|
115 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
|
- |
|
116 |
|
- |
|
117 |
if ($langue_test == GEN_I18N_ID_DEFAUT) {
|
- |
|
118 |
|
- |
|
119 |
$requete_est_traduction = 'SELECT gsr_id_site_01 '.
|
- |
|
120 |
'FROM gen_site_relation '.
|
- |
|
121 |
'WHERE '.$ligne->gs_id_site.' = gsr_id_site_02 ' .
|
- |
|
122 |
'AND gsr_id_site_01 <> gsr_id_site_02 ' .
|
- |
|
123 |
'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
|
- |
|
124 |
|
- |
|
125 |
|
- |
|
126 |
$resultat_est_traduction = $db->query($requete_est_traduction);
|
- |
|
127 |
(DB::isError($resultat_est_traduction))
|
- |
|
128 |
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
|
- |
|
129 |
: '';
|
- |
|
130 |
|
- |
|
131 |
if ( $resultat_est_traduction->numRows() == 0 ) {
|
- |
|
132 |
$liste_site[]=$ligne;
|
- |
|
133 |
}
|
- |
|
134 |
}
|
- |
|
135 |
else {
|
- |
|
136 |
$liste_site[]=$ligne;
|
- |
|
137 |
}
|
- |
|
138 |
}
|
- |
|
139 |
$resultat->free();
|
- |
|
140 |
|
- |
|
141 |
// Si la langue en cours n'est pas la langue par défaut, recherche des sites ayant comme langue
|
- |
|
142 |
// la langue par defaut, non traduits dans la langue en cours et n'etant pas des traductions
|
- |
|
143 |
|
- |
|
144 |
|
- |
|
145 |
if ($langue_test != GEN_I18N_ID_DEFAUT) {
|
- |
|
146 |
|
- |
|
147 |
|
- |
|
148 |
$requete = 'SELECT * '.
|
- |
|
149 |
'FROM gen_site, gen_site_relation '.
|
- |
|
150 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
- |
|
151 |
'AND gs_id_site = gsr_id_site_01 '.
|
- |
|
152 |
'AND gsr_id_valeur IN (102, 103) '.
|
- |
|
153 |
'AND gs_ce_i18n = "'.GEN_I18N_ID_DEFAUT.'" '.
|
- |
|
154 |
'ORDER BY gs_code_num ASC';// 102 = site "principal" et 103 = site "externe"
|
- |
|
155 |
|
- |
|
156 |
$resultat = $db->query($requete);
|
- |
|
157 |
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
|
- |
|
158 |
|
- |
|
159 |
|
- |
|
160 |
|
- |
|
161 |
|
- |
|
162 |
// Recherche de tous les sites de la langue principale qui ne sont pas traduits dans la langue en cours
|
- |
|
163 |
|
- |
|
164 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
|
- |
|
165 |
|
- |
|
166 |
$requete_est_traduction = 'SELECT gsr_id_site_01 '.
|
- |
|
167 |
'FROM gen_site_relation '.
|
- |
|
168 |
'WHERE '.$ligne->gs_id_site.' = gsr_id_site_02 ' .
|
- |
|
169 |
'AND gsr_id_site_01 <> gsr_id_site_02 ' .
|
- |
|
170 |
'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
|
- |
|
171 |
|
- |
|
172 |
|
- |
|
173 |
$resultat_est_traduction = $db->query($requete_est_traduction);
|
- |
|
174 |
(DB::isError($resultat_est_traduction))
|
- |
|
175 |
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
|
- |
|
176 |
: '';
|
- |
|
177 |
|
- |
|
178 |
if ( $resultat_est_traduction->numRows() == 0 ) {
|
- |
|
179 |
|
- |
|
180 |
|
- |
|
181 |
if (isset($id_langue) && ($id_langue!='')) {
|
- |
|
182 |
$langue_test=$id_langue;
|
- |
|
183 |
} else {
|
- |
|
184 |
$langue_test=GEN_I18N_ID_DEFAUT;
|
- |
|
185 |
}
|
- |
|
186 |
|
- |
|
187 |
$requete_traduction = 'SELECT gsr_id_site_01 '.
|
- |
|
188 |
'FROM gen_site_relation, gen_site '.
|
- |
|
189 |
'WHERE '.$ligne->gs_id_site.' = gsr_id_site_01 ' .
|
- |
|
190 |
'AND gsr_id_site_02 = gs_id_site '.
|
- |
|
191 |
'AND gs_ce_i18n = "'.$langue_test.'" '.
|
- |
|
192 |
'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
|
- |
|
193 |
|
- |
|
194 |
$resultat_traduction = $db->query($requete_traduction);
|
- |
|
195 |
(DB::isError($resultat_traduction))
|
- |
|
196 |
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction))
|
- |
|
197 |
: '';
|
- |
|
198 |
|
- |
|
199 |
if ( $resultat_traduction->numRows() == 0 ) {
|
- |
|
200 |
$liste_site []=$ligne;
|
- |
|
201 |
}
|
- |
|
202 |
|
- |
|
203 |
$resultat_traduction->free();
|
- |
|
204 |
|
- |
|
205 |
}
|
- |
|
206 |
$resultat_est_traduction->free();
|
- |
|
207 |
|
- |
|
208 |
}
|
- |
|
209 |
$resultat->free();
|
- |
|
210 |
}
|
- |
|
211 |
|
- |
|
212 |
|
- |
|
213 |
|
- |
|
214 |
|
83 |
|
215 |
/*
|
84 |
$requete = 'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom, gs_ce_i18n '.
|
216 |
$requete = 'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom, gs_ce_i18n '.
|
85 |
'FROM gen_site, gen_site_relation '.
|
217 |
'FROM gen_site, gen_site_relation '.
|
86 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
218 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
87 |
'AND gs_id_site = gsr_id_site_01 '.
|
219 |
'AND gs_id_site = gsr_id_site_01 '.
|
88 |
'AND gsr_id_valeur = 102 '.// 102 = site "principal"
|
220 |
'AND gsr_id_valeur = 102 '.// 102 = site "principal"
|
89 |
'AND gs_ce_i18n = "'.$langue_test.'" '.
|
221 |
'AND gs_ce_i18n = "'.$langue_test.'" '.
|
90 |
'ORDER BY gsr_ordre DESC';
|
222 |
'ORDER BY gsr_ordre DESC';
|
91 |
|
223 |
|
92 |
$resultat = $objet_pear_db->query($requete);
|
224 |
$resultat = $objet_pear_db->query($requete);
|
93 |
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
|
225 |
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
|
94 |
|
226 |
|
95 |
$liste_site=array();
|
227 |
$liste_site=array();
|
96 |
|
228 |
|
97 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
|
229 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
|
98 |
// Si le site trouvé est une traduction vers la langue principale, on ne le selectionne pas
|
230 |
// Si le site trouvé est une traduction vers la langue principale, on ne le selectionne pas
|
99 |
if ($langue_test == GEN_I18N_ID_DEFAUT) {
|
231 |
if ($langue_test == GEN_I18N_ID_DEFAUT) {
|
100 |
$requete_est_traduction = 'SELECT gsr_id_site_01 '.
|
232 |
$requete_est_traduction = 'SELECT gsr_id_site_01 '.
|
101 |
'FROM gen_site_relation '.
|
233 |
'FROM gen_site_relation '.
|
102 |
'WHERE '.$ligne->gs_id_site.' = gsr_id_site_02 ' .
|
234 |
'WHERE '.$ligne->gs_id_site.' = gsr_id_site_02 ' .
|
103 |
'AND gsr_id_site_01 <> gsr_id_site_02 ' .
|
235 |
'AND gsr_id_site_01 <> gsr_id_site_02 ' .
|
104 |
'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
|
236 |
'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
|
105 |
|
237 |
|
106 |
$resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
|
238 |
$resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
|
107 |
(DB::isError($resultat_est_traduction))
|
239 |
(DB::isError($resultat_est_traduction))
|
108 |
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
|
240 |
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
|
109 |
: '';
|
241 |
: '';
|
110 |
|
242 |
|
111 |
if ( $resultat_est_traduction->numRows() == 0 ) {
|
243 |
if ( $resultat_est_traduction->numRows() == 0 ) {
|
112 |
$liste_site[]=$ligne;
|
244 |
$liste_site[]=$ligne;
|
113 |
}
|
245 |
}
|
114 |
}
|
246 |
}
|
115 |
else {
|
247 |
else {
|
116 |
$liste_site[]=$ligne;
|
248 |
$liste_site[]=$ligne;
|
117 |
}
|
249 |
}
|
118 |
}
|
250 |
}
|
119 |
|
251 |
|
120 |
$resultat->free();
|
252 |
$resultat->free();
|
121 |
|
253 |
|
122 |
|
254 |
|
123 |
|
255 |
|
124 |
// On recherche l'ensemble des site en excluant le site admin (administration de Papyrus).
|
256 |
// On recherche l'ensemble des site en excluant le site admin (administration de Papyrus).
|
125 |
|
257 |
|
126 |
if ($langue_test != GEN_I18N_ID_DEFAUT) {
|
258 |
if ($langue_test != GEN_I18N_ID_DEFAUT) {
|
127 |
|
259 |
|
128 |
|
260 |
|
129 |
// Site ayant commme langue, la langue par defaut
|
261 |
// Site ayant commme langue, la langue par defaut
|
130 |
$requete = 'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom, gs_ce_i18n '.
|
262 |
$requete = 'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom, gs_ce_i18n '.
|
131 |
'FROM gen_site, gen_site_relation '.
|
263 |
'FROM gen_site, gen_site_relation '.
|
132 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
264 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
133 |
'AND gs_id_site = gsr_id_site_01 '.
|
265 |
'AND gs_id_site = gsr_id_site_01 '.
|
134 |
'AND gsr_id_valeur = 102 '.// 102 = site "principal"
|
266 |
'AND gsr_id_valeur = 102 '.// 102 = site "principal"
|
135 |
'AND gs_ce_i18n = "'.GEN_I18N_ID_DEFAUT.'" '.
|
267 |
'AND gs_ce_i18n = "'.GEN_I18N_ID_DEFAUT.'" '.
|
136 |
'ORDER BY gsr_ordre DESC';
|
268 |
'ORDER BY gsr_ordre DESC';
|
137 |
|
269 |
|
138 |
$resultat = $objet_pear_db->query($requete);
|
270 |
$resultat = $objet_pear_db->query($requete);
|
139 |
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
|
271 |
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
|
140 |
|
272 |
|
141 |
// Est il traduit ? Non, alors affichage
|
273 |
// Est il traduit ? Non, alors affichage
|
142 |
|
274 |
|
143 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
|
275 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
|
144 |
|
276 |
|
145 |
if (isset($id_langue) && ($id_langue!='')) {
|
277 |
if (isset($id_langue) && ($id_langue!='')) {
|
146 |
$langue_test=$id_langue;
|
278 |
$langue_test=$id_langue;
|
147 |
} else {
|
279 |
} else {
|
148 |
$langue_test=GEN_I18N_ID_DEFAUT;
|
280 |
$langue_test=GEN_I18N_ID_DEFAUT;
|
149 |
}
|
281 |
}
|
150 |
|
282 |
|
151 |
$requete_est_traduction = 'SELECT gsr_id_site_01 '.
|
283 |
$requete_est_traduction = 'SELECT gsr_id_site_01 '.
|
152 |
'FROM gen_site_relation '.
|
284 |
'FROM gen_site_relation '.
|
153 |
'WHERE '.$ligne->gs_id_site.' = gsr_id_site_02 ' .
|
285 |
'WHERE '.$ligne->gs_id_site.' = gsr_id_site_02 ' .
|
154 |
'AND gsr_id_site_01 <> gsr_id_site_02 ' .
|
286 |
'AND gsr_id_site_01 <> gsr_id_site_02 ' .
|
155 |
'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
|
287 |
'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
|
156 |
|
288 |
|
157 |
|
289 |
|
158 |
$resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
|
290 |
$resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
|
159 |
(DB::isError($resultat_est_traduction))
|
291 |
(DB::isError($resultat_est_traduction))
|
160 |
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
|
292 |
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
|
161 |
: '';
|
293 |
: '';
|
162 |
|
294 |
|
163 |
if ( $resultat_est_traduction->numRows() == 0 ) {
|
295 |
if ( $resultat_est_traduction->numRows() == 0 ) {
|
164 |
|
296 |
|
165 |
|
297 |
|
166 |
|
298 |
|
167 |
$requete_traduction = 'SELECT gsr_id_site_01 '.
|
299 |
$requete_traduction = 'SELECT gsr_id_site_01 '.
|
168 |
'FROM gen_site_relation, gen_site '.
|
300 |
'FROM gen_site_relation, gen_site '.
|
169 |
'WHERE '.$ligne->gs_id_site.' = gsr_id_site_01 ' .
|
301 |
'WHERE '.$ligne->gs_id_site.' = gsr_id_site_01 ' .
|
170 |
'AND gsr_id_site_02 = gs_id_site '.
|
302 |
'AND gsr_id_site_02 = gs_id_site '.
|
171 |
'AND gs_ce_i18n = "'.$langue_test.'" '.
|
303 |
'AND gs_ce_i18n = "'.$langue_test.'" '.
|
172 |
'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
|
304 |
'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
|
173 |
|
305 |
|
174 |
$resultat_traduction = $objet_pear_db->query($requete_traduction);
|
306 |
$resultat_traduction = $objet_pear_db->query($requete_traduction);
|
175 |
(DB::isError($resultat_traduction))
|
307 |
(DB::isError($resultat_traduction))
|
176 |
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction))
|
308 |
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction))
|
177 |
: '';
|
309 |
: '';
|
178 |
|
310 |
|
179 |
if ( $resultat_traduction->numRows() == 0 ) {
|
311 |
if ( $resultat_traduction->numRows() == 0 ) {
|
180 |
$liste_site []=$ligne;
|
312 |
$liste_site []=$ligne;
|
181 |
}
|
313 |
}
|
182 |
|
314 |
|
183 |
$resultat_traduction->free();
|
315 |
$resultat_traduction->free();
|
184 |
}
|
316 |
}
|
185 |
|
317 |
|
186 |
}
|
318 |
}
|
187 |
$resultat->free();
|
319 |
$resultat->free();
|
188 |
}
|
320 |
}
|
- |
|
321 |
|
- |
|
322 |
*/
|
- |
|
323 |
|
- |
|
324 |
|
- |
|
325 |
// Traduction d'un site principal uniquement :
|
- |
|
326 |
|
- |
|
327 |
$requete = 'SELECT * '.
|
- |
|
328 |
'FROM gen_site_relation '.
|
- |
|
329 |
'WHERE gsr_id_site_02 = '.$adme_site_id.' '.
|
- |
|
330 |
'AND gsr_id_valeur =1 '; // 1 = "avoir traduction"
|
- |
|
331 |
|
- |
|
332 |
$resultat = $db->query($requete);
|
- |
|
333 |
|
- |
|
334 |
if (DB::isError($resultat)) {
|
- |
|
335 |
die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
|
- |
|
336 |
}
|
- |
|
337 |
|
- |
|
338 |
if ( $resultat->numRows() == 0 ) {
|
- |
|
339 |
$adme_site_id =$adme_site_id;
|
- |
|
340 |
}
|
- |
|
341 |
else {
|
- |
|
342 |
$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
|
- |
|
343 |
$adme_site_id = $ligne->gsr_id_site_01;
|
- |
|
344 |
}
|
- |
|
345 |
$resultat->free();
|
189 |
|
346 |
|
190 |
|
347 |
|
191 |
|
348 |
|
192 |
//---------------------------------------------------------------------------------------------------------------
|
349 |
//---------------------------------------------------------------------------------------------------------------
|
193 |
// Création du formulaire
|
350 |
// Création du formulaire
|
194 |
// Notes : Quickform semble remplacer les & des & à nouveau par des & solution utiliser str_replace()...
|
351 |
// Notes : Quickform semble remplacer les & des & à nouveau par des & solution utiliser str_replace()...
|
195 |
$form =& new HTML_QuickForm('adme_form_sites', 'post', str_replace('&', '&', $objet_pear_url->getUrl()));
|
352 |
$form =& new HTML_QuickForm('adme_form_sites', 'post', str_replace('&', '&', $objet_pear_url->getUrl()));
|
196 |
$tab_index = 1000;
|
353 |
$tab_index = 1000;
|
197 |
$squelette =& $form->defaultRenderer();
|
354 |
$squelette =& $form->defaultRenderer();
|
198 |
$squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'{content}'."\n"."\n".'</form>'."\n");
|
355 |
$squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'{content}'."\n"."\n".'</form>'."\n");
|
199 |
$squelette->setElementTemplate( '{label}'."\n".'{element}'."\n".
|
356 |
$squelette->setElementTemplate( '{label}'."\n".'{element}'."\n".
|
200 |
'<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
|
357 |
'<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
|
201 |
'<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n");
|
358 |
'<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n");
|
202 |
$partie_site_debut = '<fieldset>'."\n".
|
359 |
$partie_site_debut = '<fieldset>'."\n".
|
203 |
'<legend>'.ADME_LG_FORM_SITE_TITRE.'</legend>'."\n";
|
360 |
'<legend>'.ADME_LG_FORM_SITE_TITRE.'</legend>'."\n";
|
204 |
$form->addElement('html', $partie_site_debut);
|
361 |
$form->addElement('html', $partie_site_debut);
|
205 |
$id = 'adme_site_id';
|
362 |
$id = 'adme_site_id';
|
206 |
$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'onchange' => 'javascript:this.form.submit();');
|
363 |
$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'onchange' => 'javascript:this.form.submit();');
|
207 |
$label = '<label for="'.$id.'">'.ADME_LG_FORM_SITE_CHOIX.'</label>';
|
364 |
$label = '<label for="'.$id.'">'.ADME_LG_FORM_SITE_CHOIX.'</label>';
|
208 |
$objet_select = new HTML_QuickForm_select($id, $label, '', $aso_attributs);
|
365 |
$objet_select = new HTML_QuickForm_select($id, $label, '', $aso_attributs);
|
209 |
$aso_options = array();
|
366 |
$aso_options = array();
|
210 |
foreach ($liste_site as $ligne ) {
|
367 |
foreach ($liste_site as $ligne ) {
|
211 |
if (!isset($adme_site_id) || $adme_site_id == 0) {
|
368 |
if (!isset($adme_site_id) || $adme_site_id == 0) {
|
212 |
$adme_site_id = $ligne->gs_id_site;
|
369 |
$adme_site_id = $ligne->gs_id_site;
|
213 |
}
|
370 |
}
|
214 |
if ($ligne->gs_id_site == $adme_site_id) {
|
371 |
if ($ligne->gs_id_site == $adme_site_id) {
|
215 |
$objet_select->addOption(htmlentities($ligne->gs_nom.' ('.$ligne->gs_code_alpha.')'), $ligne->gs_id_site, 'selected="selected"');
|
372 |
$objet_select->addOption(htmlentities($ligne->gs_nom.' ('.$ligne->gs_code_alpha.')'), $ligne->gs_id_site, 'selected="selected"');
|
216 |
// Attribution du nom du site sur lequel on travaille pour le titre
|
373 |
// Attribution du nom du site sur lequel on travaille pour le titre
|
217 |
$site_nom = $ligne->gs_nom;
|
374 |
$site_nom = $ligne->gs_nom;
|
218 |
} else {
|
375 |
} else {
|
219 |
$objet_select->addOption(htmlentities($ligne->gs_nom.' ('.$ligne->gs_code_alpha.')'), $ligne->gs_id_site);
|
376 |
$objet_select->addOption(htmlentities($ligne->gs_nom.' ('.$ligne->gs_code_alpha.')'), $ligne->gs_id_site);
|
220 |
}
|
377 |
}
|
221 |
}
|
378 |
}
|
222 |
$form->addElement($objet_select);
|
379 |
$form->addElement($objet_select);
|
223 |
$form->addElement('submit', 'choisir_site', ADME_LG_FORM_SITE_VALIDER);
|
380 |
$form->addElement('submit', 'choisir_site', ADME_LG_FORM_SITE_VALIDER);
|
224 |
$partie_site_fin = "\n".'</fieldset>';
|
381 |
$partie_site_fin = "\n".'</fieldset>';
|
225 |
$form->addElement('html', $partie_site_fin);
|
382 |
$form->addElement('html', $partie_site_fin);
|
226 |
|
383 |
|
227 |
// Instanciation des valeurs par défaut du formulaire
|
384 |
// Instanciation des valeurs par défaut du formulaire
|
228 |
$form->setDefaults($adme_site_id);
|
385 |
$form->setDefaults($adme_site_id);
|
229 |
|
- |
|
- |
|
386 |
$retour ='';
|
230 |
$retour .= '<h1>'.ADME_LG_MENU_TITRE.$site_nom.'</h1>'."\n";
|
387 |
$retour .= '<h1>'.ADME_LG_MENU_TITRE.$site_nom.'</h1>'."\n";
|
231 |
$retour .= $form->toHTML()."\n";
|
388 |
$retour .= $form->toHTML()."\n";
|
232 |
|
389 |
|
233 |
//---------------------------------------------------------------------------------------------------------------
|
390 |
//---------------------------------------------------------------------------------------------------------------
|
234 |
// Gestion des menus classiques
|
391 |
// Gestion des menus classiques
|
235 |
$retour .= '<p>'."\n";
|
392 |
$retour .= '<p>'."\n";
|
236 |
$objet_pear_url_copie = $objet_pear_url;
|
393 |
$objet_pear_url_copie = $objet_pear_url;
|
237 |
$objet_pear_url_copie->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_AJOUTER);
|
394 |
$objet_pear_url_copie->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_AJOUTER);
|
238 |
$objet_pear_url_copie->addQueryString('adme_site_id', $adme_site_id);
|
395 |
$objet_pear_url_copie->addQueryString('adme_site_id', $adme_site_id);
|
239 |
$objet_pear_url_copie->addQueryString('adme_menu_id', 0);
|
396 |
$objet_pear_url_copie->addQueryString('adme_menu_id', 0);
|
240 |
$url_ajout_menu_classique_n1 = $objet_pear_url_copie->getURL();
|
397 |
$url_ajout_menu_classique_n1 = $objet_pear_url_copie->getURL();
|
241 |
unset($url_ajout_menu_n1);
|
398 |
unset($url_ajout_menu_n1);
|
242 |
$retour .= '<a href="'.$url_ajout_menu_classique_n1.'" >'.
|
399 |
$retour .= '<a href="'.$url_ajout_menu_classique_n1.'" >'.
|
243 |
ADME_LG_MENU_CLASSIQUE_RACINE.' '.
|
400 |
ADME_LG_MENU_CLASSIQUE_RACINE.' '.
|
244 |
'<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_NOUVEAU.'" alt="+" />'.
|
401 |
'<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_NOUVEAU.'" alt="+" />'.
|
245 |
'</a>'."\n";
|
402 |
'</a>'."\n";
|
246 |
$retour .= '</p>'."\n";
|
403 |
$retour .= '</p>'."\n";
|
247 |
|
404 |
|
248 |
$retour .= ADME_afficherListeMenuClassique($objet_pear_db, $objet_pear_url, $adme_site_id, $adme_menu_id, $adme_action, 0);
|
405 |
$retour .= ADME_afficherListeMenuClassique($objet_pear_db, $objet_pear_url, $adme_site_id, $adme_menu_id, $adme_action, 0);
|
249 |
//---------------------------------------------------------------------------------------------------------------
|
406 |
//---------------------------------------------------------------------------------------------------------------
|
250 |
// Gestion des menus communs
|
407 |
// Gestion des menus communs
|
251 |
$retour .= '<p>'."\n";
|
408 |
$retour .= '<p>'."\n";
|
252 |
$objet_pear_url_copie = $objet_pear_url;
|
409 |
$objet_pear_url_copie = $objet_pear_url;
|
253 |
$objet_pear_url_copie->addQueryString('adme_action', ADME_LG_ACTION_COMMUN_AJOUTER);
|
410 |
$objet_pear_url_copie->addQueryString('adme_action', ADME_LG_ACTION_COMMUN_AJOUTER);
|
254 |
$objet_pear_url_copie->addQueryString('adme_site_id', $adme_site_id);
|
411 |
$objet_pear_url_copie->addQueryString('adme_site_id', $adme_site_id);
|
255 |
$objet_pear_url_copie->addQueryString('adme_menu_id', 0);
|
412 |
$objet_pear_url_copie->addQueryString('adme_menu_id', 0);
|
256 |
$url_ajout_menu_commun_n1 = $objet_pear_url_copie->getURL();
|
413 |
$url_ajout_menu_commun_n1 = $objet_pear_url_copie->getURL();
|
257 |
unset($url_ajout_menu_n1);
|
414 |
unset($url_ajout_menu_n1);
|
258 |
$retour .= '<a href="'.$url_ajout_menu_commun_n1.'">'.
|
415 |
$retour .= '<a href="'.$url_ajout_menu_commun_n1.'">'.
|
259 |
ADME_LG_MENU_COMMUN_RACINE.' '.
|
416 |
ADME_LG_MENU_COMMUN_RACINE.' '.
|
260 |
'<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_NOUVEAU.'" alt="+" />'.
|
417 |
'<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_NOUVEAU.'" alt="+" />'.
|
261 |
'</a>'."\n";
|
418 |
'</a>'."\n";
|
262 |
$retour .= '</p>'."\n";
|
419 |
$retour .= '</p>'."\n";
|
263 |
$retour .= ADME_afficherListeMenuCommun($objet_pear_db, $objet_pear_url, $adme_site_id, $adme_menu_id, $adme_action, 0);
|
420 |
$retour .= ADME_afficherListeMenuCommun($objet_pear_db, $objet_pear_url, $adme_site_id, $adme_menu_id, $adme_action, 0);
|
264 |
return $retour;
|
421 |
return $retour;
|
265 |
}
|
422 |
}
|
266 |
|
423 |
|
267 |
// +------------------------------------------------------------------------------------------------------+
|
424 |
// +------------------------------------------------------------------------------------------------------+
|
268 |
// | PIED du PROGRAMME |
|
425 |
// | PIED du PROGRAMME |
|
269 |
// +------------------------------------------------------------------------------------------------------+
|
426 |
// +------------------------------------------------------------------------------------------------------+
|
270 |
|
427 |
|
271 |
|
428 |
|
272 |
/* +--Fin du code ----------------------------------------------------------------------------------------+
|
429 |
/* +--Fin du code ----------------------------------------------------------------------------------------+
|
273 |
*
|
430 |
*
|
274 |
* $Log: not supported by cvs2svn $
|
431 |
* $Log: not supported by cvs2svn $
|
- |
|
432 |
* Revision 1.14 2006/03/23 20:24:59 ddelon
|
- |
|
433 |
* *** empty log message ***
|
- |
|
434 |
*
|
275 |
* Revision 1.13 2006/03/13 21:00:20 ddelon
|
435 |
* Revision 1.13 2006/03/13 21:00:20 ddelon
|
276 |
* Suppression messages d'erreur multilinguisme
|
436 |
* Suppression messages d'erreur multilinguisme
|
277 |
*
|
437 |
*
|
278 |
* Revision 1.12 2006/03/02 10:49:49 ddelon
|
438 |
* Revision 1.12 2006/03/02 10:49:49 ddelon
|
279 |
* Fusion branche multilinguisme dans branche principale
|
439 |
* Fusion branche multilinguisme dans branche principale
|
280 |
*
|
440 |
*
|
281 |
* Revision 1.11.2.1 2006/02/28 14:02:11 ddelon
|
441 |
* Revision 1.11.2.1 2006/02/28 14:02:11 ddelon
|
282 |
* Finition multilinguisme
|
442 |
* Finition multilinguisme
|
283 |
*
|
443 |
*
|
284 |
* Revision 1.11 2005/07/18 16:14:32 ddelon
|
444 |
* Revision 1.11 2005/07/18 16:14:32 ddelon
|
285 |
* css admin + menu communs
|
445 |
* css admin + menu communs
|
286 |
*
|
446 |
*
|
287 |
* Revision 1.10 2005/07/08 21:57:24 ddelon
|
447 |
* Revision 1.10 2005/07/08 21:57:24 ddelon
|
288 |
* Copyright
|
448 |
* Copyright
|
289 |
*
|
449 |
*
|
290 |
* Revision 1.9 2005/05/12 16:51:37 alex
|
450 |
* Revision 1.9 2005/05/12 16:51:37 alex
|
291 |
* Changement de l'odre d'apparition des sites dans l'administration des menus.
|
451 |
* Changement de l'odre d'apparition des sites dans l'administration des menus.
|
292 |
*
|
452 |
*
|
293 |
* Revision 1.8 2005/01/26 16:18:05 jpm
|
453 |
* Revision 1.8 2005/01/26 16:18:05 jpm
|
294 |
* Correction bogue 221 : mauvais réglage du titre.
|
454 |
* Correction bogue 221 : mauvais réglage du titre.
|
295 |
*
|
455 |
*
|
296 |
* Revision 1.7 2004/11/24 11:31:51 jpm
|
456 |
* Revision 1.7 2004/11/24 11:31:51 jpm
|
297 |
* Ajout d'une contante de langue à la place d'un texte.
|
457 |
* Ajout d'une contante de langue à la place d'un texte.
|
298 |
*
|
458 |
*
|
299 |
* Revision 1.6 2004/11/10 17:26:07 jpm
|
459 |
* Revision 1.6 2004/11/10 17:26:07 jpm
|
300 |
* Fin gestion de la traduction.
|
460 |
* Fin gestion de la traduction.
|
301 |
*
|
461 |
*
|
302 |
* Revision 1.5 2004/11/10 11:58:54 jpm
|
462 |
* Revision 1.5 2004/11/10 11:58:54 jpm
|
303 |
* Mise en place des constantes de traduction de l'appli.
|
463 |
* Mise en place des constantes de traduction de l'appli.
|
304 |
*
|
464 |
*
|
305 |
* Revision 1.4 2004/11/09 17:48:35 jpm
|
465 |
* Revision 1.4 2004/11/09 17:48:35 jpm
|
306 |
* Gestion de différentes interfaces d'administration.
|
466 |
* Gestion de différentes interfaces d'administration.
|
307 |
*
|
467 |
*
|
308 |
* Revision 1.3 2004/11/09 12:37:34 jpm
|
468 |
* Revision 1.3 2004/11/09 12:37:34 jpm
|
309 |
* Fin de gestion des menus et mise en conformité avec la convention de codage.
|
469 |
* Fin de gestion des menus et mise en conformité avec la convention de codage.
|
310 |
*
|
470 |
*
|
311 |
* Revision 1.2 2004/11/08 17:41:07 jpm
|
471 |
* Revision 1.2 2004/11/08 17:41:07 jpm
|
312 |
* Légères corrections : multisite, corrections SQL.
|
472 |
* Légères corrections : multisite, corrections SQL.
|
313 |
*
|
473 |
*
|
314 |
* Revision 1.1 2004/11/04 12:26:42 jpm
|
474 |
* Revision 1.1 2004/11/04 12:26:42 jpm
|
315 |
* Contient les fonctions d'affichage général de l'appli ADME.
|
475 |
* Contient les fonctions d'affichage général de l'appli ADME.
|
316 |
*
|
476 |
*
|
317 |
*
|
477 |
*
|
318 |
* +-- Fin du code ----------------------------------------------------------------------------------------+
|
478 |
* +-- Fin du code ----------------------------------------------------------------------------------------+
|
319 |
*/
|
479 |
*/
|
320 |
?>
|
480 |
?>
|