Subversion Repositories eFlore/Archives.chorologie

Rev

Rev 2 | Rev 13 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 11
Line 19... Line 19...
19
// |                                                                                                      |
19
// |                                                                                                      |
20
// | You should have received a copy of the GNU General Public License                                    |
20
// | You should have received a copy of the GNU General Public License                                    |
21
// | along with Foobar; if not, write to the Free Software                                                |
21
// | along with Foobar; if not, write to the Free Software                                                |
22
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
22
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
23
// +------------------------------------------------------------------------------------------------------+
23
// +------------------------------------------------------------------------------------------------------+
24
// CVS : $Id: eflore_chorologie.php,v 1.1 2005-02-21 19:36:57 jpm Exp $
24
// CVS : $Id: eflore_chorologie.php,v 1.2 2005-02-22 16:39:20 jpm Exp $
25
/**
25
/**
26
* Affichage des listes de noms de plantes par zones géographiques.
26
* Affichage des listes de noms de plantes par zones géographiques.
27
*
27
*
28
* Ce script fournit le code html correspondant aux listes de noms de plantes par zone géographique.
28
* Ce script fournit le code html correspondant aux listes de noms de plantes par zone géographique.
29
*
29
*
Line 32... Line 32...
32
//Auteur original :
32
//Auteur original :
33
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
33
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
34
//Autres auteurs :
34
//Autres auteurs :
35
*@author        Aucun
35
*@author        Aucun
36
*@copyright     Tela-Botanica 2000-2004
36
*@copyright     Tela-Botanica 2000-2004
37
*@version       $Revision: 1.1 $ $Date: 2005-02-21 19:36:57 $
37
*@version       $Revision: 1.2 $ $Date: 2005-02-22 16:39:20 $
38
// +------------------------------------------------------------------------------------------------------+
38
// +------------------------------------------------------------------------------------------------------+
39
*/
39
*/
Line 40... Line 40...
40
 
40
 
41
// +------------------------------------------------------------------------------------------------------+
41
// +------------------------------------------------------------------------------------------------------+
42
// |                                            ENTÊTE du PROGRAMME                                       |
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';
43
// +------------------------------------------------------------------------------------------------------+
46
/** Inclusion du fichier config de la base de données de l'application eflore-chorolgie. */
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';
-
 
46
/** Inclusion du fichier config de l'application eflore-chorolgie. */
47
require_once GEN_CHEMIN_CLIENT.'eflore_chorologie/configuration/echoro_config_bdd.inc.php';
47
require_once GEN_CHEMIN_CLIENT.'eflore_chorologie/configuration/echoro_config.inc.php';
48
/** Inclusion du fichier de langue de l'application eflore-chorologie. */
48
/** Inclusion du fichier de langue de l'application eflore-chorologie. */
Line 49... Line 49...
49
require_once ECHORO_CHEMIN_LANGUE.'echoro_langue_'.ECHORO_LANGUE.'.inc.php';
49
require_once ECHORO_CHEMIN_LANGUE.'echoro_langue_'.ECHORO_LANGUE.'.inc.php';
50
 
50
 
Line 54... Line 54...
54
require_once 'Net/URL.php';
54
require_once 'Net/URL.php';
55
/** Inclusion de la classe PEAR d'abstraction de base de donnée. */
55
/** Inclusion de la classe PEAR d'abstraction de base de donnée. */
56
//require_once 'DB.php';
56
//require_once 'DB.php';
Line 57... Line 57...
57
 
57
 
58
// Ajout d'une feuille de style propre à eFlore.
58
// Ajout d'une feuille de style propre à eFlore.
Line 59... Line 59...
59
GEN_stockerStyleExterne('echoro', EFLORE_CHEMIN_STYLE.'echoro.css');
59
GEN_stockerStyleExterne('echoro', ECHORO_CHEMIN_STYLE.'echoro.css');
60
 
60
 
