Subversion Repositories Applications.papyrus

Rev

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

Rev 1094 Rev 1330
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.18.2.1 2006-12-01 17:03:09 florian Exp $
 35 
// CVS : $Id: adme_general.fonct.php,v 1.18.2.2 2007-04-19 13:10:55 florian 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.18.2.1 $ $Date: 2006-12-01 17:03:09 $
 49 
*@version       $Revision: 1.18.2.2 $ $Date: 2007-04-19 13:10:55 $
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 
    $db=$objet_pear_db;
 72 
    $db=$objet_pear_db;
73
73
74 
    $id_langue = $GLOBALS['_GEN_commun']['i18n']; //identifiant de la langue choisie
 74 
    $id_langue = $GLOBALS['_GEN_commun']['i18n']; //identifiant de la langue choisie
75
75
76 
	// Langue en cours : langue choisie ou langue par defaut (principale)
 76 
	// Langue en cours : langue choisie ou langue par defaut (principale)
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 
 
 83 
 
84 
//$langue_test=GEN_I18N_ID_DEFAUT;
 84 
//$langue_test=GEN_I18N_ID_DEFAUT;
85
85
86 
	//requete pour recuperer l'id du site par defaut
86 
	//requete pour recuperer l'id du site par defaut
87 
     $requete =  'SELECT gs_id_site '.
 87 
     $requete =  'SELECT gs_id_site '.
88 
                'FROM gen_site, gen_site_relation '.
 88 
                'FROM gen_site, gen_site_relation '.
89 
                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
 89 
                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
90 
                'AND gsr_id_site_01 = gs_id_site '.
 90 
                'AND gsr_id_site_01 = gs_id_site '.
91 
                'AND gsr_id_valeur=101 '.
 91 
                'AND gsr_id_valeur=101 '.
92 
                'AND gs_ce_i18n = "'.$langue_test.'" ';
92 
                'AND gs_ce_i18n = "'.$langue_test.'" ';
93 
    $resultat = $db->query($requete);
 93 
    $resultat = $db->query($requete);
94 
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;
 94 
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;
95 
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
 95 
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
96 
    	$id_site_par_defaut=$ligne->gs_id_site;
 96 
    	$id_site_par_defaut=$ligne->gs_id_site;
97 
    }
 97 
    }
98
98
99 
    // Liste des sites principaux :
 99 
    // Liste des sites principaux :
100 
    // Recherche de tous les sites langue en cours
 100 
    // Recherche de tous les sites langue en cours
101
101
102 
    $requete =  'SELECT * '.
 102 
    $requete =  'SELECT * '.
103 
                'FROM gen_site, gen_site_relation '.
 103 
                'FROM gen_site, gen_site_relation '.
104 
                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
 104 
                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
105 
                'AND gsr_id_site_01 = gs_id_site '.
 105 
                'AND gsr_id_site_01 = gs_id_site '.
106 
                'AND gsr_id_valeur IN (102, 103) '.
 106 
                'AND gsr_id_valeur IN (102, 103) '.
107 
                'AND gs_ce_i18n = "'.$langue_test.'" '.
 107 
                'AND gs_ce_i18n = "'.$langue_test.'" '.
108 
                'ORDER BY gsr_ordre';
 108 
                'ORDER BY gsr_ordre';
109
109
110
110
111 
    $resultat = $db->query($requete);
 111 
    $resultat = $db->query($requete);
112 
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;
 112 
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;
113
113
114
114
115
115
116 
    $liste_site=array();
 116 
    $liste_site=array();
