Subversion Repositories Applications.papyrus

Rev

Rev 832 | Rev 1033 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 832 Rev 1017
Line 30... Line 30...
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.16 2006-04-28 12:41:49 florian Exp $
 35 
// CVS : $Id: adme_general.fonct.php,v 1.17 2006-10-06 13:38:45 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.
Line 44... Line 44...
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.16 $ $Date: 2006-04-28 12:41:49 $
 49 
*@version       $Revision: 1.17 $ $Date: 2006-10-06 13:38:45 $
50 
// +------------------------------------------------------------------------------------------------------+
 50 
// +------------------------------------------------------------------------------------------------------+
51 
*/
 51 
*/
Line 52... Line 52...
52 
 
 52 
 
53 
// +------------------------------------------------------------------------------------------------------+
 53 
// +------------------------------------------------------------------------------------------------------+
Line 66... Line 66...
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 
	/*
 - 
 
72 
	$id_langue = $GLOBALS['_GEN_commun']['i18n'];//identifiant de la langue choisie
 - 
 
73
- 
 
74 
    //---------------------------------------------------------------------------------------------------------------
 - 
 
75 
    // Nous affichons la liste des menus classiques et communs
 - 
 
76 
    $retour = '';
 - 
 
77 
 
 - 
 
78 
	if (isset($id_langue) && ($id_langue!='')) {
 - 
 
79 
		$langue_test=$id_langue;
 - 
 
80 
	} else {
 - 
 
81 
		$langue_test=GEN_I18N_ID_DEFAUT;
 - 
 
82 
	}
 - 
 
83 
    */
 - 
 
Line 84... Line 71...
84
71
Line 85... Line 72...
85 
    $db=$objet_pear_db;
 72 
    $db=$objet_pear_db;
Line 93... Line 80...
93 
	} else {
 80 
	} else {
94 
		$langue_test=GEN_I18N_ID_DEFAUT;
 81 
		$langue_test=GEN_I18N_ID_DEFAUT;
95 
	}
 82 
	}
Line 96... Line 83...
96 
 
 83 
 
97 
//$langue_test=GEN_I18N_ID_DEFAUT;
 84 
//$langue_test=GEN_I18N_ID_DEFAUT;
- 
 
 85
- 
 
 86 
	//requete pour recuperer l'id du menu par defaut
- 
 
 87 
     $requete =  'SELECT gs_id_site '.
- 
 
 88 
                'FROM gen_site, gen_site_relation '.
- 
 
 89 
                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
- 
 
 90 
                'AND gsr_id_site_01 = gs_id_site '.
- 
 
 91 
                'AND gsr_id_valeur=101 '.
- 
 
 92 
                'AND gs_ce_i18n = "'.$langue_test.'" ';
- 
 
 93 
    $resultat = $db->query($requete);
- 
 
 94 
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;
- 
 
 95 
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
- 
 
 96 
    	$id_site_par_defaut=$ligne->gs_id_site;
- 
 
 97 
    }
98 
 
 98
99 
    // Liste des sites principaux :
 99 
    // Liste des sites principaux :
Line 100... Line 100...
100 
    // Recherche de tous les sites langue en cours
 100 
    // Recherche de tous les sites langue en cours
101
101
Line 109... Line 109...
109
109
110
110
Line -... Line 111...
- 
 
 111 
    $resultat = $db->query($requete);
- 
 
 112 
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;
111 
    $resultat = $db->query($requete);
 113
112 
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;
 114
Line 113... Line 115...
113
115
Line 206... Line 208...
206 
	               $resultat_est_traduction->free();
 208 
	               $resultat_est_traduction->free();
Line 207... Line 209...
207
209
208 
	    }
 210 
	    }
209 
	    $resultat->free();
 211 
	    $resultat->free();
210 
	}
 - 
 
211
- 
 
212
- 
 
213
- 
 
214
- 
 
