Subversion Repositories Applications.papyrus

Rev

Rev 4 | Rev 25 | 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 
// +------------------------------------------------------------------------------------------------------+
17 alex 22 
// CVS : $Id: selecteur_sites.php,v 1.2 2004-06-21 07:37:50 alex 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
33 
*
34 
*@package Applette
35 
*@subpackage Selecteur sites
36 
//Auteur original :
37 
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
38 
//Autres auteurs :
39 
*@author        Aucun
40 
*@copyright     Tela-Botanica 2000-2004
17 alex 41 
*@version       $Revision: 1.2 $ $Date: 2004-06-21 07:37:50 $
4 jpm 42 
// +------------------------------------------------------------------------------------------------------+
43 
*/
44 
 
45 
// +------------------------------------------------------------------------------------------------------+
46 
// |                                            ENTÊTE du PROGRAMME                                       |
47 
// +------------------------------------------------------------------------------------------------------+
48 
$_GEN_commun['info_applette_nom_fonction'] = 'afficherSelecteurSite';
49 
$_GEN_commun['info_applette_balise'] = 'SELECTEUR_SITES';
50 
 
51 
// +------------------------------------------------------------------------------------------------------+
52 
// |                                            CORPS du PROGRAMME                                        |
53 
// +------------------------------------------------------------------------------------------------------+
54 
 
55 
// +------------------------------------------------------------------------------------------------------+
56 
// |                                           LISTE de FONCTIONS                                         |
57 
// +------------------------------------------------------------------------------------------------------+
58 
/** Fonnction GEN_afficherContenuApplette() - Fournit un formulaire de sélection des sites.
59 
*
60 
* Renvoie un formulaire permettant de passer de site en site pour une langue donnée.
61 
* Le formulaire affiche les noms des sites en fonctions de la langue passée dans l'url.
62 
* L'url renvoyée comporte seulement le nom du site, ainsi la langue par défaut défini
63 
* par l'utilisateur est employée pour implémenter la variable $_GEN_commun['url_i18n'].
64 
* Necessite l'utilisation de Pear Net_URL par le programme appelant cette fonction.
65 
*
66 
* @param  array  tableau d'éventuel arguments présent dans la balise transmis à la fonction.
67 
* @param  array  tableau global de Papyrus.
68 
* @return   string  formulaire XHTML contenant les sites disponibles.
69 
*/
70 
function afficherSelecteurSite($tab_arguments, $_GEN_commun)
71 
{
72 
    // Initialisation de variable de configuration.
73 
    $objet_pear_db = $_GEN_commun['pear_db'];//objet Pear créé par DB contenant la connexion à la base de données.
74 
    $code_site = $_GEN_commun['url_site'];//identifiant du site courant.
75 
    $id_langue = $_GEN_commun['url_i18n'];//identifiant de la langue principale du site courant.
76 
    $url_cle_site = GEN_URL_CLE_SITE;
77 
    $url_cle_i18n = GEN_URL_CLE_I18N;
78 
    $url_id_type_site = GEN_URL_ID_TYPE_SITE;
79 
    $indent_origine = 12;// Indentation de départ en nombre d'espace
80 
    $indent_pas     = 4;// Pas d'indentation en nombre d'espace
81 
 
82 
    // Texte à traduire
83 
    $etiquette_legende = 'Sélecteur de monde';
84 
    $etiquette_option_defaut = 'changer de monde';
17 alex 85 
    $etiquette_bouton_valider = 'ok';
4 jpm 86 
    $etiquette_erreur = 'Un seul site disponible dans Génésia.';
87 
 
88 
    // On recherche l'ensemble des sites principaux en excluant le site admin (administration de Génésia).
89 
    $requete =  'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom '.
90 
                'FROM gen_site, gen_site_relation '.
91 
                'WHERE './/gs_id_site <> 1 '.// 1 correspond à l'identifiant du site Admin par défaut.
92 
                'gsr_id_site_01 = gsr_id_site_02 './/'AND
93 
                'AND gsr_id_valeur = 102 '.// 102 = site "principal"
94 
                'AND gs_id_site = gsr_id_site_01';
95 
 
96 
    $resultat = $objet_pear_db->query($requete);
97 
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
98 
    if ( $resultat->numRows() == 0 ) {
99 
        $res =  str_repeat(' ', $indent_origine + ($indent_pas * 0)).
100 
                '<!-- '.$etiquette_erreur.' -->';
101 
    } else {
102 
        // Préparation de l'url de retour du formulaire
103 
        $objet_pear_url = & new Net_URL('http://'.$_SERVER['HTTP_HOST'].$_SERVER['PHP_SELF']);
104 
        $objet_pear_url->addQueryString($url_cle_i18n, $id_langue);
105 
        // Préparation du code du sites
106 
        $champs_code_site = ($url_id_type_site == 'int') ? 'gs_code_num' : 'gs_code_alpha';
107 
 
108 
        // Préparation du formulaire
109 
        $res = str_repeat(' ', $indent_origine + ($indent_pas * 0)).
110 
                '<form id="selecteur_sites" name="selecteur_sites" action="'.$objet_pear_url->getURL().'" method="get">'."\n";
111 
        $res .= str_repeat(' ', $indent_origine + ($indent_pas * 1)).
112 
                '<fieldset>'."\n";
113 
        $res .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
114 
                '<legend>'.$etiquette_legende.'</legend>'."\n";
115 
        $res .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
17 alex 116 
                '<select id="'.$url_cle_site.'" name="'.$url_cle_site.'" onchange="javascript:this.form.submit();">'."\n";
4 jpm 117 
        $res .= str_repeat(' ', $indent_origine + ($indent_pas * 3)).
118 
                '<option value="'.$code_site.'" selected="selected">'.$etiquette_option_defaut.'</option>'."\n";
119 
        while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
120 
            // Initialisation des variables
121 
            $nom = '';
122 
 
123 
            // Recherche de traduction
124 
            $requete_traduction =   'SELECT gs_ce_i18n, gs_nom '.
125 
                                    'FROM gen_site, gen_site_relation '.
126 
                                    'WHERE '.$ligne['gs_id_site'].' = gsr_id_site_01 '.
127 
                                    'AND gsr_id_valeur = 1 '. // 1 = "avoir traduction"
128 
                                    'AND gsr_id_site_02 = gs_id_site '.
129 
                                    'AND gs_ce_i18n = "'.$id_langue.'"';
130 
 
131 
            $resultat_traduction = $objet_pear_db->query($requete_traduction);
132 
            (DB::isError($resultat_traduction))
133 
                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction))
