Subversion Repositories Applications.papyrus

Rev

Rev 925 | Rev 1336 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 925 Rev 1033
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.31 2006-09-12 09:54:02 ddelon Exp $
 22 
// CVS : $Id: adsi_site.fonct.php,v 1.32 2006-10-16 15:49:06 ddelon Exp $
23 
/**
 23 
/**
24 
* Bibliothèque de fonctions d'admininistration des projets
 24 
* Bibliothèque de fonctions d'admininistration des projets
25 
*
 25 
*
26 
* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations
 26 
* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations
27 
* sur les projets (=sites gérés par Papyrus).
 27 
* sur les projets (=sites gérés 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.31 $ $Date: 2006-09-12 09:54:02 $
 37 
*@version       $Revision: 1.32 $ $Date: 2006-10-16 15:49:06 $
38 
// +------------------------------------------------------------------------------------------------------+
 38 
// +------------------------------------------------------------------------------------------------------+
39 
*/
 39 
*/
Line 40... Line 40...
40 
 
 40 
 
41 
// +------------------------------------------------------------------------------------------------------+
 41 
// +------------------------------------------------------------------------------------------------------+
Line 766... Line 766...
766 
        $message .= '<p class="pap_erreur">Le champ "Code numérique" doit contenir un nombre.</p>';
 766 
        $message .= '<p class="pap_erreur">Le champ "Code numérique" doit contenir un nombre.</p>';
767 
    }
 767 
    }
Line 768... Line 768...
768
768
769 
    // Requete pour vérifier l'absence du code numérique et alphanumérique de la table gen_site
 769 
    // Requete pour vérifier l'absence du code numérique et alphanumérique de la table gen_site
- 
 
 770 
    // en mode creation uniquement !
- 
 
 771
- 
 
 772
- 
 
 773 
    if (!isset($aso_valeurs['site_modifier'])) $aso_valeurs['site_modifier']=0;
Line 770... Line 774...
770 
    // en mode creation uniquement !
 774 
    if (!isset($aso_valeurs['site_traduire'])) $aso_valeurs['site_traduire']=0;
Line 771... Line 775...
771
775
772 
    if (!$aso_valeurs['site_modifier'] && !$aso_valeurs['site_traduire'] ) {
 776 
    if (@!$aso_valeurs['site_modifier'] && @!$aso_valeurs['site_traduire'] ) {
773
777
774 
	    $requete =  'SELECT gs_code_alpha, gs_code_num '.
 778 
	    $requete =  'SELECT gs_code_alpha, gs_code_num '.
Line 956... Line 960...
956 
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
 960 
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
957 
                        'Ligne n° : '. __LINE__ .'<br />'.
 961 
                        'Ligne n° : '. __LINE__ .'<br />'.
958 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
 962 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
959 
                return $message;
 963 
                return $message;
960 
        }
 964 
        }
- 
 
 965
- 
 
 966 
        $chemin_image_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
- 
 
 967 
                                GEN_DOSSIER_IMAGE.GEN_SEP;
- 
 
 968 
        $chemin_image_site =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
- 
 
 969 
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_IMAGE.GEN_SEP;
- 
 
 970 
        $resultat = $objet_pear_ftp->putRecursive($chemin_image_defaut, $chemin_image_site, false, FTP_BINARY);
- 
 
 971 
        if (PEAR::isError($resultat)) {
- 
 
 972 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
- 
 
 973 
                        'Fichier origine : '. $chemin_style_defaut .'<br />'.
- 
 
 974 
                        'Fichier copié : '. $chemin_style_site .'<br />'.
- 
 
 975 
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
- 
 
 976 
                        'Ligne n° : '. __LINE__ .'<br />'.
- 
 
 977 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
- 
 
 978 
                return $message;
- 
 
 979 
        }
- 
 
 980 
 
- 
 
 981
- 
 
 982
961 
        $objet_pear_ftp->disconnect();
 983 
        $objet_pear_ftp->disconnect();
962 
    }
 984 
    }
Line 963... Line 985...
963
985
964 
    $id_site = SQL_obtenirNouveauId($db, 'gen_site','gs_id_site');
 986 
    $id_site = SQL_obtenirNouveauId($db, 'gen_site','gs_id_site');
Line 1794... Line 1816...
1794 
}
 1816 
}
Line 1795... Line 1817...
1795
1817
1796 
// +- Fin du code source  --------------------------------------------------------------------------------+
 1818 
// +- Fin du code source  --------------------------------------------------------------------------------+
1797 
/*
 1819 
/*
- 
 
 1820 
* $Log: not supported by cvs2svn $
- 
 
 1821 
* Revision 1.31  2006/09/12 09:54:02  ddelon
- 
 
 1822 
* Affichage des identifications disponibles lors de la création d'un site. Un bug faisait que l'affichage de l'identification par défaut ne fonctionnait plus en creation.
1798 
* $Log: not supported by cvs2svn $
 1823 
*
1799 
* Revision 1.30  2006/07/19 13:57:35  ddelon
 1824 
* Revision 1.30  2006/07/19 13:57:35  ddelon
1800 
* Bug suppression de site
 1825 
* Bug suppression de site
1801 
*
 1826 
*
1802 
* Revision 1.29  2006/03/23 20:24:58  ddelon
 1827 
* Revision 1.29  2006/03/23 20:24:58  ddelon