61
/** Inclusion du fichier gérant les fonctions javascripts. */
61
/** Inclusion du fichier gérant les fonctions javascripts. */
62
include_once ECHORO_CHEMIN_BIBLIO.'echoro_javascript.fonct.php';
62
include_once ECHORO_CHEMIN_BIBLIO.'echoro_javascript.fonct.php';
Line -... Line 63...
-
 
63
//Nous appelons la fonction javascript à insérer dans l'entête.
-
 
64
GEN_stockerCodeScript(ajouterInfoBulleJs());
-
 
65
 
-
 
66
/** Inclusion de la classe "Form" présente dans le dossier "autres".
-
 
67
Devrait être supprimer!*/
-
 
68
include_once ECHORO_CHEMIN_API_AUTRE.'lib.form.php';
-
 
69
 
-
 
70
/** Inclusion de la classe "Fragmenteur" de l'API Fragmenteur. */
-
 
71
require_once ECHORO_CHEMIN_API_FRAGMENTEUR.'FRAG_Fragmenteur.class.php';
-
 
72
 
63
//Nous appelons la fonction javascript à insérer dans l'entête.
73
/** Inclusion de la classe "Fragmenteur Session" de l'API Fragmenteur. */
64
GEN_stockerCodeScript(ajouterInfoBulleJs());
74
require_once ECHORO_CHEMIN_API_FRAGMENTEUR.'FRAG_Fragmenteur_Session.class.php';
Line 65... Line 75...
65
 
75
 
66
/** Inclusion de l'API Fragmenteur. */
76
/** Inclusion des fonctions de l'API Fragmenteur. */
67
require_once ECHORO_CHEMIN_API_FRAGMENTEUR.'FRAG_fragmenteur.fonct.php';
77
require_once ECHORO_CHEMIN_API_FRAGMENTEUR.'FRAG_fragmenteur.fonct.php';
Line 143... Line 153...
143
    'type' => 'texte',
153
    'type' => 'texte',
144
    'valeur' => '</span> ]');
154
    'valeur' => '</span> ]');
145
    $tab_valeur_colonne_nom_complet[7] = array(
155
    $tab_valeur_colonne_nom_complet[7] = array(
146
    'type' => 'texte',
156
    'type' => 'texte',
147
    'valeur' => ' </b> ');
157
    'valeur' => ' </b> ');
148
    
-
 
-
 
158
    // Création de l'url pour obtenir les fiches
149
    //Implémentation du tableau contenant les informations pour 
159
    //Implémentation du tableau contenant les informations pour 
150
    //l'affichage des résultats.
160
    //l'affichage des résultats.
151
    $tablo_formatResultat[0]=array(
161
    $tablo_formatResultat[0] = array(
152
    'Col_nom' => $tab_valeur_colonne_nom_complet, 
162
        'Col_nom' => $tab_valeur_colonne_nom_complet, 
153
    'Col_width' => 450,
163
        'Col_width' => 450,
154
    'Col_class' => 'texte_tb2 texte_i',
164
        'Col_class' => 'texte_tb2 texte_i',
155
    'Col_lien_href' => BASE_URL.'nn',
165
        'Col_lien_href' => $GLOBALS['_ECHORO_']['url_base']->getURL().'nn',
156
    'Col_lien_href_param' => ENT_NUM_NOMEN,
166
        'Col_lien_href_param' => ENT_NUM_NOMEN,
157
    'Col_lien_target' => '_blank',
167
        'Col_lien_target' => '_blank',
158
    'Col_lien_class' => 'eflore_lien',
168
        'Col_lien_class' => 'eflore_lien',
159
    'Col_lien_title' => 'Voir la fiche correspondante dans l\'index des plantes');
169
        'Col_lien_title' => 'Voir la fiche correspondante dans l\'index des plantes');
