Subversion Repositories Applications.papyrus

Rev

Rev 1090 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1090 florian 1
<?php
2
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3
// +------------------------------------------------------------------------------------------------------+
4
// | PHP version 4.1                                                                                      |
5
// +------------------------------------------------------------------------------------------------------+
6
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7
// +------------------------------------------------------------------------------------------------------+
8
// | This library is free software; you can redistribute it and/or                                        |
9
// | modify it under the terms of the GNU Lesser General Public                                           |
10
// | License as published by the Free Software Foundation; either                                         |
11
// | version 2.1 of the License, or (at your option) any later version.                                   |
12
// |                                                                                                      |
13
// | This library is distributed in the hope that it will be useful,                                      |
14
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
15
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
16
// | Lesser General Public License for more details.                                                      |
17
// |                                                                                                      |
18
// | You should have received a copy of the GNU Lesser General Public                                     |
19
// | License along with this library; if not, write to the Free Software                                  |
20
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21
// +------------------------------------------------------------------------------------------------------+
1417 jp_milcent 22
// CVS : $Id: selecteur_sites.php,v 1.12 2007-05-24 16:26:08 jp_milcent Exp $
1090 florian 23
/**
24
* Applette : selecteur sites
25
*
26
* Génère un formulaire contenant un menu déroulant permettant de choisir un site parmis les disponibles.
27
* Nécessite :
28
* - Constantes et globales de Papyrus.
29
* - Base de données de Papyrus
30
* - Pear Net_URL
31
* - Pear DB
32
* - API Débogage 1.0
40 jpm 33
* Le nom de l'applette est "SELECTEUR_SITES" pour afficher un formulaire HTML et "SELECTEUR_SITES_XHTML"
34
* pour afficher un formulaire XHTML strict.
1090 florian 35
*
36
*@package Applette
37
*@subpackage Selecteur_sites
38
//Auteur original :
39
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
40
//Autres auteurs :
41
*@author        Aucun
42
*@copyright     Tela-Botanica 2000-2004
1417 jp_milcent 43
*@version       $Revision: 1.12 $ $Date: 2007-05-24 16:26:08 $
1090 florian 44
// +------------------------------------------------------------------------------------------------------+
45
*/
46
 
47
// +------------------------------------------------------------------------------------------------------+
48
// |                                            ENTÊTE du PROGRAMME                                       |
49
// +------------------------------------------------------------------------------------------------------+
50
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherSelecteurSite';
51
$GLOBALS['_GEN_commun']['info_applette_balise'] = '<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe'].'(SELECTEUR_SITES_?(XHTML)?_?(SANS_(?:\d+_?)+)?) -->';
52
 
53
 
54
/** Inclusion du fichier de configuration de cette applette.*/
55
require_once GEN_CHEMIN_APPLETTE.'selecteur_sites'.GEN_SEP.'configuration'.GEN_SEP.'sesi_config.inc.php';
56
 
