Subversion Repositories Applications.papyrus

Compare Revisions

Regard whitespace Rev 2074 → Rev 2075

/trunk/papyrus/applications/admin_site/bibliotheque/adsi_site.fonct.php
39,7 → 39,7
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// | ENT�TE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
if (GEN_FTP_UTILISE) {
/** Inclusion bibliotheque de PEAR gerant le FTP.*/
54,8 → 54,8
* Cette fonction fournie une liste des sites principaux geres par papyrus.
*
* @param string l'objet Pear DB.
* @param string l'url de la page à laquelle renvoyer le formulaire.
* @param string un message important à destination de l'utilisateur.
* @param string l'url de la page � laquelle renvoyer le formulaire.
* @param string un message important � destination de l'utilisateur.
* return string le code XHTML a retourner.
*/
function ADMIN_afficherFormListeSites(&$db, $url, $message = '')
187,7 → 187,7
//----------------------------------------------------------------------------
// Création du formulaire
// Cr�ation du formulaire
$form =& new HTML_QuickForm('form_sites', 'post', str_replace('&', '&', $url));
$tab_index = 1000;
$squelette =& $form->defaultRenderer();
254,7 → 254,7
$form->addElement('submit', $id, $label, $aso_attributs);
$id = 'form_sites_supprimer';
$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'onclick' => 'javascript:return confirm(\''.'êtes vous sûr de vouloir supprimer ce site ?'.'\');');
$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'onclick' => 'javascript:return confirm(\''.'�tes vous s�r de vouloir supprimer ce site ?'.'\');');
$label = 'Supprimer';
$form->addElement('submit', $id, $label, $aso_attributs);
270,11 → 270,11
return ADMIN_contruirePage($titre, $sortie, $message);
}
 
/** Fonction ADMIN_validerFormListesSites() - Valide les données issues du formulaire de liste de sites.
/** Fonction ADMIN_validerFormListesSites() - Valide les donn�es issues du formulaire de liste de sites.
*
* Cette fonction valide les données du formulaire de liste de site.
* Cette fonction valide les donn�es du formulaire de liste de site.
*
* @param string l'objet pear de connexion à la base de données.
* @param string l'objet pear de connexion � la base de donn�es.
* @param string le tableau contenant les valeurs du formulaire.
* @return string retourne les messages d'erreurs sinon rien.
*/
290,7 → 290,7
return $message;
}
 
/** Fonction ADMIN_afficherFormSite()- Génère un formulaire pour gen_site.
/** Fonction ADMIN_afficherFormSite()- G�n�re un formulaire pour gen_site.
*
* Cette fonction retourne un formulaire pour modification ou pour ajout.
*
403,7 → 403,7
$sortie .= '<p>'.'Identifiant de ce site : '.'<span id="adsi_site_id">'.$aso_valeurs['gs_id_site'].'</span></p>'."\n";
}
//-------------------------------------------------------------------------------------------------------------------
// Création du formulaire
// Cr�ation du formulaire
$form =& new HTML_QuickForm('site', 'post', str_replace('&amp;', '&', $url));
$tab_index = 1000;
$squelette =& $form->defaultRenderer();
477,7 → 477,7
}
$aso_options = array();
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
// Test pour connaître le type d'authentification.
// Test pour conna�tre le type d'authentification.
$type = '';
if ($ligne->gsa_ce_type_auth == '1' ) {
$type = 'Base de donn&eacute;es';
695,7 → 695,7
$form->addElement('html', $partie_entete_fin);
if ($aso_valeurs['modification'] || $aso_valeurs['traduction']) {
// Requete pour connaitre les informations sur l'administrateur ayant fait la dernière modif
// Requete pour connaitre les informations sur l'administrateur ayant fait la derni�re modif
$requete_admin = 'SELECT * '.
'FROM gen_annuaire '.
'WHERE ga_id_administrateur = '.$aso_valeurs['gs_ce_admin'];
755,7 → 755,7
*
* Cette fonction valide les donnees a ajouter dans la table gen_site.
*
* @param string l'objet pear de connexion a la base de données.
* @param string l'objet pear de connexion a la base de donn�es.
* @param string le tableau contenant les valeurs du formulaire.
* @return string retourne les messages d'erreurs sinon rien.
*/
771,7 → 771,7
$message .= '<p class="pap_erreur">Le champ "Code alphanum&eacute;rique" ne doit pas &ecirc;tre vide.</p>';
}
if ($aso_valeurs['gs_code_num'] == '') {
// Note: ne pas utilisez empty() car si on veut saisir 0, cela est considéré comme vide!
// Note: ne pas utilisez empty() car si on veut saisir 0, cela est conscid�r� comme vide!
$message .= '<p class="pap_erreur">Le champ "Code num&eacute;rique" ne doit pas &ecirc;tre vide.</p>';
}
if (preg_match('/^[0-9]+$/',$aso_valeurs['gs_code_num']) == 0) {
839,22 → 839,22
return $message;
}
 
