Subversion Repositories eFlore/Archives.chorologie

Rev

Rev 11 | Go to most recent revision | Details | 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
// +------------------------------------------------------------------------------------------------------+
24
// CVS : $Id: eflore_chorologie.php,v 1.1 2005-02-21 19:36:57 jpm Exp $
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
37
*@version       $Revision: 1.1 $ $Date: 2005-02-21 19:36:57 $
38
// +------------------------------------------------------------------------------------------------------+
39
*/
40
 
41
// +------------------------------------------------------------------------------------------------------+
42
// |                                            ENTÊTE du PROGRAMME                                       |
43
// +------------------------------------------------------------------------------------------------------+
44
/** Inclusion du fichier config de l'application eflore-chorolgie. */
45
require_once GEN_CHEMIN_CLIENT.'eflore_chorologie/configuration/echoro_config.inc.php';
46
/** Inclusion du fichier config de la base de données de l'application eflore-chorolgie. */
47
require_once GEN_CHEMIN_CLIENT.'eflore_chorologie/configuration/echoro_config_bdd.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.*/
52
require_once 'HTML/QuickForm.php';
53
/** Inclusion de la bibliothèque PEAR de gestion des URL.*/
54
require_once 'Net/URL.php';
55
/** Inclusion de la classe PEAR d'abstraction de base de donnée. */
56
//require_once 'DB.php';
57
 
58
// Ajout d'une feuille de style propre à eFlore.
59
GEN_stockerStyleExterne('echoro', EFLORE_CHEMIN_STYLE.'echoro.css');
60
 
61
/** Inclusion du fichier gérant les fonctions javascripts. */
62
include_once ECHORO_CHEMIN_BIBLIO.'echoro_javascript.fonct.php';
63
//Nous appelons la fonction javascript à insérer dans l'entête.
64
GEN_stockerCodeScript(ajouterInfoBulleJs());
65
 
66
/** Inclusion de l'API Fragmenteur. */
67
require_once ECHORO_CHEMIN_API_FRAGMENTEUR.'FRAG_fragmenteur.fonct.php';
68
 
69
/** Inclue la bibliothèque gérant les textes.
70
* La fonction remplaceEntiteDsHTLM() est utilisée dans le fichier
71
* contenant les fonctions d'inclusion du html. */
72
include_once ECHORO_CHEMIN_API_AUTRE.'lib.texte.php';
73
 
74
/** Inclusion de la bibliothèque Cartographie. */
75
require_once ECHORO_CHEMIN_BIBLIO_CARTO.'carto_carte.class.php';
76
 
77
/** Inclusion du fichier comportant des fonctions communes aux applis du package eFlore-chorologie.*/
78
include_once ECHORO_CHEMIN_BIBLIO.'echoro_information.fonct.php';
79
 
80
/** Inclusion du fichier gérant les fonctions d'encodage. */
81
include_once ECHORO_CHEMIN_BIBLIO.'echoro_encodage.fonct.php';
82
 
83
/** Inclusion du fichier gérant les fonctions fournissant l'affichage en XHTML. */
84
include_once ECHORO_CHEMIN_BIBLIO.'echoro_affichage_xhtml.fonct.php';
85
 
86
// +------------------------------------------------------------------------------------------------------+
87
// |                                            CORPS du PROGRAMME                                        |
88
// +------------------------------------------------------------------------------------------------------+
89
function afficherContenuNavigation()
90
{
91
    $sortie  = '';
92
    return $sortie;
93
}
94
 
95
function afficherContenuTete()
96
{
97
    $sortie  = '';
98
    return $sortie;
99
}
100
 
101
function afficherContenuCorps()
102
{
103
    // +--------------------------------------------------------------------------------------------------+
104
    // Initialisation
105
    $sortie = '';
106
 
107
    global $choro_dep_TABLEAU_CHOIX_LIGNE_PAGE;
108
    global $image_x;
109
    global $image_y;
110
    global $historique_cartes;
111
    global $lettre;
112
    global $departement;
113
    global $nombre_taxon;
114
    global $liste_zone_carte;
115
 
116
 
117
    // +--------------------------------------------------------------------------------------------------+
118
    // PARAMETRAGE des TABLEAUX de la FONCTION rechercheAlphabet()
119
 
120
    $tablo_formatLigne['Class_pair'] = 'texte_tb2';
121
    $tablo_formatLigne['Class_impair'] = 'eflore_ligne';
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',
132
    'valeur' => ' [ <span class="eflore_num_nomen">');
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',
138
    'valeur' => '</span> - <span class="eflore_num_taxo">' );
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> ');
148
 