160
    if ($departement == 971 || $departement == 972 ) {
170
    if ($departement == 971 || $departement == 972 ) {
161
        $tablo_formatResultat[0]['Col_lien_href'] = BASE_URL.'bdnfgm_nn';
171
        $tablo_formatResultat[0]['Col_lien_href'] = $GLOBALS['_ECHORO_']['url_base']->getURL().'bdnfgm_nn';
162
    } elseif ($departement == 974) {
172
    } elseif ($departement == 974) {
163
        $tablo_formatResultat[0]['Col_lien_href'] = BASE_URL.'bdnfr_nn';
173
        $tablo_formatResultat[0]['Col_lien_href'] = $GLOBALS['_ECHORO_']['url_base']->getURL().'bdnfr_nn';
164
    }
174
    }
165
    $tablo_formatResultat[1]=array(
175
    $tablo_formatResultat[1]=array(
166
    'Col_nom' => ECS_INTITULE, 
176
    'Col_nom' => ECS_INTITULE, 
167
    'Col_width' => 150, 
177
    'Col_width' => 150, 
168
    'Col_class' => 'texte_tb2 texte_c');
178
    'Col_class' => 'texte_tb2 texte_c');
Line 185... Line 195...
185
        //Nous sommes dans le cas où l'on a deux base: une pour les tables de la chorologie l'autre pour
195
        //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. 
196
        //les tables de la carto. 
187
        //On ne sélectionne donc pas de base.
197
        //On ne sélectionne donc pas de base.
188
        /** Definition de la variable globale stokant la connexion à la base de données. */
198
        /** Definition de la variable globale stokant la connexion à la base de données. */
189
        //$GLOBALS['_ECHORO_']['bdd'] = DB::connect(ECHORO_DSN_SANS_BDD);
199
        //$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());
200
        $GLOBALS['_ECHORO_']['bdd'] = mysql_connect(ECHORO_BDD_SERVEUR, ECHORO_BDD_UTILISATEUR, ECHORO_BDD_MOT_DE_PASSE ) or die (ER_CONNECT.mysql_error());
191
    }
201
    }
192
    else{
202
    else{
193
        //Nous sommes dans le cas où l'on a une seule base.
203
        //Nous sommes dans le cas où l'on a une seule base.
194
        //$GLOBALS['_ECHORO_']['bdd'] = DB::connect(ECHORO_DSN);
204
        //$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());
205
        $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, $connexion) or die (ER_SEL_BD_GENERALE);
206
        mysql_select_db(BD_GENERALE, $GLOBALS['_ECHORO_']['bdd']) or die (ER_SEL_BD_GENERALE);
197
    }
207
    }
Line 198... Line 208...
198
    
208
    
199
    //Requète fournisant le nombre de taxon pour chaque département. Nous récupérons aussi grâce à
209
    //Requète fournisant le nombre de taxon pour chaque département. Nous récupérons aussi grâce à
Line 270... Line 280...
270
        if ($valeur != 0) {
280
        if ($valeur != 0) {
271
            $nbre_liste++;
281
            $nbre_liste++;
272
        }
282
        }
273
    }
283
    }
Line 274... Line 284...
274
    
284
    
275
    //Toutes les informations pour réaliser la carte de France des départements 
285
    // Instanciation du tableau contenant les infos sur la table des zones géo.
-
 
286
    $info_table_zg['nom_table_zone'] = CD_BD_TABLE;
276
    //sont stockées dans le tableau : $info_couleur_france.
287
    $info_table_zg['nom_chp_id_zone'] = CD_ID;
-
 
288
    $info_table_zg['nom_chp_nom_zone'] = CD_NOM;
-
 
289
    $info_table_zg['nom_chp_rouge'] = CD_R;
277
    //Ce tableau récupére le nom de la table et les noms des champs de la table stockant 
290
    $info_table_zg['nom_chp_vert'] = CD_V;
-
 
291
    $info_table_zg['nom_chp_bleu'] = CD_B;
278
    //les valeurs des couleurs RVB.
292
    $info_table_zg['nom_chp_zone_sup'] = CD_PAYS;
279
    //Il prend aussi le tableau du nombre de taxons par département.
293
    $info_table_zg['tableau_valeurs_zone'] = $tableau_dep_taxons;
280
    
294
    
