WebSVN – Applications.papyrus – Diff – /trunk/papyrus/applettes/selecteur_sites/selecteur_sites.php

 // |                                                                                                      |
 // | You should have received a copy of the GNU Lesser General Public                                     |
 // | License along with this library; if not, write to the Free Software                                  |
 // | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
 // +------------------------------------------------------------------------------------------------------+
-// CVS : $Id: selecteur_sites.php,v 1.9 2006-04-28 12:41:49 florian Exp $
+// CVS : $Id: selecteur_sites.php,v 1.10 2006-10-11 17:20:19 jp_milcent Exp $
 /**
 * Applette : selecteur sites
+*
 * Génère un formulaire contenant un menu déroulant permettant de choisir un site parmis les disponibles.
 * Nécessite :
 //Auteur original :
 *@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
 //Autres auteurs :
 *@author        Aucun
 *@copyright     Tela-Botanica 2000-2004
-*@version       $Revision: 1.9 $ $Date: 2006-04-28 12:41:49 $
+*@version       $Revision: 1.10 $ $Date: 2006-10-11 17:20:19 $
 // +------------------------------------------------------------------------------------------------------+
 */
 // +------------------------------------------------------------------------------------------------------+
     if (isset($tab_applette_arguments[2]) && $tab_applette_arguments[2] == 'XHTML') {
         $bln_xhtml_strict = 1;
+    }
     // Nous vérifions s'il y a des sites que nous ne voulons pas afficher:
     $morceau_requete_id_suppr = '';
-    $tab_id_suppr_groupe='';
+    $tab_id_suppr_groupe = '';
     if (isset($tab_applette_arguments[3]) && ereg('SANS_(.+)', $tab_applette_arguments[3], $tab_id_suppr_groupe)) {
         if (preg_match('/^\d+$/', $tab_id_suppr_groupe[1])) {
             $liste_id_suppr = $tab_id_suppr_groupe[1];
         } else if (preg_match('/^\d+(?:_\d+)+$/', $tab_id_suppr_groupe[1])) {
             $liste_id_suppr = preg_replace('/_/', ', ', $tab_id_suppr_groupe[1]);
     // Recherche de tous les sites  langue en cours
     // On recherche l'ensemble des site en excluant le site admin ? (administration de Papyrus).
-	if (isset($id_langue) && ($id_langue!='')) {
+	if (isset($id_langue) && ($id_langue != '')) {
-		$langue_test=$id_langue;
+		$langue_test = $id_langue;
 	} else {
-		$langue_test=GEN_I18N_ID_DEFAUT;
+		$langue_test = GEN_I18N_ID_DEFAUT;
+	}
                 'ORDER BY gs_code_num ASC';// 102 = site "principal" et 103 = site "externe"
     $resultat = $objet_pear_db->query($requete);
     (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
-    $liste_site=array();
+    $liste_site = array();
     while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
     	         // Si le site trouvé est une traduction vers la langue principale, on ne le selectionne pas
     			if ($langue_test == GEN_I18N_ID_DEFAUT) {
-    		  		$requete_est_traduction =   'SELECT gsr_id_site_01 '.
+    		  		$requete_est_traduction = 'SELECT gsr_id_site_01 '.
 	                       'FROM  gen_site_relation '.
 		            (DB::isError($resultat_est_traduction))
 		                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
 		                : '';
 		   			if ( $resultat_est_traduction->numRows() == 0 ) {
-	    	 			$liste_site[]=$ligne;
+	    	 			$liste_site[] = $ligne;
+		            }
+    			}
     			else {
-    				$liste_site[]=$ligne;
+    				$liste_site[] = $ligne;
+    			}
-    }
+    }
-    $resultat->free();
     $resultat->free();
-    // Si la langue en cours n'est pas la langue par défaut, recherche des sites ayant comme langue
-    // la langue par defaut et non traduits dans la langue en cours.
+    // Si la langue en cours n'est pas la langue par défaut, recherche des sites ayant comme langue
     // la langue par defaut et non traduits dans la langue en cours.
-    // On recherche l'ensemble des site en excluant le site admin (administration de Papyrus).
 	if ($langue_test != GEN_I18N_ID_DEFAUT) {
     // On recherche l'ensemble des site en excluant le site admin (administration de Papyrus).
 	if ($langue_test != GEN_I18N_ID_DEFAUT) {
     // Site ayant commme langue, la langue par defaut
 	    $requete =  'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom, gs_ce_i18n '.
 	    $resultat = $objet_pear_db->query($requete);
 	    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
 	    // Est il traduit ? Non, alors affichage
-	    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
+	    // Est il traduit ? Non, alors affichage
 	    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
-				if (isset($id_langue) && ($id_langue!='')) {
+				if (isset($id_langue) && ($id_langue != '')) {
 					$langue_test=$id_langue;
 				} else {
 					$langue_test=GEN_I18N_ID_DEFAUT;
 				}
-	    				$requete_est_traduction =   'SELECT gsr_id_site_01 '.
+				$requete_est_traduction =   'SELECT gsr_id_site_01 '.
-	                                'FROM  gen_site_relation '.
+											'FROM  gen_site_relation '.
-	                                'WHERE '.$ligne['gs_id_site'].' = gsr_id_site_02 ' .
+											'WHERE '.$ligne['gs_id_site'].' = gsr_id_site_02 ' .
-	                                'AND  gsr_id_site_01 <> gsr_id_site_02 ' .
+	                            		    'AND  gsr_id_site_01 <> gsr_id_site_02 ' .
-	                                'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
+											'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
-	            $resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
-	            (DB::isError($resultat_est_traduction))
-	                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
-	                : '';
+	            $resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
 	            (DB::isError($resultat_est_traduction))
-	            if ( $resultat_est_traduction->numRows() == 0 ) {
+	                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
 	                : '';
 		            (DB::isError($resultat_traduction))
 		                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction))
 		                : '';
 		            if ( $resultat_traduction->numRows() == 0 ) {
-		            	$liste_site []=$ligne;
+		            	$liste_site[] = $ligne;
+		            }
 /* +--Fin du code ----------------------------------------------------------------------------------------+
+*
+* $Log: not supported by cvs2svn $
+* Revision 1.9  2006/04/28 12:41:49  florian
 * corrections erreurs chemin
 * $Log: not supported by cvs2svn $
 * Revision 1.8  2006/03/02 10:49:49  ddelon
 * Fusion branche multilinguisme dans branche principale
+*

Subversion Repositories Applications.papyrus

(root)/trunk/papyrus/applettes/selecteur_sites/selecteur_sites.php – Rev 832 → 1028