149
    //Implémentation du tableau contenant les informations pour
150
    //l'affichage des résultats.
151
    $tablo_formatResultat[0]=array(
152
    'Col_nom' => $tab_valeur_colonne_nom_complet,
153
    'Col_width' => 450,
154
    'Col_class' => 'texte_tb2 texte_i',
155
    'Col_lien_href' => BASE_URL.'nn',
156
    'Col_lien_href_param' => ENT_NUM_NOMEN,
157
    'Col_lien_target' => '_blank',
158
    'Col_lien_class' => 'eflore_lien',
159
    'Col_lien_title' => 'Voir la fiche correspondante dans l\'index des plantes');
160
    if ($departement == 971 || $departement == 972 ) {
161
        $tablo_formatResultat[0]['Col_lien_href'] = BASE_URL.'bdnfgm_nn';
162
    } elseif ($departement == 974) {
163
        $tablo_formatResultat[0]['Col_lien_href'] = BASE_URL.'bdnfr_nn';
164
    }
165
    $tablo_formatResultat[1]=array(
166
    'Col_nom' => ECS_INTITULE,
167
    'Col_width' => 150,
168
    'Col_class' => 'texte_tb2 texte_c');
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;
174
    $fragmenteur['tableau_choix_ligne_page'] = $choro_dep_TABLEAU_CHOIX_LIGNE_PAGE;
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);
190
        $connexion = mysql_connect(ECHORO_BDD_SERVEUR, ECHORO_BDD_UTILISATEUR, ECHORO_BDD_MOT_DE_PASSE ) or die (ER_CONNECT.mysql_error());
191
    }
192
    else{
193
        //Nous sommes dans le cas où l'on a une seule base.
194
        //$GLOBALS['_ECHORO_']['bdd'] = DB::connect(ECHORO_DSN);
195
        $connexion = 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, $connexion) or die (ER_SEL_BD_GENERALE);
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
 
275
    //Toutes les informations pour réaliser la carte de France des départements
276
    //sont stockées dans le tableau : $info_couleur_france.
277
    //Ce tableau récupére le nom de la table et les noms des champs de la table stockant
278
    //les valeurs des couleurs RVB.
279
    //Il prend aussi le tableau du nombre de taxons par département.
280
 
281
    $info_france['nom_table_zone'] = CD_BD_TABLE;
282
    $info_france['nom_chp_id_zone'] = CD_ID;
283
    $info_france['nom_chp_nom_zone'] = CD_NOM;
284
    $info_france['nom_chp_rouge'] = CD_R;
285
    $info_france['nom_chp_vert'] = CD_V;
286
    $info_france['nom_chp_bleu'] = CD_B;
287
    $info_france['nom_chp_zone_sup'] = CD_PAYS;
288
    $info_france['tableau_valeurs_zone'] = $tableau_dep_taxons;
289
 
290
    // +--------------------------------------------------------------------------------------------------+
291
    // CRÉATION DES OBJETS CARTE ET ACTION
292
 
293
    //Nous commençons par vider la chaine renvoyée par la fonction putFrame().
294
    $res='';
295
 
296
    //Nous créons un nouvel objet carte.
297
    $france = new Carto_Carte(ID_CARTE_FR_DPT, ID_ZONE_GEO_CARTE_FR_DPT, NOM_CARTE_FR_DPT, FICHIER_MASQUE_FR_DPT, FICHIER_CARTE_FR_DPT, CHEMIN_CARTO, $info_france);
298
    //Les valeurs de coordonnées x et y du clic sur l'image,
299
    //sont renvoyée automatiquement par le formulaire de la carte.
300
    //A la première exécution du script ces variables sont vides.
301
 
302
    $france->historique_cartes = $historique_cartes;
303
    $france->image_x = $image_x;
304
    $france->image_y = $image_y;
305
    $france->liste_zone_carte = $liste_zone_carte;
306
    $france->url = URL_DOCUMENT;
307
 
308
    //Nous définissons les couleurs de la carte:
309
    $france->definirCouleurs (
310
        COULEUR_ZERO_R, COULEUR_ZERO_V, COULEUR_ZERO_B,
311
        COULEUR_MINI_R, COULEUR_MINI_V, COULEUR_MINI_B,
312
        COULEUR_MEDIUM_R, COULEUR_MEDIUM_V, COULEUR_MEDIUM_B,
313
        COULEUR_MAXI_R, COULEUR_MAXI_V, COULEUR_MAXI_B);
