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.33 2007-04-19 15:34:35 neiluj 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        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.33 $ $Date: 2007-04-19 15:34:35 $
// +------------------------------------------------------------------------------------------------------+
*/

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

}

 
// +------------------------------------------------------------------------------------------------------+
// |                                            CORPS du PROGRAMME                                        |
// +------------------------------------------------------------------------------------------------------+
/** Fonction ADMIN_afficherListeSites()- Génère le xhtml permettant de choisir un site parmis une liste.
*
* Cette fonction fournie une liste des sites principaux gérés par Papyrus.
*
* @param  string   l'objet Pear DB.
* @param  string   l'url de la page à laquelle renvoyer le formulaire.
* @param  string   un message important à destination de l'utilisateur.

    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
    $label = 'Traduire';
    $form->addElement('submit', $id, $label, $aso_attributs);

    
    $id = 'form_sites_supprimer';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'onclick' => 'javascript:return confirm(\''.'êtes vous sûr de vouloir supprimer ce site ?'.'\');');
    $label = 'Supprimer';

    $form->addElement('submit', $id, $label, $aso_attributs);
    

    }

    
    return $message;

}
 
/** Fonction ADMIN_afficherFormSite()- Génère un formulaire pour gen_site.
*
* Cette fonction retourne un formulaire pour modification ou pour ajout.
*

        
        
    } else if (isset($aso_valeurs['gs_id_site'])) {
        $aso_valeurs['modification'] = true;
    }
    // débogage :
    //$GLOBALS['_DEBOGAGE_'] .= '<pre>'.print_r($aso_valeurs, true).'</pre>';
    //-------------------------------------------------------------------------------------------------------------------
    // Information précédent le formulaire (en modification)

    $form->setDefaults($aso_valeurs);

    
    // Javascript pour la validation côté client
    $regles_javascript = $form->getValidationScript();
    // Suppression des balises déjà créées par GEN_stockerCodeScript()
    // Le code ci-dessous devrait être utilisé si on arrive à empêcher Quickform de l'ajouter lui-même!
    /*
    $regles_javascript = ereg_replace ( '<script type="text\/javascript">', '', $regles_javascript);
    $regles_javascript = ereg_replace ( '<!--', '', $regles_javascript);
    $regles_javascript = ereg_replace ( '\/\/-->', '', $regles_javascript);

    }
    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 considé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>';
    }

    if (isset($aso_valeurs['externe']) && $aso_valeurs['externe'] == 1 && (empty($aso_valeurs['gs_url']) || $aso_valeurs['gs_url'] == 'http://')) {
        $message .= '<p class="pap_erreur">'.'Vous avez désigné ce site comme étant externe. Il est nécessaire de saisir son URL!'.'</p>';
    }
    if (isset($aso_valeurs['externe']) && $aso_valeurs['externe'] == 0 && (!empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://')) {
        $message .= '<p class="pap_erreur">'.'Vous avez saisie une l\'url : '.$aso_valeurs['gs_url'].'<br />'.
                    'Vous considérez donc ce site comme étant externe. Il est nécessaire de cocher la case "oui"!'.'</p>';
    }
    return $message;
}

 

* @return string retourne un message en cas de succès ou d'échec.
*/
function ADMIN_enregistrerSite(&$db, $aso_valeurs, $id_admin)
{
    // Nous vérifions si nous avons à faire à un site externe.
    $id_type_site = '102';// par défaut on considère que c'est un site "principal"
    if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
        $id_type_site = '103';// c'est un site "externe"
    }

    

                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
                        'Ligne n° : '. __LINE__ .'<br />'.
                        'Fichier n° : '. __FILE__ .'<br /><p>';
            return $message;
        }
        $resultat = $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;

        
       if (PEAR::isError($resultat)) {
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
                        'Répertoire : '. PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'] .'<br />'.
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
                        'Informations de debogage : '.$resultat->getDebugInfo().'<br />'.
                        'Ligne n° : '. __LINE__ .'<br />'.
                        'Fichier n° : '. __FILE__ .'<br /></p>';
            return $message;
        }
        //$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
        foreach ($tab_rep_langue as $nom_rep_langue) {
            $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
            foreach ($tab_rep_site as $nom_rep_site) {

                $resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
                if (PEAR::isError($resultat)) {
                    $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
                                'Répertoire : '. $chemin_repertoire .'<br />'.
                                'Erreur origine : '. $resultat->getMessage() .'<br />'.
                                'Informations de debogage : '.$resultat->getDebugInfo().'<br />'.
                                'Ligne n° : '. __LINE__ .'<br />'.
                                'Fichier n° : '. __FILE__ .'<br /></p>';
                    return $message;
                }
            }

        $objet_pear_ftp->disconnect();
    }

    
    $id_site = SQL_obtenirNouveauId($db, 'gen_site','gs_id_site');
    if ($id_site == false) {
        $message = '<p class="erreur"> ERREUR Papyrus admin : impossible de récupérer un identifiant pour la table gen_site.<br />'.
                    'Ligne n° : '. __LINE__ .'<br />'.
                    'Fichier n° : '. __FILE__ .'<br /></p>';
        return $message;

        if (DB::isError($resultat)) {
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
        }
    }

    
    $message = '<p class="pap_info">'.'Succès de l\'ajout du site.'.'</p>';
    return $message;

}
 