281
    $info_france['nom_table_zone'] = CD_BD_TABLE;
295
    // Instanciation du tableau contenant les champs de la table action
282
    $info_france['nom_chp_id_zone'] = CD_ID;
296
    $info_table_action['nom_table_action'] = CA_BD_TABLE;
283
    $info_france['nom_chp_nom_zone'] = CD_NOM;
297
    $info_table_action['nom_chp_id_carte'] = CA_CARTE;
284
    $info_france['nom_chp_rouge'] = CD_R;
298
    $info_table_action['nom_chp_id_zg_action'] = CA_ZG;
285
    $info_france['nom_chp_vert'] = CD_V;
299
    $info_table_action['nom_chp_type_zg'] = CA_TYPE_ZG;
286
    $info_france['nom_chp_bleu'] = CD_B;
300
    $info_table_action['nom_chp_action'] = CA_ACTION;
287
    $info_france['nom_chp_zone_sup'] = CD_PAYS;
-
 
Line 288... Line 301...
288
    $info_france['tableau_valeurs_zone'] = $tableau_dep_taxons;
301
    $info_table_action['nom_chp_id_carte_destination'] = CA_CARTE_DESTINATION;
289
    
302
    
Line 290... Line 303...
290
    // +--------------------------------------------------------------------------------------------------+
303
    // +--------------------------------------------------------------------------------------------------+
291
    // CRÉATION DES OBJETS CARTE ET ACTION
304
    // CRÉATION DES OBJETS CARTE ET ACTION
Line 292... Line 305...
292
    
305
    
293
    //Nous commençons par vider la chaine renvoyée par la fonction putFrame().
306
    //Nous commençons par vider la chaine renvoyée par la fonction putFrame().
-
 
307
    $res = '';
-
 
308
    
-
 
309
    //Nous créons un nouvel objet carte.
-
 
310
    $france = new Carto_Carte(  ID_CARTE_FR_DPT, 
-
 
311
                                ID_ZONE_GEO_CARTE_FR_DPT, 
-
 
312
                                NOM_CARTE_FR_DPT, 
-
 
313
                                ECHORO_FICHIER_CARTE_FR_DPT_MASQUE, 
294
    $res='';
314
                                ECHORO_FICHIER_CARTE_FR_DPT, 
295
    
315
                                ECHORO_CHEMIN_CARTE, 
296
    //Nous créons un nouvel objet carte.
316
                                $info_table_zg,
Line 297... Line 317...
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);
317
                                $info_table_action);
298
    //Les valeurs de coordonnées x et y du clic sur l'image,
318
    //Les valeurs de coordonnées x et y du clic sur l'image,
299
    //sont renvoyée automatiquement par le formulaire de la carte.
319
    //sont renvoyée automatiquement par le formulaire de la carte.
300
    //A la première exécution du script ces variables sont vides.
320
    //A la première exécution du script ces variables sont vides.
301
    
321
    
Line 302... Line 322...
302
    $france->historique_cartes = $historique_cartes;
322
    $france->historique_cartes = $historique_cartes;
303
    $france->image_x = $image_x;
323
    $france->image_x = $image_x;
304
    $france->image_y = $image_y;
324
    $france->image_y = $image_y;
305
    $france->liste_zone_carte = $liste_zone_carte;
325
    $france->liste_zone_carte = $liste_zone_carte;
Line 337... Line 357...
337
    //Affichage de la liste des taxon pour le département.
357
    //Affichage de la liste des taxon pour le département.
338
    //L'utilisateur a cliqué sur une lettre dans la liste alphabétique
358
    //L'utilisateur a cliqué sur une lettre dans la liste alphabétique
339
    //sur un département.
359
    //sur un département.
Line 340... Line 360...
340
        
360
        
341
        //Nous récupérons toutes les infos sur le département :
361
        //Nous récupérons toutes les infos sur le département :
Line 342... Line 362...
342
        $tableau_infoDep = choro_dep_infoDep($departement);
