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.6 2004-10-22 17:25:31 jpm Exp $
/**
* Bibliothèque de fonctions d'admininistration des projets
*
* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations
* sur les projets (=sites gérés par Papyrus).

*@author        Laurent COUDOUNEAU <lc@gsite.org>
//Autres auteurs :
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
*@copyright     Tela-Botanica 2000-2004
*@version       $Revision: 1.6 $ $Date: 2004-10-22 17:25:31 $
// +------------------------------------------------------------------------------------------------------+
*/

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

{
    $message = '';

    
    // Validation des données du formulaire
    if (empty($aso_valeurs['form_sites_id_site'])) {
        $message .= '<p class="pap_erreur">Vous devez d\'abord sélectionner un site.</p>';

    }
    

{
    $message = '';

    
    // Validation des données du formulaire
    if (empty($aso_valeurs['gs_nom'])) {
        $message .= '<p class="pap_erreur">Le champ "Nom" ne doit pas être vide.</p>';
    }
    if (empty($aso_valeurs['gs_code_alpha'])) {
        $message .= '<p class="pap_erreur">Le champ "Code alphanumérique" ne doit pas être vide.</p>';
    }
    if ($aso_valeurs['gs_code_num'] == '') {
        // 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érique" ne doit pas être vide.</p>';
    }
    if (preg_match('/^[0-9]+$/',$aso_valeurs['gs_code_num']) == 0) {
        $message .= '<p class="pap_erreur">Le champ "Code numérique" doit contenir un nombre.</p>';

    }
    
    // Requete pour vérifier l'abscence du code numérique et alphanumérique de la table gen_site

        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
    }

    
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
        if ($ligne->gs_code_num == $aso_valeurs['gs_code_num']) {
            $message .= '<p class="pap_erreur">La valeur "'.$aso_valeurs['gs_code_num'].'" pour le champ "Code numérique" existe déjà.</p>';
        }
        if ($ligne->gs_code_alpha == $aso_valeurs['gs_code_alpha']) {
            $message .= '<p class="pap_erreur">La valeur "'.$aso_valeurs['gs_code_alpha'].'" pour le champ "Code alphanumérique" existe déjà.</p>';
        }
    }

    $resultat->free();
    
    if (empty($aso_valeurs['gs_titre'])) {
        $message .= '<p class="pap_erreur">Le champ "Titre" ne doit pas être vide.</p>';
    }
    if (empty($aso_valeurs['gs_mots_cles'])) {
        $message .= '<p class="pap_erreur">Le champ "Mots clés" ne doit pas être vide.</p>';
    }
    if (empty($aso_valeurs['gs_description'])) {
        $message .= '<p class="pap_erreur">Le champ "Description" ne doit pas être vide.</p>';
    }
    if (empty($aso_valeurs['gs_auteur'])) {

        $message .= '<p class="pap_erreur">Le champ "Auteur" ne doit pas être vide.</p>';
    }

                                        $nom_rep_langue.GEN_SEP.$nom_rep_site;
                $vieux_umask = umask(0);
                $resultat = creerDossier($chemin_repertoire, 0755, GEN_SEP);
                umask($vieux_umask);
                if ($resultat == false) {
                    $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire.<br />'.
                                'Répertoire : '. $chemin_repertoire .'<br />'.
                                'Ligne n° : '. __LINE__ .'<br />'.
                                'Fichier n° : '. __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_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;
        if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de squellete par défaut.<br />'.
                        'Fichier : '. $chemin_squelette_site .'<br />'.
                        'Ligne n° : '. __LINE__ .'<br />'.
                        'Fichier n° : '. __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_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éer le fichier de style par défaut.<br />'.
                        'Fichier : '. $chemin_style_site .'<br />'.
                        'Ligne n° : '. __LINE__ .'<br />'.
                        'Fichier n° : '. __FILE__ .'<br /></p>';
            return $message;
        }

}

 
// +- Fin du code source  --------------------------------------------------------------------------------+
/*
* $Log: not supported by cvs2svn $
* 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.
*
* Revision 1.4  2004/10/18 18:27:41  jpm
* Correction problèmes FTP et manipulation de fichiers.
*
* Revision 1.3  2004/09/23 16:51:27  jpm

Subversion Repositories Applications.papyrus

(root)/trunk/papyrus/applications/admin_site/bibliotheque/adsi_site.fonct.php @ 1657 – Rev 75 → 96

Rev 75		Rev 96
Line 18...		Line 18...
18	`// \| \|`	18	`// \| \|`
19	`// \| You should have received a copy of the GNU Lesser General Public \|`	19	`// \| You should have received a copy of the GNU Lesser General Public \|`
20	`// \| License along with this library; if not, write to the Free Software \|`	20	`// \| License along with this library; if not, write to the Free Software \|`
21	`// \| Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA \|`	21	`// \| Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA \|`
22	`// +------------------------------------------------------------------------------------------------------+`	22	`// +------------------------------------------------------------------------------------------------------+`
23	`// CVS : $Id: adsi_site.fonct.php,v 1.5 2004-10-19 15:57:55 jpm Exp $`	23	`// CVS : $Id: adsi_site.fonct.php,v 1.6 2004-10-22 17:25:31 jpm Exp $`
24	`/**`	24	`/**`
25	`* Bibliothèque de fonctions d'admininistration des projets`	25	`* Bibliothèque de fonctions d'admininistration des projets`
26	`*`	26	`*`
27	`* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations`	27	`* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations`
28	`* sur les projets (=sites gérés par Papyrus).`	28	`* sur les projets (=sites gérés par Papyrus).`
Line 33...		Line 33...
33	`*@author Laurent COUDOUNEAU <lc@gsite.org>`	33	`*@author Laurent COUDOUNEAU <lc@gsite.org>`
34	`//Autres auteurs :`	34	`//Autres auteurs :`
35	`*@author Alexandre GRANIER <alexandre@tela-botanica.org>`	35	`*@author Alexandre GRANIER <alexandre@tela-botanica.org>`
36	`*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>`	36	`*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>`
37	`*@copyright Tela-Botanica 2000-2004`	37	`*@copyright Tela-Botanica 2000-2004`
38	`*@version $Revision: 1.5 $ $Date: 2004-10-19 15:57:55 $`	38	`*@version $Revision: 1.6 $ $Date: 2004-10-22 17:25:31 $`
39	`// +------------------------------------------------------------------------------------------------------+`	39	`// +------------------------------------------------------------------------------------------------------+`
40	`*/`	40	`*/`
Line 41...		Line 41...
41		41
42	`// +------------------------------------------------------------------------------------------------------+`	42	`// +------------------------------------------------------------------------------------------------------+`
Line 139...		Line 139...
139	`{`	139	`{`
140	`$message = '';`	140	`$message = '';`
Line 141...		Line 141...
141		141
142	`// Validation des données du formulaire`	142	`// Validation des données du formulaire`
143	`if (empty($aso_valeurs['form_sites_id_site'])) {`	143	`if (empty($aso_valeurs['form_sites_id_site'])) {`
144	`$message .= '<p class="genesia_erreur">Vous devez d\'abord sélectionner un site.</p>';`	144	`$message .= '<p class="pap_erreur">Vous devez d\'abord sélectionner un site.</p>';`
Line 145...		Line 145...
145	`}`	145	`}`
146		146
Line 423...		Line 423...
423	`{`	423	`{`
424	`$message = '';`	424	`$message = '';`
Line 425...		Line 425...
425		425
426	`// Validation des données du formulaire`	426	`// Validation des données du formulaire`
427	`if (empty($aso_valeurs['gs_nom'])) {`	427	`if (empty($aso_valeurs['gs_nom'])) {`
428	`$message .= '<p class="genesia_erreur">Le champ "Nom" ne doit pas être vide.</p>';`	428	`$message .= '<p class="pap_erreur">Le champ "Nom" ne doit pas être vide.</p>';`
429	`}`	429	`}`
430	`if (empty($aso_valeurs['gs_code_alpha'])) {`	430	`if (empty($aso_valeurs['gs_code_alpha'])) {`
431	`$message .= '<p class="genesia_erreur">Le champ "Code alphanumérique" ne doit pas être vide.</p>';`	431	`$message .= '<p class="pap_erreur">Le champ "Code alphanumérique" ne doit pas être vide.</p>';`
432	`}`	432	`}`
433	`if ($aso_valeurs['gs_code_num'] == '') {`	433	`if ($aso_valeurs['gs_code_num'] == '') {`
434	`// Note: ne pas utilisez empty() car si on veut saisir 0, cela est conscidéré comme vide!`	434	`// Note: ne pas utilisez empty() car si on veut saisir 0, cela est conscidéré comme vide!`
435	`$message .= '<p class="genesia_erreur">Le champ "Code numérique" ne doit pas être vide.</p>';`	435	`$message .= '<p class="pap_erreur">Le champ "Code numérique" ne doit pas être vide.</p>';`
436	`}`	436	`}`
437	`if (preg_match('/^[0-9]+$/',$aso_valeurs['gs_code_num']) == 0) {`	437	`if (preg_match('/^[0-9]+$/',$aso_valeurs['gs_code_num']) == 0) {`
438	`$message .= '<p class="genesia_erreur">Le champ "Code numérique" doit contenir un nombre.</p>';`	438	`$message .= '<p class="pap_erreur">Le champ "Code numérique" doit contenir un nombre.</p>';`
Line 439...		Line 439...
439	`}`	439	`}`
440		440
441	`// Requete pour vérifier l'abscence du code numérique et alphanumérique de la table gen_site`	441	`// Requete pour vérifier l'abscence du code numérique et alphanumérique de la table gen_site`
Line 451...		Line 451...
451	`die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );`	451	`die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );`
452	`}`	452	`}`
Line 453...		Line 453...
453		453
454	`while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {`	454	`while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {`
455	`if ($ligne->gs_code_num == $aso_valeurs['gs_code_num']) {`	455	`if ($ligne->gs_code_num == $aso_valeurs['gs_code_num']) {`
456	`$message .= '<p class="genesia_erreur">La valeur "'.$aso_valeurs['gs_code_num'].'" pour le champ "Code numérique" existe déjà.</p>';`	456	`$message .= '<p class="pap_erreur">La valeur "'.$aso_valeurs['gs_code_num'].'" pour le champ "Code numérique" existe déjà.</p>';`
457	`}`	457	`}`
458	`if ($ligne->gs_code_alpha == $aso_valeurs['gs_code_alpha']) {`	458	`if ($ligne->gs_code_alpha == $aso_valeurs['gs_code_alpha']) {`
459	`$message .= '<p class="genesia_erreur">La valeur "'.$aso_valeurs['gs_code_alpha'].'" pour le champ "Code alphanumérique" existe déjà.</p>';`	459	`$message .= '<p class="pap_erreur">La valeur "'.$aso_valeurs['gs_code_alpha'].'" pour le champ "Code alphanumérique" existe déjà.</p>';`
460	`}`	460	`}`
461	`}`	461	`}`
Line 462...		Line 462...
462	`$resultat->free();`	462	`$resultat->free();`
463		463
464	`if (empty($aso_valeurs['gs_titre'])) {`	464	`if (empty($aso_valeurs['gs_titre'])) {`
465	`$message .= '<p class="genesia_erreur">Le champ "Titre" ne doit pas être vide.</p>';`	465	`$message .= '<p class="pap_erreur">Le champ "Titre" ne doit pas être vide.</p>';`
466	`}`	466	`}`
467	`if (empty($aso_valeurs['gs_mots_cles'])) {`	467	`if (empty($aso_valeurs['gs_mots_cles'])) {`
468	`$message .= '<p class="genesia_erreur">Le champ "Mots clés" ne doit pas être vide.</p>';`	468	`$message .= '<p class="pap_erreur">Le champ "Mots clés" ne doit pas être vide.</p>';`
469	`}`	469	`}`
470	`if (empty($aso_valeurs['gs_description'])) {`	470	`if (empty($aso_valeurs['gs_description'])) {`
471	`$message .= '<p class="genesia_erreur">Le champ "Description" ne doit pas être vide.</p>';`	471	`$message .= '<p class="pap_erreur">Le champ "Description" ne doit pas être vide.</p>';`
472	`}`	472	`}`
473	`if (empty($aso_valeurs['gs_auteur'])) {`	473	`if (empty($aso_valeurs['gs_auteur'])) {`
Line 474...		Line 474...
474	`$message .= '<p class="genesia_erreur">Le champ "Auteur" ne doit pas être vide.</p>';`	474	`$message .= '<p class="pap_erreur">Le champ "Auteur" ne doit pas être vide.</p>';`
475	`}`	475	`}`
Line 577...		Line 577...
577	`$nom_rep_langue.GEN_SEP.$nom_rep_site;`	577	`$nom_rep_langue.GEN_SEP.$nom_rep_site;`
578	`$vieux_umask = umask(0);`	578	`$vieux_umask = umask(0);`
579	`$resultat = creerDossier($chemin_repertoire, 0755, GEN_SEP);`	579	`$resultat = creerDossier($chemin_repertoire, 0755, GEN_SEP);`
580	`umask($vieux_umask);`	580	`umask($vieux_umask);`
581	`if ($resultat == false) {`	581	`if ($resultat == false) {`
582	`$message = '<p class="genesia_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire.<br />'.`	582	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire.<br />'.`
583	`'Répertoire : '. $chemin_repertoire .'<br />'.`	583	`'Répertoire : '. $chemin_repertoire .'<br />'.`
584	`'Ligne n° : '. __LINE__ .'<br />'.`	584	`'Ligne n° : '. __LINE__ .'<br />'.`
585	`'Fichier n° : '. __FILE__ .'<br /></p>';`	585	`'Fichier n° : '. __FILE__ .'<br /></p>';`
586	`return $message;`	586	`return $message;`
587	`}`	587	`}`
Line 590...		Line 590...
590	`$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`	590	`$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`
591	`GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`	591	`GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`
592	`$chemin_squelette_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`	592	`$chemin_squelette_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`
593	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`	593	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`
594	`if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {`	594	`if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {`
595	`$message = '<p class="genesia_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de squellete par défaut.<br />'.`	595	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de squellete par défaut.<br />'.`
596	`'Fichier : '. $chemin_squelette_site .'<br />'.`	596	`'Fichier : '. $chemin_squelette_site .'<br />'.`
597	`'Ligne n° : '. __LINE__ .'<br />'.`	597	`'Ligne n° : '. __LINE__ .'<br />'.`
598	`'Fichier n° : '. __FILE__ .'<br /></p>';`	598	`'Fichier n° : '. __FILE__ .'<br /></p>';`
599	`return $message;`	599	`return $message;`
600	`}`	600	`}`
601	`$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`	601	`$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`
602	`GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`	602	`GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`
603	`$chemin_style_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`	603	`$chemin_style_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`
604	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`	604	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`
605	`if (!copy($chemin_style_defaut, $chemin_style_site)) {`	605	`if (!copy($chemin_style_defaut, $chemin_style_site)) {`
606	`$message = '<p class="genesia_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de style par défaut.<br />'.`	606	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de style par défaut.<br />'.`
607	`'Fichier : '. $chemin_style_site .'<br />'.`	607	`'Fichier : '. $chemin_style_site .'<br />'.`
608	`'Ligne n° : '. __LINE__ .'<br />'.`	608	`'Ligne n° : '. __LINE__ .'<br />'.`
609	`'Fichier n° : '. __FILE__ .'<br /></p>';`	609	`'Fichier n° : '. __FILE__ .'<br /></p>';`
610	`return $message;`	610	`return $message;`
611	`}`	611	`}`
Line 963...		Line 963...
963	`}`	963	`}`
Line 964...		Line 964...
964		964
965	`// +- Fin du code source --------------------------------------------------------------------------------+`	965	`// +- Fin du code source --------------------------------------------------------------------------------+`
966	`/*`	966	`/*`
-		967	`* $Log: not supported by cvs2svn $`
-		968	`* Revision 1.5 2004/10/19 15:57:55 jpm`
-		969	`* Amélioration de la gestion des fichiers sur le serveur.`
-		970	`* Ajout d'une contrainte pour éviter la suppression par erreur du site par défaut.`
967	`* $Log: not supported by cvs2svn $`	971	`*`
968	`* Revision 1.4 2004/10/18 18:27:41 jpm`	972	`* Revision 1.4 2004/10/18 18:27:41 jpm`
969	`* Correction problèmes FTP et manipulation de fichiers.`	973	`* Correction problèmes FTP et manipulation de fichiers.`
970	`*`	974	`*`
971	`* Revision 1.3 2004/09/23 16:51:27 jpm`	975	`* Revision 1.3 2004/09/23 16:51:27 jpm`