WebSVN – Applications.papyrus – Diff – /trunk/papyrus/applications/admin_site/bibliotheque/adsi_site.fonct.php

 // |                                                                                                      |
 // | 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: adsi_site.fonct.php,v 1.9 2004-11-26 13:13:51 jpm Exp $
+// CVS : $Id: adsi_site.fonct.php,v 1.10 2004-11-29 17:05:28 jpm Exp $
 /**
 * Bibliothèque de fonctions d'admininistration des projets
+*
 * Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations
 * sur les projets (=sites gérés par Papyrus).
 *@author        Laurent COUDOUNEAU <lc@gsite.org>
 //Autres auteurs :
 *@author        Alexandre GRANIER <alexandre@tela-botanica.org>
 *@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
 *@copyright     Tela-Botanica 2000-2004
-*@version       $Revision: 1.9 $ $Date: 2004-11-26 13:13:51 $
+*@version       $Revision: 1.10 $ $Date: 2004-11-29 17:05:28 $
 // +------------------------------------------------------------------------------------------------------+
 */
 // +------------------------------------------------------------------------------------------------------+
+{
     // Nous cherchons à savoir si nous somme en modification
     $aso_valeurs['modification'] = false;
+    if (isset($aso_valeurs['form_sites_modifier'])) {
-    if (isset($aso_valeurs['form_sites_modifier'])) {
+        $site_id = $aso_valeurs['form_sites_id_site'];
         // Requete pour récupérer les informations sur le site à modifier
         $requete =  'SELECT * '.
                     'FROM gen_site '.
-                    'WHERE gs_id_site = '.$aso_valeurs['form_sites_id_site'];
+                    'WHERE gs_id_site = '.$site_id;
         $resultat = $db->query($requete);
         if (DB::isError($resultat)) {
             die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
+        }
+        $aso_valeurs = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
+        $resultat->free();
+        // Requete pour récupérer les informations issues des relations du site à modifier
+        $requete =    'SELECT * '.
+                        'FROM gen_site_relation '.
+                        'WHERE gsr_id_site_01 = '.$site_id;
+        $resultat = $db->query($requete);
+        if (DB::isError($resultat)) {
+            die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
+        }
+        $aso_valeurs['defaut'] = false;
+        $aso_valeurs['externe'] = false;
+        while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
+            if ($ligne->gsr_id_valeur == 101) {// 101 = site par défaut
+                $aso_valeurs['defaut'] = true;
+            }
+            if ($ligne->gsr_id_valeur == 103) {// 103 = site externe à Papyrus
+                $aso_valeurs['externe'] = true;
+            }
+        }
+        $resultat->free();
         $aso_valeurs = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
         $aso_valeurs['modification'] = true;
     } else if (isset($aso_valeurs['gs_id_site'])) {
         $aso_valeurs['modification'] = true;
+    }
+    // Débogage :
     //$GLOBALS['_DEBOGAGE_'] .= '<pre>'.print_r($aso_valeurs, true).'</pre>';
     //----------------------------------------------------------------------------
     // Création du formulaire
             $ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
             // identification
             $ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
             // Gestion des erreurs ftp
             if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
-                die('ERREUR Génésia admin : impossible de se connecter par ftp.<br />'.
+                die('ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
                     'Serveur : '. GEN_FTP_SERVEUR .'<br />'.
                     'Utilisateur : '. GEN_FTP_UTILISATEUR .'<br />'.
                     'Ligne n° : '. __LINE__ .'<br />'.
                     'Fichier n° : '. __FILE__ .'<br />');
                     //'Message erreur de connection : '.$ftp_conn->getMessage().'<br />'.
     $label = '<label for="'.$id.'">'.'Langue : '.'</label>';
     $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
     $id = 'defaut';
+    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++);
+    if ($aso_valeurs[$id] === true) {
+        $aso_attributs['checked'] = 'checked';
     $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++);
     $label = '<label for="'.$id.'">'.'En faire le site par défaut : '.'</label>';
     $form->addElement('checkbox', $id, $label, '', $aso_attributs);
     // Groupe site externe
+    $id = 'externe';
+    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++);
+    if ($aso_valeurs[$id] === true) {
-    $id = 'externe';
+        $aso_attributs['checked'] = 'checked';
     $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++);
     $label = 'oui : ';// Les navigateurs gères mal les labels au sein d'un même <li>
     $groupe[] =& HTML_QuickForm::createElement('checkbox', $id, $label, '', $aso_attributs);
+}
 // +- Fin du code source  --------------------------------------------------------------------------------+
 /*
+* $Log: not supported by cvs2svn $
+* Revision 1.9  2004/11/26 13:13:51  jpm
+* Mise en commentaire de variable passée dans un message d'erreur car elles semblent provoquer un bogue et ne sont pas obligatoire.
 * $Log: not supported by cvs2svn $
 * Revision 1.8  2004/11/03 17:59:59  jpm
 * Corrections bogues erreurs variable inconnue.
+*
 * Revision 1.7  2004/10/26 18:41:28  jpm

Subversion Repositories Applications.papyrus

(root)/trunk/papyrus/applications/admin_site/bibliotheque/adsi_site.fonct.php – Rev 183 → 190