57
// Inclusion des fichiers de traduction de l'applette.
58
if (file_exists(SESI_CHEMIN_LANGUE.'sesi_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {
59
    /** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
60
    require_once SESI_CHEMIN_LANGUE.'sesi_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';
61
} else {
62
    /** Inclusion du fichier de traduction par défaut.*/
63
    require_once SESI_CHEMIN_LANGUE.'sesi_langue_'.SESI_I18N_DEFAUT.'.inc.php';
64
}
65
 
66
// +------------------------------------------------------------------------------------------------------+
67
// |                                            CORPS du PROGRAMME                                        |
68
// +------------------------------------------------------------------------------------------------------+
69
 
70
// +------------------------------------------------------------------------------------------------------+
71
// |                                           LISTE de FONCTIONS                                         |
72
// +------------------------------------------------------------------------------------------------------+
73
/** Fonnction GEN_afficherContenuApplette() - Fournit un formulaire de sélection des sites.
74
*
75
* Renvoie un formulaire permettant de passer de site en site pour une langue donnée.
76
* Le formulaire affiche les noms des sites en fonctions de la langue passée dans l'url.
77
* Necessite l'utilisation de Pear Net_URL par le programme appelant cette fonction.
78
*
79
* @param  array  tableau d'éventuel arguments présent dans la balise transmis à la fonction.
80
* @param  array  tableau global de Papyrus.
81
* @return   string  formulaire XHTML contenant les sites disponibles.
82
*/
83
function afficherSelecteurSite($tab_applette_arguments, $_GEN_commun)
84
{
116 jpm 85
    // Initialisation de variable de configuration.
1090 florian 86
    $liste_type_site = '102, 103';// Les id des types des sites pouvant apparaître dans le sélecteur
87
    $objet_pear_db = $_GEN_commun['pear_db'];//objet Pear créé par DB contenant la connexion à la base de données.
88
    $code_site = $_GEN_commun['url_site'];//identifiant du site courant.
89
    $id_langue = $_GEN_commun['i18n'];//identifiant de la langue choisie
116 jpm 90
    $url_base = PAP_URL;
1090 florian 91
    $url_cle_site = GEN_URL_CLE_SITE;
92
    $url_cle_i18n = GEN_URL_CLE_I18N;
93
    $url_id_type_site = GEN_URL_ID_TYPE_SITE;
40 jpm 94
 
1090 florian 95
 
96
    $indent_origine = 12;// Indentation de départ en nombre d'espace
97
    $indent_pas     = 4;// Pas d'indentation en nombre d'espace
98
 
40 jpm 99
    // Récupérations des arguments passés dans la balise.
100
    // Nous vérifions si on veut du XHTML strict ou pas
101
    $bln_xhtml_strict = 0;
102
    if (isset($tab_applette_arguments[2]) && $tab_applette_arguments[2] == 'XHTML') {
103
        $bln_xhtml_strict = 1;
104
    }
116 jpm 105
    // Nous vérifions s'il y a des sites que nous ne voulons pas afficher:
1090 florian 106
    $morceau_requete_id_suppr = '';
1028 jp_milcent 107
    $tab_id_suppr_groupe = '';
116 jpm 108
    if (isset($tab_applette_arguments[3]) && ereg('SANS_(.+)', $tab_applette_arguments[3], $tab_id_suppr_groupe)) {
109
        if (preg_match('/^\d+$/', $tab_id_suppr_groupe[1])) {
110
            $liste_id_suppr = $tab_id_suppr_groupe[1];
111
        } else if (preg_match('/^\d+(?:_\d+)+$/', $tab_id_suppr_groupe[1])) {
112
            $liste_id_suppr = preg_replace('/_/', ', ', $tab_id_suppr_groupe[1]);
113
        } else {
114
            $liste_id_suppr = '0';
115
        }
116
        $morceau_requete_id_suppr = 'AND gs_id_site NOT IN ('.$liste_id_suppr.') ';
117
    }
1090 florian 118
 
119
    // Recherche de tous les sites  langue en cours
120
 
121
    // On recherche l'ensemble des site en excluant le site admin ? (administration de Papyrus).
122
 
123
	if (isset($id_langue) && ($id_langue != '')) {
124
		$langue_test = $id_langue;
125
	} else {
126
		$langue_test = GEN_I18N_ID_DEFAUT;
127
	}
128
 
129
    $requete =  'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom, gs_ce_i18n '.
130
                'FROM gen_site, gen_site_relation '.
131
                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
132
                'AND gs_id_site = gsr_id_site_01 '.
133
                'AND gsr_id_valeur IN ('.$liste_type_site.') '.
134
                'AND gs_ce_i18n = "'.$langue_test.'" '.
135
                $morceau_requete_id_suppr.// Liste des sites ne devant pas figurer
136
                'ORDER BY gs_code_num ASC';// 102 = site "principal" et 103 = site "externe"
137
 
138
    $resultat = $objet_pear_db->query($requete);
139
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
140
 
141
    $liste_site = array();
142
 
143
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
144
    	         // Si le site trouvé est une traduction vers la langue principale, on ne le selectionne pas
145
    			if ($langue_test == GEN_I18N_ID_DEFAUT) {
146
    		  		$requete_est_traduction = 'SELECT gsr_id_site_01 '.
147
	                       'FROM  gen_site_relation '.
148
	                       'WHERE '.$ligne['gs_id_site'].' = gsr_id_site_02 ' .
149
	                  	   'AND  gsr_id_site_01 <> gsr_id_site_02 ' .
150
	                       'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
151
 
152
		            $resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
153
		            (DB::isError($resultat_est_traduction))
154
		                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
155
		                : '';
156
 
157
		   			if ( $resultat_est_traduction->numRows() == 0 ) {
158
	    	 			$liste_site[] = $ligne;
159
		            }
160
    			}
161
    			else {
162
    				$liste_site[] = $ligne;
163
    			}
164
    }
165
    $resultat->free();
166
 
167
    // Si la langue en cours n'est pas la langue par défaut, recherche des sites ayant comme langue
168
    // la langue par defaut et non traduits dans la langue en cours.
169
 
170
    // On recherche l'ensemble des site en excluant le site admin (administration de Papyrus).
171
	if ($langue_test != GEN_I18N_ID_DEFAUT) {
172
    // Site ayant commme langue, la langue par defaut
173
	    $requete =  'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom, gs_ce_i18n '.
174
	                'FROM gen_site, gen_site_relation '.
175
	                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
176
	                'AND gs_id_site = gsr_id_site_01 '.
177
	                'AND gsr_id_valeur IN ('.$liste_type_site.') '.
178
	                'AND gs_ce_i18n = "'.GEN_I18N_ID_DEFAUT.'" '.
179
	                $morceau_requete_id_suppr.// Liste des sites ne devant pas figurer
180
	                'ORDER BY gs_code_num ASC';// 102 = site "principal" et 103 = site "externe"
181
 
182
	    $resultat = $objet_pear_db->query($requete);
183
	    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
184
 
185
	    // Est il traduit ? Non, alors affichage
186
	    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
187
				if (isset($id_langue) && ($id_langue != '')) {
188
					$langue_test=$id_langue;
189
				} else {
190
					$langue_test=GEN_I18N_ID_DEFAUT;
191
				}
192
 
193
				$requete_est_traduction =   'SELECT gsr_id_site_01 '.
194
											'FROM  gen_site_relation '.
195
											'WHERE '.$ligne['gs_id_site'].' = gsr_id_site_02 ' .
196
	                            		    'AND  gsr_id_site_01 <> gsr_id_site_02 ' .
197
											'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
198
 
199
 
200
	            $resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
201
	            (DB::isError($resultat_est_traduction))
202
	                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
203
	                : '';
204
 
205
	            if ( $resultat_est_traduction->numRows() == 0 ) {
206
		    		$requete_traduction =   'SELECT gsr_id_site_01 '.
207
		                                    'FROM  gen_site_relation, gen_site '.
208
		                                    'WHERE '.$ligne['gs_id_site'].' = gsr_id_site_01 ' .
209
		                                    'AND gsr_id_site_02 = gs_id_site '.
210
		                                    'AND gs_ce_i18n = "'.$langue_test.'" '.
211
		                                    'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
212
 
213
		            $resultat_traduction = $objet_pear_db->query($requete_traduction);
214
		            (DB::isError($resultat_traduction))
215
		                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction))
216
		                : '';
217
 
218
		            if ( $resultat_traduction->numRows() == 0 ) {
219
		            	$liste_site[] = $ligne;
220
		            }
221
 
222
		            $resultat_traduction->free();
223
	            }
