Subversion Repositories Applications.papyrus

Compare Revisions

Ignore whitespace Rev 832 → Rev 1017

/trunk/papyrus/applications/admin_menu/bibliotheque/adme_general.fonct.php
32,7 → 32,7
// pris connaissance de la licence CeCILL, et que vous en avez accepté les
// termes.
// ----
// CVS : $Id: adme_general.fonct.php,v 1.16 2006-04-28 12:41:49 florian Exp $
// CVS : $Id: adme_general.fonct.php,v 1.17 2006-10-06 13:38:45 florian Exp $
/**
* Contient l'affichage par défaut de l'appli quand aucune actin
*
46,7 → 46,7
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.16 $ $Date: 2006-04-28 12:41:49 $
*@version $Revision: 1.17 $ $Date: 2006-10-06 13:38:45 $
// +------------------------------------------------------------------------------------------------------+
*/
 
68,19 → 68,6
*/
function ADME_afficherFormPrincipal($objet_pear_db, $objet_pear_url, $adme_site_id, $adme_menu_id, $adme_action)
{
/*
$id_langue = $GLOBALS['_GEN_commun']['i18n'];//identifiant de la langue choisie
//---------------------------------------------------------------------------------------------------------------
// Nous affichons la liste des menus classiques et communs
$retour = '';
 
if (isset($id_langue) && ($id_langue!='')) {
$langue_test=$id_langue;
} else {
$langue_test=GEN_I18N_ID_DEFAUT;
}
*/
$db=$objet_pear_db;
95,7 → 82,20
}
 
//$langue_test=GEN_I18N_ID_DEFAUT;
 
//requete pour recuperer l'id du menu par defaut
$requete = 'SELECT gs_id_site '.
'FROM gen_site, gen_site_relation '.
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
'AND gsr_id_site_01 = gs_id_site '.
'AND gsr_id_valeur=101 '.
'AND gs_ce_i18n = "'.$langue_test.'" ';
$resultat = $db->query($requete);
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
$id_site_par_defaut=$ligne->gs_id_site;
}
// Liste des sites principaux :
// Recherche de tous les sites langue en cours
111,6 → 111,8
$resultat = $db->query($requete);
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;
$liste_site=array();
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
208,120 → 210,7
}
$resultat->free();
}
/*
$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 = 102 '.// 102 = site "principal"
'AND gs_ce_i18n = "'.$langue_test.'" '.
'ORDER BY gsr_ordre DESC';
$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_OBJECT)) {
// 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();
// 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 = 102 '.// 102 = site "principal"
'AND gs_ce_i18n = "'.GEN_I18N_ID_DEFAUT.'" '.
'ORDER BY gsr_ordre DESC';
$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_OBJECT)) {
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();
}
*/
// Traduction d'un site principal uniquement :
$requete = 'SELECT * '.
382,7 → 271,11
$form->addElement('html', $partie_site_fin);
// Instanciation des valeurs par défaut du formulaire
$form->setDefaults($adme_site_id);
if (isset($id_site_par_defaut)) {
$adme_site_id=$id_site_par_defaut;
}
$form->setDefaults(array('adme_site_id' => $adme_site_id));
$retour ='';
$retour .= '<h1>'.ADME_LG_MENU_TITRE.$site_nom.'</h1>'."\n";
$retour .= $form->toHTML()."\n";
429,6 → 322,9
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.16 2006/04/28 12:41:49 florian
* corrections erreurs chemin
*
* Revision 1.15 2006/03/24 13:03:24 ddelon
* bug afficheur multilinguisme
*