Subversion Repositories Applications.papyrus

Rev

Rev 1688 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
448 ddelon 1 
<?php
2 
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3 
// +------------------------------------------------------------------------------------------------------+
4 
// | PHP version 4.1                                                                                      |
5 
// +------------------------------------------------------------------------------------------------------+
6 
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7 
// +------------------------------------------------------------------------------------------------------+
8 
// | This library is free software; you can redistribute it and/or                                        |
9 
// | modify it under the terms of the GNU Lesser General Public                                           |
10 
// | License as published by the Free Software Foundation; either                                         |
11 
// | version 2.1 of the License, or (at your option) any later version.                                   |
12 
// |                                                                                                      |
13 
// | This library is distributed in the hope that it will be useful,                                      |
14 
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
15 
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
16 
// | Lesser General Public License for more details.                                                      |
17 
// |                                                                                                      |
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                                  |
20 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21 
// +------------------------------------------------------------------------------------------------------+
1298 neiluj 22 
// CVS : $Id: cartographie.admin.php,v 1.6 2007-04-11 08:30:12 neiluj Exp $
448 ddelon 23 
/**
24 
*
25 
*@package bazar
26 
//Auteur original :
27 
*@author        Florian Schmitt <florian@ecole-et-nature.org>
28 
//Autres auteurs :
29 
*@copyright     Tela-Botanica 2000-2004
1298 neiluj 30 
*@version       $Revision: 1.6 $ $Date: 2007-04-11 08:30:12 $
448 ddelon 31 
// +------------------------------------------------------------------------------------------------------+
32 
*/
33 
// +------------------------------------------------------------------------------------------------------+
34 
// |                                            ENT?E du PROGRAMME                                       |
35 
// +------------------------------------------------------------------------------------------------------+
36 
 
37 
 
