Rev 334 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<?php//vim: set expandtab tabstop=4 shiftwidth=4:// Copyright (C) 1999-2004 Tela Botanica (accueil@tela-botanica.org)//// Ce logiciel est un programme informatique servant à gérer du contenu et des// applications web.// Ce logiciel est régi par la licence CeCILL soumise au droit français et// respectant les principes de diffusion des logiciels libres. Vous pouvez// utiliser, modifier et/ou redistribuer ce programme sous les conditions// de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA// sur le site "http://www.cecill.info".// En contrepartie de l'accessibilité au code source et des droits de copie,// de modification et de redistribution accordés par cette licence, il n'est// offert aux utilisateurs qu'une garantie limitée. Pour les mêmes raisons,// seule une responsabilité restreinte pèse sur l'auteur du programme, le// titulaire des droits patrimoniaux et les concédants successifs.// A cet égard l'attention de l'utilisateur est attirée sur les risques// associés au chargement, à l'utilisation, à la modification et/ou au// développement et à la reproduction du logiciel par l'utilisateur étant// donné sa spécificité de logiciel libre, qui peut le rendre complexe à// manipuler et qui le réserve donc à des développeurs et des professionnels// avertis possédant des connaissances informatiques approfondies. Les// utilisateurs sont donc invités à charger et tester l'adéquation du// logiciel à leurs besoins dans des conditions permettant d'assurer la// sécurité de leurs systèmes et ou de leurs données et, plus généralement,// à l'utiliser et l'exploiter dans les mêmes conditions de sécurité.// Le fait que vous puissiez accéder à cet en-tête signifie que vous avez// pris connaissance de la licence CeCILL, et que vous en avez accepté les// termes.// ----// CVS : $Id: bazar.admin.php,v 1.2 2007-04-20 09:57:21 florian Exp $/*** Papyrus : Programme d'administration du bazar** La page contient l'appel aux fonctions de l'application de vérification de l'installation puis* l'appel du fichier réalisant l'initialisation. Enfin, l'appel du fichier réalisant le rendu et* retournant la page au navigateur client.**@package Bazar//Auteur original :*@author Florian SCHMITT <florian.schmitt@laposte.net>*@copyright Tela-Botanica 2000-2007*@version $Revision: 1.2 $// +------------------------------------------------------------------------------------------------------+*/// +------------------------------------------------------------------------------------------------------+// | ENTÊTE du PROGRAMME |// +------------------------------------------------------------------------------------------------------+include_once 'configuration/baz_config.inc.php'; //fichier de configuration de Bazar//appel du fichier de constantes des languesinclude_once 'langues/baz_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';// +------------------------------------------------------------------------------------------------------+// | CLASSE |// +------------------------------------------------------------------------------------------------------+class Bazar_Admin {var $objet_pear_auth;var $objet_pear_db;var $objet_pear_url;var $sortie_xhtml;/** Fonction redigerContenu() - Affiche le formulaire de r?action*** @return string Le HTML*/function afficherContenuCorps(){//-------------------------------------------------------------------------------------------------------------------// Initialisation des attributs$this->objet_pear_auth = $GLOBALS['_GEN_commun']['pear_auth'];$this->objet_pear_db = $GLOBALS['_GEN_commun']['pear_db'];$this->objet_pear_url = $GLOBALS['_GEN_commun']['url'];$this->sortie_xhtml = '<h1>'.BAZ_CONFIG.'</h1>'."\n";//-------------------------------------------------------------------------------------------------------------------// Gestion des boutons de l'interfaceif (isset($_POST['afficheur_annuler'])) {return false;} else if (isset($_POST['afficheur_enregistrer_quitter'])) {$requete = 'UPDATE gen_menu SET gm_application_arguments="num_questionnaire='.$_POST['num_questionnaire'].'||mail_questionnaire='.$_POST['mail_questionnaire'].'||texte_questionnaire_envoye='.$_POST['texte_questionnaire_envoye'].'" WHERE gm_id_menu='.$_GET['adme_menu_id'];$resultat = $this->objet_pear_db->query($requete) ;if (DB::isError($resultat)) {die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;}return false;}//--------------------------------------------------------------------------------------------------------------// Gestion des valeurs par defauts, en fonctions des donnees sauvees dans le menu$requete = 'SELECT gm_application_arguments FROM gen_menu WHERE gm_id_menu='.$_GET['adme_menu_id'];$resultat = $this->objet_pear_db->query($requete) ;//echo $requete;if (DB::isError($resultat)) {die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;}$valeurs_par_defaut = array();if ($resultat->numRows()>0) {while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {$arguments = explode('||', $ligne->gm_application_arguments);for ($i = 0; $i < count($arguments); $i++) {$attr = explode('=', $arguments[$i], 2);if ($attr[0] != '') {$info_application->$attr[0] = (isset($attr[1]) ? $attr[1] : '');}}}//valeurs par defaut enregistrees dans la tableif (isset($info_application)) {$valeurs_par_defaut['num_questionnaire']=$info_application->num_questionnaire;$valeurs_par_defaut['mail_questionnaire']=$info_application->mail_questionnaire;$valeurs_par_defaut['texte_questionnaire_envoye']=$info_application->texte_questionnaire_envoye;}} else {//valeurs par defaut pour afficher une carto des structures$valeurs_par_defaut['num_questionnaire']='';$valeurs_par_defaut['mail_questionnaire']='';$valeurs_par_defaut['texte_questionnaire_envoye']='';}//--------------------------------------------------------------------------------------------------------------// Gestion du questionnaire$this->objet_pear_url->addQueryString('adme_site_id', $_GET['adme_site_id']);$this->objet_pear_url->addQueryString('adme_menu_id', $_GET['adme_menu_id']);$this->objet_pear_url->addQueryString('adme_action', 'administrer');$form =& new HTML_QuickForm('form_param_bazar', 'post', str_replace('&', '&', $this->objet_pear_url->getUrl()));$squelette =& $form->defaultRenderer();$squelette->setFormTemplate("\n".'<form {attributes}>'."\n".'{content}'."\n".'</form>'."\n");$squelette->setElementTemplate( '<p>'."\n".'<label style="width:100px;padding:5px;text-align:right;">{label}'.'<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".'<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n".' : </label>'."\n".'{element}'."\n".'</p>'."\n" );$form->addElement('text', 'mail_questionnaire', QUESTIONNAIRE_MAIL);$liste_bouton_debut = '<ul class="liste_bouton">'."\n";$form->addElement('html', $liste_bouton_debut);$form->addElement('submit', 'afficheur_enregistrer_quitter', BAZ_ENREGISTRER_ET_QUITTER);$form->addElement('submit', 'afficheur_annuler', BAZ_ANNULER);$liste_bouton_fin = '</ul>'."\n";$form->addElement('html', $liste_bouton_fin);$form->setDefaults($valeurs_par_defaut);$this->sortie_xhtml .= $form->toHTML()."\n";return $this->sortie_xhtml;}}// Fin de la classe// +------------------------------------------------------------------------------------------------------+// | PIED du PROGRAMME |// +------------------------------------------------------------------------------------------------------+/* +--Fin du code ---------------------------------------------------------------------------------------+* $Log: not supported by cvs2svn $* Revision 1.1 2007/02/02 14:02:08 alexandre_tb* version initiale vide pour le moment** +--Fin du code ----------------------------------------------------------------------------------------+*/?>