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.21 2005-04-08 13:29:04 jpm Exp $
/**
* Bibliothèque de fonctions d'admininistration des projets
*
* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations
* sur les projets (=sites gérés par Papyrus).

*@author        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.21 $ $Date: 2005-04-08 13:29:04 $
// +------------------------------------------------------------------------------------------------------+
*/

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

* @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.
* return  string   le code XHTML à retourner.
*/
function ADMIN_afficherFormListeSites(&$db, $url, $message = '')
{
    // Liste des sites principaux
    $requete =  'SELECT * '.
                'FROM gen_site, gen_site_relation '.
                'WHERE gsr_id_site_01 = gsr_id_site_02 '.

    $resultat = $db->query($requete);
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;

    
    //----------------------------------------------------------------------------
    // Création du formulaire
    $form =& new HTML_QuickForm('form_sites', 'post', str_replace('&amp;', '&', $url));
    $tab_index = 1000;
    $squelette =& $form->defaultRenderer();
    $squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'{content}'."\n".'</form>'."\n");
    $squelette->setElementTemplate( '<li>'."\n".'{label}'."\n".'{element}'."\n".

*
* @param  string   l'objet pear de connexion à la base de données.
* @param  string   le tableau contenant les valeurs du formulaire.
* @return string   retourne les messages d'erreurs sinon rien.
*/
function ADMIN_validerFormListesSites(&$db, $aso_valeurs)
{
    $message = '';

    
    // Validation des données du formulaire

* @param  string   l'url à laquelle renvoyer le formulaire.
* @param  string   le tableau contenant les valeurs du formulaire.
* @param  string   un message à destination de l'utilisateur.
* return  string   le code XHTML à retourner.
*/
function ADMIN_afficherFormSite(&$db, $url, $aso_valeurs = array(), $message = '')
{
    //initialisation des valeurs
    $aso_valeurs['modification'] = false;
    $aso_valeurs['defaut'] = false;
    $aso_valeurs['type_site_externe'] = 0;

    // Débogage :
    //$GLOBALS['_DEBOGAGE_'] .= '<pre>'.print_r($aso_valeurs, true).'</pre>';

    
    //----------------------------------------------------------------------------
    // Création du formulaire
    $form =& new HTML_QuickForm('site', 'post', str_replace('&amp;', '&', $url));
    $tab_index = 1000;
    $squelette =& $form->defaultRenderer();
    $squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'{content}'."\n".'</form>'."\n");
    $squelette->setElementTemplate(  '<li>'."\n".

*
* @param  string   l'objet pear de connexion à la base de données.
* @param  string   le tableau contenant les valeurs du formulaire.
* @return string   retourne les messages d'erreurs sinon rien.
*/
function ADMIN_validerFormSite(&$db, $aso_valeurs)
{
    $message = '';

    
    // Validation des données du formulaire

* @param  string   l'objet pear de connexion à la base de données.
* @param  string   le tableau contenant les valeurs du formulaire.
* @param  int      identifiant de l'administrateur réalisant cette création.
* @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 conscidé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"

* @param  string   l'objet pear de connexion à la base de données.
* @param  string   le tableau contenant les valeurs du formulaire.
* @param  int      identifiant de l'administrateur réalisant cette modification.
* @return string retourne un message en cas de succès ou d'échec.
*/
function ADMIN_modifierSite(&$db, $aso_valeurs, $id_admin)
{
    // Initialisation de variables
    $message_complement = '';

    

* @param  string   l'objet pear de connexion à la base de données.
* @param  string   le tableau contenant les valeurs du formulaire.
* @param  int      identifiant de l'administrateur réalisant cette création.
* @return string retourne un message en cas de succès ou d'échec.
*/
function ADMIN_supprimerSite(&$db, $aso_valeurs)
{
    // Recherche du coda alpha du site principal afin de pouvoir détruire ses répertoires
    $requete =  'SELECT gs_code_alpha '.
                'FROM gen_site '.
                'WHERE gs_id_site = '.$aso_valeurs['form_sites_id_site'];

}

 
// +- Fin du code source  --------------------------------------------------------------------------------+
/*
* $Log: not supported by cvs2svn $
* Revision 1.20  2005/03/08 11:17:47  jpm
* Suppression de l'inclusion d'un fichier inutile.
*
* Revision 1.19  2005/02/28 11:07:00  jpm
* Modification des auteurs.
*
* Revision 1.18  2005/02/28 10:59:07  jpm

Subversion Repositories Applications.papyrus

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

Rev 298		Rev 327
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.20 2005-03-08 11:17:47 jpm Exp $`	22	`// CVS : $Id: adsi_site.fonct.php,v 1.21 2005-04-08 13:29:04 jpm 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.20 $ $Date: 2005-03-08 11:17:47 $`	37	`*@version $Revision: 1.21 $ $Date: 2005-04-08 13:29:04 $`
38	`// +------------------------------------------------------------------------------------------------------+`	38	`// +------------------------------------------------------------------------------------------------------+`
39	`*/`	39	`*/`
Line 40...		Line 40...
40		40
41	`// +------------------------------------------------------------------------------------------------------+`	41	`// +------------------------------------------------------------------------------------------------------+`
Line 56...		Line 56...
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.`
59	`* return string le code XHTML à retourner.`	59	`* return string le code XHTML à retourner.`
60	`*/`	60	`*/`
61	`function ADMIN_afficherFormListeSites($db, $url, $message = '')`	61	`function ADMIN_afficherFormListeSites(&$db, $url, $message = '')`
62	`{`	62	`{`
63	`// Liste des sites principaux`	63	`// Liste des sites principaux`
64	`$requete = 'SELECT * '.`	64	`$requete = 'SELECT * '.`
65	`'FROM gen_site, gen_site_relation '.`	65	`'FROM gen_site, gen_site_relation '.`
66	`'WHERE gsr_id_site_01 = gsr_id_site_02 '.`	66	`'WHERE gsr_id_site_01 = gsr_id_site_02 '.`
Line 71...		Line 71...
71	`$resultat = $db->query($requete);`	71	`$resultat = $db->query($requete);`
72	`(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;`	72	`(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;`
Line 73...		Line 73...
73		73
74	`//----------------------------------------------------------------------------`	74	`//----------------------------------------------------------------------------`
75	`// Création du formulaire`	75	`// Création du formulaire`
76	`$form =& new HTML_QuickForm('form_sites', 'post', $url);`	76	`$form =& new HTML_QuickForm('form_sites', 'post', str_replace('&', '&', $url));`
77	`$tab_index = 1000;`	77	`$tab_index = 1000;`
78	`$squelette =& $form->defaultRenderer();`	78	`$squelette =& $form->defaultRenderer();`
79	`$squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'{content}'."\n".'</form>'."\n");`	79	`$squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'{content}'."\n".'</form>'."\n");`
80	`$squelette->setElementTemplate( '<li>'."\n".'{label}'."\n".'{element}'."\n".`	80	`$squelette->setElementTemplate( '<li>'."\n".'{label}'."\n".'{element}'."\n".`
Line 139...		Line 139...
139	`*`	139	`*`
140	`* @param string l'objet pear de connexion à la base de données.`	140	`* @param string l'objet pear de connexion à la base de données.`
141	`* @param string le tableau contenant les valeurs du formulaire.`	141	`* @param string le tableau contenant les valeurs du formulaire.`
142	`* @return string retourne les messages d'erreurs sinon rien.`	142	`* @return string retourne les messages d'erreurs sinon rien.`
143	`*/`	143	`*/`
144	`function ADMIN_validerFormListesSites($db, $aso_valeurs)`	144	`function ADMIN_validerFormListesSites(&$db, $aso_valeurs)`
145	`{`	145	`{`
146	`$message = '';`	146	`$message = '';`
Line 147...		Line 147...
147		147
148	`// Validation des données du formulaire`	148	`// Validation des données du formulaire`
Line 161...		Line 161...
161	`* @param string l'url à laquelle renvoyer le formulaire.`	161	`* @param string l'url à laquelle renvoyer le formulaire.`
162	`* @param string le tableau contenant les valeurs du formulaire.`	162	`* @param string le tableau contenant les valeurs du formulaire.`
163	`* @param string un message à destination de l'utilisateur.`	163	`* @param string un message à destination de l'utilisateur.`
164	`* return string le code XHTML à retourner.`	164	`* return string le code XHTML à retourner.`
165	`*/`	165	`*/`
166	`function ADMIN_afficherFormSite($db, $url, $aso_valeurs = array(), $message = '')`	166	`function ADMIN_afficherFormSite(&$db, $url, $aso_valeurs = array(), $message = '')`
167	`{`	167	`{`
168	`//initialisation des valeurs`	168	`//initialisation des valeurs`
169	`$aso_valeurs['modification'] = false;`	169	`$aso_valeurs['modification'] = false;`
170	`$aso_valeurs['defaut'] = false;`	170	`$aso_valeurs['defaut'] = false;`
171	`$aso_valeurs['type_site_externe'] = 0;`	171	`$aso_valeurs['type_site_externe'] = 0;`
Line 213...		Line 213...
213	`// Débogage :`	213	`// Débogage :`
214	`//$GLOBALS['_DEBOGAGE_'] .= '<pre>'.print_r($aso_valeurs, true).'</pre>';`	214	`//$GLOBALS['_DEBOGAGE_'] .= '<pre>'.print_r($aso_valeurs, true).'</pre>';`
Line 215...		Line 215...
215		215
216	`//----------------------------------------------------------------------------`	216	`//----------------------------------------------------------------------------`
217	`// Création du formulaire`	217	`// Création du formulaire`
218	`$form =& new HTML_QuickForm('site', 'post', $url);`	218	`$form =& new HTML_QuickForm('site', 'post', str_replace('&', '&', $url));`
219	`$tab_index = 1000;`	219	`$tab_index = 1000;`
220	`$squelette =& $form->defaultRenderer();`	220	`$squelette =& $form->defaultRenderer();`
221	`$squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'{content}'."\n".'</form>'."\n");`	221	`$squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'{content}'."\n".'</form>'."\n");`
222	`$squelette->setElementTemplate( '<li>'."\n".`	222	`$squelette->setElementTemplate( '<li>'."\n".`
Line 489...		Line 489...
489	`*`	489	`*`
490	`* @param string l'objet pear de connexion à la base de données.`	490	`* @param string l'objet pear de connexion à la base de données.`
491	`* @param string le tableau contenant les valeurs du formulaire.`	491	`* @param string le tableau contenant les valeurs du formulaire.`
492	`* @return string retourne les messages d'erreurs sinon rien.`	492	`* @return string retourne les messages d'erreurs sinon rien.`
493	`*/`	493	`*/`
494	`function ADMIN_validerFormSite($db, $aso_valeurs)`	494	`function ADMIN_validerFormSite(&$db, $aso_valeurs)`
495	`{`	495	`{`
496	`$message = '';`	496	`$message = '';`
Line 497...		Line 497...
497		497
498	`// Validation des données du formulaire`	498	`// Validation des données du formulaire`
Line 565...		Line 565...
565	`* @param string l'objet pear de connexion à la base de données.`	565	`* @param string l'objet pear de connexion à la base de données.`
566	`* @param string le tableau contenant les valeurs du formulaire.`	566	`* @param string le tableau contenant les valeurs du formulaire.`
567	`* @param int identifiant de l'administrateur réalisant cette création.`	567	`* @param int identifiant de l'administrateur réalisant cette création.`
568	`* @return string retourne un message en cas de succès ou d'échec.`	568	`* @return string retourne un message en cas de succès ou d'échec.`
569	`*/`	569	`*/`
570	`function ADMIN_enregistrerSite($db, $aso_valeurs, $id_admin)`	570	`function ADMIN_enregistrerSite(&$db, $aso_valeurs, $id_admin)`
571	`{`	571	`{`
572	`// Nous vérifions si nous avons à faire à un site externe.`	572	`// Nous vérifions si nous avons à faire à un site externe.`
573	`$id_type_site = '102';// par défaut on conscidére que c'est un site "principal"`	573	`$id_type_site = '102';// par défaut on conscidére que c'est un site "principal"`
574	`if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {`	574	`if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {`
575	`$id_type_site = '103';// c'est un site "externe"`	575	`$id_type_site = '103';// c'est un site "externe"`
Line 800...		Line 800...
800	`* @param string l'objet pear de connexion à la base de données.`	800	`* @param string l'objet pear de connexion à la base de données.`
801	`* @param string le tableau contenant les valeurs du formulaire.`	801	`* @param string le tableau contenant les valeurs du formulaire.`
802	`* @param int identifiant de l'administrateur réalisant cette modification.`	802	`* @param int identifiant de l'administrateur réalisant cette modification.`
803	`* @return string retourne un message en cas de succès ou d'échec.`	803	`* @return string retourne un message en cas de succès ou d'échec.`
804	`*/`	804	`*/`
805	`function ADMIN_modifierSite($db, $aso_valeurs, $id_admin)`	805	`function ADMIN_modifierSite(&$db, $aso_valeurs, $id_admin)`
806	`{`	806	`{`
807	`// Initialisation de variables`	807	`// Initialisation de variables`
808	`$message_complement = '';`	808	`$message_complement = '';`
Line 809...		Line 809...
809		809
Line 1010...		Line 1010...
1010	`* @param string l'objet pear de connexion à la base de données.`	1010	`* @param string l'objet pear de connexion à la base de données.`
1011	`* @param string le tableau contenant les valeurs du formulaire.`	1011	`* @param string le tableau contenant les valeurs du formulaire.`
1012	`* @param int identifiant de l'administrateur réalisant cette création.`	1012	`* @param int identifiant de l'administrateur réalisant cette création.`
1013	`* @return string retourne un message en cas de succès ou d'échec.`	1013	`* @return string retourne un message en cas de succès ou d'échec.`
1014	`*/`	1014	`*/`
1015	`function ADMIN_supprimerSite($db, $aso_valeurs)`	1015	`function ADMIN_supprimerSite(&$db, $aso_valeurs)`
1016	`{`	1016	`{`
1017	`// Recherche du coda alpha du site principal afin de pouvoir détruire ses répertoires`	1017	`// Recherche du coda alpha du site principal afin de pouvoir détruire ses répertoires`
1018	`$requete = 'SELECT gs_code_alpha '.`	1018	`$requete = 'SELECT gs_code_alpha '.`
1019	`'FROM gen_site '.`	1019	`'FROM gen_site '.`
1020	`'WHERE gs_id_site = '.$aso_valeurs['form_sites_id_site'];`	1020	`'WHERE gs_id_site = '.$aso_valeurs['form_sites_id_site'];`
Line 1157...		Line 1157...
1157	`}`	1157	`}`
Line 1158...		Line 1158...
1158		1158
1159	`// +- Fin du code source --------------------------------------------------------------------------------+`	1159	`// +- Fin du code source --------------------------------------------------------------------------------+`
1160	`/*`	1160	`/*`
-		1161	`* $Log: not supported by cvs2svn $`
-		1162	`* Revision 1.20 2005/03/08 11:17:47 jpm`
-		1163	`* Suppression de l'inclusion d'un fichier inutile.`
1161	`* $Log: not supported by cvs2svn $`	1164	`*`
1162	`* Revision 1.19 2005/02/28 11:07:00 jpm`	1165	`* Revision 1.19 2005/02/28 11:07:00 jpm`
1163	`* Modification des auteurs.`	1166	`* Modification des auteurs.`
1164	`*`	1167	`*`
1165	`* Revision 1.18 2005/02/28 10:59:07 jpm`	1168	`* Revision 1.18 2005/02/28 10:59:07 jpm`