Subversion Repositories Applications.papyrus

Rev

Rev 612 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 612 Rev 805
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: cartographie.admin.php,v 1.2 2005-11-24 16:17:52 florian Exp $
22
// CVS : $Id: cartographie.admin.php,v 1.3 2006-04-04 12:23:05 florian Exp $
23
/**
23
/**
24
* 
24
* 
25
*@package bazar
25
*@package bazar
26
//Auteur original :
26
//Auteur original :
27
*@author        Florian Schmitt <florian@ecole-et-nature.org>
27
*@author        Florian Schmitt <florian@ecole-et-nature.org>
28
//Autres auteurs :
28
//Autres auteurs :
29
*@copyright     Tela-Botanica 2000-2004
29
*@copyright     Tela-Botanica 2000-2004
30
*@version       $Revision: 1.2 $ $Date: 2005-11-24 16:17:52 $
30
*@version       $Revision: 1.3 $ $Date: 2006-04-04 12:23:05 $
31
// +------------------------------------------------------------------------------------------------------+
31
// +------------------------------------------------------------------------------------------------------+
32
*/
32
*/
33
// +------------------------------------------------------------------------------------------------------+
33
// +------------------------------------------------------------------------------------------------------+
34
// |                                            ENT?E du PROGRAMME                                       |
34
// |                                            ENT?E du PROGRAMME                                       |
35
// +------------------------------------------------------------------------------------------------------+
35
// +------------------------------------------------------------------------------------------------------+
Line 50... Line 50...
50
    *   @return  string  Le HTML
50
    *   @return  string  Le HTML
51
    */
51
    */
52
    function afficherContenuCorps()
52
    function afficherContenuCorps()
53
    {
53
    {
54
        /** Inclusion du fichier de configuration de cette application.*/
54
        /** Inclusion du fichier de configuration de cette application.*/
55
    require_once PAP_CHEMIN_RACINE.'client/bottin/configuration/bottin.config.inc.php';
55
        require_once PAP_CHEMIN_RACINE.'client/bottin/configuration/bottin.config.inc.php';
56
	require_once INS_CHEMIN_APPLI.'configuration/cartographie.config.inc.php';
56
        require_once INS_CHEMIN_APPLI.'configuration/cartographie.config.inc.php';
57
	require_once PAP_CHEMIN_RACINE.'api/pear/HTML/QuickForm.php' ;
57
        require_once 'HTML/QuickForm.php' ;
58
        
58
                
59
        //-------------------------------------------------------------------------------------------------------------------
59
        //-------------------------------------------------------------------------------------------------------------------
60
        // Initialisation des attributs
60
        // Initialisation des attributs
61
        $this->objet_pear_auth = $GLOBALS['_GEN_commun']['pear_auth'];
61
        $this->objet_pear_auth = $GLOBALS['_GEN_commun']['pear_auth'];
62
        $this->objet_pear_db = $GLOBALS['_GEN_commun']['pear_db'];
62
        $this->objet_pear_db = $GLOBALS['ins_db'];
63
        $this->objet_pear_url = $GLOBALS['_GEN_commun']['url'];
63
        $this->objet_pear_url = $GLOBALS['_GEN_commun']['url'];
64
        $this->sortie_xhtml = '';
64
        $this->sortie_xhtml = '<h1>'.INS_CONFIG_MENU.' '.$_GET['adme_menu_id'].'</h1><br />'."\n";
Line 65... Line 65...
65
        
65
        
-
 
66
        //-------------------------------------------------------------------------------------------------------------------
-
 
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
        
66
        //-------------------------------------------------------------------------------------------------------------------
122
        //--------------------------------------------------------------------------------------------------------------
67
	// Création du formulaire
123
        // Gestion du formulaire
68
        $this->objet_pear_url->addQueryString('adme_site_id', 2);
124
        $this->objet_pear_url->addQueryString('adme_site_id', $_GET['adme_site_id']);
69
        $this->objet_pear_url->addQueryString('adme_menu_id', 14);
125
        $this->objet_pear_url->addQueryString('adme_menu_id', $_GET['adme_menu_id']);
70
        $this->objet_pear_url->addQueryString('adme_action', 'administrer');
126
        $this->objet_pear_url->addQueryString('adme_action', 'administrer');
71
        $form =& new HTML_QuickForm('form_param_carto', 'post', str_replace('&amp;', '&', $this->objet_pear_url->getUrl()));
127
        $form =& new HTML_QuickForm('form_param_carto', 'post', str_replace('&amp;', '&', $this->objet_pear_url->getUrl()));
72
        $squelette =& $form->defaultRenderer();
128
        $squelette =& $form->defaultRenderer();
73
        $squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'<ul>'."\n".'{content}'."\n".'</ul>'."\n".'</form>'."\n");
129
        $squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'<table>'."\n".'{content}'."\n".'</table>'."\n".'</form>'."\n");
74
        $squelette->setElementTemplate(  '<li>'."\n".
-
 
75
                                        '{label}'."\n".
130
        $squelette->setElementTemplate( '<tr>'."\n".
76
                                        '{element}'."\n".
131
                                        '<td style="padding:5px;text-align:right;">{label}'.
77
                                        '<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
132
                                        '<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
-
 
133
                                        '<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n".
-
 
134
										' : </td>'."\n".
78
                                        '<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n".
135
                                        '<td style="padding:5px;text-align:left;">{element}</td>'."\n".
-
 
136
                                        '</tr>'."\n" );
79
                                        '</li>'."\n");
137
        $form->addElement('text', 'titre_carto', INS_TITRE_CARTO);
