Subversion Repositories Applications.papyrus

Rev

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

Rev 790 Rev 793
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.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.
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.14 $ $Date: 2006-03-23 20:24:59 $
 49 
*@version       $Revision: 1.15 $ $Date: 2006-03-24 13:03:24 $
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
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
Line 73... Line 73...
73
73
74 
    //---------------------------------------------------------------------------------------------------------------
 74 
    //---------------------------------------------------------------------------------------------------------------
75 
    // Nous affichons la liste des menus classiques et communs
 75 
    // Nous affichons la liste des menus classiques et communs
Line 78... Line 78...
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();
Line -... Line 140...
- 
 
 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 '.
Line 185... Line 317...
185
317
186 
	    }
 318 
	    }
187 
	    $resultat->free();
 319 
	    $resultat->free();
Line -... Line 320...
- 
 
 320 
	}
Line -... Line 321...
- 
 
 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 
	        }
Line 188... Line 345...
188 
	}
 345 
	        $resultat->free();
189
346
190
347
191
348
Line 224... Line 381...
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);
Line 226... Line 383...
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";
Line 231... Line 388...
231 
    $retour .= $form->toHTML()."\n";
 388 
    $retour .= $form->toHTML()."\n";
232
389
Line 270... Line 427...
270 
 
 427 
 
271 
 
 428 
 
272 
/* +--Fin du code ----------------------------------------------------------------------------------------+
 429 
/* +--Fin du code ----------------------------------------------------------------------------------------+
- 
 
 430 
*
- 
 
 431 
* $Log: not supported by cvs2svn $
- 
 
 432 
* Revision 1.14  2006/03/23 20:24:59  ddelon
273 
*
 433 
* *** empty log message ***
274 
* $Log: not supported by cvs2svn $
 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 
*