Subversion Repositories Applications.papyrus

Rev

Rev 6 | Rev 72 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
6 jpm 1
<?php
2
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3
// +------------------------------------------------------------------------------------------------------+
4
// | PHP version 4.1                                                                                      |
5
// +------------------------------------------------------------------------------------------------------+
6
// | Copyright (C) 2001 Laurent COUDOUNEAU (lc@gsite.org)                                                 |
7
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
8
// +------------------------------------------------------------------------------------------------------+
9
// | This library is free software; you can redistribute it and/or                                        |
10
// | modify it under the terms of the GNU Lesser General Public                                           |
11
// | License as published by the Free Software Foundation; either                                         |
12
// | version 2.1 of the License, or (at your option) any later version.                                   |
13
// |                                                                                                      |
14
// | This library is distributed in the hope that it will be useful,                                      |
15
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
16
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
17
// | Lesser General Public License for more details.                                                      |
18
// |                                                                                                      |
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                                  |
21
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
22
// +------------------------------------------------------------------------------------------------------+
25 jpm 23
// CVS : $Id: adsi_site.fonct.php,v 1.2 2004-07-06 17:08:01 jpm Exp $
6 jpm 24
/**
25
* Bibliothèque de fonctions d'admininistration des projets
26
*
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).
29
*
25 jpm 30
*@package Admin_site
6 jpm 31
*@subpackage Fonctions
32
//Auteur original :
33
*@author        Laurent COUDOUNEAU <lc@gsite.org>
34
//Autres auteurs :
35
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
36
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
37
*@copyright     Tela-Botanica 2000-2004
25 jpm 38
*@version       $Revision: 1.2 $ $Date: 2004-07-06 17:08:01 $
6 jpm 39
// +------------------------------------------------------------------------------------------------------+
40
*/
41
 
42
// +------------------------------------------------------------------------------------------------------+
43
// |                                            ENTÊTE du PROGRAMME                                       |
44
// +------------------------------------------------------------------------------------------------------+
45
 
46
/** Inclusion de la classe Formulaire.
47
* Elle permet la création rapide de formulaire basé sur les tables Mysql.
48
*/
49
require_once ADSI_CHEMIN_BIBLIOTHEQUE_API.'formulaire_1.0/FORM_Form.class.php';
50
 
51
/** Inclusion bibliothèque de PEAR gérant le FTP.*/
52
require_once ADSI_CHEMIN_BIBLIOTHEQUE_PEAR.'Net/FTP.php';
53
 
54
// +------------------------------------------------------------------------------------------------------+
55
// |                                            CORPS du PROGRAMME                                        |
56
// +------------------------------------------------------------------------------------------------------+
57
/** Fonction ADMIN_afficherListeSites()- Génére le xhtml permettant de choisir un site parmis une liste.
58
*
59
* Cette fonction fournie une liste des sites principaux gérés par Génésia.
60
*
61
* @param  string   l'objet Pear DB.
62
* @param  string   l'url de la page à laquelle renvoyer le formulaire.
63
* @param  string   un message important à destination de l'utilisateur.
64
* return  string   le code XHTML à retourner.
65
*/
66
function ADMIN_afficherFormListeSites($db, $url, $message = '')
67
{
68
    // Liste des sites principaux
69
    $requete =  'SELECT * '.
70
                'FROM gen_site, gen_site_relation '.
71
                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
72
                'AND gsr_id_valeur = 102 '.
73
                'AND gsr_id_site_01 = gs_id_site '.
74
                'ORDER BY gsr_ordre';
75
 
76
    $resultat = $db->query($requete);
77
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;
78
 
79
    //----------------------------------------------------------------------------
80
    // Création du formulaire
81
    $form =& new HTML_QuickForm('form_sites', 'post', $url);
82
    $tab_index = 1000;
83
    $squelette =& $form->defaultRenderer();
84
    $squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'{content}'."\n".'</form>'."\n");
85
    $squelette->setElementTemplate( '<li>'."\n".'{label}'."\n".'{element}'."\n".
86
                                    '<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
87
                                    '<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n".
88
                                    '</li>'."\n");
89
    $squelette->setRequiredNoteTemplate("\n".'<p>'."\n".'<span class="symbole_obligatoire">*</span> {requiredNote}'."\n".'</p>'."\n");
90
 
91
    $partie_site_debut =    '<fieldset>'."\n".
92
                            '<legend>Listes des sites</legend>'."\n".
93
                            '<ul>'."\n";
94
    $form->addElement('html', $partie_site_debut);
95
 
96
    $aso_options = array();
97
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
98
        $aso_options[$ligne->gs_id_site] = htmlentities($ligne->gs_nom.' ('.$ligne->gs_code_alpha.')');
99
    }
100
    $resultat->free();
101
    $id = 'form_sites_id_site';
102
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
103
    $label = '<label for="'.$id.'">'.'Listes des sites : '.'</label>';
104
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
105
 
106
    $partie_site_fin =  '</ul>'."\n".
107
                        '</fieldset>'."\n";
108
    $form->addElement('html', $partie_site_fin);
109
 
110
    $liste_bouton_debut = '<ul class="liste_bouton">'."\n";
111
    $form->addElement('html', $liste_bouton_debut);
112
 
113
    $form->addElement('submit', 'form_sites_ajouter', 'Ajouter');
114
    $form->addElement('submit', 'form_sites_modifier', 'Modifier');
115
    $form->addElement('submit', 'form_sites_supprimer', 'Supprimer');
116
 
117
    $liste_bouton_fin = '</ul>'."\n";
118
    $form->addElement('html', $liste_bouton_fin);
119
 
