Subversion Repositories Applications.papyrus

Rev

Details | 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
// +------------------------------------------------------------------------------------------------------+
22
// CVS : $Id: cartographie.admin.php,v 1.1 2005-09-22 14:02:49 ddelon Exp $
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
30
*@version       $Revision: 1.1 $ $Date: 2005-09-22 14:02:49 $
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.*/
55
        require_once 'configuration/ins_annuaire.config.inc.php';
56
	require_once INS_CHEMIN_APPLI.'configuration/cartographie.config.inc.php';
57
	require_once 'HTML/QuickForm.php' ;
58
 
59
        //-------------------------------------------------------------------------------------------------------------------
60
        // Initialisation des attributs
61
        $this->objet_pear_auth = $GLOBALS['_GEN_commun']['pear_auth'];
62
        $this->objet_pear_db = $GLOBALS['_GEN_commun']['pear_db'];
63
        $this->objet_pear_url = $GLOBALS['_GEN_commun']['url'];
64
        $this->sortie_xhtml = '';
65
 
66
        //-------------------------------------------------------------------------------------------------------------------
67
	// Création du formulaire
68
        $this->objet_pear_url->addQueryString('adme_site_id', 2);
69
	$this->objet_pear_url->addQueryString('adme_menu_id', 14);
70
	$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()));
72
        $squelette =& $form->defaultRenderer();
73
        $squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'<ul>'."\n".'{content}'."\n".'</ul>'."\n".'</form>'."\n");
74
        $squelette->setElementTemplate(  '<li>'."\n".
75
                                        '{label}'."\n".
76
                                        '{element}'."\n".
77
                                        '<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
78
                                        '<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n".
79
                                        '</li>'."\n");
80
	$requete = $requete = 'SHOW TABLES FROM '.INS_BASE;
81
	$resultat = $this->objet_pear_db->query($requete) ;
82
	if (DB::isError($resultat)) {
83
		die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
84
	}
85
	$option_tables = array();
86
	while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
87
		$option_tables[$ligne['Tables_in_'.INS_BASE]] =  $ligne['Tables_in_'.INS_BASE];
88
	}
89
	$javascript= array('onchange' => 'javascript:this.form.submit();');
90
	$form->addElement('select', 'nom_table1', INS_TABLE, $option_tables, $javascript);
91
 
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']))) {
99
		if (isset($_POST['nom_table1'])) {
100
				$ligne['cc_table1']=$_POST['nom_table1'];
101
		}
102
 
103
		$requete = $requete = 'SHOW COLUMNS FROM '.$ligne['cc_table1'];
104
		$resultat = $this->objet_pear_db->query($requete) ;
105
		if (DB::isError($resultat)) {
106
			die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
107
		}
108
		$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)) {
120
			//valeurs par defaut
121
		}
122
 
123
	}
124
 
125
        $liste_bouton_debut = '<ul class="liste_bouton">'."\n";
126
        $form->addElement('html', $liste_bouton_debut);
127
        $form->addElement('submit', 'afficheur_enregistrer_quitter', INS_ENREGISTRER_ET_QUITTER);
128
        $form->addElement('submit', 'afficheur_annuler', INS_ANNULER);
129
        $liste_bouton_fin = '</ul>'."\n";
130
        $form->addElement('html', $liste_bouton_fin);
131
        $this->sortie_xhtml .= $form->toHTML()."\n";
132
 
133
        return $this->sortie_xhtml;
134
    }
135
 
136
}// Fin de la classe
137
 
138
// +------------------------------------------------------------------------------------------------------+
139
// |                                            PIED du PROGRAMME                                         |
140
// +------------------------------------------------------------------------------------------------------+
141
 
142
?>