224
 
225
	    }
226
	    $resultat->free();
227
	}
228
 
229
 
230
    if (count($liste_site) == 0 ) {
231
        $retour =  str_repeat(' ', $indent_origine + ($indent_pas * 0)).
232
                '<!-- '.SESI_LG_ETIQUETTE_VALIDER.' -->';
233
    } else {
234
        // Préparation de l'url de retour du formulaire
1417 jp_milcent 235
        $objet_pear_url = & new Pap_URL($url_base);
236
		$objet_pear_url->setPermalienBool(false);
237
 
1090 florian 238
        // Préparation du code du sites
239
        $champs_code_site = ($url_id_type_site == 'int') ? 'gs_code_num' : 'gs_code_alpha';
240
 
241
        // Préparation du formulaire
242
        $retour = str_repeat(' ', $indent_origine + ($indent_pas * 0)).
371 jpm 243
                '<form id="sesi_selecteur" ';
40 jpm 244
        // Test sur XHTML strict
245
        if ($bln_xhtml_strict == 0) {
371 jpm 246
            $retour .= 'name="sesi_selecteur" ';
40 jpm 247
        }
248
        $retour .= 'action="'.$objet_pear_url->getURL().'" method="get">'."\n";
1090 florian 249
 
250
        $retour .= str_repeat(' ', $indent_origine + ($indent_pas * 1)).
251
                '<fieldset>'."\n";
252
        $retour .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
754 ddelon 253
                '<legend>'.SESI_LG_LEGENDE.'</legend>'."\n";
1090 florian 254
        $retour .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
255
                '<select id="sesi_'.$url_cle_site.'" name="'.$url_cle_site.'" onchange="javascript:this.form.submit();">'."\n";
256
        $retour .= str_repeat(' ', $indent_origine + ($indent_pas * 3)).
257
                '<option value="'.$code_site.'" selected="selected">'.SESI_LG_DEFAUT.'</option>'."\n";
258
        foreach ($liste_site as $ligne ) {
259
            // Initialisation des variables
260
            $nom = $ligne['gs_nom'];
261
            $retour .= str_repeat(' ', $indent_origine + ($indent_pas * 3)).
262
                    '<option value="'.$ligne[$champs_code_site].'">'.$nom.'</option>'."\n";
263
        }
264
        $retour .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
265
                '</select>'."\n";
266
        $retour .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
267
                '<input id="sesi_ok" name="sesi_ok" type="submit" value="'.SESI_LG__VALIDER.'"/>'."\n";
268
        $retour .= str_repeat(' ', $indent_origine + ($indent_pas * 1)).
269
                '</fieldset>'."\n";
270
        if ($langue_test != GEN_I18N_ID_DEFAUT) {
271
	        $retour .= str_repeat(' ', $indent_origine + ($indent_pas * 1)).
272
					 '<input name="'.$url_cle_i18n.'" type="hidden" value="'.$id_langue.'"/>'."\n";
273
        }
274
        $retour .= str_repeat(' ', $indent_origine + ($indent_pas * 0)).
275
        '</form>'."\n";
276
 
277
 
278
    }