* @return string retourne un message en cas de succès ou d'échec.
*/
function ADMIN_traduireSite(&$db, $aso_valeurs, $id_admin)
{
    // Nous vérifions si nous avons à faire à un site externe.
    $id_type_site = '102';// par défaut on considère que c'est un site "principal"
    if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
        $id_type_site = '103';// c'est un site "externe"
    }

    

    }

    

    $id_site = SQL_obtenirNouveauId($db, 'gen_site','gs_id_site');
    
    if ($id_site == false) {
        $message = '<p class="erreur"> ERREUR Papyrus admin : impossible de récupérer un identifiant pour la table gen_site.<br />'.
                    'Ligne n° : '. __LINE__ .'<br />'.
                    'Fichier n° : '. __FILE__ .'<br /></p>';

        if (DB::isError($resultat)) {
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
        }
    }

    
    $message = '<p class="pap_info">'.'Succès de l\'ajout du site.'.'</p>';
    return $message;

}

    if (DB::isError($ancien_code_alphnum)) {
        die( BOG_afficherErreurSql(__FILE__, __LINE__, $ancien_code_alphnum->getMessage(), $requete) );
    }

    
    // Nous vérifions si nous avons à faire à un site externe.
    $id_type_site = '102';// par défaut on considère que c'est un site "principal"
    $requete_complement = ', gs_url = NULL ';
    if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
        $requete_complement = ', gs_url = "'.$aso_valeurs['gs_url'].'" ';
        $id_type_site = '103';// c'est un site "externe"

        if (DB::isError($resultat)) {
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
        }
    }

    
    $message = '<p class="pap_info">'.'Succès de la modification du site.'.'</p>';
    $message .= '<p class="pap_info">'.$message_complement.'</p>';
    return $message;

}

                    'ensuite le supprimer via cette interface.</p>';
        return $message;
    }

    
    // Recherche des différents sites liés à celui que l'on veut détruire
    // Cela comprend le site à détruire lui même car il possède la relations
    // sur lui meme "site principale".
    $requete =  'SELECT gs_id_site '.
                'FROM gen_site, gen_site_relation '.
                'WHERE gsr_id_site_01 = '.$aso_valeurs['form_sites_id_site'].' '.

        }
        $objet_pear_ftp->disconnect();
        // Retour au niveau d'erreur définit dans le fichier de config de Papyrus
        error_reporting(GEN_DEBOGAGE_NIVEAU);
    }
    $message = '<p class="pap_info">Succès de la suppression du site.</p>';
    return $message;
}

 

}

    
// +- Fin du code source  --------------------------------------------------------------------------------+
/*
* $Log: not supported by cvs2svn $
* Revision 1.32  2006/10/16 15:49:06  ddelon
* Refactorisation code mulitlinguisme et gestion menu invisibles
*
* Revision 1.31  2006/09/12 09:54:02  ddelon
* Affichage des identifications disponibles lors de la création d'un site. Un bug faisait que l'affichage de l'identification par défaut ne fonctionnait plus en creation.
*
* Revision 1.30  2006/07/19 13:57:35  ddelon

*
* Revision 1.14  2004/12/03 19:22:53  jpm
* Gestion des types de sites externes gérés par Papyrus.
*
* Revision 1.13  2004/12/03 16:37:34  jpm
* Correction d'un bogue qui empêcher la mise à jour des url des sites externes.
*
* Revision 1.12  2004/12/01 17:22:58  jpm
* Ajout d'une confirmation javascript pour la suppression d'un site.
*
* Revision 1.11  2004/11/30 16:43:51  jpm

*
* Revision 1.2  2004/07/06 17:08:01  jpm
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
*
* Revision 1.1  2004/06/16 14:28:46  jpm
* Changement de nom de Papyrus en Papyrus.
* Changement de l'arborescence.
*
* Revision 1.20  2004/05/10 14:32:14  jpm
* Changement du titre.
*

Subversion Repositories Applications.papyrus

(root)/trunk/papyrus/applications/admin_site/bibliotheque/adsi_site.fonct.php – Rev 1033 → 1336

Rev 1033		Rev 1336
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.32 2006-10-16 15:49:06 ddelon Exp $`	22	`// CVS : $Id: adsi_site.fonct.php,v 1.33 2007-04-19 15:34:35 neiluj Exp $`
23	`/**`	23	`/**`
24	`* Bibliothèque de fonctions d'admininistration des projets`	24	`* Bibliothèque de fonctions d'admininistration des projets`
25	`*`	25	`*`
26	`* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations`	26	`* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations`
27	`* sur les projets (=sites gérés par Papyrus).`	27	`* sur les projets (=sites gérés par Papyrus).`
Line 32...		Line 32...
32	`*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>`	32	`*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>`
33	`//Autres auteurs :`	33	`//Autres auteurs :`
34	`*@author Alexandre GRANIER <alexandre@tela-botanica.org>`	34	`*@author Alexandre GRANIER <alexandre@tela-botanica.org>`
35	`*@author Laurent COUDOUNEAU <lc@gsite.org>`	35	`*@author Laurent COUDOUNEAU <lc@gsite.org>`
36	`*@copyright Tela-Botanica 2000-2004`	36	`*@copyright Tela-Botanica 2000-2004`
37	`*@version $Revision: 1.32 $ $Date: 2006-10-16 15:49:06 $`	37	`*@version $Revision: 1.33 $ $Date: 2007-04-19 15:34:35 $`
38	`// +------------------------------------------------------------------------------------------------------+`	38	`// +------------------------------------------------------------------------------------------------------+`
39	`*/`	39	`*/`
Line 40...		Line 40...
40		40
41	`// +------------------------------------------------------------------------------------------------------+`	41	`// +------------------------------------------------------------------------------------------------------+`
Line 47...		Line 47...
47	`}`	47	`}`
Line 48...		Line 48...
48		48
49	`// +------------------------------------------------------------------------------------------------------+`	49	`// +------------------------------------------------------------------------------------------------------+`
50	`// \| CORPS du PROGRAMME \|`	50	`// \| CORPS du PROGRAMME \|`
51	`// +------------------------------------------------------------------------------------------------------+`	51	`// +------------------------------------------------------------------------------------------------------+`
52	`/** Fonction ADMIN_afficherListeSites()- Génére le xhtml permettant de choisir un site parmis une liste.`	52	`/** Fonction ADMIN_afficherListeSites()- Génère le xhtml permettant de choisir un site parmis une liste.`
53	`*`	53	`*`
54	`* Cette fonction fournie une liste des sites principaux gérés par Génésia.`	54	`* Cette fonction fournie une liste des sites principaux gérés par Papyrus.`
55	`*`	55	`*`
56	`* @param string l'objet Pear DB.`	56	`* @param string l'objet Pear DB.`
57	`* @param string l'url de la page à laquelle renvoyer le formulaire.`	57	`* @param string l'url de la page à laquelle renvoyer le formulaire.`
58	`* @param string un message important à destination de l'utilisateur.`	58	`* @param string un message important à destination de l'utilisateur.`
Line 252...		Line 252...
252	`$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);`	252	`$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);`