/** Fonction ADMIN_enregistrerSite() - Ajoute un site à Papyrus.
/** Fonction ADMIN_enregistrerSite() - Ajoute un site � Papyrus.
*
* Cette fonction ajoute le site à Papyrus, c'est à dire :
* - 1. Création des répertoire du projet en fonction du nom et des sous-répertoires.
* Cette fonction ajoute le site � Papyrus, c'est � dire :
* - 1. Cr�ation des r�pertoire du projet en fonction du nom et des sous-r�pertoires.
* - 2. Insertion d'une ligne dans la table "gen_site".
* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables liées si nécessaire.
* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables li�es si n�cessaire.
*
* @param string l'objet pear de connexion à la base de données.
* @param string l'objet pear de connexion � la base de donn�es.
* @param string le tableau contenant les valeurs du formulaire.
* @param int identifiant de l'administrateur réalisant cette création.
* @return string retourne un message en cas de succès ou d'échec.
* @param int identifiant de l'administrateur r�alisant cette cr�ation.
* @return string retourne un message en cas de succ�s ou d'�chec.
*/
function ADMIN_enregistrerSite(&$db, $aso_valeurs, $id_admin)
{
// Nous verifions si nous avons a faire a un site externe.
$id_type_site = '102';// par defaut on considère que c'est un site "principal"
$id_type_site = '102';// par defaut on conscid�re que c'est un site "principal"
if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
$id_type_site = '103';// c'est un site "externe"
}
930,8 → 930,8
$resultat = $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
if (PEAR::isError($resultat)) {
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
'R&eacute;pertoire : '. PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'] .'<br />'.
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr�er le r�pertoire par ftp.<br />'.
'R&eacute;pertoire : '. PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'] .'<br />'.
'Erreur origine : '. $resultat->getMessage() .'<br />'.
'Informations de debogage : '.$resultat->getDebugInfo().'<br />'.
'Ligne n&deg; : '. __LINE__ .'<br />'.
1064,7 → 1064,7
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
}
// Gestion du site par défaut
// Gestion du site par d�faut
if (isset($aso_valeurs['defaut']) && $aso_valeurs['defaut'] == 1) {
$requete_supr_defaut = 'DELETE FROM gen_site_relation '.
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
1111,9 → 1111,9
* - 2. Insertion d'une ligne dans la table "gen_site".
* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables liees si necessaire.
*
* @param string l'objet pear de connexion a la base de données.
* @param string l'objet pear de connexion a la base de donn�es.
* @param string le tableau contenant les valeurs du formulaire.
* @param int identifiant de l'administrateur realisant cette création.
* @param int identifiant de l'administrateur realisant cette cr�ation.
* @return string retourne un message en cas de succes ou d'echec.
*/
 
1127,7 → 1127,7
// Ajout des repertoires des sites "principaux" soit par manipulation de fichier soit par FTP en fonction de la constante definie
// par l'utilisateur dans le fichier de config avancee.
$tab_rep_langue = array(GEN_DOSSIER_GENERIQUE, $aso_valeurs['gs_ce_i18n']);
$tab_rep_langue = array($aso_valeurs['gs_ce_i18n']);
$tab_rep_site = array( GEN_DOSSIER_IMAGE,
GEN_DOSSIER_STYLE,
GEN_DOSSIER_SCRIPT,
1166,7 → 1166,7
$chemin_style_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
if (!copy($chemin_style_defaut, $chemin_style_site)) {
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le fichier de style par défaut.<br />'.
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le fichier de style par d�faut.<br />'.
'Fichier : '. $chemin_style_site .'<br />'.
'Ligne n&deg; : '. __LINE__ .'<br />'.
'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1175,7 → 1175,7
$chemin_image_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
GEN_DOSSIER_IMAGE.GEN_SEP;
$chemin_image_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
$chemin_image_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_IMAGE.GEN_SEP;
if (!copy($chemin_image_defaut, $chemin_image_site)) {
1187,12 → 1187,12
}
} else if (GEN_FTP_UTILISE && $id_type_site != '103') { // 103 est le type "site externe"
// Création d'une connection ftp avec Net_FTP de PEAR
// Cr�ation d'une connection ftp avec Net_FTP de PEAR
// voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
// création de l'objet pear ftp
// cr�ation de l'objet pear ftp
$objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
// création de la connexion
// cr�ation de la connexion
$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);
1207,13 → 1207,13
'Fichier n&deg; : '. __FILE__ .'<br /><p>';
return $message;
}
$objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
$objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
//$objet_pear_ftp->cd(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
foreach ($tab_rep_langue as $nom_rep_langue) {
$objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
$objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
foreach ($tab_rep_site as $nom_rep_site) {
$chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
$chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
$resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
if (PEAR::isError($resultat)) {
1228,7 → 1228,7
}
$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
$chemin_squelette_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
$chemin_squelette_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
$resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
if (PEAR::isError($resultat)) {
1242,7 → 1242,7
}
$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
$chemin_style_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
$chemin_style_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
$resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
if (PEAR::isError($resultat)) {
1276,13 → 1276,13
$id_site = SQL_obtenirNouveauId($db, 'gen_site','gs_id_site');
if ($id_site == false) {
$message = '<p class="erreur"> ERREUR Papyrus admin : impossible de récupérer un identifiant pour la table gen_site.<br />'.
$message = '<p class="erreur"> ERREUR G�n�sia admin : impossible de r�cup�rer un identifiant pour la table gen_site.<br />'.
'Ligne n&deg; : '. __LINE__ .'<br />'.
'Fichier n&deg; : '. __FILE__ .'<br /></p>';
return $message;
}
// Modification de la requete si nous avons à faire à un site externe.
// Modification de la requete si nous avons � faire � un site externe.
$requete_complement = ', gs_url = NULL';
if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
$requete_complement = ', gs_url = "'.$aso_valeurs['gs_url'].'"';
1310,7 → 1310,7
die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
}
// Recherche du nouveau numéro d'ordre de ce site "principal" ou "externe"
// Recherche du nouveau num�ro d'ordre de ce site "principal" ou "externe"
$requete = 'SELECT MAX(gsr_ordre) AS max_ordre '.
'FROM gen_site_relation '.
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
1380,7 → 1380,7
 
 
// 2 : insertion information traduction site en cours (si inexistant ?) (et la mise a jour, c'est ailleurs
// dans les mises à jour
// dans les mises � jour
$requete = 'INSERT INTO gen_site_relation '.
'SET gsr_id_site_01 = '. $aso_valeurs['gs_id_site'].', '.
1393,7 → 1393,7
}
// Gestion du site par défaut
// Gestion du site par d�faut
if (isset($aso_valeurs['defaut']) && $aso_valeurs['defaut'] == 1) {
$requete_supr_defaut = 'DELETE FROM gen_site_relation '.
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
1403,7 → 1403,7
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_defaut->getMessage(), $requete_supr_defaut));
}
// Requete d'insertion de la relations site par défaut
// Requete d'insertion de la relations site par d�faut
$requete = 'INSERT INTO gen_site_relation '.
'SET gsr_id_site_01 = '.$id_site.', '.
'gsr_id_site_02 = '.$id_site.', '.
1437,13 → 1437,13
 
