Subversion Repositories Applications.papyrus

Rev

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

Rev Author Line No. Line
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
// +------------------------------------------------------------------------------------------------------+
371 jpm 22
// CVS : $Id: selecteur_sites.php,v 1.7 2005-05-25 12:53:00 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
371 jpm 43
*@version       $Revision: 1.7 $ $Date: 2005-05-25 12:53:00 $
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';
370 jpm 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)).
371 jpm 133
                '<form id="sesi_selecteur" ';
40 jpm 134
        // Test sur XHTML strict
135
        if ($bln_xhtml_strict == 0) {
371 jpm 136
            $retour .= 'name="sesi_selecteur" ';
40 jpm 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)).
371 jpm 145
                '<select id="sesi_'.$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)).
371 jpm 177
                '<input id="sesi_ok" name="sesi_ok" 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 $
371 jpm 197
* Revision 1.6  2005/05/23 09:31:43  jpm
198
* Ajout d'une majuscule à un txt.
199
*
370 jpm 200
* Revision 1.5  2004/10/26 18:42:02  jpm
201
* Possibilité d'externaliser l'applette.
202
* Gestion des sites externes.
203
*
116 jpm 204
* Revision 1.4  2004/09/15 09:32:01  jpm
205
* Mise en conformité avec le standard XHTML Strict.
206
*
40 jpm 207
* Revision 1.3  2004/07/06 17:07:16  jpm
208
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
209
*
25 jpm 210
* Revision 1.2  2004/06/21 07:37:50  alex
211
* Modification d'un label
212
*
17 alex 213
* Revision 1.1  2004/06/15 15:05:47  jpm
214
* Changement de nom et d'arborescence de Genesia en Papyrus.
215
*
4 jpm 216
* Revision 1.5  2004/05/05 08:27:12  jpm
217
* Ajout du paramétrage de l'indentation et l'utilisation de variable pour contenir les textes de l'appli.
218
*
219
* Revision 1.4  2004/05/05 06:44:28  jpm
220
* Complément des commentaires indiquant les paquetages nécessaire à l'applette.
221
*
222
* Revision 1.3  2004/05/03 11:19:10  jpm
223
* Intégration de la variable globale de Génésia dans les arguments de la fonction de l'applette.
224
*
225
* Revision 1.2  2004/05/01 16:13:11  jpm
226
* Ajout du nom de la balise de l'applette dans le code de l'applette.
227
*
228
* Revision 1.1  2004/05/01 10:30:59  jpm
229
* Ajout de l'applette selecteur de sites.
230
*
231
*
232
* +-- Fin du code ----------------------------------------------------------------------------------------+
233
*/
234
?>