117 
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
 117 
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
118
118
119 
    		if ($langue_test == GEN_I18N_ID_DEFAUT) {
 119 
    		if ($langue_test == GEN_I18N_ID_DEFAUT) {
120
120
121 
    		  $requete_est_traduction =   'SELECT gsr_id_site_01 '.
 121 
    		  $requete_est_traduction =   'SELECT gsr_id_site_01 '.
122 
	                       'FROM  gen_site_relation '.
 122 
	                       'FROM  gen_site_relation '.
123 
	                       'WHERE '.$ligne->gs_id_site.' = gsr_id_site_02 ' .
 123 
	                       'WHERE '.$ligne->gs_id_site.' = gsr_id_site_02 ' .
124 
	                  	   'AND  gsr_id_site_01 <> gsr_id_site_02 ' .
 124 
	                  	   'AND  gsr_id_site_01 <> gsr_id_site_02 ' .
125 
	                       'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
 125 
	                       'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
126
126
127
127
128 
	            $resultat_est_traduction = $db->query($requete_est_traduction);
 128 
	            $resultat_est_traduction = $db->query($requete_est_traduction);
129 
	            (DB::isError($resultat_est_traduction))
 129 
	            (DB::isError($resultat_est_traduction))
130 
	                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
 130 
	                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
131 
	                : '';
 131 
	                : '';
132
132
133 
	   			if ( $resultat_est_traduction->numRows() == 0 ) {
 133 
	   			if ( $resultat_est_traduction->numRows() == 0 ) {
134 
    	 			$liste_site[]=$ligne;
 134 
    	 			$liste_site[]=$ligne;
135 
	            }
 135 
	            }
136 
    		}
 136 
    		}
137 
    		else {
 137 
    		else {
138 
    			   $liste_site[]=$ligne;
 138 
    			   $liste_site[]=$ligne;
139 
    		}
 139 
    		}
140 
    }
 140 
    }
141 
    $resultat->free();
 141 
    $resultat->free();
142
142
143 
    // Si la langue en cours n'est pas la langue par défaut, recherche des sites ayant comme langue
 143 
    // Si la langue en cours n'est pas la langue par défaut, recherche des sites ayant comme langue
144 
    // la langue par defaut, non traduits dans la langue en cours et n'etant pas des traductions
 144 
    // la langue par defaut, non traduits dans la langue en cours et n'etant pas des traductions
145
145
146
146
147 
	if ($langue_test != GEN_I18N_ID_DEFAUT) {
 147 
	if ($langue_test != GEN_I18N_ID_DEFAUT) {
148 
 
 148 
 
149
149
150 
	    $requete =  'SELECT * '.
 150 
	    $requete =  'SELECT * '.
151 
	                'FROM gen_site, gen_site_relation '.
 151 
	                'FROM gen_site, gen_site_relation '.
152 
	                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
 152 
	                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
153 
	                'AND gs_id_site = gsr_id_site_01 '.
 153 
	                'AND gs_id_site = gsr_id_site_01 '.
154 
	                'AND gsr_id_valeur IN (102, 103) '.
 154 
	                'AND gsr_id_valeur IN (102, 103) '.
155 
	                'AND gs_ce_i18n = "'.GEN_I18N_ID_DEFAUT.'" '.
 155 
	                'AND gs_ce_i18n = "'.GEN_I18N_ID_DEFAUT.'" '.
156 
	                'ORDER BY gs_code_num ASC';// 102 = site "principal" et 103 = site "externe"
 156 
	                'ORDER BY gs_code_num ASC';// 102 = site "principal" et 103 = site "externe"
157
157
158 
	    $resultat = $db->query($requete);
 158 
	    $resultat = $db->query($requete);
159 
	    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
 159 
	    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
160
160
161
161
162
162
163
163
164 
	    // Recherche de tous les sites de la langue principale  qui ne sont pas traduits dans la langue en cours
 164 
	    // Recherche de tous les sites de la langue principale  qui ne sont pas traduits dans la langue en cours
165
165
166 
	    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
 166 
	    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
167
167
168 
	    		$requete_est_traduction =   'SELECT gsr_id_site_01 '.
 168 
	    		$requete_est_traduction =   'SELECT gsr_id_site_01 '.
169 
	                                'FROM  gen_site_relation '.
 169 
	                                'FROM  gen_site_relation '.
170 
	                                'WHERE '.$ligne->gs_id_site.' = gsr_id_site_02 ' .
 170 
	                                'WHERE '.$ligne->gs_id_site.' = gsr_id_site_02 ' .
171 
	                                'AND  gsr_id_site_01 <> gsr_id_site_02 ' .
 171 
	                                'AND  gsr_id_site_01 <> gsr_id_site_02 ' .
172 
	                                'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
 172 
	                                'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
173
173
174
174
175 
	            $resultat_est_traduction = $db->query($requete_est_traduction);
 175 
	            $resultat_est_traduction = $db->query($requete_est_traduction);
176 
	            (DB::isError($resultat_est_traduction))
 176 
	            (DB::isError($resultat_est_traduction))
177 
	                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
 177 
	                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
178 
	                : '';
 178 
	                : '';
179
179
180 
	            if ( $resultat_est_traduction->numRows() == 0 ) {
 180 
	            if ( $resultat_est_traduction->numRows() == 0 ) {
181
181
182
182
183 
					if (isset($id_langue) && ($id_langue!='')) {
 183 
					if (isset($id_langue) && ($id_langue!='')) {
184 
						$langue_test=$id_langue;
 184 
						$langue_test=$id_langue;
185 
					} else {
 185 
					} else {
186 
						$langue_test=GEN_I18N_ID_DEFAUT;
 186 
						$langue_test=GEN_I18N_ID_DEFAUT;
187 
					}
 187 
					}
188
188
189 
		    		$requete_traduction =   'SELECT gsr_id_site_01 '.
 189 
		    		$requete_traduction =   'SELECT gsr_id_site_01 '.
190 
		                                    'FROM  gen_site_relation, gen_site '.
 190 
		                                    'FROM  gen_site_relation, gen_site '.
191 
		                                    'WHERE '.$ligne->gs_id_site.' = gsr_id_site_01 ' .
 191 
		                                    'WHERE '.$ligne->gs_id_site.' = gsr_id_site_01 ' .
192 
		                                    'AND gsr_id_site_02 = gs_id_site '.
 192 
		                                    'AND gsr_id_site_02 = gs_id_site '.
193 
		                                    'AND gs_ce_i18n = "'.$langue_test.'" '.
 193 
		                                    'AND gs_ce_i18n = "'.$langue_test.'" '.
194 
		                                    'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
 194 
		                                    'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
195
195
196 
		            $resultat_traduction = $db->query($requete_traduction);
 196 
		            $resultat_traduction = $db->query($requete_traduction);
197 
		            (DB::isError($resultat_traduction))
 197 
		            (DB::isError($resultat_traduction))
198 
		                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction))
 198 
		                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction))