120
    $sortie = $form->toHTML()."\n";
121
 
122
    // Titre de la page:
123
    $titre = 'Configuration des sites';
124
 
125
    // Construction de la page.
126
    return ADMIN_contruirePage($titre, $sortie, $message);
127
}
128
 
129
/** Fonction ADMIN_validerFormListesSites() - Valide les données issues du formulaire de liste de sites.
130
*
131
* Cette fonction valide les données du formulaire de liste de site.
132
*
133
* @param  string   l'objet pear de connexion à la base de données.
134
* @param  string   le tableau contenant les valeurs du formulaire.
135
* @return string   retourne les messages d'erreurs sinon rien.
136
*/
137
function ADMIN_validerFormListesSites($db, $aso_valeurs)
138
{
139
    $message = '';
140
 
141
    // Validation des données du formulaire
142
    if (empty($aso_valeurs['form_sites_id_site'])) {
143
        $message .= '<p class="genesia_erreur">Vous devez d\'abord sélectionner un site.</p>';
144
    }
145
 
146
    return $message;
147
}
148
 
149
/** Fonction ADMIN_afficherFormSite()- Génére un formulaire pour gen_site.
150
*
151
* Cette fonction retourne un formulaire pour modification ou pour ajout.
152
*
153
* @param  string   l'objet pear de connexion à la base de données.
154
* @param  string   l'url à laquelle renvoyer le formulaire.
155
* @param  string   le tableau contenant les valeurs du formulaire.
156
* @param  string   un message à destination de l'utilisateur.
157
* return  string   le code XHTML à retourner.
158
*/
159
function ADMIN_afficherFormSite($db, $url, $aso_valeurs = array(), $message = '')
160
{
161
 
162
    // Nous cherchons à savoir si nous somme en modification
163
    $aso_valeurs['modification'] = false;
164
    if (isset($aso_valeurs['form_sites_modifier'])) {
165
        // Requete pour récupérer les informations sur le site à modifier
166
        $requete =  'SELECT * '.
167
                    'FROM gen_site '.
168
                    'WHERE gs_id_site = '.$aso_valeurs['form_sites_id_site'];
169
        $resultat = $db->query($requete);
170
        if (DB::isError($resultat)) {
171
            die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
172
        }
173
        $aso_valeurs = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
174
        $aso_valeurs['modification'] = true;
175
    } else if (isset($aso_valeurs['gs_id_site'])) {
176
        $aso_valeurs['modification'] = true;
177
    }
178
 
179
    //----------------------------------------------------------------------------
180
    // Création du formulaire
181
    $form =& new HTML_QuickForm('site', 'post', $url);
182
    $tab_index = 1000;
183
    $squelette =& $form->defaultRenderer();
184
    $squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'{content}'."\n".'</form>'."\n");
185
    $squelette->setElementTemplate(  '<li>'."\n".
186
                                    '{label}'."\n".
187
                                    '{element}'."\n".
188
                                    '<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
189
                                    '<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n".
190
                                    '</li>'."\n");
191
    $squelette->setRequiredNoteTemplate("\n".'<p><span class="symbole_obligatoire">*</span> {requiredNote}</p>'."\n");
192
 
193
    $partie_site_debut = '<fieldset>'."\n".'<legend>Configuration du site</legend>'."\n".'<ul>'."\n";
194
    $form->addElement('html', $partie_site_debut);
195
 
196
    if ($aso_valeurs['modification']) {
197
        $form->addElement('hidden', 'gs_id_site');
198
    }
199
 
200
    $id = 'gs_nom';
201
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 100, 'value' => 'nom du site');
202
    $label = '<label for="'.$id.'">'.'Nom du site : '.'</label>';
203
    $form->addElement('text', $id, $label, $aso_attributs);
204
    $form->addRule($id, 'Un nom est requis pour le site !', 'required', '', 'client');
205
 
206
    $id = 'gs_code_alpha';
207
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 20, 'maxlength' => 20, 'value' => 'site_01');
208
    $label = '<label for="'.$id.'">'.'Code alphanumérique : '.'</label>';
209
    $form->addElement('text', $id, $label, $aso_attributs);
210
    $form->addRule('gs_code_alpha', 'Un code alphanumérique est requis pour le site !', 'required', '', 'client');
211
 
212
    $id = 'gs_code_num';
213
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 20, 'maxlength' => 20, 'value' => 1);
214
    $label = '<label for="'.$id.'">'.'Code numérique : '.'</label>';
215
    $form->addElement('text', $id, $label, $aso_attributs);
216
    $form->addRule('gs_code_num', 'Un code numérique est requis pour le site !', 'required', '', 'client');
217
 
218
    $id = 'gs_raccourci_clavier';
219
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 1, 'maxlength' => 1, 'value' => 'Z');
220
    $label = '<label for="'.$id.'">'.'Raccourci clavier : '.'</label>';
221
    $form->addElement('text', $id, $label, $aso_attributs);
222
 
223
    $id = 'defaut';
224
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++);
225
    $label = '<label for="'.$id.'">'.'En faire le site par défaut : '.'</label>';
226
    $form->addElement('checkbox', $id, $label, '', $aso_attributs);
227
 
228
    // Requete pour connaitre les identifications dispo
229
    $requete =  'SELECT * '.
230
                'FROM gen_site_auth '.
231
                'WHERE gsa_id_auth != 0';
232
    $resultat = $db->query($requete) ;
233
    if (DB::isError($resultat)) {
234
        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
235
    }
236
    $aso_options = array();
237
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
238
        // Test pour connaître le type d'authentification.
239
        $type = '';