362
        $tableau_infoDep = echoro_recupererInfoDep($departement);
343
        
363
        
344
        //Nous affectons les messages d'erreur
364
        //Nous affectons les messages d'erreur
345
            if($nombre_taxon != 0){
365
            if($nombre_taxon != 0){
Line 354... Line 374...
354
                $requete_03 = 
374
                $requete_03 = 
355
                        'SELECT '.ENT_NUM_TAXO.', '.ENT_NUM_NOMEN.', '.
375
                        'SELECT '.ENT_NUM_TAXO.', '.ENT_NUM_NOMEN.', '.
356
                                ENT_NOM_COMPLET_02.', '.ECS_INTITULE.
376
                                ENT_NOM_COMPLET_02.', '.ECS_INTITULE.
357
                        ' FROM '.EAC_BD_TABLE.', '.EANT_BD_TABLE.', '.ECS_BD_TABLE.
377
                        ' FROM '.EAC_BD_TABLE.', '.EANT_BD_TABLE.', '.ECS_BD_TABLE.
358
                        ' WHERE ';
378
                        ' WHERE ';
359
                if ($lettre != "tous"){
379
                if ($lettre != 'tous'){
360
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "'.$lettre.'%"';
380
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "'.$lettre.'%"';
361
                } else {
381
                } else {
362
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "%"';
382
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "%"';
363
                }
383
                }
364
                $requete_03 .= 
384
                $requete_03 .= 
365
                        ' AND '.EAC_DEP.'='.$tableau_infoDep['NUMERO'].
385
                        ' AND '.EAC_DEP.'='.$tableau_infoDep['NUMERO'].
366
                        //' AND '.EAC_NUM_TAXO.' = '.ENT_NUM_TAXO.
-
 
367
                        ' AND '.EAC_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
386
                        ' AND '.EAC_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
368
                        ' AND '.EAC_STATUT.' = '.ECS_ID.
387
                        ' AND '.EAC_STATUT.' = '.ECS_ID.
369
                        ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
388
                        ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
370
            } elseif ($tableau_infoDep['NUMERO'] == 974) {
389
            } elseif ($tableau_infoDep['NUMERO'] == 974) {
371
                $requete_03 = 
390
                $requete_03 = 
Line 378... Line 397...
378
                } else {
397
                } else {
379
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "%"';
398
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "%"';
380
                }
399
                }
381
                $requete_03 .= 
400
                $requete_03 .= 
382
                        ' AND '.ERC_DEP.'='.$tableau_infoDep['NUMERO'].
401
                        ' AND '.ERC_DEP.'='.$tableau_infoDep['NUMERO'].
383
                        //' AND '.ERC_NUM_TAXO.' = '.ENT_NUM_TAXO.
-
 
384
                        ' AND '.ERC_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
402
                        ' AND '.ERC_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
385
                        ' AND '.ERC_STATUT.' = '.ECS_ID.
403
                        ' AND '.ERC_STATUT.' = '.ECS_ID.
386
                        ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
404
                        ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
387
            } else {
405
            } else {
388
                $requete_03 = 
406
                $requete_03 = 
Line 395... Line 413...
395
                } else {
413
                } else {
396
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "%"';
414
                    $requete_03 .= ENT_NOM_COMPLET_02.' LIKE "%"';
397
                }
415
                }
398
                $requete_03 .= 
416
                $requete_03 .= 
399
                        ' AND '.ECD_DEP.'='.$tableau_infoDep['NUMERO'].
417
                        ' AND '.ECD_DEP.'='.$tableau_infoDep['NUMERO'].
400
                        //' AND '.ECD_NUM_TAXO.' = '.ENT_NUM_TAXO.
-
 
401
                        ' AND '.ECD_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
418
                        ' AND '.ECD_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
402
                        ' AND '.ECD_INDICE.' = '.ECS_ID.
419
                        ' AND '.ECD_INDICE.' = '.ECS_ID.
403
                        ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
420
                        ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
404
            }
421
            }
Line 405... Line 422...
405
        