199 
		                : '';
 199 
		                : '';
200
200
201 
		            if ( $resultat_traduction->numRows() == 0 ) {
 201 
		            if ( $resultat_traduction->numRows() == 0 ) {
202 
		            	$liste_site []=$ligne;
 202 
		            	$liste_site []=$ligne;
203 
		            }
 203 
		            }
204
204
205 
		            $resultat_traduction->free();
 205 
		            $resultat_traduction->free();
206
206
207 
	            }
 207 
	            }
208 
	               $resultat_est_traduction->free();
 208 
	               $resultat_est_traduction->free();
209
209
210 
	    }
 210 
	    }
211 
	    $resultat->free();
 211 
	    $resultat->free();
212 
	}
 212 
	}
213
213
214 
              // Traduction d'un site principal uniquement :
 214 
              // Traduction d'un site principal uniquement :
215
215
216 
	        $requete =  'SELECT * '.
 216 
	        $requete =  'SELECT * '.
217 
	                    'FROM gen_site_relation '.
 217 
	                    'FROM gen_site_relation '.
218 
	                    'WHERE gsr_id_site_02 = '.$adme_site_id.' '.
 218 
	                    'WHERE gsr_id_site_02 = '.$adme_site_id.' '.
219 
	                    'AND gsr_id_valeur =1  '; // 1 = "avoir traduction"
 219 
	                    'AND gsr_id_valeur =1  '; // 1 = "avoir traduction"
220
220
221 
	        $resultat = $db->query($requete);
 221 
	        $resultat = $db->query($requete);
222
222
223 
	        if (DB::isError($resultat)) {
 223 
	        if (DB::isError($resultat)) {
224 
	            die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
 224 
	            die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
225 
	        }
 225 
	        }
226
226
227 
	        if ( $resultat->numRows() == 0 ) {
 227 
	        if ( $resultat->numRows() == 0 ) {
228 
	        	$adme_site_id =$adme_site_id;
 228 
	        	$adme_site_id =$adme_site_id;
229 
	        }
 229 
	        }
230 
	        else {
 230 
	        else {
231 
	        	$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
 231 
	        	$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
232 
		        $adme_site_id = $ligne->gsr_id_site_01;
 232 
		        $adme_site_id = $ligne->gsr_id_site_01;
233 
	        }
 233 
	        }
234 
	        $resultat->free();
 234 
	        $resultat->free();
235
235
236
236
237
237
238 
    //---------------------------------------------------------------------------------------------------------------
 238 
    //---------------------------------------------------------------------------------------------------------------
