Subversion Repositories eFlore/Archives.chorologie

Rev

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

Rev Author Line No. Line
2 jpm 1 
<?php
2 
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3 
// +------------------------------------------------------------------------------------------------------+
4 
// | PHP version 4.3                                                                                      |
5 
// +------------------------------------------------------------------------------------------------------+
6 
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7 
// +------------------------------------------------------------------------------------------------------+
8 
// | This file is part of eFlore-chorologie.                                                              |
9 
// |                                                                                                      |
10 
// | Foobar is free software; you can redistribute it and/or modify                                       |
11 
// | it under the terms of the GNU General Public License as published by                                 |
12 
// | the Free Software Foundation; either version 2 of the License, or                                    |
13 
// | (at your option) any later version.                                                                  |
14 
// |                                                                                                      |
15 
// | Foobar is distributed in the hope that it will be useful,                                            |
16 
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
17 
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                                        |
18 
// | GNU General Public License for more details.                                                         |
19 
// |                                                                                                      |
20 
// | You should have received a copy of the GNU General Public License                                    |
21 
// | along with Foobar; if not, write to the Free Software                                                |
22 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
23 
// +------------------------------------------------------------------------------------------------------+
42 jp_milcent 24 
// CVS : $Id: eflore_chorologie.php,v 1.14 2007-07-17 17:12:46 jp_milcent Exp $
2 jpm 25 
/**
26 
* Affichage des listes de noms de plantes par zones géographiques.
27 
*
28 
* Ce script fournit le code html correspondant aux listes de noms de plantes par zone géographique.
29 
*
30 
*@package eFlore
31 
*@subpackage Chorologie
32 
//Auteur original :
33 
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
34 
//Autres auteurs :
35 
*@author        Aucun
36 
*@copyright     Tela-Botanica 2000-2004
42 jp_milcent 37 
*@version       $Revision: 1.14 $ $Date: 2007-07-17 17:12:46 $
2 jpm 38 
// +------------------------------------------------------------------------------------------------------+
39 
*/
40 
 
41 
// +------------------------------------------------------------------------------------------------------+
42 
// |                                            ENTÊTE du PROGRAMME                                       |
43 
// +------------------------------------------------------------------------------------------------------+
11 jpm 44 
/** Inclusion du fichier config de la base de données de l'application eflore-chorolgie. */
45 
require_once GEN_CHEMIN_CLIENT.'eflore_chorologie/configuration/echoro_config_bdd.inc.php';
2 jpm 46 
/** Inclusion du fichier config de l'application eflore-chorolgie. */
47 
require_once GEN_CHEMIN_CLIENT.'eflore_chorologie/configuration/echoro_config.inc.php';
48 
/** Inclusion du fichier de langue de l'application eflore-chorologie. */
49 
require_once ECHORO_CHEMIN_LANGUE.'echoro_langue_'.ECHORO_LANGUE.'.inc.php';
50 
 
51 
/** Inclusion de la bibliothèque PEAR de conception de formulaire.*/
34 jp_milcent 52 
require_once ECHORO_CHEMIN_API_PEAR.'HTML/QuickForm.php';
2 jpm 53 
/** Inclusion de la bibliothèque PEAR de gestion des URL.*/
34 jp_milcent 54 
require_once ECHORO_CHEMIN_API_PEAR.'Net/URL.php';
2 jpm 55 
 
56 
// Ajout d'une feuille de style propre à eFlore.
11 jpm 57 
GEN_stockerStyleExterne('echoro', ECHORO_CHEMIN_STYLE.'echoro.css');
2 jpm 58 
 
27 jpm 59 
/** Inclusion de la classe "form" de l'API Formulaire. */
60 
require_once ECHORO_CHEMIN_API_FORMULAIRE.'FORM_formulaire.class.php';
11 jpm 61 
 
62 
/** Inclusion de la classe "Fragmenteur" de l'API Fragmenteur. */
63 
require_once ECHORO_CHEMIN_API_FRAGMENTEUR.'FRAG_Fragmenteur.class.php';
64 
/** Inclusion de la classe "Fragmenteur Session" de l'API Fragmenteur. */
65 
require_once ECHORO_CHEMIN_API_FRAGMENTEUR.'FRAG_Fragmenteur_Session.class.php';
66 
/** Inclusion des fonctions de l'API Fragmenteur. */
2 jpm 67 
require_once ECHORO_CHEMIN_API_FRAGMENTEUR.'FRAG_fragmenteur.fonct.php';
68 
 
69 
/** Inclusion de la bibliothèque Cartographie. */
70 
require_once ECHORO_CHEMIN_BIBLIO_CARTO.'carto_carte.class.php';
71 
 
72 
/** Inclusion du fichier comportant des fonctions communes aux applis du package eFlore-chorologie.*/
73 
include_once ECHORO_CHEMIN_BIBLIO.'echoro_information.fonct.php';
74 
/** Inclusion du fichier gérant les fonctions d'encodage. */
75 
include_once ECHORO_CHEMIN_BIBLIO.'echoro_encodage.fonct.php';
76 
/** Inclusion du fichier gérant les fonctions fournissant l'affichage en XHTML. */
77 
include_once ECHORO_CHEMIN_BIBLIO.'echoro_affichage_xhtml.fonct.php';
78 
 
79 
// +------------------------------------------------------------------------------------------------------+
80 
// |                                            CORPS du PROGRAMME                                        |
81 
// +------------------------------------------------------------------------------------------------------+
82 
function afficherContenuNavigation()
83 
{
84 
    $sortie  = '';
85 
    return $sortie;
86 
}
87 
 