38 
// +------------------------------------------------------------------------------------------------------+
39 
// |                                                 CLASSE                                               |
40 
// +------------------------------------------------------------------------------------------------------+
41 
class Cartographie_Admin {
42 
    var $objet_pear_auth;
43 
    var $objet_pear_db;
44 
    var $objet_pear_url;
45 
    var $sortie_xhtml;
46 
 
47 
    /** Fonction redigerContenu() - Affiche le formulaire de r?action
48 
    *
49 
    *
50 
    *   @return  string  Le HTML
51 
    */
52 
    function afficherContenuCorps()
53 
    {
54 
        /** Inclusion du fichier de configuration de cette application.*/
805 florian 55 
        require_once PAP_CHEMIN_RACINE.'client/bottin/configuration/bottin.config.inc.php';
56 
        require_once INS_CHEMIN_APPLI.'configuration/cartographie.config.inc.php';
1298 neiluj 57 
        require_once PAP_CHEMIN_API_PEAR.'HTML/QuickForm.php' ;
805 florian 58 
 
448 ddelon 59 
        //-------------------------------------------------------------------------------------------------------------------
60 
        // Initialisation des attributs
61 
        $this->objet_pear_auth = $GLOBALS['_GEN_commun']['pear_auth'];
805 florian 62 
        $this->objet_pear_db = $GLOBALS['ins_db'];
448 ddelon 63 
        $this->objet_pear_url = $GLOBALS['_GEN_commun']['url'];
805 florian 64 
        $this->sortie_xhtml = '<h1>'.INS_CONFIG_MENU.' '.$_GET['adme_menu_id'].'</h1><br />'."\n";
448 ddelon 65 
 
66 
        //-------------------------------------------------------------------------------------------------------------------
805 florian 67 
        // Gestion des boutons de l'interface
68 
        if (isset($_POST['afficheur_annuler'])) {
69 
            return false;
70 
        } else if (isset($_POST['afficheur_enregistrer_quitter'])) {
71 
            // Sauvegarde paramêtres carto
72 
            //on vérifie l'existence de la configuration, pour savoir si l'on fait un INSERT ou un UPDATE
73 
            $requete = 'SELECT cc_menu_id FROM carto_config WHERE cc_menu_id='.$_GET['adme_menu_id'];
74 
            $resultat = $this->objet_pear_db->query($requete) ;
75 
            if (DB::isError($resultat)) {
76 
            	die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
77 
            }
78 
            if ($resultat->numRows()>0) {
79 
             	$requete = 'UPDATE carto_config SET cc_titre_carto="'.$_POST['titre_carto'].'", cc_table1="'.$_POST['nom_table1'].'", cc_table2="'.$_POST['nom_table2'].
80 
                           '", cc_pays="'.$_POST['nom_champs_pays'].'", cc_cp="'.$_POST['nom_champs_cp'].
81 
                           '", cc_sql="'.$_POST['requete_sql'].'" WHERE cc_menu_id='.$_GET['adme_menu_id'];
82 
            } else {
83 
             	$requete = 'INSERT INTO carto_config (cc_titre_carto, cc_menu_id, cc_table1, cc_table2, cc_pays, cc_cp, cc_sql)'.
84 
             	           ' VALUES ( "'.$_POST['titre_carto'].'", '.$_GET['adme_menu_id'].', "'.$_POST['nom_table1'].'", "'.$_POST['nom_table2'].
85 
						   '", "'.$_POST['nom_champs_pays'].'", "'.$_POST['nom_champs_cp'].'", "'.$_POST['requete_sql'].'")';
86 
            }
87 
            $resultat = $this->objet_pear_db->query($requete) ;
88 
            if (DB::isError($resultat)) {
89 
            	die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
90 
            }
91 
            return false;
92 
        }
93 
 
94 
        //--------------------------------------------------------------------------------------------------------------
95 
        // Gestion des valeurs par defauts, en fonctions des donnees sauvees dans carto_config
96 
        $requete = 'SELECT * FROM carto_config WHERE cc_menu_id='.$_GET['adme_menu_id'];
97 
        $resultat = $this->objet_pear_db->query($requete) ;
98 
        if (DB::isError($resultat)) {
99 
        	die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
100 
        }
101 
        $valeurs_par_defaut = array();
102 
        if ($resultat->numRows()>0) {
103 
        	while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
104 
        		//valeurs par defaut enregistrees dans la table
105 
        		$valeurs_par_defaut['titre_carto']=$ligne['cc_titre_carto'];
106 
        		$valeurs_par_defaut['nom_table1']=$ligne['cc_table1'];
107 
        		$valeurs_par_defaut['nom_table2']=$ligne['cc_table2'];
108 
        		$valeurs_par_defaut['nom_champs_pays']=$ligne['cc_pays'];
109 
        		$valeurs_par_defaut['nom_champs_cp']=$ligne['cc_cp'];
110 
        		$valeurs_par_defaut['requete_sql']=$ligne['cc_sql'];
111 
        	}
112 
        } else {
113 
        	//valeurs par defaut pour afficher une carto des structures
114 
        	$valeurs_par_defaut['titre_carto']='';
115 
        	$valeurs_par_defaut['nom_table1']=INS_ANNUAIRE;
116 
        	$valeurs_par_defaut['nom_table2']=0;
117 
        	$valeurs_par_defaut['nom_champs_pays']=INS_CHAMPS_PAYS;
118 
        	$valeurs_par_defaut['nom_champs_cp']=INS_CHAMPS_CODE_POSTAL;
119 
        	$valeurs_par_defaut['requete_sql']='a_structure=1';
120 
        }
121 
 
122 
        //--------------------------------------------------------------------------------------------------------------
123 
        // Gestion du formulaire
124 
        $this->objet_pear_url->addQueryString('adme_site_id', $_GET['adme_site_id']);
125 
        $this->objet_pear_url->addQueryString('adme_menu_id', $_GET['adme_menu_id']);
612 florian 126 
        $this->objet_pear_url->addQueryString('adme_action', 'administrer');
127 
        $form =& new HTML_QuickForm('form_param_carto', 'post', str_replace('&amp;', '&', $this->objet_pear_url->getUrl()));
448 ddelon 128 
        $squelette =& $form->defaultRenderer();
805 florian 129 
        $squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'<table>'."\n".'{content}'."\n".'</table>'."\n".'</form>'."\n");