239 
    // Création du formulaire
 239 
    // Création du formulaire
240 
    // Notes : Quickform semble remplacer les & des &amp; à nouveau par des &amp; solution utiliser str_replace()...
 240 
    // Notes : Quickform semble remplacer les & des &amp; à nouveau par des &amp; solution utiliser str_replace()...
241 
    $form =& new HTML_Quickform('adme__sites', 'post', str_replace('&amp;', '&', $objet_pear_url->getUrl()));
 241 
    $form =& new HTML_Quickform('adme__sites', 'post', str_replace('&amp;', '&', $objet_pear_url->getUrl()));
242 
    $tab_index = 1000;
 242 
    $tab_index = 1000;
243 
    $squelette =& $form->defaultRenderer();
 243 
    $squelette =& $form->defaultRenderer();
244 
    $squelette->setformTemplate("\n".'<form {attributes}>'."\n".'{content}'."\n"."\n".'</form>'."\n");
 244 
    $squelette->setformTemplate("\n".'<form {attributes}>'."\n".'{content}'."\n"."\n".'</form>'."\n");
245 
    $squelette->setElementTemplate( '{label}'."\n".'{element}'."\n".
 245 
    $squelette->setElementTemplate( '{label}'."\n".'{element}'."\n".
246 
                                    '<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
 246 
                                    '<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
247 
                                    '<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n");
 247 
                                    '<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n");
248 
    $partie_site_debut =    '<fieldset>'."\n".
 248 
    $partie_site_debut =    '<fieldset>'."\n".
249 
                            '<legend>'.ADME_LG_FORM_SITE_TITRE.'</legend>'."\n";
 249 
                            '<legend>'.ADME_LG_FORM_SITE_TITRE.'</legend>'."\n";
250 
    $form->addElement('html', $partie_site_debut);
 250 
    $form->addElement('html', $partie_site_debut);
251 
    $id = 'adme_site_id';
 251 
    $id = 'adme_site_id';
252 
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'onchange' => 'javascript:this.form.submit();');
 252 
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'onchange' => 'javascript:this.form.submit();');
253 
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_SITE_CHOIX.'</label>';
 253 
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_SITE_CHOIX.'</label>';
254 
    $objet_select = new HTML_Quickform_select($id, $label, '', $aso_attributs);
 254 
    $objet_select = new HTML_Quickform_select($id, $label, '', $aso_attributs);
255 
    $aso_options = array();
 255 
    $aso_options = array();
256 
    foreach ($liste_site as $ligne ) {
 256 
    foreach ($liste_site as $ligne ) {
257 
        if (!isset($adme_site_id) || $adme_site_id == 0) {
 257 
        if (!isset($adme_site_id) || $adme_site_id == 0) {
258 
            $adme_site_id = $ligne->gs_id_site;
 258 
            $adme_site_id = $ligne->gs_id_site;
259 
        }
 259 
        }
260 
        if ($ligne->gs_id_site == $adme_site_id) {
 260 
        if ($ligne->gs_id_site == $adme_site_id) {
261 
            $objet_select->addOption(htmlentities($ligne->gs_nom.' ('.$ligne->gs_code_alpha.')'), $ligne->gs_id_site, 'selected="selected"');
 261 
            $objet_select->addOption(htmlentities($ligne->gs_nom.' ('.$ligne->gs_code_alpha.')'), $ligne->gs_id_site, 'selected="selected"');
262 
            // Attribution du nom du site sur lequel on travaille pour le titre
 262 
            // Attribution du nom du site sur lequel on travaille pour le titre
263 
            $site_nom = $ligne->gs_nom;
 263 
            $site_nom = $ligne->gs_nom;
264 
        } else {
 264 
        } else {
265 
            $objet_select->addOption(htmlentities($ligne->gs_nom.' ('.$ligne->gs_code_alpha.')'), $ligne->gs_id_site);
 265 
            $objet_select->addOption(htmlentities($ligne->gs_nom.' ('.$ligne->gs_code_alpha.')'), $ligne->gs_id_site);
266 
        }
 266 
        }
267 
    }
 267 
    }
268 
    $form->addElement($objet_select);
 268 
    $form->addElement($objet_select);
269 
    $form->addElement('submit', 'choisir_site', ADME_LG_FORM_SITE_VALIDER);
 269 
    $form->addElement('submit', 'choisir_site', ADME_LG_FORM_SITE_VALIDER);