240
        if ($ligne->gsa_ce_type_auth == '1' ) {
241
            $type = 'Base de données';
242
        } else if ($ligne->gsa_ce_type_auth == '2' ) {
243
            $type = 'LDAP';
244
        }
245
        $aso_options[$ligne->gsa_id_auth] = $ligne->gsa_nom.' ('.$type.')';
246
    }
247
    $resultat->free();
248
    $id = 'gs_ce_auth';
249
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
250
    $label = '<label for="'.$id.'">'.'Identification : '.'</label>';
251
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
252
 
253
    // En modification nous affichons la liste des squelettes disponiblent dans
254
    // le dossier du site.
255
    if ($aso_valeurs['modification']) {
256
        // ouverture des squelettes présent dans le dossier du site
257
        // création de l'objet pear ftp
258
        $objet_pear_ftp = new Net_FTP(GEN_FTP_SERVEUR, GEN_FTP_PORT);
259
        // création de la connexion
260
        $ftp_conn = $objet_pear_ftp->connect(GEN_FTP_SERVEUR, GEN_FTP_PORT);
261
        // identification
262
        $ftp_login_result = $objet_pear_ftp->login(GEN_FTP_UTILISATEUR, GEN_FTP_MOT_DE_PASSE);;
263
        // Gestion des erreurs ftp
264
        if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
265
            die('ERREUR Génésia admin : impossible de se connecter par ftp.<br />'.
266
                'Serveur : '. GEN_FTP_SERVEUR .'<br />'.
267
                'Utilisateur : '. GEN_FTP_UTILISATEUR .'<br />'.
268
                'Ligne n° : '. __LINE__ .'<br />'.
269
                'Fichier n° : '. __FILE__ .'<br />');
270
        }
271
        $chemin_squelettes = GEN_FTP_CHEMIN.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].'/'.$aso_valeurs['gs_ce_i18n'].'/'.GEN_DOSSIER_SQUELETTE.'/';
272
        $tab_squelettes = $objet_pear_ftp->ls($chemin_squelettes);
273
        $aso_options = array();
274
        for ($i = 0; $i < count($tab_squelettes) ; $i++) {
275
            if ($tab_squelettes[$i]['is_dir'] == false) {
276
                $aso_options[$tab_squelettes[$i]['name']] = $tab_squelettes[$i]['name'];
277
            }
278
        }
279
        $objet_pear_ftp->disconnect();
280
        $id = 'gs_fichier_squelette';
281
        $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
282
        $label = '<label for="'.$id.'">'.'Squelette : '.'</label>';
283
        $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
284
    }
285
 
286
    // Requete pour connaitre les internationalisation dispo
287
    $requete =  'SELECT * '.
288
                'FROM gen_i18n ';
289
    $resultat = $db->query($requete) ;
290
    if (DB::isError($resultat)) {
291
        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
292
    }
293
    $aso_options = array();
294
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
295
        $aso_options[$ligne->gi_id_i18n] = $ligne->gi_id_i18n;
296
    }
297
    $resultat->free();
298
    $id = 'gs_ce_i18n';
299
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
300
    $label = '<label for="'.$id.'">'.'Langue : '.'</label>';
301
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
302
 
303
    $partie_site_fin = '</ul>'."\n".'</fieldset>'."\n";
304
    $form->addElement('html', $partie_site_fin);
305
 
306
    $partie_entete_debut = '<fieldset>'."\n".'<legend>Entête par défaut des pages du site</legend>'."\n".'<ul>'."\n";
307
    $form->addElement('html', $partie_entete_debut);
308
 
309
    $id = 'gs_titre';
310
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255, 'value' => 'titre du site');
311
    $label = '<label for="'.$id.'">'.'Titre du site : '.'</label>';
312
    $form->addElement('text', $id, $label, $aso_attributs);
313
    $form->addRule('gs_titre', 'Un titre est requis pour le site !', 'required', '', 'client');
314
 
315
    $id = 'gs_mots_cles';
316
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
317
    $label = '<label for="'.$id.'">'.'Mots-clés : '.'</label>';
318
    $zone_mots_cles = $form->createElement('textarea', $id, $label, $aso_attributs);
319
    $zone_mots_cles->setValue('mots-clés du site');
320
    $form->addElement($zone_mots_cles);
321
    $form->addRule($id, 'Des mots clés sont requis pour le site !', 'required', '', 'client');
322
 
323
    $id = 'gs_description';
324
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
325
    $label = '<label for="'.$id.'">'.'Description du contenu : '.'</label>';
326
    $zone = $form->createElement('textarea', $id, $label, $aso_attributs);
327
    $zone->setValue('description du site');
328
    $form->addElement($zone);
329
    $form->addRule($id, 'Une description est requise pour le site !', 'required', '', 'client');
330
 
331
    $id = 'gs_auteur';
332
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255, 'value' => 'auteur du site');
333
    $label = '<label for="'.$id.'">'.'Auteur du site : '.'</label>';
334
    $form->addElement('text', $id, $label, $aso_attributs);
335
    $form->addRule('gs_auteur', 'Un auteur est requis pour le site !', 'required', '', 'client');
336
 
337
    $partie_entete_fin = '</ul>'."\n".'</fieldset>'."\n";
338
    $form->addElement('html', $partie_entete_fin);
339
 
340
    if ($aso_valeurs['modification']) {
341
        // Requete pour connaitre les informations sur l'administrateur ayant fait la dernière modif
342
        $requete_admin =    'SELECT * '.
343
                            'FROM gen_annuaire '.
344
                            'WHERE ga_id_administrateur = '.$aso_valeurs['gs_ce_admin'];
345
        $resultat_admin = $db->query($requete_admin);
346
        if (DB::isError($resultat_admin)) {
347
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_admin->getMessage(), $requete_admin));
348
        }