88 
function afficherContenuTete()
89 
{
90 
    $sortie  = '';
91 
    return $sortie;
92 
}
93 
 
94 
function afficherContenuCorps()
95 
{
96 
    // +--------------------------------------------------------------------------------------------------+
97 
    // Initialisation
98 
    $sortie = '';
99 
 
42 jp_milcent 100 
    $image_x = null;
101 
    if (isset($_POST['image_x'])) $image_x = $_POST['image_x'];
102 
    $image_y = null;
103 
    if (isset($_POST['image_y'])) $image_y = $_POST['image_y'];
104 
    $historique_cartes = null;
105 
    if (isset($_POST['historique_cartes'])) $historique_cartes = $_POST['historique_cartes'];
106 
    $liste_zone_carte = null;
107 
    if (isset($_POST['liste_zone_carte'])) $liste_zone_carte = $_POST['liste_zone_carte'];
108 
    $lettre = null;
109 
    if (isset($_GET['lettre'])) $lettre = $_GET['lettre'];
110 
    $GLOBALS['lettre'] = $lettre;
111 
    $departement = null;
112 
    if (isset($_GET['departement'])) $departement = $_GET['departement'];
113 
    $GLOBALS['departement'] = $departement;
114 
    $nombre_taxon = null;
115 
    if (isset($_GET['nombre_taxon'])) $nombre_taxon = $_GET['nombre_taxon'];
116 
    $GLOBALS['nombre_taxon'] = $nombre_taxon;
2 jpm 117 
    // +--------------------------------------------------------------------------------------------------+
118 
    // PARAMETRAGE des TABLEAUX de la FONCTION rechercheAlphabet()
119 
 
23 jpm 120 
    $tablo_formatLigne['Class_pair'] = 'echoro_ligne_paire';
121 
    $tablo_formatLigne['Class_impair'] = 'echoro_ligne_impaire';
2 jpm 122 
 
123 
    //Choix du contenu de la colonne affichant le nom du taxon.
124 
    $tab_valeur_colonne_nom_complet[0] = array(
125 
    'type' => 'texte',
126 
    'valeur' => ' <b> ');
127 
    $tab_valeur_colonne_nom_complet[1] = array(
128 
        'type' => 'colonne',
129 
        'valeur' => ENT_NOM_COMPLET_02);
130 
    $tab_valeur_colonne_nom_complet[2] = array(
131 
    'type' => 'texte',
23 jpm 132 
    'valeur' => ' [ <span class="echoro_num_nomen">');
2 jpm 133 
    $tab_valeur_colonne_nom_complet[3] = array(
134 
    'type' => 'colonne',
135 
    'valeur' => ENT_NUM_NOMEN);
136 
    $tab_valeur_colonne_nom_complet[4] = array(
137 
    'type' => 'texte',
23 jpm 138 
    'valeur' => '</span> - <span class="echoro_num_taxo">' );
2 jpm 139 
    $tab_valeur_colonne_nom_complet[5] = array(
140 
    'type' => 'colonne',
141 
    'valeur' => ENT_NUM_TAXO);
142 
    $tab_valeur_colonne_nom_complet[6] = array(
143 
    'type' => 'texte',
144 
    'valeur' => '</span> ]');
145 
    $tab_valeur_colonne_nom_complet[7] = array(
146 
    'type' => 'texte',
147 
    'valeur' => ' </b> ');
11 jpm 148 
    // Création de l'url pour obtenir les fiches
2 jpm 149 
    //Implémentation du tableau contenant les informations pour
150 
    //l'affichage des résultats.
11 jpm 151 
    $tablo_formatResultat[0] = array(
152 
        'Col_nom' => $tab_valeur_colonne_nom_complet,
153 
        'Col_width' => 450,
23 jpm 154 
        'Col_class' => 'texte_i',
11 jpm 155 
        'Col_lien_href' => $GLOBALS['_ECHORO_']['url_base']->getURL().'nn',
156 
        'Col_lien_href_param' => ENT_NUM_NOMEN,
157 
        'Col_lien_target' => '_blank',
23 jpm 158 
        'Col_lien_class' => 'echoro_lien',
11 jpm 159 
        'Col_lien_title' => 'Voir la fiche correspondante dans l\'index des plantes');
2 jpm 160 
    if ($departement == 971 || $departement == 972 ) {
11 jpm 161 
        $tablo_formatResultat[0]['Col_lien_href'] = $GLOBALS['_ECHORO_']['url_base']->getURL().'bdnfgm_nn';
2 jpm 162 
    } elseif ($departement == 974) {
11 jpm 163 
        $tablo_formatResultat[0]['Col_lien_href'] = $GLOBALS['_ECHORO_']['url_base']->getURL().'bdnfr_nn';
2 jpm 164 
    }
165 
    $tablo_formatResultat[1]=array(
166 
    'Col_nom' => ECS_INTITULE,
167 
    'Col_width' => 150,
23 jpm 168 
    'Col_class' => 'texte_c');
2 jpm 169 
 
170 
    $fragmenteur['nbre_ligne_page_defaut'] = NBRE_LIGNE_PAGE_DEFAUT;
171 
    $fragmenteur['numero_ligne_depart'] = NUMERO_LIGNE_DEPART;
172 
    $fragmenteur['afficher_titre'] = AFFICHER_TITRE;
173 
    $fragmenteur['titre'] = TITRE_FRAGMENTEUR;
42 jp_milcent 174 
    $fragmenteur['tableau_choix_ligne_page'] = $GLOBALS['choro_dep_TABLEAU_CHOIX_LIGNE_PAGE'];
2 jpm 175 
    $fragmenteur['modele_info'] = MODELE_INFO;
176 
    $fragmenteur['classe_css_titre'] = CLASSE_CSS_TITRE;
177 
    $fragmenteur['classe_css_fragmenteur'] = CLASSE_CSS_FRAGMENTEUR;
178 
    $fragmenteur['classe_css_info'] = CLASSE_CSS_INFO;
179 
 
180 
    // +--------------------------------------------------------------------------------------------------+
181 
    // RÉCUPÉRATION DU NOMBRE DE TAXON PAR DÉPARTEMENT
182 
 
183 
    //Connexion à la base
184 
    if(BD_BOTA != BD_GENERALE){
185 
        //Nous sommes dans le cas où l'on a deux base: une pour les tables de la chorologie l'autre pour
186 
        //les tables de la carto.
187 
        //On ne sélectionne donc pas de base.
188 
        /** Definition de la variable globale stokant la connexion à la base de données. */
189 
        //$GLOBALS['_ECHORO_']['bdd'] = DB::connect(ECHORO_DSN_SANS_BDD);
11 jpm 190 
        $GLOBALS['_ECHORO_']['bdd'] = mysql_connect(ECHORO_BDD_SERVEUR, ECHORO_BDD_UTILISATEUR, ECHORO_BDD_MOT_DE_PASSE ) or die (ER_CONNECT.mysql_error());
2 jpm 191 
    }
192 
    else{
193 
        //Nous sommes dans le cas où l'on a une seule base.
194 
        //$GLOBALS['_ECHORO_']['bdd'] = DB::connect(ECHORO_DSN);
11 jpm 195 
        $GLOBALS['_ECHORO_']['bdd'] = mysql_connect(ECHORO_BDD_SERVEUR, ECHORO_BDD_UTILISATEUR, ECHORO_BDD_MOT_DE_PASSE ) or die (ER_CONNECT.mysql_error());
196 
        mysql_select_db(BD_GENERALE, $GLOBALS['_ECHORO_']['bdd']) or die (ER_SEL_BD_GENERALE);
2 jpm 197 
    }
198 
 
199 
    //Requète fournisant le nombre de taxon pour chaque département. Nous récupérons aussi grâce à
200 
    //cette requète les valeurs nécessaires à la réalisation de la carte dynamique.
201 
 
202 
    $requete_01 =
203 
        'SELECT DISTINCT '.CD_ID.
204 
        ' FROM '.CD_BD_TABLE;
205 
 
206 
    $resultat_01 = mysql_query($requete_01, $GLOBALS['_ECHORO_']['bdd']) or die('
207 
    <H2 style='.STYLE_REQUETE.'>Erreur de requête</H2>'.
208 
    '<b>Requete : </b>'.$requete_01.
209 
    '<br/><br/><b>Erreur : </b>'.mysql_error());
210 
 
211 
    $requete_02 =
212 
        'SELECT * ,count('.CD_ID.') as nbr '.
213 
        'FROM '.ECD_BD_TABLE.', '.CD_BD_TABLE.' '.
214 
        'WHERE '.CD_ID.' = '.ECD_DEP.' '.
215 
        'GROUP BY '.CD_ID;
216 
 
217 
    $resultat_02 = mysql_query($requete_02, $GLOBALS['_ECHORO_']['bdd']) or die('
218 
    <H2 style='.STYLE_REQUETE.'>Erreur de requête</H2>'.
219 
    '<b>Requete : </b>'.$requete_02.
220 
    '<br/><br/><b>Erreur : </b>'.mysql_error());
221 
 
222 
    //Requête spécifique aux départements des Antilles
223 
    $requete_971_972 =
224 
        'SELECT * ,count('.EAC_DEP.') as nbr '.
225 
        'FROM '.EAC_BD_TABLE.' '.
226 
        'WHERE ('.EAC_DEP.' = 971 '.
227 
        'OR '.EAC_DEP.' = 972 ) '.
228 
        'GROUP BY '.EAC_DEP;
229 
 
230 
    $resultat_971_972 = mysql_query($requete_971_972, $GLOBALS['_ECHORO_']['bdd']) or die('
231 
    <H2 style='.STYLE_REQUETE.'>Erreur de requête</H2>'.
232 
    '<b>Requete : </b>'.$requete_971_972.
233 
    '<br/><br/><b>Erreur : </b>'.mysql_error());
234 
 
235 
    //Requête spécifique au département de la Réunion
236 
    $requete_974 =
237 
        'SELECT * ,count('.ERC_DEP.') as nbr '.
238 
        'FROM '.ERC_BD_TABLE.' '.
239 
        'WHERE '.ERC_DEP.' = 974 '.
240 
        'GROUP BY '.ERC_DEP;
241 
 
242 
    $resultat_974 = mysql_query($requete_974, $GLOBALS['_ECHORO_']['bdd']) or die('
243 
    <H2 style='.STYLE_REQUETE.'>Erreur de requête</H2>'.
244 
    '<b>Requete : </b>'.$requete_974.
245 
    '<br/><br/><b>Erreur : </b>'.mysql_error());
246 
 
247 
    //Nous stockons les résultats de la requete département par département dans
248 
    //un tableau associatif : $tableau_dep_taxons.
249 
    //Pour chaque identifiant de département, nous sotckons dans le tableau le nombre
250 
    //de taxon présent.
251 
 
252 
    $tableau_dep_taxons = array();
253 
    while ($ligne_01 = mysql_fetch_array($resultat_01)) {
254 
        $tableau_dep_taxons[$ligne_01[CD_ID]] = 0;
255 
    }
256 
    while ($ligne_02 = mysql_fetch_array($resultat_02)) {
257 
        $tableau_dep_taxons[$ligne_02[CD_ID]] = $ligne_02['nbr'];
258 
    }
259 
    //Résultat pour la requête spécifique aux départements des Antilles
260 
    while ($ligne_971_972 = mysql_fetch_array($resultat_971_972)) {
261 
        $tableau_dep_taxons[$ligne_971_972[EAC_DEP]] = $ligne_971_972['nbr'];
262 
    }
263 
    //Résultat pour la requête spécifique au département de la Réunion
264 
    while ($ligne_974 = mysql_fetch_array($resultat_974)) {
265 
        $tableau_dep_taxons[$ligne_974[EAC_DEP]] = $ligne_974['nbr'];
266 
    }
267 
    //Nous comptons le nombre de département possédant une liste :
268 
    $nbre_liste = 0;
269 
    foreach($tableau_dep_taxons as $cle => $valeur){
270 
        if ($valeur != 0) {
271 
            $nbre_liste++;
272 
        }
273 
    }
274 
 
11 jpm 275 
    // Instanciation du tableau contenant les infos sur la table des zones géo.
276 
    $info_table_zg['nom_table_zone'] = CD_BD_TABLE;
277 
    $info_table_zg['nom_chp_id_zone'] = CD_ID;
278 
    $info_table_zg['nom_chp_nom_zone'] = CD_NOM;
279 
    $info_table_zg['nom_chp_rouge'] = CD_R;
280 
    $info_table_zg['nom_chp_vert'] = CD_V;
281 
    $info_table_zg['nom_chp_bleu'] = CD_B;
282 
    $info_table_zg['nom_chp_zone_sup'] = CD_PAYS;
283 
    $info_table_zg['tableau_valeurs_zone'] = $tableau_dep_taxons;
2 jpm 284 
 
11 jpm 285 
    // Instanciation du tableau contenant les champs de la table action
286 
    $info_table_action['nom_table_action'] = CA_BD_TABLE;
287 
    $info_table_action['nom_chp_id_carte'] = CA_CARTE;
288 
    $info_table_action['nom_chp_id_zg_action'] = CA_ZG;
289 
    $info_table_action['nom_chp_type_zg'] = CA_TYPE_ZG;
290 
    $info_table_action['nom_chp_action'] = CA_ACTION;
291 
    $info_table_action['nom_chp_id_carte_destination'] = CA_CARTE_DESTINATION;
2 jpm 292 
 
293 
    // +--------------------------------------------------------------------------------------------------+
294 
    // CRÉATION DES OBJETS CARTE ET ACTION
295 
 
296 
    //Nous commençons par vider la chaine renvoyée par la fonction putFrame().
11 jpm 297 
    $res = '';
2 jpm 298 
 
299 
    //Nous créons un nouvel objet carte.
11 jpm 300 
    $france = new Carto_Carte(  ID_CARTE_FR_DPT,
301 
                                ID_ZONE_GEO_CARTE_FR_DPT,
302 
                                NOM_CARTE_FR_DPT,
303 
                                ECHORO_FICHIER_CARTE_FR_DPT_MASQUE,
304 
                                ECHORO_FICHIER_CARTE_FR_DPT,
305 
                                ECHORO_CHEMIN_CARTE,
306 
                                $info_table_zg,
307 
                                $info_table_action);
2 jpm 308 
    //Les valeurs de coordonnées x et y du clic sur l'image,
309 
    //sont renvoyée automatiquement par le formulaire de la carte.
310 
    //A la première exécution du script ces variables sont vides.
311 
 
312 
    $france->historique_cartes = $historique_cartes;
313 
    $france->image_x = $image_x;
314 
    $france->image_y = $image_y;
315 
    $france->liste_zone_carte = $liste_zone_carte;
11 jpm 316 
    $france->url = $GLOBALS['_ECHORO_']['url']->getURL();
2 jpm 317 
 
318 
    //Nous définissons les couleurs de la carte:
319 
    $france->definirCouleurs (
320 
        COULEUR_ZERO_R, COULEUR_ZERO_V, COULEUR_ZERO_B,
321 
        COULEUR_MINI_R, COULEUR_MINI_V, COULEUR_MINI_B,
322 
        COULEUR_MEDIUM_R, COULEUR_MEDIUM_V, COULEUR_MEDIUM_B,
323 
        COULEUR_MAXI_R, COULEUR_MAXI_V, COULEUR_MAXI_B);
324 
 
325 
    $france->definirFormuleColoriage('ecart_type');
326 
 
327 
    // +--------------------------------------------------------------------------------------------------+
328 
    // GESTION AFFICHAGE CARTE OU LISTE
329 
 
330 
    //Une fois l'arborescence créee, nous lançons la méthode imgform() pour récuperer le formulaire de la
331 
    //carte (dans $carte_france). S'il n'y a pas de carte à afficher imgform() renvoi false. Nous pouvons
332 
    //alors afficher la liste des taxons pour le département sélectioné.
333 
 
334 
    //Initialisation de la variable $carte_france.
335 
    if(empty($carte_france)){
336 
        $carte_france = false;
337 
    }
338 
 
339 
    //Récupération de la valeur de l'action:
340 
    //-false = affichage de la liste
341 
    //-true = affichage d'une carte (mais ici ce cas ne se présente jamais.
342 
    $carte_france = $france->donnerFormulaireImage();
343 
 
344 
    // Nous testons $lettre pour affichier la carte ou la liste
345 
    if (isset($lettre)) {
346 
 
347 
    //Affichage de la liste des taxon pour le département.
348 
    //L'utilisateur a cliqué sur une lettre dans la liste alphabétique
349 
    //sur un département.
350 
 
351 
        //Nous récupérons toutes les infos sur le département :
11 jpm 352 
        $tableau_infoDep = echoro_recupererInfoDep($departement);
2 jpm 353 
 
354 
        //Nous affectons les messages d'erreur
35 jp_milcent 355 
        if($nombre_taxon != 0){
356 
            $message_alerte = message_alerte('01');
357 
        } else {
358 
            $message_alerte = message_alerte('02');
359 
        }
360 
 
2 jpm 361 
        //La requete qui sélectionne les noms de taxons pour le département
362 
        //et la lettre transmis dans l'url par la variable $lettre.
363 
        if ($tableau_infoDep['NUMERO'] == 971 || $tableau_infoDep['NUMERO'] == 972) {
364 
                $requete_03 =
365 
                        'SELECT '.ENT_NUM_TAXO.', '.ENT_NUM_NOMEN.', '.
366 
                                ENT_NOM_COMPLET_02.', '.ECS_INTITULE.
367 
                        ' FROM '.EAC_BD_TABLE.', '.EANT_BD_TABLE.', '.ECS_BD_TABLE.
368 
                        ' WHERE ';
11 jpm 369 
                if ($lettre != 'tous'){
2 jpm 370 
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "'.$lettre.'%"';
371 
                } else {
372 
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "%"';
373 
                }
374 
                $requete_03 .=
375 
                        ' AND '.EAC_DEP.'='.$tableau_infoDep['NUMERO'].
376 
                        ' AND '.EAC_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
377 
                        ' AND '.EAC_STATUT.' = '.ECS_ID.
378 
                        ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
379 
            } elseif ($tableau_infoDep['NUMERO'] == 974) {
380 
                $requete_03 =
381 
                        'SELECT '.ENT_NUM_TAXO.', '.ENT_NUM_NOMEN.', '.
382 
                                ENT_NOM_COMPLET_02.', '.ECS_INTITULE.
383 
                        ' FROM '.ERC_BD_TABLE.', '.ERNT_BD_TABLE.', '.ERCS_BD_TABLE.
384 
                        ' WHERE ';
385 
                if ($lettre != "tous"){
386 
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "'.$lettre.'%"';
387 
                } else {
388 
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "%"';
389 
                }
390 
                $requete_03 .=
391 
                        ' AND '.ERC_DEP.'='.$tableau_infoDep['NUMERO'].
392 
                        ' AND '.ERC_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
393 
                        ' AND '.ERC_STATUT.' = '.ECS_ID.
394 
                        ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
395 
            } else {
396 
                $requete_03 =
397 
                        'SELECT '.ENT_NUM_TAXO.', '.ENT_NUM_NOMEN.', '.
398 
                                ENT_NOM_COMPLET_02.', '.ECS_INTITULE.
399 
                        ' FROM '.ECD_BD_TABLE.', '.ENT_BD_TABLE.', '.ECS_BD_TABLE.
400 
                        ' WHERE ';
401 
                if ($lettre != "tous"){
402 
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "'.$lettre.'%"';
403 
                } else {
404 
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "%"';
405 
                }
406 
                $requete_03 .=
407 
                        ' AND '.ECD_DEP.'='.$tableau_infoDep['NUMERO'].
408 
                        ' AND '.ECD_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
409 
                        ' AND '.ECD_INDICE.' = '.ECS_ID.
410 
                        ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
411 
            }
35 jp_milcent 412 
            $resultat_export = mysql_query($requete_03, $GLOBALS['_ECHORO_']['bdd']) or die('
34 jp_milcent 413 
				<h2 style='.STYLE_REQUETE.'>Erreur de requête</h2>'.
414 
				'<b>Requete : </b>'.$requete_03.
415 
				'<br/><br/><b>Erreur : </b>'.mysql_error());
35 jp_milcent 416 
			$GLOBALS['export_bool'] = true;
417 
			if (mysql_num_rows($resultat_export) == 0) {
418 
				$GLOBALS['export_bool'] = false;
419 
			}
420 
			if (isset($_GET['action']) && $_GET['action'] == 'export') {
421 
		        // Gestion de l'export XLS
34 jp_milcent 422 
				$i = 0;
423 
				if (isset($_GET['format']) && $_GET['format'] == 'xls') {
424 
					/** Inclusion de la classe PEAR de création de fichiers excell. */
425 
					require_once ECHORO_CHEMIN_API_PEAR.'Spreadsheet/Excel/Writer.php';
426 
					$workbook = new Spreadsheet_Excel_Writer();
427 
					$nom_feuille = 'Département '.$tableau_infoDep['NUMERO'];
428 
					$nom_fichier = 'Chorologie - '.$nom_feuille.'.xls';
429 
					$worksheet = $workbook->addWorksheet($nom_feuille);
430 
 
431 
					$format_titre = $workbook->addFormat();
432 
					$format_titre->setBold(1);
433 
					$format_titre->setSize(16);
434 
 
435 
					$format_intro = $workbook->addFormat();
436 
					$format_intro->setBold(1);
437 
					$format_intro->setSize(12);
438 
 
439 
					$worksheet->mergeCells($i++, 0, $i, 8);
42 jp_milcent 440 
					if ($lettre != 'tous') {
441 
						$titre = 'Export des taxons commençant par la lettre '.$lettre.' présents dans le département '.$tableau_infoDep['NUMERO'];
35 jp_milcent 442 
					} else {
443 
						$titre = 'Export des taxons présents dans le département '.$tableau_infoDep['NUMERO'];
444 
					}
34 jp_milcent 445 
					$worksheet->writeString(0, 0, $titre, $format_titre);
446 
 
447 
					$worksheet->mergeCells(++$i, 0, $i, 8);
448 
					$titre_projet = 'Projet :';
449 
					$worksheet->writeString($i++, 0, $titre_projet, $format_intro);
450 
					$worksheet->mergeCells($i, 0, $i, 8);
451 
					$txt_projet = 'Phytochorologie départementale - Coordinateur : Philippe JULVE';
452 
					$worksheet->writeString($i++, 0, $txt_projet);
453 
 
454 
					$worksheet->mergeCells($i, 0, $i, 8);
455 
					$titre_licence = 'Licence :';
456 
					$worksheet->writeString($i++, 0, $titre_licence, $format_intro);
457 
					$worksheet->mergeCells($i, 0, $i, 8);
458 
					$txt_licence = 'http://creativecommons.org/licenses/by-sa/2.0/fr/';
39 jp_milcent 459 
					$worksheet->writeUrl($i++, 0, $txt_licence);
34 jp_milcent 460 
 
461 
					$worksheet->mergeCells($i, 0, $i, 8);
462 
					$titre_contributeur = 'Contributeurs :';
463 
					$worksheet->writeString($i++, 0, $titre_contributeur, $format_intro);
464 
					for ($j = 0; $j < count($tableau_infoDep['CORRESPONDANTS']); $j++){
465 
		                if(ereg("[@]", $tableau_infoDep['CORRESPONDANTS'][$j]['COURRIEL'])){
466 
		                    $worksheet->writeString($i, 0, $tableau_infoDep['CORRESPONDANTS'][$j]['PRENOM']);
467 
		                    $worksheet->writeString($i, 1, $tableau_infoDep['CORRESPONDANTS'][$j]['NOM']);
468 
		                    $worksheet->writeString($i++, 2, $tableau_infoDep['CORRESPONDANTS'][$j]['COURRIEL']);
469 
		                } else {
470 
		                    $worksheet->writeString($i, 0, $tableau_infoDep['CORRESPONDANTS'][$j]['PRENOM']);
471 
		                    $worksheet->writeString($i++, 1, $tableau_infoDep['CORRESPONDANTS'][$j]['NOM']);
472 
		                }
473 
		            }
474 
 
475 
		            $worksheet->mergeCells($i, 0, $i, 8);
476 
					$titre_source = 'Sources :';
477 
					$worksheet->writeString($i++, 0, $titre_source, $format_intro);
478 
					for ($j = 0; $j < count($tableau_infoDep['SOURCES']); $j++){
479 
						$worksheet->mergeCells($i, 0, $i, 8);
480 
						$worksheet->writeString($i++, 0, $tableau_infoDep['SOURCES'][$j]);
481 
		            }
482 
 
483 
		            $worksheet->setColumn(0, 1, 20);
484 
		            $worksheet->setColumn(2, 2, 60);
485 
		            $worksheet->setColumn(3, 3, 20);
486 
					$worksheet->writeString($i, 0, 'N° taxonomique', $format_intro);
487 
					$worksheet->writeString($i, 1, 'N° nomenclatural', $format_intro);
488 
					$worksheet->writeString($i, 2, 'Nom complet', $format_intro);
489 
					$worksheet->writeString($i++, 3, 'Indice', $format_intro);
490 
 
491 
					while ($ligne = mysql_fetch_array($resultat_export)) {
492 
						//echo '<pre>'.print_r($ligne).'</pre>';
493 
						$worksheet->writeNumber($i, 0, $ligne[ENT_NUM_TAXO]);
494 
						$worksheet->writeNumber($i, 1, $ligne[ENT_NUM_NOMEN]);
495 
						$worksheet->writeString($i, 2, $ligne[ENT_NOM_COMPLET_02]);
496 
						$worksheet->writeString($i++, 3, $ligne[ECS_INTITULE]);
497 
					}
498 
					$workbook->send($nom_fichier);
499 
					$workbook->close();
500 
					exit();
501 
				} else {
502 
					return remplaceEntiteHTLM(message_alerte('03'));
503 
				}
504 
			} else {
505 
		        //Nous plaçons des données javascripts pour la gestion des infos bulles:
506 
		        $tableau_inclusion = array($tableau_infoDep['NOM'], $nombre_taxon);
507 
		        $res = inclusion_html('titre_liste', $tableau_inclusion);
508 
		        $tableau_inclusion = array($tableau_infoDep['SOURCES'], $tableau_infoDep['CORRESPONDANTS']);
509 
		        $res .= inclusion_html('info_dep', $tableau_inclusion);
510 
 
511 
		        $tablo_inclusion = array($lettre);
512 
		        $res .= rechercheAlphabet($requete_03, $GLOBALS['_ECHORO_']['url']->getURL(), '&amp;departement='.$tableau_infoDep['NUMERO'].'&amp;nombre_taxon='.$nombre_taxon,
513 
		                                                    inclusion_html('tab_ouvre_liste_taxon', $tablo_inclusion), inclusion_html('tab_evol_ferme'), $tablo_formatLigne,
514 
		                                                    $tablo_formatResultat,  $message_alerte, $fragmenteur);
515 
		        return remplaceEntiteHTLM($res);
516 
			}
30 jpm 517 
    } else {
2 jpm 518 
        if (!$carte_france) {
519 
        //Affichage quand il n'y a plus de carte.
520 
        //Dans notre cas l'utilisateur a cliqué sur un département.
29 jpm 521 
            //Nous appelons la fonction javascript à insérer dans l'entête.
522 
            GEN_stockerFichierScript('echoro', ECHORO_CHEMIN_SCRIPT.'echoro.js');
2 jpm 523 
 
524 
            //Nous récupérons l'identifiant du département transmis dans l'historique sous
525 
            //la forme france*numéro_departement
526 
            $tableau_departement = explode ('*',$france->historique);
527 
 
528 
            //Nous récupérons toutes les infos sur le département :
11 jpm 529 
            $tableau_infoDep = echoro_recupererInfoDep($tableau_departement[1]);
35 jp_milcent 530 
            //Attribution à la variable globale du numéro du département
531 
            $GLOBALS['departement'] = $tableau_infoDep['NUMERO'];
2 jpm 532 
 
533 
            if ($tableau_infoDep['NUMERO'] == 971 || $tableau_infoDep['NUMERO'] == 972) {
11 jpm 534 
                $tablo_formatResultat[0]['Col_lien_href'] = $GLOBALS['_ECHORO_']['url_base']->getURL().'bdnfgm_nn';
2 jpm 535 
            } elseif ($tableau_infoDep['NUMERO'] == 974) {
11 jpm 536 
                $tablo_formatResultat[0]['Col_lien_href'] = $GLOBALS['_ECHORO_']['url_base']->getURL().'bdnfr_nn';
2 jpm 537 
            }
538 
 
539 
            //Nous récupérons le nombre de taxons présent dans le département
35 jp_milcent 540 
            if(isset($tableau_dep_taxons[$tableau_infoDep['NUMERO']]) && $tableau_dep_taxons[$tableau_infoDep['NUMERO']] != 0) {
2 jpm 541 
                $nombre_taxon = $tableau_dep_taxons[$tableau_infoDep['NUMERO']];
542 
                $message_alerte = message_alerte('01');
35 jp_milcent 543 
            } else {
2 jpm 544 
                $nombre_taxon = 0;
545 
                $message_alerte = message_alerte('02');
546 
            }
547 
            //Nous affichons par défaut la liste des taxons dont le nom
548 
            //commence par A.
13 jpm 549 
            $lettre = 'A';
2 jpm 550 
 
551 
            //La requete qui sélectionne les noms de taxons pour le département
552 
            //et la lettre A.
553 
            if ($tableau_infoDep['NUMERO'] == 971 || $tableau_infoDep['NUMERO'] == 972) {
554 
                $requete_04 =
555 
                    'SELECT '.ENT_NUM_TAXO.', '.ENT_NUM_NOMEN.', '.
556 
                            ENT_NOM_COMPLET_02.', '.ECS_INTITULE.
557 
                    ' FROM '.EAC_BD_TABLE.', '.EANT_BD_TABLE.', '.ECS_BD_TABLE.
558 
                    ' WHERE '.ENT_NOM_COMPLET_02.' LIKE "'.$lettre.'%"'.
559 
                    ' AND '.EAC_DEP.' = '.$tableau_infoDep['NUMERO'].
560 
                    //' AND '.EAC_NUM_TAXO.' = '.ENT_NUM_TAXO.
561 
                    ' AND '.EAC_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
562 
                    ' AND '.EAC_STATUT.' = '.ECS_ID.
563 
                    ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
564 
            } elseif ($tableau_infoDep['NUMERO'] == 974) {
565 
                $requete_04 =
566 
                    'SELECT '.ENT_NUM_TAXO.', '.ENT_NUM_NOMEN.', '.
567 
                            ENT_NOM_COMPLET_02.', '.ECS_INTITULE.
568 
                    ' FROM '.ERC_BD_TABLE.', '.ERNT_BD_TABLE.', '.ERCS_BD_TABLE.
569 
                    ' WHERE '.ENT_NOM_COMPLET_02.' LIKE "'.$lettre.'%"'.
570 
                    ' AND '.ERC_DEP.' = '.$tableau_infoDep['NUMERO'].
571 
                    //' AND '.ERC_NUM_TAXO.' = '.ENT_NUM_TAXO.
572 
                    ' AND '.ERC_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
573 
                    ' AND '.ERC_STATUT.' = '.ECS_ID.
574 
                    ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
575 
            } else {
576 
                $requete_04 =
577 
                    'SELECT '.ENT_NUM_TAXO.', '.ENT_NUM_NOMEN.', '.
578 
                            ENT_NOM_COMPLET_02.', '.ECS_INTITULE.
579 
                    ' FROM '.ECD_BD_TABLE.', '.ENT_BD_TABLE.', '.ECS_BD_TABLE.
580 
                    ' WHERE '.ENT_NOM_COMPLET_02.' LIKE "'.$lettre.'%"'.
581 
                    ' AND '.ECD_DEP.' = '.$tableau_infoDep['NUMERO'].
582 
                    //' AND '.ECD_NUM_TAXO.' = '.ENT_NUM_TAXO.
583 
                    ' AND '.ECD_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
584 
                    ' AND '.ECD_INDICE.' = '.ECS_ID.
585 
                    ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
586 
            }
36 jp_milcent 587 
            $resultat_export = mysql_query($requete_04, $GLOBALS['_ECHORO_']['bdd']) or die('
588 
				<h2 style='.STYLE_REQUETE.'>Erreur de requête</h2>'.
589 
				'<b>Requete : </b>'.$requete_04.
590 
				'<br/><br/><b>Erreur : </b>'.mysql_error());
591 
			$GLOBALS['export_bool'] = true;
592 
			if (mysql_num_rows($resultat_export) == 0) {
593 
				$GLOBALS['export_bool'] = false;
594 
			}
595 
 
34 jp_milcent 596 
			// Gestion de l'affichage XHTML
597 
	        $tableau_inclusion = array($tableau_infoDep['NOM'], $nombre_taxon);
598 
	        $res = inclusion_html('titre_liste', $tableau_inclusion);
599 
 
600 
	        $tableau_inclusion = array($tableau_infoDep['SOURCES'], $tableau_infoDep['CORRESPONDANTS']);
601 
	        $res .= inclusion_html('info_dep', $tableau_inclusion);
602 
 
603 
	        //La fonction gérant l'affichage de la liste alphabétique et
604 
	        //de l'affichage suite à une seléction dans la liste.
605 
	        $tablo_inclusion = array($lettre);
606 
	        $res .= FRAG_rechercherAvecAlphabet($requete_04, $GLOBALS['_ECHORO_']['url']->getURL(), '&amp;departement='.$tableau_infoDep['NUMERO'].'&amp;nombre_taxon='.$nombre_taxon,
607 
	                                                        inclusion_html('tab_ouvre_liste_taxon', $tablo_inclusion), inclusion_html('tab_evol_ferme'), $tablo_formatLigne,
608 
	                                                        $tablo_formatResultat, $message_alerte, $fragmenteur);
609 
 
610 
	        return remplaceEntiteHTLM($res);
11 jpm 611 
        } else {
612 
            //Affichage de la carte de france des départements.
613 
            //L'utilisateur arrive sur la page.
2 jpm 614 
            $tableau_inclusion = array($nbre_liste);
615 
            $res = inclusion_html('titre_carte', $tableau_inclusion);//Le titre dans une ligne de tableau
616 
 
617 
            //Nous affichons la carte
30 jpm 618 
            $res .= $carte_france;
2 jpm 619 
 
620 
            $res .= inclusion_html('avertissement_carte');//Commentaire dans des lignes de tableau
621 
 
30 jpm 622 
            return remplaceEntiteHTLM($res);
2 jpm 623 
        }//Fin du test de $carte_france.
624 
    }//Fin du test de $lettre
625 
}
626 
 