270 
    $partie_site_fin = "\n".'</fieldset>';
 270 
    $partie_site_fin = "\n".'</fieldset>';
271 
    $form->addElement('html', $partie_site_fin);
 271 
    $form->addElement('html', $partie_site_fin);
272
272
273 
    // Instanciation des valeurs par défaut du formulaire
 273 
    // Instanciation des valeurs par défaut du formulaire
274 
    if (isset($id_site_par_defaut)) {
274 
    if (isset($id_site_par_defaut)) {
275 
    	if (!isset($_POST['adme_site_id'])) {
 275 
    	if (!isset($_GET['adme_site_id'])) {
276 
    		$adme_site_id=$id_site_par_defaut;
 276 
    		$adme_site_id=$id_site_par_defaut;
277 
    	} else {
 277 
    	} else {
278 
    		$adme_site_id=$_POST['adme_site_id'];
 278 
    		$adme_site_id=$_GET['adme_site_id'];
279 
    	}
 279 
    	}
280 
    }
 280 
    }
281 
    $form->setDefaults(array('adme_site_id' => $adme_site_id));
 281 
    $form->setDefaults(array('adme_site_id' => $adme_site_id));
282
282
283 
    $retour ='';
 283 
    $retour ='';
284 
    $retour .= '<h1>'.ADME_LG_MENU_TITRE.$site_nom.'</h1>'."\n";
 284 
    $retour .= '<h1>'.ADME_LG_MENU_TITRE.$site_nom.'</h1>'."\n";
285 
    $retour .= $form->toHTML()."\n";
 285 
    $retour .= $form->toHTML()."\n";
286
286
287 
    //---------------------------------------------------------------------------------------------------------------
 287 
    //---------------------------------------------------------------------------------------------------------------
288 
    // Gestion des menus classiques
 288 
    // Gestion des menus classiques
289 
    $retour .= '<p>'."\n";
 289 
    $retour .= '<p>'."\n";
290 
    $objet_pear_url_copie = $objet_pear_url;
 290 
    $objet_pear_url_copie = $objet_pear_url;
291 
    $objet_pear_url_copie->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_AJOUTER);
 291 
    $objet_pear_url_copie->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_AJOUTER);
292 
    $objet_pear_url_copie->addQueryString('adme_site_id', $adme_site_id);
 292 
    $objet_pear_url_copie->addQueryString('adme_site_id', $adme_site_id);
293 
    $objet_pear_url_copie->addQueryString('adme_menu_id', 0);
 293 
    $objet_pear_url_copie->addQueryString('adme_menu_id', 0);
294 
    $url_ajout_menu_classique_n1 = $objet_pear_url_copie->getURL();
 294 
    $url_ajout_menu_classique_n1 = $objet_pear_url_copie->getURL();
295 
    //unset($url_ajout_menu_n1);
 295 
    //unset($url_ajout_menu_n1);
296 
    $retour .=    '<a href="'.$url_ajout_menu_classique_n1.'" >'.
 296 
    $retour .=    '<a href="'.$url_ajout_menu_classique_n1.'" >'.
297 
                            ADME_LG_MENU_CLASSIQUE_RACINE.'&nbsp;'.
 297 
                            ADME_LG_MENU_CLASSIQUE_RACINE.'&nbsp;'.
298 
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_NOUVEAU.'" alt="+" />'.
 298 
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_NOUVEAU.'" alt="+" />'.
299 
                        '</a>'."\n";
 299 
                        '</a>'."\n";
300 
    $retour .= '</p>'."\n";
 300 
    $retour .= '</p>'."\n";
301
301
302 
    $retour .= ADME_afficherListeMenuClassique($objet_pear_db, $objet_pear_url, $adme_site_id, $adme_menu_id, $adme_action, 0);
 302 
    $retour .= ADME_afficherListeMenuClassique($objet_pear_db, $objet_pear_url, $adme_site_id, $adme_menu_id, $adme_action, 0);
303 
    //---------------------------------------------------------------------------------------------------------------
 303 
    //---------------------------------------------------------------------------------------------------------------
304 
    // Gestion des menus communs
 304 
    // Gestion des menus communs
305 
    $retour .=     '<p>'."\n";
 305 
    $retour .=     '<p>'."\n";