349
        $ligne_admin = $resultat_admin->fetchRow(DB_FETCHMODE_OBJECT);
350
        $info_admin =   '<p class="info">Dernière modification par'.$ligne_admin->ga_prenom.' '.$ligne_admin->ga_nom.
351
                        ' le '.$aso_valeurs['gs_date_creation'].'</p>';
352
        $form->addElement('html', $info_admin);
353
        $form->addElement('hidden', 'gs_ce_admin');
354
        $form->addElement('hidden', 'gs_date_creation');
355
 
356
        // Titre de la page:
357
        $titre = 'Modifier un site';
358
        // Bouton validant le formulaire
359
        $bouton_validation = '<input type="submit" id="site_modifier" name="site_modifier" value="Enregistrer" />';
360
    } else {
361
        // Titre de la page:
362
        $titre = 'Ajouter un site';
363
        // Bouton validant le formulaire
364
        $bouton_validation = '<input type="submit" id="site_enregistrer" name="site_enregistrer" value="Enregistrer" />';
365
    }
366
    $bouton_annuler =   '<input type="submit" id="form_annuler" name="form_annuler" value="Annuler" />';
367
    $bouton_effacer =   '<input type="reset" id="effacer" name="effacer" value="Effacer" />';
368
    $boutons =  '<p>'."\n".
369
                $bouton_validation."\n".
370
                $bouton_annuler."\n".
371
                $bouton_effacer."\n".
372
                '</p>'."\n";
373
    $form->addElement('html', $boutons);
374
 
375
    // Instanciation des valeurs par défaut du formulaire
376
    $form->setDefaults($aso_valeurs);
377
 
378
    // Javascript pour la validation côté client
379
    $regles_javascript = $form->getValidationScript();
380
    // Suppression des balises déjà créées par GEN_stockerCodeScript()
381
    $regles_javascript = ereg_replace ( '<script type="text\/javascript">', '', $regles_javascript);
382
    $regles_javascript = ereg_replace ( '<!--', '', $regles_javascript);
383
    $regles_javascript = ereg_replace ( '\/\/-->', '', $regles_javascript);
384
    $regles_javascript = ereg_replace ( '<\/script>', '', $regles_javascript);
385
    GEN_stockerCodeScript($regles_javascript);
386
 
387
    // Note de fin de formulaire
388
    $form->setRequiredNote('Indique les champs obligatoires');
389
    $sortie = $form->toHTML()."\n";
390
 
391
    // Construction de la page.
392
    return ADMIN_contruirePage($titre, $sortie, $message);
393
}
394
 
395
/** Fonction ADMIN_validerFormAjouterSite() - Valide les données issues du formulaire pour gen_site.
396
*
397
* Cette fonction valide les données à ajouter dans la table gen_site.
398
*
399
* @param  string   l'objet pear de connexion à la base de données.
400
* @param  string   le tableau contenant les valeurs du formulaire.
401
* @return string   retourne les messages d'erreurs sinon rien.
402
*/
403
function ADMIN_validerFormSite($db, $aso_valeurs)
404
{
405
    $message = '';
406
 
407
    // Validation des données du formulaire
408
    if (empty($aso_valeurs['gs_nom'])) {
409
        $message .= '<p class="genesia_erreur">Le champ "Nom" ne doit pas être vide.</p>';
410
    }
411
    if (empty($aso_valeurs['gs_code_alpha'])) {
412
        $message .= '<p class="genesia_erreur">Le champ "Code alphanumérique" ne doit pas être vide.</p>';
413
    }
414
    if (empty($aso_valeurs['gs_code_num'])) {
415
        $message .= '<p class="genesia_erreur">Le champ "Code numérique" ne doit pas être vide.</p>';
416
    }
417
    if (preg_match('/^[0-9]+$/',$aso_valeurs['gs_code_num']) == 0) {
418
        $message .= '<p class="genesia_erreur">Le champ "Code numérique" doit contenir un nombre.</p>';
419
    }
420
 
421
    // Requete pour vérifier l'abscence du code numérique et alphanumérique de la table gen_site
422
    $requete =  'SELECT gs_code_alpha, gs_code_num '.
423
                'FROM gen_site, gen_site_relation '.
424
                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
425
                'AND gsr_id_valeur = 102 '.// 102 = site "principal"
426
                'AND gsr_id_site_01 = gs_id_site ';
427
    $requete .= (isset($aso_valeurs['gs_id_site'])) ? 'AND gs_id_site != '.$aso_valeurs['gs_id_site'] : '';
428
 
429
    $resultat = $db->query($requete);
430
    if (DB::isError($resultat)) {
431
        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
432
    }
433
 
434
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
435
        if ($ligne->gs_code_num == $aso_valeurs['gs_code_num']) {
436
            $message .= '<p class="genesia_erreur">La valeur "'.$aso_valeurs['gs_code_num'].'" pour le champ "Code numérique" existe déjà.</p>';
437
        }
438
        if ($ligne->gs_code_alpha == $aso_valeurs['gs_code_alpha']) {
439
            $message .= '<p class="genesia_erreur">La valeur "'.$aso_valeurs['gs_code_alpha'].'" pour le champ "Code alphanumérique" existe déjà.</p>';
440
        }
441
    }
442
    $resultat->free();
443
 
444
    if (empty($aso_valeurs['gs_titre'])) {
445
        $message .= '<p class="genesia_erreur">Le champ "Titre" ne doit pas être vide.</p>';
446
    }