422
        
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
        */
423
        //Nous plaçons des données javascripts pour la gestion des infos bulles:
412
        $tableau_inclusion = array($tableau_infoDep['NOM'], $nombre_taxon);
424
        $tableau_inclusion = array($tableau_infoDep['NOM'], $nombre_taxon);
413
        $res = inclusion_html('titre_liste', $tableau_inclusion);
425
        $res = inclusion_html('titre_liste', $tableau_inclusion);
414
        $tableau_inclusion = array($tableau_infoDep['SOURCES'], $tableau_infoDep['CORRESPONDANTS']);
426
        $tableau_inclusion = array($tableau_infoDep['SOURCES'], $tableau_infoDep['CORRESPONDANTS']);
Line 415... Line 427...
415
        $res .= inclusion_html('info_dep', $tableau_inclusion);
427
        $res .= inclusion_html('info_dep', $tableau_inclusion);
416
        
428
        
417
        $tablo_inclusion = array($lettre);
429
        $tablo_inclusion = array($lettre);
418
        $res .= rechercheAlphabet($requete_03, URL_DOCUMENT, '&amp;departement='.$tableau_infoDep['NUMERO'].'&amp;nombre_taxon='.$nombre_taxon, 
430
        $res .= rechercheAlphabet($requete_03, $GLOBALS['_ECHORO_']['url']->getURL(), '&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, 
431
                                                    inclusion_html('tab_ouvre_liste_taxon', $tablo_inclusion), inclusion_html('tab_evol_ferme'), $tablo_formatLigne, 
420
                                                    $tablo_formatResultat,  $message_alerte, $fragmenteur);
432
                                                    $tablo_formatResultat,  $message_alerte, $fragmenteur);
421
        return $res;
433
        return $res;
Line 428... Line 440...
428
            //Nous récupérons l'identifiant du département transmis dans l'historique sous
440
            //Nous récupérons l'identifiant du département transmis dans l'historique sous
429
            //la forme france*numéro_departement
441
            //la forme france*numéro_departement
430
            $tableau_departement = explode ('*',$france->historique);
442
            $tableau_departement = explode ('*',$france->historique);
Line 431... Line 443...
431
            
443
            
432
            //Nous récupérons toutes les infos sur le département :
444
            //Nous récupérons toutes les infos sur le département :
433
            $tableau_infoDep = choro_dep_infoDep($tableau_departement[1]);
-
 
Line 434... Line 445...
434
            
445
            $tableau_infoDep = echoro_recupererInfoDep($tableau_departement[1]);
435
            
446
            
436
            if ($tableau_infoDep['NUMERO'] == 971 || $tableau_infoDep['NUMERO'] == 972) {
447
            if ($tableau_infoDep['NUMERO'] == 971 || $tableau_infoDep['NUMERO'] == 972) {
437
                $tablo_formatResultat[0]['Col_lien_href'] = BASE_URL.'bdnfgm_nn';
448
                $tablo_formatResultat[0]['Col_lien_href'] = $GLOBALS['_ECHORO_']['url_base']->getURL().'bdnfgm_nn';
438
            } elseif ($tableau_infoDep['NUMERO'] == 974) {
449
            } elseif ($tableau_infoDep['NUMERO'] == 974) {
Line 439... Line 450...
439
                $tablo_formatResultat[0]['Col_lien_href'] = BASE_URL.'bdnfr_nn';
450
                $tablo_formatResultat[0]['Col_lien_href'] = $GLOBALS['_ECHORO_']['url_base']->getURL().'bdnfr_nn';
440
            }
451
            }
441
            
452
            
Line 486... Line 497...
486
                    //' AND '.ECD_NUM_TAXO.' = '.ENT_NUM_TAXO.
497
                    //' AND '.ECD_NUM_TAXO.' = '.ENT_NUM_TAXO.
487
                    ' AND '.ECD_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
498
                    ' AND '.ECD_NUM_NOMEN.' = '.ENT_NUM_NOMEN.
