Subversion Repositories Applications.papyrus

Compare Revisions

Ignore whitespace Rev 753 → Rev 754

/trunk/papyrus/applettes/selecteur_sites/selecteur_sites.php
19,7 → 19,7
// | 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.7 2005-05-25 12:53:00 jpm Exp $
// CVS : $Id: selecteur_sites.php,v 1.8 2006-03-02 10:49:49 ddelon Exp $
/**
* Applette : selecteur sites
*
40,7 → 40,7
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.7 $ $Date: 2005-05-25 12:53:00 $
*@version $Revision: 1.8 $ $Date: 2006-03-02 10:49:49 $
// +------------------------------------------------------------------------------------------------------+
*/
 
50,6 → 50,19
$_GEN_commun['info_applette_nom_fonction'] = 'afficherSelecteurSite';
$_GEN_commun['info_applette_balise'] = 'SELECTEUR_SITES_?(XHTML)?_?(SANS_(?:\d+_?)+)?';
 
 
/** Inclusion du fichier de configuration de cette applette.*/
require_once GEN_CHEMIN_APPLETTE.'selecteur_sites/configuration/sesi_config.inc.php';
 
// Inclusion des fichiers de traduction de l'applette.
if (file_exists(SESI_CHEMIN_LANGUE.'sesi_langue_'.$_GEN_commun['i18n'].'.inc.php')) {
/** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
require_once SESI_CHEMIN_LANGUE.'sesi_langue_'.$_GEN_commun['i18n'].'.inc.php';
} else {
/** Inclusion du fichier de traduction par défaut.*/
require_once SESI_CHEMIN_LANGUE.'sesi_langue_'.SESI_I18N_DEFAUT.'.inc.php';
}
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
61,8 → 74,6
*
* 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.
75,11 → 86,13
$liste_type_site = '102, 103';// Les id des types des sites pouvant apparaître dans le sélecteur
$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.
$id_langue = $_GEN_commun['i18n'];//identifiant de la langue choisie
$url_base = PAP_URL;
$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
102,29 → 115,135
$morceau_requete_id_suppr = 'AND gs_id_site NOT IN ('.$liste_id_suppr.') ';
}
// 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 Papyrus.';
// Recherche de tous les sites langue en cours
// 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 '.
// On recherche l'ensemble des site en excluant le site admin ? (administration de Papyrus).
 
if (isset($id_langue) && ($id_langue!='')) {
$langue_test=$id_langue;
} else {
$langue_test=GEN_I18N_ID_DEFAUT;
}
$requete = 'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom, gs_ce_i18n '.
'FROM gen_site, gen_site_relation '.
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
'AND gs_id_site = gsr_id_site_01 '.
'AND gsr_id_valeur IN ('.$liste_type_site.') '.
$morceau_requete_id_suppr.// Liste des sites ne devant pas figurer
'AND gsr_id_valeur IN ('.$liste_type_site.') '.
'AND gs_ce_i18n = "'.$langue_test.'" '.
$morceau_requete_id_suppr.// Liste des sites ne devant pas figurer
'ORDER BY gs_code_num ASC';// 102 = site "principal" et 103 = site "externe"
$retourultat = $objet_pear_db->query($requete);
(DB::isError($retourultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $retourultat->getMessage(), $requete)) : '';
if ( $retourultat->numRows() == 0 ) {
$resultat = $objet_pear_db->query($requete);
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
$liste_site=array();
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
// Si le site trouvé est une traduction vers la langue principale, on ne le selectionne pas
if ($langue_test == GEN_I18N_ID_DEFAUT) {
$requete_est_traduction = 'SELECT gsr_id_site_01 '.
'FROM gen_site_relation '.
'WHERE '.$ligne['gs_id_site'].' = gsr_id_site_02 ' .
'AND gsr_id_site_01 <> gsr_id_site_02 ' .
'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
$resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
(DB::isError($resultat_est_traduction))
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
: '';
if ( $resultat_est_traduction->numRows() == 0 ) {
$liste_site[]=$ligne;
}
}
else {
$liste_site[]=$ligne;
}
}
$resultat->free();
 
// Si la langue en cours n'est pas la langue par défaut, recherche des sites ayant comme langue
// la langue par defaut et non traduits dans la langue en cours.
 
// On recherche l'ensemble des site en excluant le site admin (administration de Papyrus).
 