627 
function afficherContenuPied()
628 
{
629 
    return inclusion_html('pied_page');
630 
}
631 
 
632 
// +------------------------------------------------------------------------------------------------------+
633 
// |                                            PIED du PROGRAMME                                         |
634 
// +------------------------------------------------------------------------------------------------------+
635 
 
636 
 
637 
/* +--Fin du code ----------------------------------------------------------------------------------------+
638 
*
639 
* $Log: not supported by cvs2svn $
42 jp_milcent 640 
* Revision 1.13  2006-05-31 16:00:13  jp_milcent
641 
* Gestion de l'url pour le lien vers la licence du fichier d'export.
642 
*
39 jp_milcent 643 
* Revision 1.12  2006/05/31 15:14:51  jp_milcent
644 
* Amélioration de la gestion de l'export xls (suite).
645 
*
36 jp_milcent 646 
* Revision 1.11  2006/05/31 15:11:29  jp_milcent
647 
* Amélioration de la gestion de l'export xls.
648 
*
35 jp_milcent 649 
* Revision 1.10  2006/05/31 14:43:35  jp_milcent
650 
* Correction de la gestion des sessions pour l'affichage de la carte.
651 
* Ajout de l'export au format xls.
652 
*
34 jp_milcent 653 
* Revision 1.9  2005/06/30 15:23:02  jpm
654 
* Utilisation d'un fichier javascript à part.
655 
*
32 jpm 656 
* Revision 1.8  2005/05/31 13:45:10  jpm
657 
* Mise en place de la gestion entités html.
658 
*
30 jpm 659 
* Revision 1.7  2005/05/19 07:37:47  jpm
660 
* Correction des bogues et derniers réglages avant mise en ligne du site v4.
661 
*
29 jpm 662 
* Revision 1.6  2005/03/15 15:10:40  jpm
663 
* Ajout de l'API formulaire.
664 
*
27 jpm 665 
* Revision 1.5  2005/02/24 17:06:17  jpm
666 
* Changement du nom d'une fonction.
667 
*
24 jpm 668 
* Revision 1.4  2005/02/23 17:31:04  jpm
669 
* Modification de noms de classes css.
670 
*
23 jpm 671 
* Revision 1.3  2005/02/22 19:36:03  jpm
672 
* Suppression de code html superflu.
673 
*
13 jpm 674 
* Revision 1.2  2005/02/22 16:39:20  jpm
675 
* Changement divers pour l'adaptation à Papyrus.
676 
*
11 jpm 677 
* Revision 1.1  2005/02/21 19:36:57  jpm
678 
* Ajout du code de l'appli de tela v3.
2 jpm 679 
*
11 jpm 680 
*
2 jpm 681 
* +-- Fin du code ----------------------------------------------------------------------------------------+
682 
*/
683 
?>