80
        $requete = 'SHOW TABLES FROM '.$this->objet_pear_db->dsn['database'];
138
        $requete = 'SHOW TABLES FROM '.$this->objet_pear_db->dsn['database'];
81
        $resultat = $this->objet_pear_db->query($requete) ;
139
        $resultat = $this->objet_pear_db->query($requete) ;
82
        if (DB::isError($resultat)) {
140
        if (DB::isError($resultat)) {
83
        	die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
141
        	die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
Line 86... Line 144...
86
        while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
144
        while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
87
        	$option_tables[$ligne['Tables_in_'.$this->objet_pear_db->dsn['database']]] =  $ligne['Tables_in_'.$this->objet_pear_db->dsn['database']];
145
        	$option_tables[$ligne['Tables_in_'.$this->objet_pear_db->dsn['database']]] =  $ligne['Tables_in_'.$this->objet_pear_db->dsn['database']];
88
        }
146
        }
89
        $javascript= array('onchange' => 'javascript:this.form.submit();');
147
        $javascript= array('onchange' => 'javascript:this.form.submit();');
90
        $form->addElement('select', 'nom_table1', INS_TABLE, $option_tables, $javascript);
148
        $form->addElement('select', 'nom_table1', INS_TABLE, $option_tables, $javascript);
91
	
149
        
92
	$requete = $requete = 'SELECT * FROM carto_config WHERE cc_menu_id='.$_GET['adme_menu_id'];
-
 
93
	$resultat = $this->objet_pear_db->query($requete) ;
-
 
94
	if (DB::isError($resultat)) {
-
 
95
		die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
-
 
96
	}
-
 
97
	echo '<pre>'.print_r($_POST, true).'</pre>';
-
 
98
	if (($resultat->numRows()>0)or(isset($_POST['nom_table1']))) {
150
        if (isset($_POST['nom_table1'])) {
99
		if (isset($_POST['nom_table1'])) {
151
        	$table=$_POST['nom_table1'];
-
 
152
        } else {
100
				$ligne['cc_table1']=$_POST['nom_table1'];
153
        	$table=$valeurs_par_defaut['nom_table1'];        	
101
		}
154
        }
102
		
-
 
103
		$requete = $requete = 'SHOW COLUMNS FROM '.$ligne['cc_table1'];
155
        $requete = 'SHOW COLUMNS FROM '.$table;
104
		$resultat = $this->objet_pear_db->query($requete) ;
156
        $resultat = $this->objet_pear_db->query($requete) ;
105
		if (DB::isError($resultat)) {
157
        if (DB::isError($resultat)) {
106
			die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
158
        	die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
107
		}
159
        }
108
		$option_champs = array();
160
       	$option_champs = array();
109
		$i=0;
-
 
110
		while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
-
 
111
			$option_champs[$i] =  $ligne['Field'];
-
 
112
			$i++;
-
 
113
		}
-
 
114
		$form->addElement('select', 'nom_champs_pays', INS_NOM_CHAMPS_PAYS, $option_champs);
-
 
115
		$form->addElement('select', 'nom_champs_cp', INS_NOM_CHAMPS_CP, $option_champs);
-
 
116
		$option_tables[0] = INS_PAS_NECESSAIRE;
-
 
117
		$form->addElement('select', 'nom_table2', INS_TABLE_SUPPLEMENTAIRE, $option_tables);
-
 
118
		$form->addElement('text', 'requete_sql', INS_REQUETE_SQL_SUPPLEMENTAIRE);
-
 
119
		while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
161
		while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
120
			//valeurs par defaut
162
			$option_champs[$ligne['Field']] =  $ligne['Field'];
121
		}
163
		}
122
		 
-
 
123
	}
-
 
124
        
-
 
-
 
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);         
125
        $liste_bouton_debut = '<ul class="liste_bouton">'."\n";
169
        $liste_bouton_debut = '<ul class="liste_bouton">'."\n";
126
        $form->addElement('html', $liste_bouton_debut);
170
        $form->addElement('html', $liste_bouton_debut);
127
        $form->addElement('submit', 'afficheur_enregistrer_quitter', INS_ENREGISTRER_ET_QUITTER);
171
        $form->addElement('submit', 'afficheur_enregistrer_quitter', INS_ENREGISTRER_ET_QUITTER);
128
        $form->addElement('submit', 'afficheur_annuler', INS_ANNULER);
172
        $form->addElement('submit', 'afficheur_annuler', INS_ANNULER);
129
        $liste_bouton_fin = '</ul>'."\n";
173
        $liste_bouton_fin = '</ul>'."\n";
130
        $form->addElement('html', $liste_bouton_fin);
174
        $form->addElement('html', $liste_bouton_fin);
-
 
175
        $form->setDefaults($valeurs_par_defaut);
131
        $this->sortie_xhtml .= $form->toHTML()."\n";
176
        $this->sortie_xhtml .= $form->toHTML()."\n";	
132
	
-
 
133
        return $this->sortie_xhtml;
177
        return $this->sortie_xhtml;
134
    }
178
    }
Line 135... Line 179...
135
 
179
 
Line 136... Line 180...
136
}// Fin de la classe
180
}// Fin de la classe
137
 
181
 
138
// +------------------------------------------------------------------------------------------------------+
182
// +------------------------------------------------------------------------------------------------------+
139
// |                                            PIED du PROGRAMME                                         |
-
 
140
// +------------------------------------------------------------------------------------------------------+
183
// |                                            PIED du PROGRAMME                                         |
141
 
184
// +------------------------------------------------------------------------------------------------------+