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
?>