314
 
315
    $france->definirFormuleColoriage('ecart_type');
316
 
317
    // +--------------------------------------------------------------------------------------------------+
318
    // GESTION AFFICHAGE CARTE OU LISTE
319
 
320
    //Une fois l'arborescence créee, nous lançons la méthode imgform() pour récuperer le formulaire de la
321
    //carte (dans $carte_france). S'il n'y a pas de carte à afficher imgform() renvoi false. Nous pouvons
322
    //alors afficher la liste des taxons pour le département sélectioné.
323
 
324
    //Initialisation de la variable $carte_france.
325
    if(empty($carte_france)){
326
        $carte_france = false;
327
    }
328
 
329
    //Récupération de la valeur de l'action:
330
    //-false = affichage de la liste
331
    //-true = affichage d'une carte (mais ici ce cas ne se présente jamais.
332
    $carte_france = $france->donnerFormulaireImage();
333
 
334
    // Nous testons $lettre pour affichier la carte ou la liste
335
    if (isset($lettre)) {
336
 
337
    //Affichage de la liste des taxon pour le département.
338
    //L'utilisateur a cliqué sur une lettre dans la liste alphabétique
339
    //sur un département.
340
 
341
        //Nous récupérons toutes les infos sur le département :
342
        $tableau_infoDep = choro_dep_infoDep($departement);
343
 
344
        //Nous affectons les messages d'erreur
345
            if($nombre_taxon != 0){
346
                $message_alerte = message_alerte('01');
347
            }
348
            else{
349
                $message_alerte = message_alerte('02');
350
            }
351
        //La requete qui sélectionne les noms de taxons pour le département
352
        //et la lettre transmis dans l'url par la variable $lettre.
353
        if ($tableau_infoDep['NUMERO'] == 971 || $tableau_infoDep['NUMERO'] == 972) {
354
                $requete_03 =
355
                        'SELECT '.ENT_NUM_TAXO.', '.ENT_NUM_NOMEN.', '.
356
                                ENT_NOM_COMPLET_02.', '.ECS_INTITULE.
357
                        ' FROM '.EAC_BD_TABLE.', '.EANT_BD_TABLE.', '.ECS_BD_TABLE.
358
                        ' WHERE ';
359
                if ($lettre != "tous"){
360
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "'.$lettre.'%"';
361
                } else {
362
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "%"';
363
                }
364
                $requete_03 .=
365
                        ' AND '.EAC_DEP.'='.$tableau_infoDep['NUMERO'].
366
                        //' AND '.EAC_NUM_TAXO.' = '.ENT_NUM_TAXO.
367
                        ' AND '.EAC_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
368
                        ' AND '.EAC_STATUT.' = '.ECS_ID.
369
                        ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
370
            } elseif ($tableau_infoDep['NUMERO'] == 974) {
371
                $requete_03 =
372
                        'SELECT '.ENT_NUM_TAXO.', '.ENT_NUM_NOMEN.', '.
373
                                ENT_NOM_COMPLET_02.', '.ECS_INTITULE.
374
                        ' FROM '.ERC_BD_TABLE.', '.ERNT_BD_TABLE.', '.ERCS_BD_TABLE.
375
                        ' WHERE ';
376
                if ($lettre != "tous"){
377
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "'.$lettre.'%"';
378
                } else {
379
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "%"';
380
                }
381
                $requete_03 .=
382
                        ' AND '.ERC_DEP.'='.$tableau_infoDep['NUMERO'].
383
                        //' AND '.ERC_NUM_TAXO.' = '.ENT_NUM_TAXO.
384
                        ' AND '.ERC_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
385
                        ' AND '.ERC_STATUT.' = '.ECS_ID.
386
                        ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
387
            } else {
388
                $requete_03 =
389
                        'SELECT '.ENT_NUM_TAXO.', '.ENT_NUM_NOMEN.', '.
390
                                ENT_NOM_COMPLET_02.', '.ECS_INTITULE.
391
                        ' FROM '.ECD_BD_TABLE.', '.ENT_BD_TABLE.', '.ECS_BD_TABLE.
392
                        ' WHERE ';
393
                if ($lettre != "tous"){
394
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "'.$lettre.'%"';
395
                } else {
396
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "%"';
397
                }
398
                $requete_03 .=
399
                        ' AND '.ECD_DEP.'='.$tableau_infoDep['NUMERO'].
400
                        //' AND '.ECD_NUM_TAXO.' = '.ENT_NUM_TAXO.
401
                        ' AND '.ECD_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
402
                        ' AND '.ECD_INDICE.' = '.ECS_ID.
403
                        ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
404
            }
405
 
406
        //Nous plaçons des données javascripts pour la gestion des infos bulles:
407
        /*$res = '<!-- appel à l\'initialisation des infos bulles (laisser dans le BODY) -->';
408
        $res .= '<SCRIPT language="JavaScript">InitBulle("navy","#FFCC66","orange",1);';
409
        $res .= '//// InitBulle(couleur de texte, couleur de fond, couleur de contour taille contour)';
410
        $res .='</SCRIPT>';
411
        */
412
        $tableau_inclusion = array($tableau_infoDep['NOM'], $nombre_taxon);
413
        $res = inclusion_html('titre_liste', $tableau_inclusion);
414
        $tableau_inclusion = array($tableau_infoDep['SOURCES'], $tableau_infoDep['CORRESPONDANTS']);
415
        $res .= inclusion_html('info_dep', $tableau_inclusion);
416
 
417
        $tablo_inclusion = array($lettre);
418
        $res .= rechercheAlphabet($requete_03, URL_DOCUMENT, '&amp;departement='.$tableau_infoDep['NUMERO'].'&amp;nombre_taxon='.$nombre_taxon,
419
                                                    inclusion_html('tab_ouvre_liste_taxon', $tablo_inclusion), inclusion_html('tab_evol_ferme'), $tablo_formatLigne,
420
                                                    $tablo_formatResultat,  $message_alerte, $fragmenteur);
421
        return $res;
422
    }