279
 
280
    return $retour;
281
}
282
 
283
// +------------------------------------------------------------------------------------------------------+
284
// |                                            PIED du PROGRAMME                                         |
285
// +------------------------------------------------------------------------------------------------------+
286
 
287
 
288
 
289
/* +--Fin du code ----------------------------------------------------------------------------------------+
290
*
4 jpm 291
* $Log: not supported by cvs2svn $
1417 jp_milcent 292
* Revision 1.11  2006-12-01 16:33:40  florian
293
* Amélioration de la gestion des applettes et compatibilité avec le nouveau mode de gestion de l'inclusion des applettes.
294
*
1090 florian 295
* Revision 1.10  2006/10/11 17:20:19  jp_milcent
296
* Formatage du code.
297
*
1028 jp_milcent 298
* Revision 1.9  2006/04/28 12:41:49  florian
299
* corrections erreurs chemin
300
*
832 florian 301
* Revision 1.8  2006/03/02 10:49:49  ddelon
302
* Fusion branche multilinguisme dans branche principale
303
*
754 ddelon 304
* Revision 1.7.2.4  2006/02/28 14:02:07  ddelon
305
* Finition multilinguisme
306
*
307
* Revision 1.7.2.3  2006/01/19 21:26:20  ddelon
308
* Multilinguisme site + bug ftp
309
*
310
* Revision 1.7.2.2  2005/12/20 14:40:24  ddelon
311
* Fusion Head vers Livraison
312
*
313
* Revision 1.7.2.1  2005/12/07 19:46:14  ddelon
314
* Merge + navi sites
315
*
316
* Revision 1.7  2005/05/25 12:53:00  jpm
317
* Changement et ajout d'attributs id.
318
*
371 jpm 319
* Revision 1.6  2005/05/23 09:31:43  jpm
320
* Ajout d'une majuscule à un txt.
321
*
370 jpm 322
* Revision 1.5  2004/10/26 18:42:02  jpm
323
* Possibilité d'externaliser l'applette.
324
* Gestion des sites externes.
325
*
116 jpm 326
* Revision 1.4  2004/09/15 09:32:01  jpm
327
* Mise en conformité avec le standard XHTML Strict.
328
*
40 jpm 329
* Revision 1.3  2004/07/06 17:07:16  jpm
330
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
331
*
25 jpm 332
* Revision 1.2  2004/06/21 07:37:50  alex
333
* Modification d'un label
334
*
17 alex 335
* Revision 1.1  2004/06/15 15:05:47  jpm
336
* Changement de nom et d'arborescence de Genesia en Papyrus.
337
*
4 jpm 338
* Revision 1.5  2004/05/05 08:27:12  jpm
339
* Ajout du paramétrage de l'indentation et l'utilisation de variable pour contenir les textes de l'appli.
1090 florian 340
*
341
* Revision 1.4  2004/05/05 06:44:28  jpm
342
* Complément des commentaires indiquant les paquetages nécessaire à l'applette.
343
*
344
* Revision 1.3  2004/05/03 11:19:10  jpm
345
* Intégration de la variable globale de Génésia dans les arguments de la fonction de l'applette.
346
*
347
* Revision 1.2  2004/05/01 16:13:11  jpm
348
* Ajout du nom de la balise de l'applette dans le code de l'applette.
349
*
350
* Revision 1.1  2004/05/01 10:30:59  jpm
351
* Ajout de l'applette selecteur de sites.
352
*
353
*
354
* +-- Fin du code ----------------------------------------------------------------------------------------+
355
*/
4 jpm 356
?>