447
    if (empty($aso_valeurs['gs_mots_cles'])) {
448
        $message .= '<p class="genesia_erreur">Le champ "Mots clés" ne doit pas être vide.</p>';
449
    }
450
    if (empty($aso_valeurs['gs_description'])) {
451
        $message .= '<p class="genesia_erreur">Le champ "Description" ne doit pas être vide.</p>';
452
    }
453
    if (empty($aso_valeurs['gs_auteur'])) {
454
        $message .= '<p class="genesia_erreur">Le champ "Auteur" ne doit pas être vide.</p>';
455
    }
456
 
457
    return $message;
458
}
459
 
460
/** Fonction ADMIN_enregistrerSite() - Ajoute un site à Papyrus.
461
*
462
* Cette fonction ajoute le site à Papyrus, c'est à dire :
463
* - 1. Création des répertoire du projet en fonction du nom et des sous-répertoires.
464
* - 2. Insertion d'une ligne dans la table "gen_site".
465
* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables liées si nécessaire.
466
*
467
* @param  string   l'objet pear de connexion à la base de données.
468
* @param  string   le tableau contenant les valeurs du formulaire.
469
* @param  int      identifiant de l'administrateur réalisant cette création.
470
* @return string retourne un message en cas de succès ou d'échec.
471
*/
472
function ADMIN_enregistrerSite($db, $aso_valeurs, $id_admin)
473
{
474
    $id_site = SQL_obtenirNouveauId($db, 'gen_site','gs_id_site');
475
    if ($id_site == false) {
476
        $message = '<p class="erreur"> ERREUR Génésia admin : impossible de récupérer un identifiant pour la table gen_site.<br />'.
477
                    'Ligne n° : '. __LINE__ .'<br />'.
478
                    'Fichier n° : '. __FILE__ .'<br /></p>';
479
        return $message;
480
    }
481
    // Requete d'insertion des infos d'un site dans gen_site
482
    $requete =  'INSERT INTO gen_site '.
483
                'SET gs_id_site = '.$id_site.', '.
484
                'gs_ce_i18n = "'.$aso_valeurs['gs_ce_i18n'].'", '.
485
                'gs_ce_auth = '.$aso_valeurs['gs_ce_auth'].', '.
486
                'gs_fichier_squelette = "defaut.html", '.
487
                'gs_code_num = '.$aso_valeurs['gs_code_num'].', '.
488
                'gs_code_alpha = "'.$aso_valeurs['gs_code_alpha'].'", '.
489
                'gs_nom = "'.$aso_valeurs['gs_nom'].'", '.
490
                'gs_raccourci_clavier = "'.$aso_valeurs['gs_raccourci_clavier'].'", '.
491
                'gs_titre = "'.$aso_valeurs['gs_titre'].'", '.
492
                'gs_mots_cles = "'.$aso_valeurs['gs_mots_cles'].'", '.
493
                'gs_description = "'.$aso_valeurs['gs_description'].'", '.
494
                'gs_auteur = "'.$aso_valeurs['gs_auteur'].'", '.
495
                'gs_date_creation = "'.date('Y-m-d H:i:s').'", '.
496
                'gs_ce_admin = '.$id_admin;
497
    $resultat = $db->query($requete) ;
498
    if (DB::isError($resultat)) {
499
        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
500
    }
501
 
502
    // Recherche du nouveau numéro d'ordre de ce site principal
503
    $requete =  'SELECT MAX(gsr_ordre) AS max_ordre '.
504
                'FROM gen_site_relation '.
505
                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
506
                'AND gsr_id_valeur = 102 ';// 102 = site "principal"
507
    $resultat = $db->query($requete) ;
508
    if (DB::isError($resultat)) {
509
        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
510
    }
511
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
512
    $nouvel_ordre = $ligne->max_ordre + 1;
513
 
514
    // Requete d'insertion des relations dans gen_site_relation
515
    $requete =  'INSERT INTO gen_site_relation '.
516
                'SET gsr_id_site_01 = '.$id_site.', '.
517
                'gsr_id_site_02 = '.$id_site.', '.
518
                'gsr_id_valeur = 102, '.
519
                'gsr_ordre = '.$nouvel_ordre;
520
    $resultat = $db->query($requete);
521
    if (DB::isError($resultat)) {
522
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
523
    }
524
 
525
    if (isset($aso_valeurs['defaut']) && $aso_valeurs['defaut'] == 1) {
526
        $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
527
        $requete_supr_defaut =  'DELETE FROM gen_site_relation '.
528
                                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
529
                                'AND gsr_id_valeur = 101 ';// 101 = site par "defaut"
530
        $resultat_supr_defaut = $db->query($requete_supr_defaut);
531
        if (DB::isError($resultat_supr_defaut)) {
532
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_defaut->getMessage(), $requete_supr_defaut));
533
        }
534
 
535
        // Requete d'insertion de la relations site par défaut
536
        $requete =  'INSERT INTO gen_site_relation '.
537
                    'SET gsr_id_site_01 = '.$id_site.', '.
538
                    'gsr_id_site_02 = '.$id_site.', '.
539
                    'gsr_id_valeur = 101, '.
540
                    'gsr_ordre = NULL ';
541
        $resultat = $db->query($requete);
542
        if (DB::isError($resultat)) {
543
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
544
        }
545
    }
546
    // Ajout des répertoires du site
547
    // Création d'une connection ftp avec Net_FTP de PEAR
548
    // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
549
 
550
    // création de l'objet pear ftp
551
    $objet_pear_ftp = new Net_FTP(GEN_FTP_SERVEUR, GEN_FTP_PORT);
552
    // création de la connexion