134 
                : '';
135 
            if ( $resultat_traduction->numRows() != 0 ) {
136 
                $ligne_traduction = $resultat_traduction->fetchRow(DB_FETCHMODE_OBJECT);
137 
                $nom = $ligne_traduction->gs_nom;
138 
            } else {
139 
                $nom = $ligne['gs_nom'];
140 
            }
141 
            $resultat_traduction->free();
142 
            $res .= str_repeat(' ', $indent_origine + ($indent_pas * 3)).
143 
                    '<option value="'.$ligne[$champs_code_site].'">'.$nom.'</option>'."\n";
144 
        }
145 
        $res .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
146 
                '</select>'."\n";
147 
        $res .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
148 
                '<input type="submit" value="'.$etiquette_bouton_valider.'"/>'."\n";
149 
        $res .= str_repeat(' ', $indent_origine + ($indent_pas * 1)).
150 
                '</fieldset>'."\n";
151 
        $res .= str_repeat(' ', $indent_origine + ($indent_pas * 0)).
152 
                '</form>'."\n";
153 
    }
154 
    $resultat->free();
155 
 
156 
    return $res;
157 
}
158 
 
159 
// +------------------------------------------------------------------------------------------------------+
160 
// |                                            PIED du PROGRAMME                                         |
161 
// +------------------------------------------------------------------------------------------------------+
162 
 
163 
 
164 
 
165 
/* +--Fin du code ----------------------------------------------------------------------------------------+
166 
*
167 
* $Log: not supported by cvs2svn $
17 alex 168 
* Revision 1.1  2004/06/15 15:05:47  jpm
169 
* Changement de nom et d'arborescence de Genesia en Papyrus.
170 
*
4 jpm 171 
* Revision 1.5  2004/05/05 08:27:12  jpm
172 
* Ajout du paramétrage de l'indentation et l'utilisation de variable pour contenir les textes de l'appli.
173 
*
174 
* Revision 1.4  2004/05/05 06:44:28  jpm
175 
* Complément des commentaires indiquant les paquetages nécessaire à l'applette.
176 
*
177 
* Revision 1.3  2004/05/03 11:19:10  jpm
178 
* Intégration de la variable globale de Génésia dans les arguments de la fonction de l'applette.
179 
*
180 
* Revision 1.2  2004/05/01 16:13:11  jpm
181 
* Ajout du nom de la balise de l'applette dans le code de l'applette.
182 
*
183 
* Revision 1.1  2004/05/01 10:30:59  jpm
184 
* Ajout de l'applette selecteur de sites.
185 
*
186 
*
187 
* +-- Fin du code ----------------------------------------------------------------------------------------+
188 
*/
189 
?>