/** Fonction ADMIN_modifierSite() - Modifie un site de Papyrus.
*
* Cette fonction modifie un site géré par Papyrus.
* Cette fonction modifie un site g�r� par Papyrus.
* Il faudrait aussi pouvoir renomer le dossier du site si le code alpha change.
*
* @param string l'objet pear de connexion à la base de données.
* @param string l'objet pear de connexion � la base de donn�es.
* @param string le tableau contenant les valeurs du formulaire.
* @param int identifiant de l'administrateur réalisant cette modification.
* @return string retourne un message en cas de succès ou d'échec.
* @param int identifiant de l'administrateur r�alisant cette modification.
* @return string retourne un message en cas de succ�s ou d'�chec.
*/
function ADMIN_modifierSite(&$db, $aso_valeurs, $id_admin)
{
1450,7 → 1450,7
// Initialisation de variables
$message_complement = '';
// Récupération de l'ancien code alphanumérique
// R�cup�ration de l'ancien code alphanum�rique
$requete = 'SELECT gs_code_alpha '.
'FROM gen_site '.
'WHERE gs_id_site = '.$aso_valeurs['gs_id_site'];
1459,8 → 1459,8
die( BOG_afficherErreurSql(__FILE__, __LINE__, $ancien_code_alphnum->getMessage(), $requete) );
}
// Nous vérifions si nous avons à faire à un site externe.
$id_type_site = '102';// par défaut on considère que c'est un site "principal"
// Nous v�rifions si nous avons � faire � un site externe.
$id_type_site = '102';// par d�faut on conscid�re que c'est un site "principal"
$requete_complement = ', gs_url = NULL ';
if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
$requete_complement = ', gs_url = "'.$aso_valeurs['gs_url'].'" ';
1467,7 → 1467,7
$id_type_site = '103';// c'est un site "externe"
}
// Si le code alphanumérique à changé et que nous n'avons pas à faire à un site externe.
// Si le code alphanum�rique � chang� et que nous n'avons pas � faire � un site externe.
if ($aso_valeurs['gs_code_alpha'] != $ancien_code_alphnum && $id_type_site != 103) {
if (!GEN_FTP_UTILISE) {
$chemin_site_ancien = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
1483,11 → 1483,11
} else {
$chemin_site_ancien = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
$chemin_site_nouveau = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP;
// Création d'une connection ftp avec Net_FTP de PEAR
// Cr�ation d'une connection ftp avec Net_FTP de PEAR
// voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
// création de l'objet pear ftp
// cr�ation de l'objet pear ftp
$objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
// création de la connexion
// cr�ation de la connexion
$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);
1514,7 → 1514,7
}
// On utilise la racine FTP pour rm
$chemin_site_ancien = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
// Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP
// Changement du niveau d'erreur pour �viter les Notices PHP dues � Net_FTP
error_reporting(E_PARSE);
$resultat = $objet_pear_ftp->rm($chemin_site_ancien, true);
if (PEAR::isError($resultat)) {
1525,13 → 1525,13
'Fichier n&deg; : '. __FILE__ .'<br /></p>';
return $message;
}
// Retour au niveau d'erreur définit dans le fichier de config de Papyrus
// Retour au niveau d'erreur d�finit dans le fichier de config de Papyrus
error_reporting(GEN_DEBOGAGE_NIVEAU);
$objet_pear_ftp->disconnect();
}
}
// Requete de mise à jour des infos d'un site dans gen_site
// Requete de mise � jour des infos d'un site dans gen_site
$requete = 'UPDATE gen_site '.
'SET gs_ce_i18n = "'.$aso_valeurs['gs_ce_i18n'].'", '.
'gs_ce_auth = '.$aso_valeurs['gs_ce_auth'].', '.
1554,7 → 1554,7
}
// Gestion du site externe
if ($id_type_site == 103) {
// Vérification pour voir si nous avons à faire à une transformation d'un site "principal" en site "externe"
// V�rification pour voir si nous avons � faire � une transformation d'un site "principal" en site "externe"
$requete = 'SELECT COUNT(gsr_id_site_01) AS nbre_relation '.
'FROM gen_site_relation '.
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
1565,7 → 1565,7
die( BOG_afficherErreurSql(__FILE__, __LINE__, $nbre_relation->getMessage(), $requete) );
}
// Nous supprimons l'ancienne relation si nécessaire
// Nous supprimons l'ancienne relation si n�cessaire
if ($nbre_relation >= 1) {
$requete_supr_ext = 'DELETE FROM gen_site_relation '.
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
1575,12 → 1575,12
if (DB::isError($resultat_supr_ext)) {
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_ext->getMessage(), $requete_supr_ext));
}
$message_complement = 'Le site "principal" a été transformé en site "externe". Si nécessaire, veuillez '.
$message_complement = 'Le site "principal" a �t� transform� en site "externe". Si n�cessaire, veuillez '.
'supprimer manuellement par FTP, le dossier contenant les fichiers de ce site sur '.
'le serveur!';
}
// Vérification pour voir si le site est déjà "externe"
// V�rification pour voir si le site est d�j� "externe"
$requete = 'SELECT COUNT(gsr_id_site_01) AS nbre_relation '.
'FROM gen_site_relation '.
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
1616,7 → 1616,7
}
// Gestion du site par défaut
// Gestion du site par d�faut
if (isset($aso_valeurs['defaut']) && $aso_valeurs['defaut'] == 1) {
$requete_supr_defaut = 'DELETE FROM gen_site_relation '.
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
1626,7 → 1626,7
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_defaut->getMessage(), $requete_supr_defaut));
}
// Requete d'insertion de la relations site par défaut
// Requete d'insertion de la relations site par d�faut
$requete = 'INSERT INTO gen_site_relation '.
'SET gsr_id_site_01 = '.$aso_valeurs['gs_id_site'].', '.
'gsr_id_site_02 = '.$aso_valeurs['gs_id_site'].', '.
1638,26 → 1638,26
}
}
$message = '<p class="pap_info">'.'Succès de la modification du site.'.'</p>';
$message = '<p class="pap_info">'.'Succ�s de la modification du site.'.'</p>';
$message .= '<p class="pap_info">'.$message_complement.'</p>';
return $message;
}
 