130 
        $squelette->setElementTemplate( '<tr>'."\n".
131 
                                        '<td style="padding:5px;text-align:right;">{label}'.
448 ddelon 132 
                                        '<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
133 
                                        '<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n".
805 florian 134 
										' : </td>'."\n".
135 
                                        '<td style="padding:5px;text-align:left;">{element}</td>'."\n".
136 
                                        '</tr>'."\n" );
137 
        $form->addElement('text', 'titre_carto', INS_TITRE_CARTO);
612 florian 138 
        $requete = 'SHOW TABLES FROM '.$this->objet_pear_db->dsn['database'];
139 
        $resultat = $this->objet_pear_db->query($requete) ;
140 
        if (DB::isError($resultat)) {
141 
        	die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
142 
        }
143 
        $option_tables = array();
144 
        while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
145 
        	$option_tables[$ligne['Tables_in_'.$this->objet_pear_db->dsn['database']]] =  $ligne['Tables_in_'.$this->objet_pear_db->dsn['database']];
146 
        }
147 
        $javascript= array('onchange' => 'javascript:this.form.submit();');
148 
        $form->addElement('select', 'nom_table1', INS_TABLE, $option_tables, $javascript);
805 florian 149 
 
150 
        if (isset($_POST['nom_table1'])) {
151 
        	$table=$_POST['nom_table1'];
152 
        } else {
153 
        	$table=$valeurs_par_defaut['nom_table1'];
154 
        }
155 
        $requete = 'SHOW COLUMNS FROM '.$table;
156 
        $resultat = $this->objet_pear_db->query($requete) ;
157 
        if (DB::isError($resultat)) {
158 
        	die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
159 
        }
160 
       	$option_champs = array();
448 ddelon 161 
		while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
805 florian 162 
			$option_champs[$ligne['Field']] =  $ligne['Field'];
448 ddelon 163 
		}
805 florian 164 
       	$form->addElement('select', 'nom_champs_pays', INS_NOM_CHAMPS_PAYS, $option_champs);
165 
       	$form->addElement('select', 'nom_champs_cp', INS_NOM_CHAMPS_CP, $option_champs);
166 
       	$option_tables[0] = INS_PAS_NECESSAIRE;
167 
       	$form->addElement('select', 'nom_table2', INS_TABLE_SUPPLEMENTAIRE, $option_tables);
168 
       	$form->addElement('text', 'requete_sql', INS_REQUETE_SQL_SUPPLEMENTAIRE);
448 ddelon 169 
        $liste_bouton_debut = '<ul class="liste_bouton">'."\n";
170 
        $form->addElement('html', $liste_bouton_debut);
171 
        $form->addElement('submit', 'afficheur_enregistrer_quitter', INS_ENREGISTRER_ET_QUITTER);
172 
        $form->addElement('submit', 'afficheur_annuler', INS_ANNULER);
173 
        $liste_bouton_fin = '</ul>'."\n";
174 
        $form->addElement('html', $liste_bouton_fin);
805 florian 175 
        $form->setDefaults($valeurs_par_defaut);
176 
        $this->sortie_xhtml .= $form->toHTML()."\n";
448 ddelon 177 
        return $this->sortie_xhtml;
178 
    }
179 
 
180 
}// Fin de la classe
181 
 
182 
// +------------------------------------------------------------------------------------------------------+
183 
// |                                            PIED du PROGRAMME                                         |
184 
// +------------------------------------------------------------------------------------------------------+
805 florian 185 
?>