553
    $ftp_conn = $objet_pear_ftp->connect(GEN_FTP_SERVEUR, GEN_FTP_PORT);
554
    // identification
555
    $ftp_login_result = $objet_pear_ftp->login(GEN_FTP_UTILISATEUR, GEN_FTP_MOT_DE_PASSE);;
556
    // Gestion des erreurs ftp
557
    if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
558
        $message =  '<p class="genesia_erreur"> ERREUR Génésia admin : impossible de se connecter par ftp.<br />'.
559
                    'Serveur : '. GEN_FTP_SERVEUR .'<br />'.
560
                    'Utilisateur : '. GEN_FTP_UTILISATEUR .'<br />'.
561
                    'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
562
                    'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
563
                    'Ligne n° : '. __LINE__ .'<br />'.
564
                    'Fichier n° : '. __FILE__ .'<br /><p>';
565
        return $message;
566
    }
567
    $tableau_repertoires = array(   GEN_DOSSIER_IMAGE,
568
                                    GEN_DOSSIER_STYLE,
569
                                    GEN_DOSSIER_SCRIPT,
570
                                    GEN_DOSSIER_SQUELETTE,
571
                                    GEN_DOSSIER_DOC);
572
    foreach ($tableau_repertoires as $nom_repertoire) {
573
        $chemin_repertoire = GEN_FTP_CHEMIN.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].'/'.$aso_valeurs['gs_ce_i18n'].'/'.$nom_repertoire.'/';
574
        $resultat = $objet_pear_ftp->mkdir($chemin_repertoire, true) ;
575
        if (PEAR::isError($resultat)) {
576
            $message =  '<p class="genesia_erreur"> ERREUR Génésia admin : impossible de créer le répertoire par ftp.<br />'.
577
                        'Répertoire : '. $chemin_repertoire .'<br />'.
578
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
579
                        'Ligne n° : '. __LINE__ .'<br />'.
580
                        'Fichier n° : '. __FILE__ .'<br /></p>';
581
            return $message;
582
        }
583
    }
584
    $chemin_squelette_defaut = GEN_FTP_CHEMIN.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.'/'.GEN_DOSSIER_SQUELETTE.'/defaut.html';
585
    $chemin_squelette_site = GEN_FTP_CHEMIN.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].'/'.$aso_valeurs['gs_ce_i18n'].'/'.GEN_DOSSIER_SQUELETTE.'/defaut.html';
586
    $resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
587
    if (PEAR::isError($resultat)) {
588
        $message =  '<p class="genesia_erreur"> ERREUR Génésia admin : impossible de copier le squelette defaut par ftp.<br />'.
589
                    'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
590
                    'Fichier copié : '. $chemin_squelette_site .'<br />'.
591
                    'Erreur origine : '. $resultat->getMessage() .'<br />'.
592
                    'Ligne n° : '. __LINE__ .'<br />'.
593
                    'Fichier n° : '. __FILE__ .'<br /></p>';
594
            return $message;
595
    }
596
    $chemin_style_defaut = GEN_FTP_CHEMIN.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.'/'.GEN_DOSSIER_STYLE.'/defaut.css';
597
    $chemin_style_site = GEN_FTP_CHEMIN.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].'/'.$aso_valeurs['gs_ce_i18n'].'/'.GEN_DOSSIER_STYLE.'/defaut.css';
598
    $resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
599
    if (PEAR::isError($resultat)) {
600
        $message =  '<p class="genesia_erreur"> ERREUR Génésia admin : impossible de copier le squelette defaut par ftp.<br />'.
601
                    'Fichier origine : '. $chemin_style_defaut .'<br />'.
602
                    'Fichier copié : '. $chemin_style_site .'<br />'.
603
                    'Erreur origine : '. $resultat->getMessage() .'<br />'.
604
                    'Ligne n° : '. __LINE__ .'<br />'.
605
                    'Fichier n° : '. __FILE__ .'<br /></p>';
606
            return $message;
607
    }
608
    $objet_pear_ftp->disconnect();
609
    $message = '<p class="genesia_info">'.'Succés de l\'ajout du site.'.'</p>';
610
    return $message;
611
}
612
 
613
/** Fonction ADMIN_modifierSite() - Modifie un site de Papyrus.
614
*
615
* Cette fonction modifie un site géré par Papyrus.
616
* Il faudrait aussi pouvoir renomer le dossier du site si le code alpha change.
617
*
618
* @param  string   l'objet pear de connexion à la base de données.
619
* @param  string   le tableau contenant les valeurs du formulaire.
620
* @param  int      identifiant de l'administrateur réalisant cette modification.
621
* @return string retourne un message en cas de succès ou d'échec.
622
*/
623
function ADMIN_modifierSite($db, $aso_valeurs, $id_admin)
624
{
625
    // Requete de mise à jour des infos d'un site dans gen_site
626
    $requete =  'UPDATE gen_site '.
627
                'SET gs_ce_i18n = "'.$aso_valeurs['gs_ce_i18n'].'", '.
628
                'gs_ce_auth = '.$aso_valeurs['gs_ce_auth'].', '.
629
                'gs_fichier_squelette = "'.$aso_valeurs['gs_fichier_squelette'].'", '.
630
                'gs_code_num = '.$aso_valeurs['gs_code_num'].', '.
631
                'gs_code_alpha = "'.$aso_valeurs['gs_code_alpha'].'", '.
632
                'gs_nom = "'.$aso_valeurs['gs_nom'].'", '.
633
                'gs_raccourci_clavier = "'.$aso_valeurs['gs_raccourci_clavier'].'", '.
634
                'gs_titre = "'.$aso_valeurs['gs_titre'].'", '.
635
                'gs_mots_cles = "'.$aso_valeurs['gs_mots_cles'].'", '.
636
                'gs_description = "'.$aso_valeurs['gs_description'].'", '.
637
                'gs_auteur = "'.$aso_valeurs['gs_auteur'].'", '.
638
                'gs_date_creation = "'.date('Y-m-d H:i:s').'", '.
639
                'gs_ce_admin = '.$id_admin.' '.
640
                'WHERE gs_id_site = '.$aso_valeurs['gs_id_site'];
641
    $resultat = $db->query($requete) ;
642
    if (DB::isError($resultat)) {
643
        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
644
    }
645
 
646
    if (isset($aso_valeurs['defaut']) && $aso_valeurs['defaut'] == 1) {
647
        $requete_supr_defaut =  'DELETE FROM gen_site_relation '.
648
                                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
649
                                'AND gsr_id_valeur = 101 ';// 101 = site par "defaut"
650
        $resultat_supr_defaut = $db->query($requete_supr_defaut);
651
        if (DB::isError($resultat_supr_defaut)) {
652
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_defaut->getMessage(), $requete_supr_defaut));
653
        }
