| 20,7 → 20,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: 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 |
| * |
| 35,7 → 35,7 |
|---|
| *@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 $ |
| // +------------------------------------------------------------------------------------------------------+ |
| */ |
| |
| 163,19 → 163,44 |
|---|
| // Nous cherchons à savoir si nous somme en modification |
| $aso_valeurs['modification'] = false; |
| 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['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 |
| 277,7 → 302,7 |
|---|
| $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 />'. |
| 321,6 → 346,9 |
|---|
| |
| $id = 'defaut'; |
| $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++); |
| if ($aso_valeurs[$id] === true) { |
| $aso_attributs['checked'] = 'checked'; |
| } |
| $label = '<label for="'.$id.'">'.'En faire le site par défaut : '.'</label>'; |
| $form->addElement('checkbox', $id, $label, '', $aso_attributs); |
| |
| 327,6 → 355,9 |
|---|
| // Groupe site externe |
| $id = 'externe'; |
| $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++); |
| if ($aso_valeurs[$id] === true) { |
| $aso_attributs['checked'] = 'checked'; |
| } |
| $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); |
| |
| 1054,6 → 1085,9 |
|---|
| // +- 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. |
| * |
| * Revision 1.8 2004/11/03 17:59:59 jpm |
| * Corrections bogues erreurs variable inconnue. |
| * |