215 
    /*
 - 
 
216 
    $requete =  'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom, gs_ce_i18n '.
 - 
 
217 
                'FROM gen_site, gen_site_relation '.
 - 
 
218 
                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
 - 
 
219 
                'AND gs_id_site = gsr_id_site_01 '.
 - 
 
220 
                'AND gsr_id_valeur = 102 '.// 102 = site "principal"
 - 
 
221 
                'AND gs_ce_i18n = "'.$langue_test.'" '.
 - 
 
222 
                'ORDER BY gsr_ordre DESC';
 - 
 
223
- 
 
224 
    $resultat = $objet_pear_db->query($requete);
 - 
 
225 
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
 - 
 
226
- 
 
227 
    $liste_site=array();
 - 
 
228
- 
 
229 
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
 - 
 
230 
    	         // Si le site trouvé est une traduction vers la langue principale, on ne le selectionne pas
 - 
 
231 
    			if ($langue_test == GEN_I18N_ID_DEFAUT) {
 - 
 
232 
    		  		$requete_est_traduction =   'SELECT gsr_id_site_01 '.
 - 
 
233 
	                       'FROM  gen_site_relation '.
 - 
 
234 
	                       'WHERE '.$ligne->gs_id_site.' = gsr_id_site_02 ' .
 - 
 
235 
	                  	   'AND  gsr_id_site_01 <> gsr_id_site_02 ' .
 - 
 
236 
	                       'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
 - 
 
237
- 
 
238 
		            $resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
 - 
 
239 
		            (DB::isError($resultat_est_traduction))
 - 
 
240 
		                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
 - 
 
241 
		                : '';
 - 
 
242
- 
 
243 
		   			if ( $resultat_est_traduction->numRows() == 0 ) {
 - 
 
244 
	    	 			$liste_site[]=$ligne;
 - 
 
245 
		            }
 - 
 
246 
    			}
 - 
 
247 
    			else {
 - 
 
248 
    				$liste_site[]=$ligne;
 - 
 
249 
    			}
 - 
 
250 
    }
 - 
 
251
- 
 
252 
    $resultat->free();
 - 
 
253
- 
 
254
- 
 
255
- 
 
256 
    // On recherche l'ensemble des site en excluant le site admin (administration de Papyrus).
 - 
 
257 
 
 - 
 
258 
	if ($langue_test != GEN_I18N_ID_DEFAUT) {
 - 
 
259
- 
 
260
- 
 
261 
    // Site ayant commme langue, la langue par defaut
- 
 
262 
	    $requete =  'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom, gs_ce_i18n '.
 - 
 
263 
	                'FROM gen_site, gen_site_relation '.
 - 
 
264 
	                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
 - 
 
265 
	                'AND gs_id_site = gsr_id_site_01 '.
 - 
 
266 
	                'AND gsr_id_valeur = 102 '.// 102 = site "principal"
 - 
 
267 
	                'AND gs_ce_i18n = "'.GEN_I18N_ID_DEFAUT.'" '.
 - 
 
268 
	                'ORDER BY gsr_ordre DESC';
 - 
 
269
- 
 
270 
	    $resultat = $objet_pear_db->query($requete);
 - 
 
271 
	    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
 - 
 
272
- 
 
273 
	    // Est il traduit ? Non, alors affichage
- 
 
274
- 
 
275 
	    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
 - 
 
276
- 
 
277 
				if (isset($id_langue) && ($id_langue!='')) {
 - 
 
278 
					$langue_test=$id_langue;
 - 
 
279 
				} else {
 - 
 
280 
					$langue_test=GEN_I18N_ID_DEFAUT;
 - 
 
281 
				}
 - 
 
282
- 
 
283 
	    				$requete_est_traduction =   'SELECT gsr_id_site_01 '.
 - 
 
284 
	                                'FROM  gen_site_relation '.
 - 
 
285 
	                                'WHERE '.$ligne->gs_id_site.' = gsr_id_site_02 ' .
 - 
 
286 
	                                'AND  gsr_id_site_01 <> gsr_id_site_02 ' .
 - 
 
287 
	                                'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
 - 
 
288
- 
 
289
- 
 
290 
	            $resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
 - 
 
291 
	            (DB::isError($resultat_est_traduction))
 - 
 
292 
	                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
 - 
 
293 
	                : '';
 - 
 
294
- 
 
295 
	            if ( $resultat_est_traduction->numRows() == 0 ) {
 - 
 
296
- 
 
297
- 
 
298
- 
 
299 
		    		$requete_traduction =   'SELECT gsr_id_site_01 '.
 - 
 
300 
		                                    'FROM  gen_site_relation, gen_site '.
 - 
 
301 
		                                    'WHERE '.$ligne->gs_id_site.' = gsr_id_site_01 ' .
 - 
 
302 
		                                    'AND gsr_id_site_02 = gs_id_site '.
 - 
 
303 
		                                    'AND gs_ce_i18n = "'.$langue_test.'" '.
 - 
 
304 
		                                    'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
 - 
 
305
- 
 
306 
		            $resultat_traduction = $objet_pear_db->query($requete_traduction);
 - 
 
307 
		            (DB::isError($resultat_traduction))
 - 
 
308 
		                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction))
 - 
 
309 
		                : '';
 - 
 
310
- 
 
311 
		            if ( $resultat_traduction->numRows() == 0 ) {
 - 
 
312 
		            	$liste_site []=$ligne;
 - 
 
313 
		            }
 - 
 
314
- 
 
315 
		            $resultat_traduction->free();
 - 
 
316 
	            }
 - 
 
317
- 
 
318 
	    }
 - 
 
319 
	    $resultat->free();
 - 
 
320 
	}
 - 
 
321
- 
 
322 
    */