654
 
655
        // Requete d'insertion de la relations site par défaut
656
        $requete =  'INSERT INTO gen_site_relation '.
657
                    'SET gsr_id_site_01 = '.$aso_valeurs['gs_id_site'].', '.
658
                    'gsr_id_site_02 = '.$aso_valeurs['gs_id_site'].', '.
659
                    'gsr_id_valeur = 101, '.
660
                    'gsr_ordre = NULL ';
661
        $resultat = $db->query($requete);
662
        if (DB::isError($resultat)) {
663
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
664
        }
665
    }
666
    $message = '<p class="genesia_info">'.'Succés de la modification du site.'.'</p>';
667
    return $message;
668
}
669
 
670
/** Fonction ADMIN_supprimerSite() - Ajoute un site à Papyrus.
671
*
672
* Cette fonction ajoute le site à Papyrus, c'est à dire :
673
* - 1. Création des répertoire du projet en fonction du nom et des sous-répertoires.
674
* - 2. Insertion d'une ligne dans la table "gen_site".
675
* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables liées si nécessaire.
676
*
677
* @param  string   l'objet pear de connexion à la base de données.
678
* @param  string   le tableau contenant les valeurs du formulaire.
679
* @param  int      identifiant de l'administrateur réalisant cette création.
680
* @return string retourne un message en cas de succès ou d'échec.
681
*/
682
function ADMIN_supprimerSite($db, $aso_valeurs)
683
{
684
    // Recherche du coda alpha du site principal afin de pouvoir détruire ses répertoires
685
    $requete =  'SELECT gs_code_alpha '.
686
                'FROM gen_site '.
687
                'WHERE gs_id_site = '.$aso_valeurs['form_sites_id_site'];
688
    $code_alpha_site_principal = $db->getOne($requete);
689
    if (DB::isError($code_alpha_site_principal)) {
690
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $code_alpha_site_principal->getMessage(), $requete));
691
    }
692
 
693
    // Recherche des différents sites liés à celui que l'on veut détruire
694
    // Cela comprend le site à détruire lui méme car il posséde la relations
695
    // sur lui meme "site principale".
696
    $requete =  'SELECT gs_id_site '.
697
                'FROM gen_site, gen_site_relation '.
698
                'WHERE gsr_id_site_01 = '.$aso_valeurs['form_sites_id_site'].' '.
699
                'AND gsr_id_site_02 = gs_id_site ';
700
    $resultat = $db->query($requete);
701
    if (DB::isError($resultat)) {
702
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
703
    }
704
 
705
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
706
        // Requete de suppression des sites liés dans gen_site
707
        $requete_supr_site =    'DELETE FROM gen_site '.
708
                                'WHERE gs_id_site = '.$ligne->gs_id_site;
709
        $resultat_supr_site = $db->query($requete_supr_site);
710
        if (DB::isError($resultat_supr_site)) {
711
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_site->getMessage(), $requete_supr_site));
712
        }
713
 
714
        // Requete de suppression des relations des sites à détruire
715
        $requete_supr_site_relation =   'DELETE FROM gen_site_relation '.
716
                                        'WHERE gsr_id_site_01 = '.$ligne->gs_id_site;
717
        $resultat_supr_site_relation = $db->query($requete_supr_site_relation);
718
        if (DB::isError($resultat_supr_site_relation)) {
719
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_site_relation->getMessage(), $requete_supr_site_relation));
720
        }
721
 
722
        // Recherche des différents menus liés au site à détruire
723
        $requete_menu = 'SELECT gm_id_menu '.
724
                        'FROM gen_menu '.
725
                        'WHERE gm_ce_site = '.$ligne->gs_id_site;
726
        $resultat_menu = $db->query($requete_menu) ;
727
        if (DB::isError($resultat_menu)) {
728
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_menu->getMessage(), $requete_menu));
729
        }
730
        while ($ligne_menu = $resultat_menu->fetchRow(DB_FETCHMODE_OBJECT)) {
731
            // Requete de suppression des des menus
732
            $requete_supr_menu =   'DELETE FROM gen_menu '.
733
                                            'WHERE gm_id_menu = '.$ligne_menu->gm_id_menu;
734
            $resultat_supr_menu = $db->query($requete_supr_menu);
735
            if (DB::isError($resultat_supr_menu)) {
736
                die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_menu->getMessage(), $requete_supr_menu));
737
            }
738
            // Requete de suppression des relations des menus
739
            $requete_supr_menu_relation =   'DELETE FROM gen_menu_relation '.
