Subversion Repositories Applications.papyrus

Rev

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

Rev 1364 Rev 1373
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.36 2007-04-20 13:48:31 alexandre_tb Exp $
22
// CVS : $Id: adsi_site.fonct.php,v 1.37 2007-04-24 13:27:57 alexandre_tb 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.36 $ $Date: 2007-04-20 13:48:31 $
37
*@version       $Revision: 1.37 $ $Date: 2007-04-24 13:27:57 $
38
// +------------------------------------------------------------------------------------------------------+
38
// +------------------------------------------------------------------------------------------------------+
39
*/
39
*/
Line 40... Line 40...
40
 
40
 
41
// +------------------------------------------------------------------------------------------------------+
41
// +------------------------------------------------------------------------------------------------------+
Line 436... Line 436...
436
    $form->addElement('text', $id, $label, $aso_attributs);
436
    $form->addElement('text', $id, $label, $aso_attributs);
437
    $form->addRule($id, 'Un nom est requis pour le site !', 'required', '', 'client');
437
    $form->addRule($id, 'Un nom est requis pour le site !', 'required', '', 'client');
Line 438... Line 438...
438
    
438
    
439
    $id = 'gs_code_alpha';
439
    $id = 'gs_code_alpha';
440
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 20, 'maxlength' => 20, 'value' => 'site_01');
440
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 20, 'maxlength' => 20, 'value' => 'site_01');
441
    $label = '<label for="'.$id.'">'.'Code alphanumérique : '.'</label>';
441
    $label = '<label for="'.$id.'">'.'Code alphanum&eacute;rique : '.'</label>';
442
    $form->addElement('text', $id, $label, $aso_attributs);
442
    $form->addElement('text', $id, $label, $aso_attributs);
Line 443... Line 443...
443
    $form->addRule('gs_code_alpha', 'Un code alphanumérique est requis pour le site !', 'required', '', 'client');
443
    $form->addRule('gs_code_alpha', 'Un code alphanum&eacute;rique est requis pour le site !', 'required', '', 'client');
444
    
444
    
445
    $id = 'gs_code_num';
445
    $id = 'gs_code_num';
446
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 20, 'maxlength' => 20, 'value' => 1);
446
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 20, 'maxlength' => 20, 'value' => 1);
447
    $label = '<label for="'.$id.'">'.'Code numérique : '.'</label>';
447
    $label = '<label for="'.$id.'">'.'Code num&eacute;rique : '.'</label>';
Line 448... Line 448...
448
    $form->addElement('text', $id, $label, $aso_attributs);
448
    $form->addElement('text', $id, $label, $aso_attributs);
449
    $form->addRule('gs_code_num', 'Un code numérique est requis pour le site !', 'required', '', 'client');
449
    $form->addRule('gs_code_num', 'Un code num&eacute;rique est requis pour le site !', 'required', '', 'client');
450
    
450
    
451
    $id = 'gs_raccourci_clavier';
451
    $id = 'gs_raccourci_clavier';
Line 511... Line 511...
511
            $ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
511
            $ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
512
            // identification
512
            // identification
513
            $ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
513
            $ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
514
            // Gestion des erreurs ftp
514
            // Gestion des erreurs ftp
515
            if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
515
            if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
516
                die('ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
516
                return ('ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
517
                    'Serveur : '. GEN_FTP_SERVEUR .'<br />'.
517
                    'Serveur : '. GEN_FTP_SERVEUR .'<br />'.
518
                    'Utilisateur : '. GEN_FTP_UTILISATEUR .'<br />'.
518
                    'Utilisateur : '. GEN_FTP_UTILISATEUR .'<br />'.
519
                    'Ligne n&deg; : '. __LINE__ .'<br />'.
519
                    'Ligne n&deg; : '. __LINE__ .'<br />'.
520
                    'Fichier n&deg; : '. __FILE__ .'<br />');
520
                    'Fichier n&deg; : '. __FILE__ .'<br />');
521
                    //'Message erreur de connection : '.$ftp_conn->getMessage().'<br />'.
521
                    //'Message erreur de connection : '.$ftp_conn->getMessage().'<br />'.
522
                    //'Message erreur de login : '.$ftp_login_result->getMessage());
522
                    //'Message erreur de login : '.$ftp_login_result->getMessage());
523
            }
523
            }
524
            $chemin_squelettes =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
524
            $chemin_squelettes =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
525
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP;
525
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP;
526
            $tab_squelettes = $objet_pear_ftp->ls($chemin_squelettes);
526
            $tab_squelettes = $objet_pear_ftp->ls($chemin_squelettes);
527
            $aso_options = array();
527
            $aso_options = array();
-
 
528
            if (PEAR::isError($tab_squelettes)) {
-
 
529
                return ('ERREUR Papyrus admin : impossible d\'acc&eacute; aux fichiers par ftp.<br />'.
-
 
530
                    'Chemin : '. $chemin_squelettes .'<br />'.
-
 
531
                    'Ligne n&deg; : '. __LINE__ .'<br />'.
-
 
532
                    'Fichier n&deg; : '. __FILE__ .'<br />'.
-
 
533
                    'Message : '. $tab_squelettes->getMessage());
-
 
534
            }