- 
 
Line 323... Line 212...
323
212 
	}
Line 324... Line 213...
324
213
325 
              // Traduction d'un site principal uniquement :
 214 
              // Traduction d'un site principal uniquement :
Line 380... Line 269...
380 
    $form->addElement('submit', 'choisir_site', ADME_LG_FORM_SITE_VALIDER);
 269 
    $form->addElement('submit', 'choisir_site', ADME_LG_FORM_SITE_VALIDER);
381 
    $partie_site_fin = "\n".'</fieldset>';
 270 
    $partie_site_fin = "\n".'</fieldset>';
382 
    $form->addElement('html', $partie_site_fin);
 271 
    $form->addElement('html', $partie_site_fin);
Line 383... Line 272...
383
272
- 
 
 273 
    // Instanciation des valeurs par défaut du formulaire
- 
 
 274 
    if (isset($id_site_par_defaut)) {
- 
 
 275 
    	$adme_site_id=$id_site_par_defaut;
384 
    // Instanciation des valeurs par défaut du formulaire
 276 
    }
- 
 
 277 
    $form->setDefaults(array('adme_site_id' => $adme_site_id));
385 
    $form->setDefaults($adme_site_id);
 278
386 
    $retour ='';
 279 
    $retour ='';
387 
    $retour .= '<h1>'.ADME_LG_MENU_TITRE.$site_nom.'</h1>'."\n";
 280 
    $retour .= '<h1>'.ADME_LG_MENU_TITRE.$site_nom.'</h1>'."\n";
Line 388... Line 281...
388 
    $retour .= $form->toHTML()."\n";
 281 
    $retour .= $form->toHTML()."\n";
Line 427... Line 320...
427 
 
 320 
 
428 
 
 321 
 
429 
/* +--Fin du code ----------------------------------------------------------------------------------------+
 322 
/* +--Fin du code ----------------------------------------------------------------------------------------+
- 
 
 323 
*
- 
 
 324 
* $Log: not supported by cvs2svn $
- 
 
 325 
* Revision 1.16  2006/04/28 12:41:49  florian
430 
*
 326 
* corrections erreurs chemin
431 
* $Log: not supported by cvs2svn $
 327 
*
432 
* Revision 1.15  2006/03/24 13:03:24  ddelon
 328 
* Revision 1.15  2006/03/24 13:03:24  ddelon
433 
* bug afficheur multilinguisme
 329 
* bug afficheur multilinguisme
434 
*
 330 
*