740
                                            'WHERE gmr_id_menu_01 = '.$ligne_menu->gm_id_menu;
741
            $resultat_supr_menu_relation = $db->query($requete_supr_menu_relation);
742
            if (DB::isError($resultat_supr_menu_relation)) {
743
                die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_menu_relation->getMessage(), $requete_supr_menu_relation));
744
            }
745
 
746
            // Requete de suppression des contenus des menus
747
            $requete_supr_menu_contenu =   'DELETE FROM gen_menu_contenu '.
748
                                            'WHERE gmc_ce_menu = '.$ligne_menu->gm_id_menu;
749
            $resultat_supr_menu_contenu = $db->query($requete_supr_menu_contenu);
750
            if (DB::isError($resultat_supr_menu_contenu)) {
751
                die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_menu_contenu->getMessage(), $requete_supr_menu_contenu));
752
            }
753
 
754
            // Requete de suppression des ulr alternatives des menus
755
            $requete_supr_menu_url_alt =   'DELETE FROM gen_menu_url_alternative '.
756
                                            'WHERE gmua_ce_menu = '.$ligne_menu->gm_id_menu;
757
            $resultat_supr_menu_url_alt = $db->query($requete_supr_menu_url_alt);
758
            if (DB::isError($resultat_supr_menu_url_alt)) {
759
                die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_menu_url_alt->getMessage(), $requete_supr_menu_url_alt));
760
            }
761
        }
762
        $resultat_menu->free();
763
    }
764
    $resultat->free();
765
 
766
    // Suppression des répertoires du site
767
    // Création d'une connection ftp avec Net_FTP de PEAR
768
    // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
769
 
770
    // création de l'objet pear ftp
771
    $objet_pear_ftp = new Net_FTP(GEN_FTP_SERVEUR, GEN_FTP_PORT);
772
    // création de la connexion
773
    $ftp_conn = $objet_pear_ftp->connect(GEN_FTP_SERVEUR, GEN_FTP_PORT);
774
    // identification
775
    $ftp_login_result = $objet_pear_ftp->login(GEN_FTP_UTILISATEUR, GEN_FTP_MOT_DE_PASSE);;
776
    // Gestion des erreurs ftp
777
    if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
778
        $message =  '<p class="genesia_erreur"> ERREUR Génésia admin : impossible de se connecter par ftp.<br />'.
779
                    'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
780
                    'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
781
                    'Serveur : '. GEN_FTP_SERVEUR .'<br />'.
782
                    'Utilisateur : '. GEN_FTP_UTILISATEUR .'<br />'.
783
                    'Ligne n° : '. __LINE__ .'<br />'.
784
                    'Fichier n° : '. __FILE__ .'<br /><p>';
785
        return $message;
786
    }
787
    // Changement du niveau d'erreur pour éviter les Notices PHP dues à  Net_FTP
788
    error_reporting(E_PARSE);
789
    $chemin_repertoire = GEN_FTP_CHEMIN.GEN_CHEMIN_SITES.$code_alpha_site_principal.'/';
790
    $resultat = $objet_pear_ftp->rm($chemin_repertoire, true);
791
    if (PEAR::isError($resultat)) {
792
        $message =  '<p class="genesia_erreur"> ERREUR Génésia admin : impossible de supprimer le répertoire par ftp.<br />'.
793
                    'Erreur ftp : '.$resultat->getMessage().'<br />'.
794
                    'Répertoire : '. $chemin_repertoire .'<br />'.
795
                    'Ligne n° : '. __LINE__ .'<br />'.
796
                    'Fichier n° : '. __FILE__ .'<br /></p>';
797
        return $message;
798
    }
799
    $objet_pear_ftp->disconnect();
800
    // Retour au niveau d'erreur définit dans le fichier de config de Papyrus
801
    error_reporting(GEN_DEBOGAGE_NIVEAU);
802
    $message = '<p class="genesia_info">Succés de la suppression du site.</p>';
803
    return $message;
804
}
805
 
806
// +- Fin du code source  --------------------------------------------------------------------------------+
807
/*
808
* $Log: not supported by cvs2svn $
25 jpm 809
* Revision 1.1  2004/06/16 14:28:46  jpm
810
* Changement de nom de Génésia en Papyrus.
811
* Changement de l'arborescence.
812
*
6 jpm 813
* Revision 1.20  2004/05/10 14:32:14  jpm
814
* Changement du titre.
815
*
816
* Revision 1.19  2004/05/10 12:23:39  jpm
817
* Modification formulaire.
818
*
819
* Revision 1.18  2004/05/07 16:33:53  jpm
820
* Amélioration des formulaires.
821
*
822
* Revision 1.17  2004/05/07 07:22:51  jpm
823
* Ajout de la gestion des modification et suppression de site.
824
* Amélioration de la création des sites.
825
*
826
* Revision 1.16  2004/04/30 16:22:53  jpm
827
* Poursuite de l'administration des sites.
828
*
829
* Revision 1.14  2004/04/02 15:58:39  jpm
830
* Modification fonction liste des projets.
831
*
832
* Revision 1.13  2004/04/01 11:21:41  jpm
833
* Ajout et modification de commentaires pour PhpDocumentor.
834
*
835
* Revision 1.12  2004/03/24 20:01:02  jpm
836
* Traduction, mise en forme, ajout de commentaire pour les fonctions listProjects() et updateProject().
837
*
838
* Revision 1.11  2004/03/24 10:06:01  jpm
839
* Ajout des commentaires d'entête.
840
* Début mise en conformité avec la convention de codage.
841
* Début traitement de la fonction listant les projets.
842
*
843
*
844
*/
845
?>