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.40 2007-10-04 12:57:37 ddelon Exp $
/**
* Bibliotheque de fonctions d'admininistration des projets
*
* Contient un ensemble de fonctions permettant a l'application Administrateur de Papyrus, de modifier des informations
* sur les projets (=sites geres par Papyrus).

*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
*@author        Laurent COUDOUNEAU <lc@gsite.org>
*@copyright     Tela-Botanica 2000-2004
*@version       $Revision: 1.40 $ $Date: 2007-10-04 12:57:37 $
// +------------------------------------------------------------------------------------------------------+
*/

 
// +------------------------------------------------------------------------------------------------------+

* @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.
* @return string retourne un message en cas de succes ou d'echec.
*/
 
function ADMIN_traduireSite(&$db, $aso_valeurs, $id_admin)
{
    // Nous verifions si nous avons a faire a un site externe.
    $id_type_site = '102';// par defaut on considere 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://') {

                            GEN_DOSSIER_SQUELETTE,
                            GEN_DOSSIER_DOC);
    if (!GEN_FTP_UTILISE && $id_type_site != '103') {
        foreach ($tab_rep_langue as $nom_rep_langue) {
            foreach ($tab_rep_site as $nom_rep_site) {
                $chemin_repertoire =    PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
                                        $nom_rep_langue.GEN_SEP.$nom_rep_site;
                $vieux_umask = umask(0);
                $resultat = creerDossier($chemin_repertoire, 0777, GEN_SEP);
                umask($vieux_umask);
                if ($resultat == false) {

                                'Fichier n&deg; : '. __FILE__ .'<br /></p>';
                    return $message;
                }
            }
        }
        $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_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
        if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le fichier de squellete par d&eacute;faut.<br />'.
                        'Fichier : '. $chemin_squelette_site .'<br />'.
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
            return $message;
        }
        $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_RACINEGEN_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 />'.
                        'Fichier : '. $chemin_style_site .'<br />'.
                        'Ligne n&deg; : '. __LINE__ .'<br />'.

                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
                        'Fichier n&deg; : '. __FILE__ .'<br /><p>';
            return $message;
        }
        $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;

        
        //$objet_pear_ftp->cd(PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
        foreach ($tab_rep_langue as $nom_rep_langue) {
            $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
            foreach ($tab_rep_site as $nom_rep_site) {

                $chemin_repertoire =    PAP_CHEMIN_RACINEGEN_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)) {

                                'Fichier n&deg; : '. __FILE__ .'<br /></p>';
                    return $message;
                }
            }
        }
        $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_RACINEGEN_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)) {
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
                        'Fichier origine : '. $chemin_squelette_defaut .'<br />'.

                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
                return $message;
        }
        $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_RACINEGEN_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)) {
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
                        'Fichier origine : '. $chemin_style_defaut .'<br />'.

    $message = '<p class="pap_info">'.'Succ&eacute;s de l\'ajout du site.'.'</p>';
    return $message;
}

 
 
 
/** Fonction ADMIN_modifierSite() - Modifie un site de Papyrus.
*
* Cette fonction modifie un site géré par Papyrus.

}

    
// +- Fin du code source  --------------------------------------------------------------------------------+
/*
* $Log: not supported by cvs2svn $
* Revision 1.39  2007-06-26 14:18:53  florian
* amélioration des formulaires des différentes applis de l'interface d'administration afin de les simplifier
*
* Revision 1.38  2007-06-25 12:15:06  alexandre_tb
* merge from narmer
*
* Revision 1.37  2007/04/24 13:27:57  alexandre_tb

Subversion Repositories Applications.papyrus

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

Rev 1497		Rev 1635
Line 17...		Line 17...
17	`// \| \|`	17	`// \| \|`
18	`// \| You should have received a copy of the GNU Lesser General Public \|`	18	`// \| You should have received a copy of the GNU Lesser General Public \|`
19	`// \| License along with this library; if not, write to the Free Software \|`	19	`// \| License along with this library; if not, write to the Free Software \|`
20	`// \| Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA \|`	20	`// \| Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA \|`
21	`// +------------------------------------------------------------------------------------------------------+`	21	`// +------------------------------------------------------------------------------------------------------+`
22	`// CVS : $Id: adsi_site.fonct.php,v 1.39 2007-06-26 14:18:53 florian Exp $`	22	`// CVS : $Id: adsi_site.fonct.php,v 1.40 2007-10-04 12:57:37 ddelon Exp $`
23	`/**`	23	`/**`
24	`* Bibliotheque de fonctions d'admininistration des projets`	24	`* Bibliotheque de fonctions d'admininistration des projets`
25	`*`	25	`*`
26	`* Contient un ensemble de fonctions permettant a l'application Administrateur de Papyrus, de modifier des informations`	26	`* Contient un ensemble de fonctions permettant a l'application Administrateur de Papyrus, de modifier des informations`
27	`* sur les projets (=sites geres par Papyrus).`	27	`* sur les projets (=sites geres par Papyrus).`
Line 32...		Line 32...
32	`*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>`	32	`*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>`
33	`//Autres auteurs :`	33	`//Autres auteurs :`
34	`*@author Alexandre GRANIER <alexandre@tela-botanica.org>`	34	`*@author Alexandre GRANIER <alexandre@tela-botanica.org>`
35	`*@author Laurent COUDOUNEAU <lc@gsite.org>`	35	`*@author Laurent COUDOUNEAU <lc@gsite.org>`
36	`*@copyright Tela-Botanica 2000-2004`	36	`*@copyright Tela-Botanica 2000-2004`
37	`*@version $Revision: 1.39 $ $Date: 2007-06-26 14:18:53 $`	37	`*@version $Revision: 1.40 $ $Date: 2007-10-04 12:57:37 $`
38	`// +------------------------------------------------------------------------------------------------------+`	38	`// +------------------------------------------------------------------------------------------------------+`
39	`*/`	39	`*/`
Line 40...		Line 40...
40		40
41	`// +------------------------------------------------------------------------------------------------------+`	41	`// +------------------------------------------------------------------------------------------------------+`
Line 1114...		Line 1114...
1114	`* @param string l'objet pear de connexion a la base de données.`	1114	`* @param string l'objet pear de connexion a la base de données.`
1115	`* @param string le tableau contenant les valeurs du formulaire.`	1115	`* @param string le tableau contenant les valeurs du formulaire.`
1116	`* @param int identifiant de l'administrateur realisant cette création.`	1116	`* @param int identifiant de l'administrateur realisant cette création.`
1117	`* @return string retourne un message en cas de succes ou d'echec.`	1117	`* @return string retourne un message en cas de succes ou d'echec.`
1118	`*/`	1118	`*/`
-		1119
1119	`function ADMIN_traduireSite(&$db, $aso_valeurs, $id_admin)`	1120	`function ADMIN_traduireSite(&$db, $aso_valeurs, $id_admin)`
1120	`{`	1121	`{`
1121	`// Nous verifions si nous avons a faire a un site externe.`	1122	`// Nous verifions si nous avons a faire a un site externe.`
1122	`$id_type_site = '102';// par defaut on considere que c'est un site "principal"`	1123	`$id_type_site = '102';// par defaut on considere que c'est un site "principal"`
1123	`if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {`	1124	`if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {`
Line 1133...		Line 1134...
1133	`GEN_DOSSIER_SQUELETTE,`	1134	`GEN_DOSSIER_SQUELETTE,`
1134	`GEN_DOSSIER_DOC);`	1135	`GEN_DOSSIER_DOC);`
1135	`if (!GEN_FTP_UTILISE && $id_type_site != '103') {`	1136	`if (!GEN_FTP_UTILISE && $id_type_site != '103') {`
1136	`foreach ($tab_rep_langue as $nom_rep_langue) {`	1137	`foreach ($tab_rep_langue as $nom_rep_langue) {`
1137	`foreach ($tab_rep_site as $nom_rep_site) {`	1138	`foreach ($tab_rep_site as $nom_rep_site) {`
1138	`$chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`	1139	`$chemin_repertoire = PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`
1139	`$nom_rep_langue.GEN_SEP.$nom_rep_site;`	1140	`$nom_rep_langue.GEN_SEP.$nom_rep_site;`
1140	`$vieux_umask = umask(0);`	1141	`$vieux_umask = umask(0);`
1141	`$resultat = creerDossier($chemin_repertoire, 0777, GEN_SEP);`	1142	`$resultat = creerDossier($chemin_repertoire, 0777, GEN_SEP);`
1142	`umask($vieux_umask);`	1143	`umask($vieux_umask);`
1143	`if ($resultat == false) {`	1144	`if ($resultat == false) {`
Line 1147...		Line 1148...
1147	`'Fichier n° : '. __FILE__ .'<br /></p>';`	1148	`'Fichier n° : '. __FILE__ .'<br /></p>';`
1148	`return $message;`	1149	`return $message;`
1149	`}`	1150	`}`
1150	`}`	1151	`}`
1151	`}`	1152	`}`
1152	`$chemin_squelette_defaut = PAP_FTP_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`	1153	`$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`
1153	`GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`	1154	`GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`
1154	`$chemin_squelette_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`	1155	`$chemin_squelette_site = PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`
1155	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`	1156	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`
1156	`if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {`	1157	`if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {`
1157	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de squellete par défaut.<br />'.`	1158	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de squellete par défaut.<br />'.`
1158	`'Fichier : '. $chemin_squelette_site .'<br />'.`	1159	`'Fichier : '. $chemin_squelette_site .'<br />'.`
1159	`'Ligne n° : '. __LINE__ .'<br />'.`	1160	`'Ligne n° : '. __LINE__ .'<br />'.`
1160	`'Fichier n° : '. __FILE__ .'<br /></p>';`	1161	`'Fichier n° : '. __FILE__ .'<br /></p>';`
1161	`return $message;`	1162	`return $message;`
1162	`}`	1163	`}`
1163	`$chemin_style_defaut = PAP_FTP_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`	1164	`$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`
1164	`GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`	1165	`GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`
1165	`$chemin_style_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`	1166	`$chemin_style_site = PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`
1166	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`	1167	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`
1167	`if (!copy($chemin_style_defaut, $chemin_style_site)) {`	1168	`if (!copy($chemin_style_defaut, $chemin_style_site)) {`
1168	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de style par défaut.<br />'.`	1169	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de style par défaut.<br />'.`
1169	`'Fichier : '. $chemin_style_site .'<br />'.`	1170	`'Fichier : '. $chemin_style_site .'<br />'.`
1170	`'Ligne n° : '. __LINE__ .'<br />'.`	1171	`'Ligne n° : '. __LINE__ .'<br />'.`
Line 1190...		Line 1191...
1190	`'Erreur login : '.$ftp_login_result->getMessage().'<br />'.`	1191	`'Erreur login : '.$ftp_login_result->getMessage().'<br />'.`
1191	`'Ligne n° : '. __LINE__ .'<br />'.`	1192	`'Ligne n° : '. __LINE__ .'<br />'.`
1192	`'Fichier n° : '. __FILE__ .'<br /><p>';`	1193	`'Fichier n° : '. __FILE__ .'<br /><p>';`
1193	`return $message;`	1194	`return $message;`
1194	`}`	1195	`}`
1195	`$objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;`	1196	`$objet_pear_ftp->mkdir(PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;`
Line 1196...		Line 1197...
1196		1197
1197	`//$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;`	1198	`//$objet_pear_ftp->cd(PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;`
1198	`foreach ($tab_rep_langue as $nom_rep_langue) {`	1199	`foreach ($tab_rep_langue as $nom_rep_langue) {`
1199	`$objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;`	1200	`$objet_pear_ftp->mkdir(PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;`
1200	`foreach ($tab_rep_site as $nom_rep_site) {`	1201	`foreach ($tab_rep_site as $nom_rep_site) {`
Line 1201...		Line 1202...
1201	`$chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;`	1202	`$chemin_repertoire = PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;`
1202		1203
1203	`$resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;`	1204	`$resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;`
1204	`if (PEAR::isError($resultat)) {`	1205	`if (PEAR::isError($resultat)) {`
Line 1209...		Line 1210...
1209	`'Fichier n° : '. __FILE__ .'<br /></p>';`	1210	`'Fichier n° : '. __FILE__ .'<br /></p>';`
1210	`return $message;`	1211	`return $message;`
1211	`}`	1212	`}`
1212	`}`	1213	`}`
1213	`}`	1214	`}`
1214	`$chemin_squelette_defaut = PAP_FTP_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`	1215	`$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`
1215	`GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`	1216	`GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`
1216	`$chemin_squelette_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`	1217	`$chemin_squelette_site = PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`
1217	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`	1218	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`
1218	`$resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);`	1219	`$resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);`
1219	`if (PEAR::isError($resultat)) {`	1220	`if (PEAR::isError($resultat)) {`
1220	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.`	1221	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.`
1221	`'Fichier origine : '. $chemin_squelette_defaut .'<br />'.`	1222	`'Fichier origine : '. $chemin_squelette_defaut .'<br />'.`
Line 1223...		Line 1224...
1223	`'Erreur origine : '. $resultat->getMessage() .'<br />'.`	1224	`'Erreur origine : '. $resultat->getMessage() .'<br />'.`
1224	`'Ligne n° : '. __LINE__ .'<br />'.`	1225	`'Ligne n° : '. __LINE__ .'<br />'.`
1225	`'Fichier n° : '. __FILE__ .'<br /></p>';`	1226	`'Fichier n° : '. __FILE__ .'<br /></p>';`
1226	`return $message;`	1227	`return $message;`
1227	`}`	1228	`}`
1228	`$chemin_style_defaut = PAP_FTP_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`	1229	`$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`
1229	`GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`	1230	`GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`
1230	`$chemin_style_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`	1231	`$chemin_style_site = PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`
1231	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`	1232	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`
1232	`$resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);`	1233	`$resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);`
1233	`if (PEAR::isError($resultat)) {`	1234	`if (PEAR::isError($resultat)) {`
1234	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.`	1235	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.`
1235	`'Fichier origine : '. $chemin_style_defaut .'<br />'.`	1236	`'Fichier origine : '. $chemin_style_defaut .'<br />'.`
Line 1401...		Line 1402...
1401	`$message = '<p class="pap_info">'.'Succés de l\'ajout du site.'.'</p>';`	1402	`$message = '<p class="pap_info">'.'Succés de l\'ajout du site.'.'</p>';`
1402	`return $message;`	1403	`return $message;`
1403	`}`	1404	`}`
Line -...		Line 1405...
-		1405
1404		1406
1405		1407
1406	`/** Fonction ADMIN_modifierSite() - Modifie un site de Papyrus.`	1408	`/** Fonction ADMIN_modifierSite() - Modifie un site de Papyrus.`
1407	`*`	1409	`*`
1408	`* Cette fonction modifie un site géré par Papyrus.`	1410	`* Cette fonction modifie un site géré par Papyrus.`
Line 1838...		Line 1840...
1838	`}`	1840	`}`
Line 1839...		Line 1841...
1839		1841
1840	`// +- Fin du code source --------------------------------------------------------------------------------+`	1842	`// +- Fin du code source --------------------------------------------------------------------------------+`
1841	`/*`	1843	`/*`
-		1844	`* $Log: not supported by cvs2svn $`
-		1845	`* Revision 1.39 2007-06-26 14:18:53 florian`
-		1846	`* amélioration des formulaires des différentes applis de l'interface d'administration afin de les simplifier`
1842	`* $Log: not supported by cvs2svn $`	1847	`*`
1843	`* Revision 1.38 2007-06-25 12:15:06 alexandre_tb`	1848	`* Revision 1.38 2007-06-25 12:15:06 alexandre_tb`
1844	`* merge from narmer`	1849	`* merge from narmer`
1845	`*`	1850	`*`
1846	`* Revision 1.37 2007/04/24 13:27:57 alexandre_tb`	1851	`* Revision 1.37 2007/04/24 13:27:57 alexandre_tb`