| 4 |
jpm |
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 |
// +------------------------------------------------------------------------------------------------------+
|
| 116 |
jpm |
22 |
// CVS : $Id: selecteur_sites.php,v 1.5 2004-10-26 18:42:02 jpm Exp $
|
| 4 |
jpm |
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.
|
| 4 |
jpm |
35 |
*
|
|
|
36 |
*@package Applette
|
| 25 |
jpm |
37 |
*@subpackage Selecteur_sites
|
| 4 |
jpm |
38 |
//Auteur original :
|
|
|
39 |
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
|
|
|
40 |
//Autres auteurs :
|
|
|
41 |
*@author Aucun
|
|
|
42 |
*@copyright Tela-Botanica 2000-2004
|
| 116 |
jpm |
43 |
*@version $Revision: 1.5 $ $Date: 2004-10-26 18:42:02 $
|
| 4 |
jpm |
44 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
45 |
*/
|
|
|
46 |
|
|
|
47 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
48 |
// | ENTÊTE du PROGRAMME |
|
|
|
49 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
50 |
$_GEN_commun['info_applette_nom_fonction'] = 'afficherSelecteurSite';
|
| 116 |
jpm |
51 |
$_GEN_commun['info_applette_balise'] = 'SELECTEUR_SITES_?(XHTML)?_?(SANS_(?:\d+_?)+)?';
|
| 4 |
jpm |
52 |
|
|
|
53 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
54 |
// | CORPS du PROGRAMME |
|
|
|
55 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
56 |
|
|
|
57 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
58 |
// | LISTE de FONCTIONS |
|
|
|
59 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
60 |
/** Fonnction GEN_afficherContenuApplette() - Fournit un formulaire de sélection des sites.
|
|
|
61 |
*
|
|
|
62 |
* Renvoie un formulaire permettant de passer de site en site pour une langue donnée.
|
|
|
63 |
* Le formulaire affiche les noms des sites en fonctions de la langue passée dans l'url.
|
|
|
64 |
* L'url renvoyée comporte seulement le nom du site, ainsi la langue par défaut défini
|
|
|
65 |
* par l'utilisateur est employée pour implémenter la variable $_GEN_commun['url_i18n'].
|
|
|
66 |
* Necessite l'utilisation de Pear Net_URL par le programme appelant cette fonction.
|
|
|
67 |
*
|
|
|
68 |
* @param array tableau d'éventuel arguments présent dans la balise transmis à la fonction.
|
|
|
69 |
* @param array tableau global de Papyrus.
|
|
|
70 |
* @return string formulaire XHTML contenant les sites disponibles.
|
|
|
71 |
*/
|
| 40 |
jpm |
72 |
function afficherSelecteurSite($tab_applette_arguments, $_GEN_commun)
|
| 4 |
jpm |
73 |
{
|
| 116 |
jpm |
74 |
// Initialisation de variable de configuration.
|
|
|
75 |
$liste_type_site = '102, 103';// Les id des types des sites pouvant apparaître dans le sélecteur
|
| 4 |
jpm |
76 |
$objet_pear_db = $_GEN_commun['pear_db'];//objet Pear créé par DB contenant la connexion à la base de données.
|
|
|
77 |
$code_site = $_GEN_commun['url_site'];//identifiant du site courant.
|
|
|
78 |
$id_langue = $_GEN_commun['url_i18n'];//identifiant de la langue principale du site courant.
|
| 116 |
jpm |
79 |
$url_base = PAP_URL;
|
| 4 |
jpm |
80 |
$url_cle_site = GEN_URL_CLE_SITE;
|
|
|
81 |
$url_cle_i18n = GEN_URL_CLE_I18N;
|
|
|
82 |
$url_id_type_site = GEN_URL_ID_TYPE_SITE;
|
|
|
83 |
$indent_origine = 12;// Indentation de départ en nombre d'espace
|
|
|
84 |
$indent_pas = 4;// Pas d'indentation en nombre d'espace
|
| 40 |
jpm |
85 |
|
|
|
86 |
// Récupérations des arguments passés dans la balise.
|
|
|
87 |
// Nous vérifions si on veut du XHTML strict ou pas
|
|
|
88 |
$bln_xhtml_strict = 0;
|
|
|
89 |
if (isset($tab_applette_arguments[2]) && $tab_applette_arguments[2] == 'XHTML') {
|
|
|
90 |
$bln_xhtml_strict = 1;
|
|
|
91 |
}
|
| 116 |
jpm |
92 |
// Nous vérifions s'il y a des sites que nous ne voulons pas afficher:
|
|
|
93 |
$morceau_requete_id_suppr = '';
|
|
|
94 |
if (isset($tab_applette_arguments[3]) && ereg('SANS_(.+)', $tab_applette_arguments[3], $tab_id_suppr_groupe)) {
|
|
|
95 |
if (preg_match('/^\d+$/', $tab_id_suppr_groupe[1])) {
|
|
|
96 |
$liste_id_suppr = $tab_id_suppr_groupe[1];
|
|
|
97 |
} else if (preg_match('/^\d+(?:_\d+)+$/', $tab_id_suppr_groupe[1])) {
|
|
|
98 |
$liste_id_suppr = preg_replace('/_/', ', ', $tab_id_suppr_groupe[1]);
|
|
|
99 |
} else {
|
|
|
100 |
$liste_id_suppr = '0';
|
|
|
101 |
}
|
|
|
102 |
$morceau_requete_id_suppr = 'AND gs_id_site NOT IN ('.$liste_id_suppr.') ';
|
|
|
103 |
}
|
| 4 |
jpm |
104 |
|
|
|
105 |
// Texte à traduire
|
|
|
106 |
$etiquette_legende = 'Sélecteur de monde';
|
|
|
107 |
$etiquette_option_defaut = 'changer de monde';
|
| 17 |
alex |
108 |
$etiquette_bouton_valider = 'ok';
|
| 116 |
jpm |
109 |
$etiquette_erreur = 'Un seul site disponible dans Papyrus.';
|
| 4 |
jpm |
110 |
|
|
|
111 |
// On recherche l'ensemble des sites principaux en excluant le site admin (administration de Génésia).
|
|
|
112 |
$requete = 'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom '.
|
|
|
113 |
'FROM gen_site, gen_site_relation '.
|
| 116 |
jpm |
114 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
|
|
115 |
'AND gs_id_site = gsr_id_site_01 '.
|
|
|
116 |
'AND gsr_id_valeur IN ('.$liste_type_site.') '.
|
|
|
117 |
$morceau_requete_id_suppr.// Liste des sites ne devant pas figurer
|
|
|
118 |
'ORDER BY gs_code_num ASC';// 102 = site "principal" et 103 = site "externe"
|
| 40 |
jpm |
119 |
$retourultat = $objet_pear_db->query($requete);
|
|
|
120 |
(DB::isError($retourultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $retourultat->getMessage(), $requete)) : '';
|
|
|
121 |
if ( $retourultat->numRows() == 0 ) {
|
|
|
122 |
$retour = str_repeat(' ', $indent_origine + ($indent_pas * 0)).
|
| 4 |
jpm |
123 |
'<!-- '.$etiquette_erreur.' -->';
|
|
|
124 |
} else {
|
|
|
125 |
// Préparation de l'url de retour du formulaire
|
| 116 |
jpm |
126 |
$objet_pear_url = & new Net_URL($url_base);
|
|
|
127 |
//$objet_pear_url->addQueryString($url_cle_i18n, $id_langue);
|
| 4 |
jpm |
128 |
// Préparation du code du sites
|
|
|
129 |
$champs_code_site = ($url_id_type_site == 'int') ? 'gs_code_num' : 'gs_code_alpha';
|
|
|
130 |
|
|
|
131 |
// Préparation du formulaire
|
| 40 |
jpm |
132 |
$retour = str_repeat(' ', $indent_origine + ($indent_pas * 0)).
|
|
|
133 |
'<form id="selecteur_sites" ';
|
|
|
134 |
// Test sur XHTML strict
|
|
|
135 |
if ($bln_xhtml_strict == 0) {
|
|
|
136 |
$retour .= 'name="selecteur_sites" ';
|
|
|
137 |
}
|
|
|
138 |
$retour .= 'action="'.$objet_pear_url->getURL().'" method="get">'."\n";
|
|
|
139 |
|
|
|
140 |
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 1)).
|
| 4 |
jpm |
141 |
'<fieldset>'."\n";
|
| 40 |
jpm |
142 |
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
|
|
|
143 |
'<legend>'.$etiquette_legende.'</legend>'."\n";
|
|
|
144 |
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
|
| 17 |
alex |
145 |
'<select id="'.$url_cle_site.'" name="'.$url_cle_site.'" onchange="javascript:this.form.submit();">'."\n";
|
| 40 |
jpm |
146 |
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 3)).
|
| 4 |
jpm |
147 |
'<option value="'.$code_site.'" selected="selected">'.$etiquette_option_defaut.'</option>'."\n";
|
| 40 |
jpm |
148 |
while ($ligne = $retourultat->fetchRow(DB_FETCHMODE_ASSOC)) {
|
| 4 |
jpm |
149 |
// Initialisation des variables
|
|
|
150 |
$nom = '';
|
|
|
151 |
|
|
|
152 |
// Recherche de traduction
|
|
|
153 |
$requete_traduction = 'SELECT gs_ce_i18n, gs_nom '.
|
|
|
154 |
'FROM gen_site, gen_site_relation '.
|
|
|
155 |
'WHERE '.$ligne['gs_id_site'].' = gsr_id_site_01 '.
|
|
|
156 |
'AND gsr_id_valeur = 1 '. // 1 = "avoir traduction"
|
|
|
157 |
'AND gsr_id_site_02 = gs_id_site '.
|
|
|
158 |
'AND gs_ce_i18n = "'.$id_langue.'"';
|
|
|
159 |
|
| 40 |
jpm |
160 |
$retourultat_traduction = $objet_pear_db->query($requete_traduction);
|
|
|
161 |
(DB::isError($retourultat_traduction))
|
|
|
162 |
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $retourultat_traduction->getMessage(), $requete_traduction))
|
| 4 |
jpm |
163 |
: '';
|
| 40 |
jpm |
164 |
if ( $retourultat_traduction->numRows() != 0 ) {
|
|
|
165 |
$ligne_traduction = $retourultat_traduction->fetchRow(DB_FETCHMODE_OBJECT);
|
| 4 |
jpm |
166 |
$nom = $ligne_traduction->gs_nom;
|
|
|
167 |
} else {
|
|
|
168 |
$nom = $ligne['gs_nom'];
|
|
|
169 |
}
|
| 40 |
jpm |
170 |
$retourultat_traduction->free();
|
|
|
171 |
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 3)).
|
| 4 |
jpm |
172 |
'<option value="'.$ligne[$champs_code_site].'">'.$nom.'</option>'."\n";
|
|
|
173 |
}
|
| 40 |
jpm |
174 |
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
|
| 4 |
jpm |
175 |
'</select>'."\n";
|
| 40 |
jpm |
176 |
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
|
| 4 |
jpm |
177 |
'<input type="submit" value="'.$etiquette_bouton_valider.'"/>'."\n";
|
| 40 |
jpm |
178 |
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 1)).
|
| 4 |
jpm |
179 |
'</fieldset>'."\n";
|
| 40 |
jpm |
180 |
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 0)).
|
| 4 |
jpm |
181 |
'</form>'."\n";
|
|
|
182 |
}
|
| 40 |
jpm |
183 |
$retourultat->free();
|
| 4 |
jpm |
184 |
|
| 40 |
jpm |
185 |
return $retour;
|
| 4 |
jpm |
186 |
}
|
|
|
187 |
|
|
|
188 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
189 |
// | PIED du PROGRAMME |
|
|
|
190 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
191 |
|
|
|
192 |
|
|
|
193 |
|
|
|
194 |
/* +--Fin du code ----------------------------------------------------------------------------------------+
|
|
|
195 |
*
|
|
|
196 |
* $Log: not supported by cvs2svn $
|
| 116 |
jpm |
197 |
* Revision 1.4 2004/09/15 09:32:01 jpm
|
|
|
198 |
* Mise en conformité avec le standard XHTML Strict.
|
|
|
199 |
*
|
| 40 |
jpm |
200 |
* Revision 1.3 2004/07/06 17:07:16 jpm
|
|
|
201 |
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
|
|
|
202 |
*
|
| 25 |
jpm |
203 |
* Revision 1.2 2004/06/21 07:37:50 alex
|
|
|
204 |
* Modification d'un label
|
|
|
205 |
*
|
| 17 |
alex |
206 |
* Revision 1.1 2004/06/15 15:05:47 jpm
|
|
|
207 |
* Changement de nom et d'arborescence de Genesia en Papyrus.
|
|
|
208 |
*
|
| 4 |
jpm |
209 |
* Revision 1.5 2004/05/05 08:27:12 jpm
|
|
|
210 |
* Ajout du paramétrage de l'indentation et l'utilisation de variable pour contenir les textes de l'appli.
|
|
|
211 |
*
|
|
|
212 |
* Revision 1.4 2004/05/05 06:44:28 jpm
|
|
|
213 |
* Complément des commentaires indiquant les paquetages nécessaire à l'applette.
|
|
|
214 |
*
|
|
|
215 |
* Revision 1.3 2004/05/03 11:19:10 jpm
|
|
|
216 |
* Intégration de la variable globale de Génésia dans les arguments de la fonction de l'applette.
|
|
|
217 |
*
|
|
|
218 |
* Revision 1.2 2004/05/01 16:13:11 jpm
|
|
|
219 |
* Ajout du nom de la balise de l'applette dans le code de l'applette.
|
|
|
220 |
*
|
|
|
221 |
* Revision 1.1 2004/05/01 10:30:59 jpm
|
|
|
222 |
* Ajout de l'applette selecteur de sites.
|
|
|
223 |
*
|
|
|
224 |
*
|
|
|
225 |
* +-- Fin du code ----------------------------------------------------------------------------------------+
|
|
|
226 |
*/
|
|
|
227 |
?>
|