1 |
<?php
|
1 |
<?php
|
2 |
/*vim: set expandtab tabstop=4 shiftwidth=4: */
|
2 |
/*vim: set expandtab tabstop=4 shiftwidth=4: */
|
3 |
// +------------------------------------------------------------------------------------------------------+
|
3 |
// +------------------------------------------------------------------------------------------------------+
|
4 |
// | PHP version 4.3 |
|
4 |
// | PHP version 4.3 |
|
5 |
// +------------------------------------------------------------------------------------------------------+
|
5 |
// +------------------------------------------------------------------------------------------------------+
|
6 |
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
|
6 |
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
|
7 |
// +------------------------------------------------------------------------------------------------------+
|
7 |
// +------------------------------------------------------------------------------------------------------+
|
8 |
// | This file is part of eFlore-consultation. |
|
8 |
// | This file is part of eFlore-consultation. |
|
9 |
// | |
|
9 |
// | |
|
10 |
// | Foobar is free software; you can redistribute it and/or modify |
|
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 |
|
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 |
|
12 |
// | the Free Software Foundation; either version 2 of the License, or |
|
13 |
// | (at your option) any later version. |
|
13 |
// | (at your option) any later version. |
|
14 |
// | |
|
14 |
// | |
|
15 |
// | Foobar is distributed in the hope that it will be useful, |
|
15 |
// | Foobar is distributed in the hope that it will be useful, |
|
16 |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
16 |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
17 |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
17 |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
18 |
// | GNU General Public License for more details. |
|
18 |
// | GNU General Public License for more details. |
|
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_recherche_taxonomie.inc.php,v 1.1 2004-12-23 20:05:17 jpm Exp $
|
24 |
// CVS : $Id: eflore_recherche_taxonomie.inc.php,v 1.2 2005-01-28 19:47:55 jpm Exp $
|
25 |
/**
|
25 |
/**
|
26 |
* Affichage du moteur de recherche taxonomique et de ses résultats.
|
26 |
* Affichage du moteur de recherche taxonomique et de ses résultats.
|
27 |
*
|
27 |
*
|
28 |
* Ce script fournit le code html correspondant aux moteurs de recherche taxonomique (par projet) et ses
|
28 |
* Ce script fournit le code html correspondant aux moteurs de recherche taxonomique (par projet) et ses
|
29 |
* résultats.
|
29 |
* résultats.
|
30 |
*
|
30 |
*
|
31 |
*@package eFlore
|
31 |
*@package eFlore
|
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: 2004-12-23 20:05:17 $
|
37 |
*@version $Revision: 1.2 $ $Date: 2005-01-28 19:47:55 $
|
38 |
// +------------------------------------------------------------------------------------------------------+
|
38 |
// +------------------------------------------------------------------------------------------------------+
|
39 |
*/
|
39 |
*/
|
40 |
|
40 |
|
41 |
// +------------------------------------------------------------------------------------------------------+
|
41 |
// +------------------------------------------------------------------------------------------------------+
|
42 |
// | ENTÊTE du PROGRAMME |
|
42 |
// | ENTÊTE du PROGRAMME |
|
43 |
// +------------------------------------------------------------------------------------------------------+
|
43 |
// +------------------------------------------------------------------------------------------------------+
|
44 |
|
44 |
|
45 |
|
45 |
|
46 |
// +------------------------------------------------------------------------------------------------------+
|
46 |
// +------------------------------------------------------------------------------------------------------+
|
47 |
// | CORPS du PROGRAMME |
|
47 |
// | CORPS du PROGRAMME |
|
48 |
// +------------------------------------------------------------------------------------------------------+
|
48 |
// +------------------------------------------------------------------------------------------------------+
|
- |
|
49 |
// Recherche sur les noms scientifiques
|
- |
|
50 |
if (isset($_REQUEST['eflore_projet']) AND isset($_REQUEST['eflore_rang']) AND isset($_REQUEST['eflore_ordre'])) {
|
- |
|
51 |
if (!isset($_REQUEST['eflore_lettre'])) {
|
- |
|
52 |
$_REQUEST['eflore_lettre'] = 'A';
|
- |
|
53 |
}
|
- |
|
54 |
$url = sprintf(EFLORE_URL_FORM_TAXON_ALPHABET, rawurlencode($_REQUEST['eflore_projet']), rawurlencode($_REQUEST['eflore_rang']), rawurlencode($_REQUEST['eflore_ordre']), rawurlencode($_REQUEST['eflore_lettre']));
|
- |
|
55 |
} else {
|
- |
|
56 |
$url = EFLORE_URL_FORM_TAXON;
|
49 |
/*
|
57 |
}
|
- |
|
58 |
$contenu = file_get_contents($url);
|
- |
|
59 |
|
- |
|
60 |
//Analyse du squelette
|
- |
|
61 |
require_once 'HTML/Template/IT.php';
|
- |
|
62 |
$squelette = new HTML_Template_IT();
|
- |
|
63 |
$squelette->setTemplate($contenu, FALSE, FALSE);
|
- |
|
64 |
|
- |
|
65 |
// Indique l'url pour obtenir fiche d'un nom
|
- |
|
66 |
$squelette->setCurrentBlock('corps');
|
- |
|
67 |
// Ajout du paramêtre action à l'url courante.
|
- |
|
68 |
$GLOBALS['_EFLORE_']['url']->addQueryString(EFLORE_LG_URL_ACTION, EFLORE_LG_URL_ACTION_RECH_TAX);
|
- |
|
69 |
$squelette->setVariable('UrlProjetTaxon', $GLOBALS['_EFLORE_']['url']->getURL());
|
- |
|
70 |
$GLOBALS['_EFLORE_']['url']->removeQueryString(EFLORE_LG_URL_ACTION);
|
- |
|
71 |
$squelette->parseCurrentBlock('corps');
|
- |
|
72 |
|
- |
|
73 |
// Récupère le bloc "corps"
|
- |
|
74 |
$sortie .= $squelette->get('corps');
|
- |
|
75 |
|
- |
|
76 |
// --------------------------------------------------------------------------------------------------------
|
- |
|
77 |
// Lancement de la recherche
|
- |
|
78 |
if (isset($_REQUEST['eflore_lettre'])) {
|
50 |
<h2> Rechercher par projet </h2>
|
79 |
// Recherche sur les noms scientifiques
|
- |
|
80 |
$url = sprintf(EFLORE_URL_LISTE_TAXON, rawurlencode($_REQUEST['eflore_projet']), rawurlencode($_REQUEST['eflore_rang']), rawurlencode($_REQUEST['eflore_ordre']), rawurlencode($_REQUEST['eflore_lettre']));
|
- |
|
81 |
$contenu = file_get_contents($url);
|
- |
|
82 |
|
- |
|
83 |
//Analyse du squelette
|
- |
|
84 |
require_once 'HTML/Template/IT.php';
|
- |
|
85 |
$squelette = new HTML_Template_IT();
|
- |
|
86 |
$squelette->setTemplate($contenu, FALSE, FALSE);
|
- |
|
87 |
|
- |
|
88 |
// Indique l'url pour obtenir fiche d'un nom
|
- |
|
89 |
$squelette->setCurrentBlock('corps');
|
- |
|
90 |
// Ajout du paramêtre action à l'url courante.
|
- |
|
91 |
$GLOBALS['_EFLORE_']['url']->addQueryString(EFLORE_LG_URL_ACTION, EFLORE_LG_URL_ACTION_FICHE);
|
- |
|
92 |
$GLOBALS['_EFLORE_']['url']->addQueryString(EFLORE_LG_URL_ONGLET, EFLORE_LG_URL_ONGLET_SYNTHESE);
|
- |
|
93 |
$GLOBALS['_EFLORE_']['url']->addQueryString(EFLORE_LG_URL_NN, '');
|
- |
|
94 |
$squelette->setVariable('UrlFicheNom', $GLOBALS['_EFLORE_']['url']->getURL());
|
- |
|
95 |
$GLOBALS['_EFLORE_']['url']->removeQueryString(EFLORE_LG_URL_NN);
|
- |
|
96 |
$GLOBALS['_EFLORE_']['url']->addQueryString(EFLORE_LG_URL_NVP, $_REQUEST['eflore_projet']);
|
- |
|
97 |
$GLOBALS['_EFLORE_']['url']->addQueryString(EFLORE_LG_URL_RG, $_REQUEST['eflore_rang']);
|
- |
|
98 |
$GLOBALS['_EFLORE_']['url']->addQueryString(EFLORE_LG_URL_OD, $_REQUEST['eflore_ordre']);
|
- |
|
99 |
$GLOBALS['_EFLORE_']['url']->addQueryString(EFLORE_LG_URL_LE, '');
|
- |
|
100 |
$squelette->setVariable('UrlRechercheTaxonAlphabet', $GLOBALS['_EFLORE_']['url']->getURL());
|
- |
|
101 |
$squelette->parseCurrentBlock('corps');
|
- |
|
102 |
|
- |
|
103 |
// Récupère le bloc "corps"
|
- |
|
104 |
$sortie .= $squelette->get('corps');
|
- |
|
105 |
}
|
51 |
|
- |
|
52 |
<form method="post" action="/" name="eflore_form_taxonomie">
|
- |
|
53 |
<fieldset>
|
- |
|
54 |
<legend>Rechercher par projet</legend>
|
- |
|
55 |
<ul>
|
- |
|
56 |
<li>
|
- |
|
57 |
<select name="Projets">
|
- |
|
58 |
<option>BDNFF</option>
|
- |
|
59 |
<option>Flore de la Réunion</option>
|
- |
|
60 |
<option>Flore de Guadeloupe et Martinique</option>
|
- |
|
61 |
<option>Curcubitaceae du monde</option>
|
- |
|
62 |
</select>
|
- |
|
63 |
<select name="Rang départ">
|
- |
|
64 |
<option>Régne</option>
|
- |
|
65 |
<option>Famille</option>
|
- |
|
66 |
<option>Genre</option>
|
- |
|
67 |
</select>
|
- |
|
68 |
</li>
|
- |
|
69 |
<li>
|
- |
|
70 |
<p>
|
- |
|
71 |
<a href="/a">A</a> |
|
- |
|
72 |
<a href="/b">B</a> |
|
- |
|
73 |
<a href="/c">C</a> |
|
- |
|
74 |
<a href="/d">D</a> |
|
- |
|
75 |
<a href="/e">E</a> |
|
- |
|
76 |
<a href="/f">F</a> |
|
- |
|
77 |
<a href="g">G</a> |
|
- |
|
78 |
<a href="/h">H</a> |
|
- |
|
79 |
<a href="/i">I</a> |
|
- |
|
80 |
<a href="/j">J</a> |
|
- |
|
81 |
K |
|
- |
|
82 |
L |
|
- |
|
83 |
<a href="/m">M</a> |
|
- |
|
84 |
N | O | P | Q | R | S | T | U | V | W | X | Y | Z | Tous
|
- |
|
85 |
</p>
|
- |
|
86 |
</li>
|
- |
|
87 |
</ul>
|
- |
|
88 |
</fieldset>
|
- |
|
89 |
</form>
|
- |
|
90 |
*/
|
106 |
|
91 |
/* +--Fin du code ----------------------------------------------------------------------------------------+
|
107 |
/* +--Fin du code ----------------------------------------------------------------------------------------+
|
92 |
*
|
108 |
*
|
93 |
* $Log: not supported by cvs2svn $
|
109 |
* $Log: not supported by cvs2svn $
|
- |
|
110 |
* Revision 1.1 2004/12/23 20:05:17 jpm
|
- |
|
111 |
* Début prise en maine eflore-consultation.
|
- |
|
112 |
*
|
94 |
*
|
113 |
*
|
95 |
* +-- Fin du code ----------------------------------------------------------------------------------------+
|
114 |
* +-- Fin du code ----------------------------------------------------------------------------------------+
|
96 |
*/
|
115 |
*/
|
97 |
?>
|
116 |
?>
|