/** Fonction ADMIN_supprimerSite() - Ajoute un site à Papyrus.
/** Fonction ADMIN_supprimerSite() - Ajoute un site � Papyrus.
*
* Cette fonction ajoute le site à Papyrus, c'est à dire :
* - 1. Création des répertoire du projet en fonction du nom et des sous-répertoires.
* Cette fonction ajoute le site � Papyrus, c'est � dire :
* - 1. Cr�ation des r�pertoire du projet en fonction du nom et des sous-r�pertoires.
* - 2. Insertion d'une ligne dans la table "gen_site".
* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables liées si nécessaire.
* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables li�es si n�cessaire.
*
* @param string l'objet pear de connexion à la base de données.
* @param string l'objet pear de connexion � la base de donn�es.
* @param string le tableau contenant les valeurs du formulaire.
* @param int identifiant de l'administrateur réalisant cette création.
* @return string retourne un message en cas de succès ou d'échec.
* @param int identifiant de l'administrateur r�alisant cette cr�ation.
* @return string retourne un message en cas de succ�s ou d'�chec.
*/
function ADMIN_supprimerSite(&$db, $aso_valeurs)
{
// Recherche du coda alpha du site principal afin de pouvoir détruire ses répertoires
// Recherche du coda alpha du site principal afin de pouvoir d�truire ses r�pertoires
$requete = 'SELECT gs_code_alpha '.
'FROM gen_site '.
'WHERE gs_id_site = '.$aso_valeurs['form_sites_id_site'];
1666,16 → 1666,16
die(BOG_afficherErreurSql(__FILE__, __LINE__, $code_alpha_site_principal->getMessage(), $requete));
}
// Nous vérifions que le site n'a pas le code alphanum correspondant au site par défaut d'administration (admin).
// Nous v�rifions que le site n'a pas le code alphanum correspondant au site par d�faut d'administration (admin).
if ($code_alpha_site_principal == GEN_SITE_DEFAUT) {
$message = '<p class="pap_erreur">Si vous voulez vraiment supprimer le site d\'administration par défaut de '.
$message = '<p class="pap_erreur">Si vous voulez vraiment supprimer le site d\'administration par d�faut de '.
'Papyrus, veuillez commencer par changer la valeur de son code alphanum&eacute;rique. Vous pourrez '.
'ensuite le supprimer via cette interface.</p>';
return $message;
}
// Recherche des différents sites liés à celui que l'on veut détruire
// Cela comprend le site à détruire lui même car il possède la relations
// Recherche des diff�rents sites li�s � celui que l'on veut d�truire
// Cela comprend le site � d�truire lui m�me car il poss�de la relations
// sur lui meme "site principale".
$requete = 'SELECT gs_id_site '.
'FROM gen_site, gen_site_relation '.
1687,7 → 1687,7
}
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
// Requete de suppression des sites liés dans gen_site
// Requete de suppression des sites li�s dans gen_site
$requete_supr_site = 'DELETE FROM gen_site '.
'WHERE gs_id_site = '.$ligne->gs_id_site;
$resultat_supr_site = $db->query($requete_supr_site);
1695,7 → 1695,7
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_site->getMessage(), $requete_supr_site));
}
// Requete de suppression des relations des sites à détruire
// Requete de suppression des relations des sites � d�truire
$requete_supr_site_relation = 'DELETE FROM gen_site_relation '.
'WHERE gsr_id_site_01 = '.$ligne->gs_id_site;
$resultat_supr_site_relation = $db->query($requete_supr_site_relation);
1703,7 → 1703,7
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_site_relation->getMessage(), $requete_supr_site_relation));
}
// Recherche des différents menus liés au site à détruire
// Recherche des diff�rents menus li�s au site � d�truire
$requete_menu = 'SELECT gm_id_menu '.
'FROM gen_menu '.
'WHERE gm_ce_site = '.$ligne->gs_id_site;
1747,7 → 1747,7
}
$resultat->free();
// Suppression des répertoires du site
// Suppression des r�pertoires du site
if (!GEN_FTP_UTILISE) {
$chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal;
$resultat = supprimerDossier($chemin_repertoire, GEN_SEP);
1759,12 → 1759,12
return $message;
}
} else {
// Création d'une connection ftp avec Net_FTP de PEAR
// Cr�ation d'une connection ftp avec Net_FTP de PEAR
// voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
// création de l'objet pear ftp
// cr�ation de l'objet pear ftp
$objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
// création de la connexion
// cr�ation de la connexion
$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);
1779,7 → 1779,7
'Fichier n&deg; : '. __FILE__ .'<br /><p>';
return $message;
}
// Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP
// Changement du niveau d'erreur pour �viter les Notices PHP dues � Net_FTP
error_reporting(E_PARSE);
$chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal.'/';
1795,7 → 1795,7
}
}
$objet_pear_ftp->disconnect();
// Retour au niveau d'erreur définit dans le fichier de config de Papyrus
// Retour au niveau d'erreur d�finit dans le fichier de config de Papyrus
error_reporting(GEN_DEBOGAGE_NIVEAU);
}
$message = '<p class="pap_info">Succ&eacute;s de la suppression du site.</p>';
1871,7 → 1871,10
// +- Fin du code source --------------------------------------------------------------------------------+
/*
* $Log: not supported by cvs2svn $
* $Log: adsi_site.fonct.php,v $
* Revision 1.42 2007-10-23 13:31:22 ddelon
* Ajout copie images lors traduction d'un site
*
* Revision 1.41 2007-10-21 16:44:37 ddelon
* Pb Pap chemin
*
1929,10 → 1932,10
* Multilinguisme site + bug ftp
*
* Revision 1.25 2005/10/17 13:48:59 jp_milcent
* Ajout d'un espace après le texte "Dernière modification par".
* Ajout d'un espace apr�s le texte "Derni�re modification par".
*
* Revision 1.24 2005/09/23 14:32:54 florian
* compatibilité XHTML + correction interface
* compatibilité XHTML + correction interface
*
* Revision 1.23 2005/09/20 17:01:22 ddelon
* php5 et bugs divers
1941,7 → 1944,7
* Gestion des infos sur l'admin modifiant les infos.
*
* Revision 1.21 2005/04/08 13:29:04 jpm
* Utiliation de références.
* Utiliation de r�f�rences.
* Correction du double &amp; dans les urls du formulaire.
*
* Revision 1.20 2005/03/08 11:17:47 jpm
1957,16 → 1960,16
* Correction bug FTP
*
* Revision 1.16 2005/02/17 16:44:55 florian
* correction du bug sur les sites par défaut
* correction du bug sur les sites par d�faut
*
* Revision 1.15 2005/01/04 19:52:50 alex
* correction de bug de copie de répertoire récursif de PEAR.
* correction de bug de copie de r�pertoire r�cursif de PEAR.
*
* Revision 1.14 2004/12/03 19:22:53 jpm
* Gestion des types de sites externes gérés par Papyrus.
* Gestion des types de sites externes g�r�s par Papyrus.
*
* Revision 1.13 2004/12/03 16:37:34 jpm
* Correction d'un bogue qui empêcher la mise à jour des url des sites externes.
* Correction d'un bogue qui emp�cher la mise � jour des url des sites externes.
*
* Revision 1.12 2004/12/01 17:22:58 jpm
* Ajout d'une confirmation javascript pour la suppression d'un site.
1975,35 → 1978,35
* Correction de bogues.
*
* Revision 1.10 2004/11/29 17:05:28 jpm
* Correction d'un bogue concernat les cases à cocher.
* Correction d'un bogue concernat les cases � cocher.
*
* 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.
* 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.
*
* Revision 1.7 2004/10/26 18:41:28 jpm
* Gestion des sites externes à Papyrus.
* Gestion des sites externes � Papyrus.
*
* Revision 1.6 2004/10/22 17:25:31 jpm
* Changement du nom de la class CSS d'erreur.
*
* Revision 1.5 2004/10/19 15:57:55 jpm
* Amélioration de la gestion des fichiers sur le serveur.
* Ajout d'une contrainte pour éviter la suppression par erreur du site par défaut.
* Am�lioration de la gestion des fichiers sur le serveur.
* Ajout d'une contrainte pour �viter la suppression par erreur du site par d�faut.
*
* Revision 1.4 2004/10/18 18:27:41 jpm
* Correction problèmes FTP et manipulation de fichiers.
* Correction probl�mes FTP et manipulation de fichiers.
*
* Revision 1.3 2004/09/23 16:51:27 jpm
* Ajout d'informations supplémentaires sur les messages d'erreur.
* Ajout d'informations suppl�mentaires sur les messages d'erreur.
*
* Revision 1.2 2004/07/06 17:08:01 jpm
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
*
* Revision 1.1 2004/06/16 14:28:46 jpm
* Changement de nom de Papyrus en Papyrus.
* Changement de nom de G�n�sia en Papyrus.
* Changement de l'arborescence.
*
* Revision 1.20 2004/05/10 14:32:14 jpm
2013,11 → 2016,11
* Modification formulaire.
*
* Revision 1.18 2004/05/07 16:33:53 jpm
* Amélioration des formulaires.
* Am�lioration des formulaires.
*
* Revision 1.17 2004/05/07 07:22:51 jpm
* Ajout de la gestion des modification et suppression de site.
* Amélioration de la création des sites.
* Am�lioration de la cr�ation des sites.
*
* Revision 1.16 2004/04/30 16:22:53 jpm
* Poursuite de l'administration des sites.
2032,9 → 2035,9
* Traduction, mise en forme, ajout de commentaire pour les fonctions listProjects() et updateProject().
*
* Revision 1.11 2004/03/24 10:06:01 jpm
* Ajout des commentaires d'entête.
* Début mise en conformité avec la convention de codage.
* Début traitement de la fonction listant les projets.
* Ajout des commentaires d'ent�te.
* D�but mise en conformit� avec la convention de codage.
* D�but traitement de la fonction listant les projets.
*
*
*/