423
    else {
424
        if (!$carte_france) {
425
        //Affichage quand il n'y a plus de carte.
426
        //Dans notre cas l'utilisateur a cliqué sur un département.
427
 
428
            //Nous récupérons l'identifiant du département transmis dans l'historique sous
429
            //la forme france*numéro_departement
430
            $tableau_departement = explode ('*',$france->historique);
431
 
432
            //Nous récupérons toutes les infos sur le département :
433
            $tableau_infoDep = choro_dep_infoDep($tableau_departement[1]);
434
 
435
 
436
            if ($tableau_infoDep['NUMERO'] == 971 || $tableau_infoDep['NUMERO'] == 972) {
437
                $tablo_formatResultat[0]['Col_lien_href'] = BASE_URL.'bdnfgm_nn';
438
            } elseif ($tableau_infoDep['NUMERO'] == 974) {
439
                $tablo_formatResultat[0]['Col_lien_href'] = BASE_URL.'bdnfr_nn';
440
            }
441
 
442
            //Nous récupérons le nombre de taxons présent dans le département
443
            if(isset($tableau_dep_taxons[$tableau_infoDep['NUMERO']]) && $tableau_dep_taxons[$tableau_infoDep['NUMERO']] !=0){
444
                $nombre_taxon = $tableau_dep_taxons[$tableau_infoDep['NUMERO']];
445
                $message_alerte = message_alerte('01');
446
            }
447
            else{
448
                $nombre_taxon = 0;
449
                $message_alerte = message_alerte('02');
450
            }
451
            //Nous affichons par défaut la liste des taxons dont le nom
452
            //commence par A.
453
            $lettre='A';
454
 
455
            //La requete qui sélectionne les noms de taxons pour le département
456
            //et la lettre A.
457
            if ($tableau_infoDep['NUMERO'] == 971 || $tableau_infoDep['NUMERO'] == 972) {
458
                $requete_04 =
459
                    'SELECT '.ENT_NUM_TAXO.', '.ENT_NUM_NOMEN.', '.
460
                            ENT_NOM_COMPLET_02.', '.ECS_INTITULE.
461
                    ' FROM '.EAC_BD_TABLE.', '.EANT_BD_TABLE.', '.ECS_BD_TABLE.
462
                    ' WHERE '.ENT_NOM_COMPLET_02.' LIKE "'.$lettre.'%"'.
463
                    ' AND '.EAC_DEP.' = '.$tableau_infoDep['NUMERO'].
464
                    //' AND '.EAC_NUM_TAXO.' = '.ENT_NUM_TAXO.
465
                    ' AND '.EAC_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
466
                    ' AND '.EAC_STATUT.' = '.ECS_ID.
467
                    ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
468
            } elseif ($tableau_infoDep['NUMERO'] == 974) {
469
                $requete_04 =
470
                    'SELECT '.ENT_NUM_TAXO.', '.ENT_NUM_NOMEN.', '.
471
                            ENT_NOM_COMPLET_02.', '.ECS_INTITULE.
472
                    ' FROM '.ERC_BD_TABLE.', '.ERNT_BD_TABLE.', '.ERCS_BD_TABLE.
473
                    ' WHERE '.ENT_NOM_COMPLET_02.' LIKE "'.$lettre.'%"'.
474
                    ' AND '.ERC_DEP.' = '.$tableau_infoDep['NUMERO'].
475
                    //' AND '.ERC_NUM_TAXO.' = '.ENT_NUM_TAXO.
476
                    ' AND '.ERC_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
477
                    ' AND '.ERC_STATUT.' = '.ECS_ID.
478
                    ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
479
            } else {
480
                $requete_04 =
481
                    'SELECT '.ENT_NUM_TAXO.', '.ENT_NUM_NOMEN.', '.
482
                            ENT_NOM_COMPLET_02.', '.ECS_INTITULE.
483
                    ' FROM '.ECD_BD_TABLE.', '.ENT_BD_TABLE.', '.ECS_BD_TABLE.
484
                    ' WHERE '.ENT_NOM_COMPLET_02.' LIKE "'.$lettre.'%"'.
485
                    ' AND '.ECD_DEP.' = '.$tableau_infoDep['NUMERO'].
486
                    //' AND '.ECD_NUM_TAXO.' = '.ENT_NUM_TAXO.
487
                    ' AND '.ECD_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
488
                    ' AND '.ECD_INDICE.' = '.ECS_ID.
489
                    ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
490
            }
491
            //Nous plaçons des données javascripts pour la gestion des infos bulles:
492
            /*$res = '<!-- appel à l\'initialisation des infos bulles (laisser dans le BODY) -->';
493
            $res .= '<SCRIPT language="JavaScript">InitBulle("navy","#FFCC66","orange",1);';
494
            $res .= '//// InitBulle(couleur de texte, couleur de fond, couleur de contour, taille contour)';
495
            $res .= '</SCRIPT>';
496
        */
497
 
498
            $tableau_inclusion = array($tableau_infoDep['NOM'], $nombre_taxon);
499
            $res = inclusion_html('titre_liste', $tableau_inclusion);
500
 
501
            $tableau_inclusion = array($tableau_infoDep['SOURCES'], $tableau_infoDep['CORRESPONDANTS']);
502
            $res .= inclusion_html('info_dep', $tableau_inclusion);
503
 
504
            //La fonction gérant l'affichage de la liste alphabétique et
505
            //de l'affichage suite à une seléction dans la liste.
506
            $tablo_inclusion = array($lettre);
507
            $res .= rechercheAlphabet($requete_04, URL_DOCUMENT, '&amp;departement='.$tableau_infoDep['NUMERO'].'&amp;nombre_taxon='.$nombre_taxon,
508
                                                        inclusion_html('tab_ouvre_liste_taxon', $tablo_inclusion), inclusion_html('tab_evol_ferme'), $tablo_formatLigne,
509
                                                        $tablo_formatResultat, $message_alerte, $fragmenteur);
510
 
511
            return $res;
512
        }
513
        else{
514
        //Affichage de la carte de france des départements.
515
        //L'utilisateur arrive sur la page.
516
            $tableau_inclusion = array($nbre_liste);
517
            $res = inclusion_html('titre_carte', $tableau_inclusion);//Le titre dans une ligne de tableau
518
            $res .= inclusion_html('tab_ouvre');//Ouverture d'un tableau dans une ligne de tableau
519
 
520
            //Nous affichons la carte
521
            $res.='<tr><td>';
522
            $res.=$carte_france;
523
            $res.='</td></tr>';
524
 
525
            $res .= inclusion_html('tab_ferme');//Fermeture du tableau ouvert
526
            $res .= inclusion_html('avertissement_carte');//Commentaire dans des lignes de tableau
527
 
528
            return $res;
529
        }//Fin du test de $carte_france.
530
    }//Fin du test de $lettre
531
}
532
 
533
function afficherContenuPied()
534
{
535
    return inclusion_html('pied_page');
536
}
537
 
538
// +------------------------------------------------------------------------------------------------------+
539
// |                                            PIED du PROGRAMME                                         |
540
// +------------------------------------------------------------------------------------------------------+
541
 
542
 
543
/* +--Fin du code ----------------------------------------------------------------------------------------+
544
*
545
* $Log: not supported by cvs2svn $
546
*
547
* +-- Fin du code ----------------------------------------------------------------------------------------+
548
*/
549
?>