| 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. |
| * |