WebSVN – Applications.papyrus – Diff – /branches/livraison_narmer/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.36.2.1 2007-04-24 13:26:21 alexandre_tb 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.36.2.1 $ $Date: 2007-04-24 13:26:21 $
// +------------------------------------------------------------------------------------------------------+
*/

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

    $form->addElement('text', $id, $label, $aso_attributs);
    $form->addRule($id, 'Un nom est requis pour le site !', 'required', '', 'client');

    
    $id = 'gs_code_alpha';
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 20, 'maxlength' => 20, 'value' => 'site_01');
    $label = '<label for="'.$id.'">'.'Code alphanum&eacute;rique : '.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);

    $form->addRule('gs_code_alpha', 'Un code alphanum&eacute;rique est requis pour le site !', 'required', '', 'client');
    
    $id = 'gs_code_num';
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 20, 'maxlength' => 20, 'value' => 1);
    $label = '<label for="'.$id.'">'.'Code num&eacute;rique : '.'</label>';

    $form->addElement('text', $id, $label, $aso_attributs);
    $form->addRule('gs_code_num', 'Un code num&eacute;rique est requis pour le site !', 'required', '', 'client');
    
    $id = 'gs_raccourci_clavier';

            $ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
            // identification
            $ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
            // Gestion des erreurs ftp
            if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
                return ('ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
                    'Serveur : '. GEN_FTP_SERVEUR .'<br />'.
                    'Utilisateur : '. GEN_FTP_UTILISATEUR .'<br />'.
                    'Ligne n&deg; : '. __LINE__ .'<br />'.
                    'Fichier n&deg; : '. __FILE__ .'<br />');
                    //'Message erreur de connection : '.$ftp_conn->getMessage().'<br />'.
                    //'Message erreur de login : '.$ftp_login_result->getMessage());
            }
            $chemin_squelettes =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP;
            $tab_squelettes = $objet_pear_ftp->ls($chemin_squelettes);
            $aso_options = array();
            if (PEAR::isError($tab_squelettes)) {
                return ('ERREUR Papyrus admin : impossible d\'acc&eacute; aux fichiers par ftp.<br />'.
                    'Chemin : '. $chemin_squelettes .'<br />'.
                    'Ligne n&deg; : '. __LINE__ .'<br />'.
                    'Fichier n&deg; : '. __FILE__ .'<br />'.
                    'Message : '. $tab_squelettes->getMessage());
            }
            for ($i = 0; $i < count($tab_squelettes) ; $i++) {
                if ($tab_squelettes[$i]['is_dir'] == false) {
                    $aso_options[$tab_squelettes[$i]['name']] = $tab_squelettes[$i]['name'];
                }
            }
            $objet_pear_ftp->disconnect();
        }

        
        // Verification de la presence de squelettes
        if (count($aso_options) == 0) {
            $aso_options['Aucun squelette'] = 'Aucun squelette';

        }

    
    $id = 'gs_mots_cles';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
    $label = '<label for="'.$id.'">'.'Mots-cl&eacute;s : '.'</label>';
    $zone_mots_cles = $form->createElement('textarea', $id, $label, $aso_attributs);
    $zone_mots_cles->setValue('mots-clés du site');
    $form->addElement($zone_mots_cles);

    $form->addRule($id, 'Des mots cl&eacute;s sont requis pour le site !', 'required', '', 'client');
    

        if (DB::isError($resultat_admin)) {
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_admin->getMessage(), $requete_admin));
        }
        $ligne_admin = $resultat_admin->fetchRow(DB_FETCHMODE_OBJECT);
        if (isset($ligne_admin)) {
        	$info_admin =   '<p class="info">Site cr&eacute;&eacute; le '.$aso_valeurs['gs_date_creation'].'. Derni&egrave;re modification par '.
                        $ligne_admin->ga_prenom.' '.$ligne_admin->ga_nom.'.'.'</p>';
        	$form->addElement('html', $info_admin);
        	$form->addElement('hidden', 'gs_ce_admin');
        	$form->addElement('hidden', 'gs_date_creation');
        }

    }
    if (preg_match('/^[0-9]+$/',$aso_valeurs['gs_code_num']) == 0) {
        $message .= '<p class="pap_erreur">Le champ "Code num&eacute;rique" doit contenir un nombre.</p>';
    }

    
    // Requete pour verifier l'absence du code numerique et alphanumerique de la table gen_site

    // en mode creation uniquement !
   

}

    
// +- Fin du code source  --------------------------------------------------------------------------------+
/*
* $Log: not supported by cvs2svn $
* Revision 1.36  2007/04/20 13:48:31  alexandre_tb
* nettoyage accent
*
* Revision 1.35  2007/04/20 10:42:42  neiluj
* suite oubli, fix des derniers bugs FTP
*
* Revision 1.34  2007/04/20 09:21:41  neiluj

Subversion Repositories Applications.papyrus

(root)/branches/livraison_narmer/papyrus/applications/admin_site/bibliotheque/adsi_site.fonct.php – Rev 1372 → 1373

Rev 1372		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.36.2.1 2007-04-24 13:26:21 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.36.2.1 $ $Date: 2007-04-24 13:26:21 $`
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é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é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é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é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° : '. __LINE__ .'<br />'.`	519	`'Ligne n° : '. __LINE__ .'<br />'.`
520	`'Fichier n° : '. __FILE__ .'<br />');`	520	`'Fichier n° : '. __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é aux fichiers par ftp.<br />'.`
-		530	`'Chemin : '. $chemin_squelettes .'<br />'.`
-		531	`'Ligne n° : '. __LINE__ .'<br />'.`
-		532	`'Fichier n° : '. __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és : '.'</label>';`	660	`$label = '<label for="'.$id.'">'.'Mots-clé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é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és sont requis pour le site !', 'required', '', 'client');`	664	`$form->addRule($id, 'Des mots clé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ère modification par '.`	694	`$info_admin = '<p class="info">Site créé le '.$aso_valeurs['gs_date_creation'].'. Derniè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érique" doit contenir un nombre.</p>';`	764	`$message .= '<p class="pap_erreur">Le champ "Code numé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`