306 
    $objet_pear_url_copie = $objet_pear_url;
 306 
    $objet_pear_url_copie = $objet_pear_url;
307 
    $objet_pear_url_copie->addQueryString('adme_action', ADME_LG_ACTION_COMMUN_AJOUTER);
 307 
    $objet_pear_url_copie->addQueryString('adme_action', ADME_LG_ACTION_COMMUN_AJOUTER);
308 
    $objet_pear_url_copie->addQueryString('adme_site_id', $adme_site_id);
 308 
    $objet_pear_url_copie->addQueryString('adme_site_id', $adme_site_id);
309 
    $objet_pear_url_copie->addQueryString('adme_menu_id', 0);
 309 
    $objet_pear_url_copie->addQueryString('adme_menu_id', 0);
310 
    $url_ajout_menu_commun_n1 = $objet_pear_url_copie->getURL();
 310 
    $url_ajout_menu_commun_n1 = $objet_pear_url_copie->getURL();
311 
    //unset($url_ajout_menu_n1);
 311 
    //unset($url_ajout_menu_n1);
312 
    $retour .=     '<a href="'.$url_ajout_menu_commun_n1.'">'.
 312 
    $retour .=     '<a href="'.$url_ajout_menu_commun_n1.'">'.
313 
                            ADME_LG_MENU_COMMUN_RACINE.'&nbsp;'.
 313 
                            ADME_LG_MENU_COMMUN_RACINE.'&nbsp;'.
314 
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_NOUVEAU.'" alt="+" />'.
 314 
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_NOUVEAU.'" alt="+" />'.
315 
                        '</a>'."\n";
 315 
                        '</a>'."\n";
316 
    $retour .=     '</p>'."\n";
 316 
    $retour .=     '</p>'."\n";
317 
    $retour .= ADME_afficherListeMenuCommun($objet_pear_db, $objet_pear_url, $adme_site_id, $adme_menu_id, $adme_action, 0);
 317 
    $retour .= ADME_afficherListeMenuCommun($objet_pear_db, $objet_pear_url, $adme_site_id, $adme_menu_id, $adme_action, 0);
318 
    return $retour;
 318 
    return $retour;
319 
}
 319 
}
320 
// +------------------------------------------------------------------------------------------------------+
 320 
// +------------------------------------------------------------------------------------------------------+
321 
// |                                            PIED du PROGRAMME                                         |
 321 
// |                                            PIED du PROGRAMME                                         |
322 
// +------------------------------------------------------------------------------------------------------+
 322 
// +------------------------------------------------------------------------------------------------------+
323 
 
 323 
 
324 
 
 324 
 
