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