| New file |
|---|
| 0,0 → 1,186 |
|---|
| <?php |
| /*vim: set expandtab tabstop=4 shiftwidth=4: */ |
| // +------------------------------------------------------------------------------------------------------+ |
| // | PHP version 4.1 | |
| // +------------------------------------------------------------------------------------------------------+ |
| // | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) | |
| // +------------------------------------------------------------------------------------------------------+ |
| // | This library is free software; you can redistribute it and/or | |
| // | modify it under the terms of the GNU Lesser General Public | |
| // | License as published by the Free Software Foundation; either | |
| // | version 2.1 of the License, or (at your option) any later version. | |
| // | | |
| // | This library is distributed in the hope that it will be useful, | |
| // | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| // | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| // | Lesser General Public License for more details. | |
| // | | |
| // | 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.1 2004-06-15 15:05:47 jpm Exp $ |
| /** |
| * Applette : selecteur sites |
| * |
| * Génère un formulaire contenant un menu déroulant permettant de choisir un site parmis les disponibles. |
| * Nécessite : |
| * - Constantes et globales de Papyrus. |
| * - Base de données de Papyrus |
| * - Pear Net_URL |
| * - Pear DB |
| * - API Débogage 1.0 |
| * |
| *@package Applette |
| *@subpackage Selecteur sites |
| //Auteur original : |
| *@author Jean-Pascal MILCENT <jpm@tela-botanica.org> |
| //Autres auteurs : |
| *@author Aucun |
| *@copyright Tela-Botanica 2000-2004 |
| *@version $Revision: 1.1 $ $Date: 2004-06-15 15:05:47 $ |
| // +------------------------------------------------------------------------------------------------------+ |
| */ |
| |
| // +------------------------------------------------------------------------------------------------------+ |
| // | ENTÊTE du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| $_GEN_commun['info_applette_nom_fonction'] = 'afficherSelecteurSite'; |
| $_GEN_commun['info_applette_balise'] = 'SELECTEUR_SITES'; |
| |
| // +------------------------------------------------------------------------------------------------------+ |
| // | CORPS du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| |
| // +------------------------------------------------------------------------------------------------------+ |
| // | LISTE de FONCTIONS | |
| // +------------------------------------------------------------------------------------------------------+ |
| /** Fonnction GEN_afficherContenuApplette() - Fournit un formulaire de sélection des sites. |
| * |
| * Renvoie un formulaire permettant de passer de site en site pour une langue donnée. |
| * Le formulaire affiche les noms des sites en fonctions de la langue passée dans l'url. |
| * L'url renvoyée comporte seulement le nom du site, ainsi la langue par défaut défini |
| * par l'utilisateur est employée pour implémenter la variable $_GEN_commun['url_i18n']. |
| * Necessite l'utilisation de Pear Net_URL par le programme appelant cette fonction. |
| * |
| * @param array tableau d'éventuel arguments présent dans la balise transmis à la fonction. |
| * @param array tableau global de Papyrus. |
| * @return string formulaire XHTML contenant les sites disponibles. |
| */ |
| function afficherSelecteurSite($tab_arguments, $_GEN_commun) |
| { |
| // Initialisation de variable de configuration. |
| $objet_pear_db = $_GEN_commun['pear_db'];//objet Pear créé par DB contenant la connexion à la base de données. |
| $code_site = $_GEN_commun['url_site'];//identifiant du site courant. |
| $id_langue = $_GEN_commun['url_i18n'];//identifiant de la langue principale du site courant. |
| $url_cle_site = GEN_URL_CLE_SITE; |
| $url_cle_i18n = GEN_URL_CLE_I18N; |
| $url_id_type_site = GEN_URL_ID_TYPE_SITE; |
| $indent_origine = 12;// Indentation de départ en nombre d'espace |
| $indent_pas = 4;// Pas d'indentation en nombre d'espace |
| |
| // Texte à traduire |
| $etiquette_legende = 'Sélecteur de monde'; |
| $etiquette_option_defaut = 'changer de monde'; |
| $etiquette_bouton_valider = 'OK'; |
| $etiquette_erreur = 'Un seul site disponible dans Génésia.'; |
| |
| // On recherche l'ensemble des sites principaux en excluant le site admin (administration de Génésia). |
| $requete = 'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom '. |
| 'FROM gen_site, gen_site_relation '. |
| 'WHERE './/gs_id_site <> 1 '.// 1 correspond à l'identifiant du site Admin par défaut. |
| 'gsr_id_site_01 = gsr_id_site_02 './/'AND |
| 'AND gsr_id_valeur = 102 '.// 102 = site "principal" |
| 'AND gs_id_site = gsr_id_site_01'; |
| |
| $resultat = $objet_pear_db->query($requete); |
| (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : ''; |
| if ( $resultat->numRows() == 0 ) { |
| $res = str_repeat(' ', $indent_origine + ($indent_pas * 0)). |
| '<!-- '.$etiquette_erreur.' -->'; |
| } else { |
| // Préparation de l'url de retour du formulaire |
| $objet_pear_url = & new Net_URL('http://'.$_SERVER['HTTP_HOST'].$_SERVER['PHP_SELF']); |
| $objet_pear_url->addQueryString($url_cle_i18n, $id_langue); |
| // Préparation du code du sites |
| $champs_code_site = ($url_id_type_site == 'int') ? 'gs_code_num' : 'gs_code_alpha'; |
| |
| // Préparation du formulaire |
| $res = str_repeat(' ', $indent_origine + ($indent_pas * 0)). |
| '<form id="selecteur_sites" name="selecteur_sites" action="'.$objet_pear_url->getURL().'" method="get">'."\n"; |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 1)). |
| '<fieldset>'."\n"; |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 2)). |
| '<legend>'.$etiquette_legende.'</legend>'."\n"; |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 2)). |
| '<select id="'.$url_cle_site.'" name="'.$url_cle_site.'">'."\n"; |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 3)). |
| '<option value="'.$code_site.'" selected="selected">'.$etiquette_option_defaut.'</option>'."\n"; |
| while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) { |
| // Initialisation des variables |
| $nom = ''; |
| |
| // Recherche de traduction |
| $requete_traduction = 'SELECT gs_ce_i18n, gs_nom '. |
| 'FROM gen_site, gen_site_relation '. |
| 'WHERE '.$ligne['gs_id_site'].' = gsr_id_site_01 '. |
| 'AND gsr_id_valeur = 1 '. // 1 = "avoir traduction" |
| 'AND gsr_id_site_02 = gs_id_site '. |
| 'AND gs_ce_i18n = "'.$id_langue.'"'; |
| |
| $resultat_traduction = $objet_pear_db->query($requete_traduction); |
| (DB::isError($resultat_traduction)) |
| ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction)) |
| : ''; |
| if ( $resultat_traduction->numRows() != 0 ) { |
| $ligne_traduction = $resultat_traduction->fetchRow(DB_FETCHMODE_OBJECT); |
| $nom = $ligne_traduction->gs_nom; |
| } else { |
| $nom = $ligne['gs_nom']; |
| } |
| $resultat_traduction->free(); |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 3)). |
| '<option value="'.$ligne[$champs_code_site].'">'.$nom.'</option>'."\n"; |
| } |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 2)). |
| '</select>'."\n"; |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 2)). |
| '<input type="submit" value="'.$etiquette_bouton_valider.'"/>'."\n"; |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 1)). |
| '</fieldset>'."\n"; |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 0)). |
| '</form>'."\n"; |
| } |
| $resultat->free(); |
| |
| return $res; |
| } |
| |
| // +------------------------------------------------------------------------------------------------------+ |
| // | PIED du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| |
| |
| |
| /* +--Fin du code ----------------------------------------------------------------------------------------+ |
| * |
| * $Log: not supported by cvs2svn $ |
| * Revision 1.5 2004/05/05 08:27:12 jpm |
| * Ajout du paramétrage de l'indentation et l'utilisation de variable pour contenir les textes de l'appli. |
| * |
| * Revision 1.4 2004/05/05 06:44:28 jpm |
| * Complément des commentaires indiquant les paquetages nécessaire à l'applette. |
| * |
| * Revision 1.3 2004/05/03 11:19:10 jpm |
| * Intégration de la variable globale de Génésia dans les arguments de la fonction de l'applette. |
| * |
| * Revision 1.2 2004/05/01 16:13:11 jpm |
| * Ajout du nom de la balise de l'applette dans le code de l'applette. |
| * |
| * Revision 1.1 2004/05/01 10:30:59 jpm |
| * Ajout de l'applette selecteur de sites. |
| * |
| * |
| * +-- Fin du code ----------------------------------------------------------------------------------------+ |
| */ |
| ?> |