325 
/* +--Fin du code ----------------------------------------------------------------------------------------+
 325 
/* +--Fin du code ----------------------------------------------------------------------------------------+
326 
*
 326 
*
327 
* $Log: not supported by cvs2svn $
 327 
* $Log: not supported by cvs2svn $
- 
 
 328 
* Revision 1.18.2.1  2006/12/01 17:03:09  florian
- 
 
 329 
* correction bug changement de sites
- 
 
 330 
*
328 
* Revision 1.18  2006/10/16 15:49:07  ddelon
 331 
* Revision 1.18  2006/10/16 15:49:07  ddelon
329 
* Refactorisation code mulitlinguisme et gestion menu invisibles
 332 
* Refactorisation code mulitlinguisme et gestion menu invisibles
330 
*
 333 
*
331 
* Revision 1.17  2006/10/06 13:38:45  florian
 334 
* Revision 1.17  2006/10/06 13:38:45  florian
332 
* ergonomie amélioree
 335 
* ergonomie amélioree
333 
*
 336 
*
334 
* Revision 1.16  2006/04/28 12:41:49  florian
 337 
* Revision 1.16  2006/04/28 12:41:49  florian
335 
* corrections erreurs chemin
 338 
* corrections erreurs chemin
336 
*
 339 
*
337 
* Revision 1.15  2006/03/24 13:03:24  ddelon
 340 
* Revision 1.15  2006/03/24 13:03:24  ddelon
338 
* bug afficheur multilinguisme
 341 
* bug afficheur multilinguisme
339 
*
 342 
*
340 
* Revision 1.14  2006/03/23 20:24:59  ddelon
 343 
* Revision 1.14  2006/03/23 20:24:59  ddelon
341 
* *** empty log message ***
 344 
* *** empty log message ***
342 
*
 345 
*
343 
* Revision 1.13  2006/03/13 21:00:20  ddelon
 346 
* Revision 1.13  2006/03/13 21:00:20  ddelon
344 
* Suppression messages d'erreur multilinguisme
 347 
* Suppression messages d'erreur multilinguisme
345 
*
 348 
*
346 
* Revision 1.12  2006/03/02 10:49:49  ddelon
 349 
* Revision 1.12  2006/03/02 10:49:49  ddelon
347 
* Fusion branche multilinguisme dans branche principale
 350 
* Fusion branche multilinguisme dans branche principale
348 
*
 351 
*
349 
* Revision 1.11.2.1  2006/02/28 14:02:11  ddelon
 352 
* Revision 1.11.2.1  2006/02/28 14:02:11  ddelon
350 
* Finition multilinguisme
 353 
* Finition multilinguisme
351 
*
 354 
*
352 
* Revision 1.11  2005/07/18 16:14:32  ddelon
 355 
* Revision 1.11  2005/07/18 16:14:32  ddelon
353 
* css admin + menu communs
 356 
* css admin + menu communs
354 
*
 357 
*
355 
* Revision 1.10  2005/07/08 21:57:24  ddelon
 358 
* Revision 1.10  2005/07/08 21:57:24  ddelon
356 
* Copyright
 359 
* Copyright
357 
*
 360 
*
358 
* Revision 1.9  2005/05/12 16:51:37  alex
 361 
* Revision 1.9  2005/05/12 16:51:37  alex
359 
* Changement de l'odre d'apparition des sites dans l'administration des menus.
 362 
* Changement de l'odre d'apparition des sites dans l'administration des menus.
360 
*
 363 
*
361 
* Revision 1.8  2005/01/26 16:18:05  jpm
 364 
* Revision 1.8  2005/01/26 16:18:05  jpm
362 
* Correction bogue 221 : mauvais réglage du titre.
 365 
* Correction bogue 221 : mauvais réglage du titre.
363 
*
 366 
*
364 
* Revision 1.7  2004/11/24 11:31:51  jpm
 367 
* Revision 1.7  2004/11/24 11:31:51  jpm
365 
* Ajout d'une contante de langue à la place d'un texte.
 368 
* Ajout d'une contante de langue à la place d'un texte.
366 
*
 369 
*
367 
* Revision 1.6  2004/11/10 17:26:07  jpm
 370 
* Revision 1.6  2004/11/10 17:26:07  jpm
368 
* Fin gestion de la traduction.
 371 
* Fin gestion de la traduction.
369 
*
 372 
*
370 
* Revision 1.5  2004/11/10 11:58:54  jpm
 373 
* Revision 1.5  2004/11/10 11:58:54  jpm
371 
* Mise en place des constantes de traduction de l'appli.
 374 
* Mise en place des constantes de traduction de l'appli.
372 
*
 375 
*
373 
* Revision 1.4  2004/11/09 17:48:35  jpm
 376 
* Revision 1.4  2004/11/09 17:48:35  jpm
374 
* Gestion de différentes interfaces d'administration.
 377 
* Gestion de différentes interfaces d'administration.
375 
*
 378 
*
376 
* Revision 1.3  2004/11/09 12:37:34  jpm
 379 
* Revision 1.3  2004/11/09 12:37:34  jpm
377 
* Fin de gestion des menus et mise en conformité avec la convention de codage.
 380 
* Fin de gestion des menus et mise en conformité avec la convention de codage.
378 
*
 381 
*
379 
* Revision 1.2  2004/11/08 17:41:07  jpm
 382 
* Revision 1.2  2004/11/08 17:41:07  jpm
380 
* Légères corrections : multisite, corrections SQL.
 383 
* Légères corrections : multisite, corrections SQL.
381 
*
 384 
*
382 
* Revision 1.1  2004/11/04 12:26:42  jpm
 385 
* Revision 1.1  2004/11/04 12:26:42  jpm
383 
* Contient les fonctions d'affichage général de l'appli ADME.
 386 
* Contient les fonctions d'affichage général de l'appli ADME.
384 
*
 387 
*
385 
*
 388 
*
386 
* +-- Fin du code ----------------------------------------------------------------------------------------+
 389 
* +-- Fin du code ----------------------------------------------------------------------------------------+
387 
*/
 390 
*/
388 
?>
 391 
?>