if ($langue_test != GEN_I18N_ID_DEFAUT) {
// Site ayant commme langue, la langue par defaut
$requete = 'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom, gs_ce_i18n '.
'FROM gen_site, gen_site_relation '.
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
'AND gs_id_site = gsr_id_site_01 '.
'AND gsr_id_valeur IN ('.$liste_type_site.') '.
'AND gs_ce_i18n = "'.GEN_I18N_ID_DEFAUT.'" '.
$morceau_requete_id_suppr.// Liste des sites ne devant pas figurer
'ORDER BY gs_code_num ASC';// 102 = site "principal" et 103 = site "externe"
$resultat = $objet_pear_db->query($requete);
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
// Est il traduit ? Non, alors affichage
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
if (isset($id_langue) && ($id_langue!='')) {
$langue_test=$id_langue;
} else {
$langue_test=GEN_I18N_ID_DEFAUT;
}
$requete_est_traduction = 'SELECT gsr_id_site_01 '.
'FROM gen_site_relation '.
'WHERE '.$ligne['gs_id_site'].' = gsr_id_site_02 ' .
'AND gsr_id_site_01 <> gsr_id_site_02 ' .
'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
$resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
(DB::isError($resultat_est_traduction))
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
: '';
if ( $resultat_est_traduction->numRows() == 0 ) {
$requete_traduction = 'SELECT gsr_id_site_01 '.
'FROM gen_site_relation, gen_site '.
'WHERE '.$ligne['gs_id_site'].' = gsr_id_site_01 ' .
'AND gsr_id_site_02 = gs_id_site '.
'AND gs_ce_i18n = "'.$langue_test.'" '.
'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
$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 ) {
$liste_site []=$ligne;
}
$resultat_traduction->free();
}
}
$resultat->free();
}
if (count($liste_site) == 0 ) {
$retour = str_repeat(' ', $indent_origine + ($indent_pas * 0)).
'<!-- '.$etiquette_erreur.' -->';
'<!-- '.SESI_LG_ETIQUETTE_VALIDER.' -->';
} else {
// Préparation de l'url de retour du formulaire
$objet_pear_url = & new Net_URL($url_base);
//$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';
140,34 → 259,14
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 1)).
'<fieldset>'."\n";
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
'<legend>'.$etiquette_legende.'</legend>'."\n";
'<legend>'.SESI_LG_LEGENDE.'</legend>'."\n";
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
'<select id="sesi_'.$url_cle_site.'" name="'.$url_cle_site.'" onchange="javascript:this.form.submit();">'."\n";
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 3)).
'<option value="'.$code_site.'" selected="selected">'.$etiquette_option_defaut.'</option>'."\n";
while ($ligne = $retourultat->fetchRow(DB_FETCHMODE_ASSOC)) {
'<option value="'.$code_site.'" selected="selected">'.SESI_LG_DEFAUT.'</option>'."\n";
foreach ($liste_site as $ligne ) {
// 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.'"';
$retourultat_traduction = $objet_pear_db->query($requete_traduction);
(DB::isError($retourultat_traduction))
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $retourultat_traduction->getMessage(), $requete_traduction))
: '';
if ( $retourultat_traduction->numRows() != 0 ) {
$ligne_traduction = $retourultat_traduction->fetchRow(DB_FETCHMODE_OBJECT);
$nom = $ligne_traduction->gs_nom;
} else {
$nom = $ligne['gs_nom'];
}
$retourultat_traduction->free();
$nom = $ligne['gs_nom'];
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 3)).
'<option value="'.$ligne[$champs_code_site].'">'.$nom.'</option>'."\n";
}
174,13 → 273,18
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
'</select>'."\n";
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
'<input id="sesi_ok" name="sesi_ok" type="submit" value="'.$etiquette_bouton_valider.'"/>'."\n";
'<input id="sesi_ok" name="sesi_ok" type="submit" value="'.SESI_LG__VALIDER.'"/>'."\n";
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 1)).
'</fieldset>'."\n";
if ($langue_test != GEN_I18N_ID_DEFAUT) {
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 1)).
'<input name="'.$url_cle_i18n.'" type="hidden" value="'.$id_langue.'"/>'."\n";
}
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 0)).
'</form>'."\n";
'</form>'."\n";
}
$retourultat->free();
return $retour;
}
194,6 → 298,21
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.7.2.4 2006/02/28 14:02:07 ddelon
* Finition multilinguisme
*
* Revision 1.7.2.3 2006/01/19 21:26:20 ddelon
* Multilinguisme site + bug ftp
*
* Revision 1.7.2.2 2005/12/20 14:40:24 ddelon
* Fusion Head vers Livraison
*
* Revision 1.7.2.1 2005/12/07 19:46:14 ddelon
* Merge + navi sites
*
* Revision 1.7 2005/05/25 12:53:00 jpm
* Changement et ajout d'attributs id.
*
* Revision 1.6 2005/05/23 09:31:43 jpm
* Ajout d'une majuscule à un txt.
*