528
            for ($i = 0; $i < count($tab_squelettes) ; $i++) {
535
            for ($i = 0; $i < count($tab_squelettes) ; $i++) {
529
                if ($tab_squelettes[$i]['is_dir'] == false) {
536
                if ($tab_squelettes[$i]['is_dir'] == false) {
530
                    $aso_options[$tab_squelettes[$i]['name']] = $tab_squelettes[$i]['name'];
537
                    $aso_options[$tab_squelettes[$i]['name']] = $tab_squelettes[$i]['name'];
531
                }
538
                }
532
            }
539
            }
533
            $objet_pear_ftp->disconnect();
540
            $objet_pear_ftp->disconnect();
534
        }
541
        }
Line 535... Line 542...
535
        
542
        
536
        // Vérification de la présence de squelettes
543
        // Verification de la presence de squelettes
537
        if (count($aso_options) == 0) {
544
        if (count($aso_options) == 0) {
538
            $aso_options['Aucun squelette'] = 'Aucun squelette';
545
            $aso_options['Aucun squelette'] = 'Aucun squelette';
Line 539... Line 546...
539
        }
546
        }
Line 650... Line 657...
650
    
657
    
651
    $id = 'gs_mots_cles';
658
    $id = 'gs_mots_cles';
652
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
659
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
653
    $label = '<label for="'.$id.'">'.'Mots-cl&eacute;s : '.'</label>';
660
    $label = '<label for="'.$id.'">'.'Mots-cl&eacute;s : '.'</label>';
654
    $zone_mots_cles = $form->createElement('textarea', $id, $label, $aso_attributs);
661
    $zone_mots_cles = $form->createElement('textarea', $id, $label, $aso_attributs);
655
    $zone_mots_cles->setValue('mots-cl&eacute;s du site');
662
    $zone_mots_cles->setValue('mots-clés du site');
656
    $form->addElement($zone_mots_cles);
663
    $form->addElement($zone_mots_cles);
Line 657... Line 664...
657
    $form->addRule($id, 'Des mots cl&eacute;s sont requis pour le site !', 'required', '', 'client');
664
    $form->addRule($id, 'Des mots cl&eacute;s sont requis pour le site !', 'required', '', 'client');
658
    
665
    
Line 682... Line 689...
682
        if (DB::isError($resultat_admin)) {
689
        if (DB::isError($resultat_admin)) {
683
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_admin->getMessage(), $requete_admin));
690
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_admin->getMessage(), $requete_admin));
684
        }
691
        }
685
        $ligne_admin = $resultat_admin->fetchRow(DB_FETCHMODE_OBJECT);
692
        $ligne_admin = $resultat_admin->fetchRow(DB_FETCHMODE_OBJECT);
686
        if (isset($ligne_admin)) {
693
        if (isset($ligne_admin)) {
687
        	$info_admin =   '<p class="info">Site créé le '.$aso_valeurs['gs_date_creation'].'. Derni&egrave;re modification par '.
694
        	$info_admin =   '<p class="info">Site cr&eacute;&eacute; le '.$aso_valeurs['gs_date_creation'].'. Derni&egrave;re modification par '.
688
                        $ligne_admin->ga_prenom.' '.$ligne_admin->ga_nom.'.'.'</p>';
695
                        $ligne_admin->ga_prenom.' '.$ligne_admin->ga_nom.'.'.'</p>';
689
        	$form->addElement('html', $info_admin);
696
        	$form->addElement('html', $info_admin);
690
        	$form->addElement('hidden', 'gs_ce_admin');
697
        	$form->addElement('hidden', 'gs_ce_admin');
691
        	$form->addElement('hidden', 'gs_date_creation');
698
        	$form->addElement('hidden', 'gs_date_creation');
692
        }
699
        }
Line 755... Line 762...
755
    }
762
    }
756
    if (preg_match('/^[0-9]+$/',$aso_valeurs['gs_code_num']) == 0) {
763
    if (preg_match('/^[0-9]+$/',$aso_valeurs['gs_code_num']) == 0) {
757
        $message .= '<p class="pap_erreur">Le champ "Code num&eacute;rique" doit contenir un nombre.</p>';
764
        $message .= '<p class="pap_erreur">Le champ "Code num&eacute;rique" doit contenir un nombre.</p>';
758
    }
765
    }
Line 759... Line 766...
759
    
766
    
760
    // Requete pour vérifier l'absence du code numérique et alphanumérique de la table gen_site
767
    // Requete pour verifier l'absence du code numerique et alphanumerique de la table gen_site
Line 761... Line 768...
761
    // en mode creation uniquement !
768
    // en mode creation uniquement !
762
   
769
   
Line 1817... Line 1824...
1817
}
1824
}
Line 1818... Line 1825...
1818
    
1825
    
1819
// +- Fin du code source  --------------------------------------------------------------------------------+
1826
// +- Fin du code source  --------------------------------------------------------------------------------+
1820
/*
1827
/*
-
 
1828
* $Log: not supported by cvs2svn $
-
 
1829
* Revision 1.36  2007/04/20 13:48:31  alexandre_tb
-
 
1830
* nettoyage accent
1821
* $Log: not supported by cvs2svn $
1831
*
1822
* Revision 1.35  2007/04/20 10:42:42  neiluj
1832
* Revision 1.35  2007/04/20 10:42:42  neiluj
1823
* suite oubli, fix des derniers bugs FTP
1833
* suite oubli, fix des derniers bugs FTP
1824
*
1834
*
1825
* Revision 1.34  2007/04/20 09:21:41  neiluj
1835
* Revision 1.34  2007/04/20 09:21:41  neiluj