488
                    ' AND '.ECD_INDICE.' = '.ECS_ID.
499
                    ' AND '.ECD_INDICE.' = '.ECS_ID.
489
                    ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
500
                    ' ORDER BY '.ENT_NOM_COMPLET_02.' ASC';
490
            }
501
            }
-
 
502
            
491
            //Nous plaçons des données javascripts pour la gestion des infos bulles:
503
            //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) -->';
504
            /*$res = '<!-- appel à l\'initialisation des infos bulles (laisser dans le BODY) -->';
493
            $res .= '<SCRIPT language="JavaScript">InitBulle("navy","#FFCC66","orange",1);';
505
            $res .= '<SCRIPT language="JavaScript">InitBulle("navy","#FFCC66","orange",1);';
494
            $res .= '//// InitBulle(couleur de texte, couleur de fond, couleur de contour, taille contour)';
506
            $res .= '//// InitBulle(couleur de texte, couleur de fond, couleur de contour, taille contour)';
495
            $res .= '</SCRIPT>';
507
            $res .= '</SCRIPT>';
496
        */
508
            */
Line 497... Line 509...
497
            
509
            
498
            $tableau_inclusion = array($tableau_infoDep['NOM'], $nombre_taxon);
510
            $tableau_inclusion = array($tableau_infoDep['NOM'], $nombre_taxon);
Line 499... Line 511...
499
            $res = inclusion_html('titre_liste', $tableau_inclusion);
511
            $res = inclusion_html('titre_liste', $tableau_inclusion);
500
            
512
            
Line 501... Line 513...
501
            $tableau_inclusion = array($tableau_infoDep['SOURCES'], $tableau_infoDep['CORRESPONDANTS']);
513
            $tableau_inclusion = array($tableau_infoDep['SOURCES'], $tableau_infoDep['CORRESPONDANTS']);
502
            $res .= inclusion_html('info_dep', $tableau_inclusion);
514
            $res .= inclusion_html('info_dep', $tableau_inclusion);
503
            
515
            
504
            //La fonction gérant l'affichage de la liste alphabétique et 
516
            //La fonction gérant l'affichage de la liste alphabétique et 
505
            //de l'affichage suite à une seléction dans la liste.
517
            //de l'affichage suite à une seléction dans la liste.
506
            $tablo_inclusion = array($lettre);
518
            $tablo_inclusion = array($lettre);
Line 507... Line 519...
507
            $res .= rechercheAlphabet($requete_04, URL_DOCUMENT, '&amp;departement='.$tableau_infoDep['NUMERO'].'&amp;nombre_taxon='.$nombre_taxon, 
519
            $res .= rechercheAlphabet($requete_04, $GLOBALS['_ECHORO_']['url']->getURL(), '&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);
520
                                                        inclusion_html('tab_ouvre_liste_taxon', $tablo_inclusion), inclusion_html('tab_evol_ferme'), $tablo_formatLigne, 
510
            
521
                                                        $tablo_formatResultat, $message_alerte, $fragmenteur);
511
            return $res;
522
            
512
        }
523
            return $res;
513
        else{
524
        } else {
514
        //Affichage de la carte de france des départements.
525
            //Affichage de la carte de france des départements.
Line 515... Line 526...
515
        //L'utilisateur arrive sur la page.
526
            //L'utilisateur arrive sur la page.
Line 541... Line 552...
541
 
552
 
542
 
553
 
543
/* +--Fin du code ----------------------------------------------------------------------------------------+
554
/* +--Fin du code ----------------------------------------------------------------------------------------+
-
 
555
*
-
 
556
* $Log: not supported by cvs2svn $
-
 
557
* Revision 1.1  2005/02/21 19:36:57  jpm
544
*
558
* Ajout du code de l'appli de tela v3.
545
* $Log: not supported by cvs2svn $
559
*
546
*
560
*
547
* +-- Fin du code ----------------------------------------------------------------------------------------+
561
* +-- Fin du code ----------------------------------------------------------------------------------------+
548
*/
562
*/