Subversion Repositories eFlore/Archives.eflore-consultation-v2

Rev

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

Rev 173 Rev 176
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_fiche.inc.php,v 1.3 2005-06-30 15:24:26 jpm Exp $
24
// CVS : $Id: eflore_fiche.inc.php,v 1.4 2005-07-01 19:04:12 jp_milcent Exp $
25
/**
25
/**
26
* Affichage des fiches d'eFlore.
26
* Affichage des fiches d'eFlore.
27
*
27
*
28
* Ce script fournit le code html correspondant aux fiches d'eFlore.
28
* Ce script fournit le code html correspondant aux fiches d'eFlore.
29
*
29
*
Line 31... Line 31...
31
//Auteur original :
31
//Auteur original :
32
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
32
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
33
//Autres auteurs :
33
//Autres auteurs :
34
*@author        Aucun
34
*@author        Aucun
35
*@copyright     Tela-Botanica 2000-2004
35
*@copyright     Tela-Botanica 2000-2004
36
*@version       $Revision: 1.3 $ $Date: 2005-06-30 15:24:26 $
36
*@version       $Revision: 1.4 $ $Date: 2005-07-01 19:04:12 $
37
// +------------------------------------------------------------------------------------------------------+
37
// +------------------------------------------------------------------------------------------------------+
38
*/
38
*/
Line 39... Line 39...
39
 
39
 
40
// +------------------------------------------------------------------------------------------------------+
40
// +------------------------------------------------------------------------------------------------------+
Line 90... Line 90...
90
function afficherNiveauTaxoSuperieur($arguments) {
90
function afficherNiveauTaxoSuperieur($arguments) {
91
    $tab_nom_sup = array();
91
    $tab_nom_sup = array();
92
    $retour = '';
92
    $retour = '';
93
    $nt = $arguments[0];
93
    $nt = $arguments[0];
94
    $nvp = $arguments[1];
94
    $nvp = $arguments[1];
95
    $nr = 1000;
-
 
96
    while ($nr != 0) {
95
    while ($nt != 0) {
97
        $aso_taxon = array();
96
        $aso_taxon = array();
98
        $contenu = file_get_contents(sprintf(EFLORE_URL_TAXON_SUP, rawurlencode($nt), rawurlencode($nvp)));
97
        $contenu = file_get_contents(sprintf(EFLORE_URL_INFO_TAXON_SUP, rawurlencode($nt), rawurlencode($nvp)));
99
        preg_match('/<en_ce_r>(\d+)</en_ce_r>/', $contenu, $info);
98
        preg_match("/<en_ce_r>(\d+)<\/en_ce_r>/", $contenu, $info);
100
        $aso_taxon['nr'] = $info[1];
99
        if (isset($info[1])) {
101
        $retour .= 'ici'.$aso_taxon['nr'];
100
        	$aso_taxon['nr'] = $info[1];
102
        $nr = $info[1];
101
        	$nr = $info[1];
-
 
102
        }
103
        preg_match('/<etr_id_t2>(\d+)</etr_id_t2>/', $contenu, $info);
103
        preg_match('/<etr_id_t2>(\d+)<\/etr_id_t2>/', $contenu, $info);
-
 
104
        if (isset($info[1])) {
104
        $aso_taxon['nt'] = $info[1];
105
        	$aso_taxon['nt'] = $info[1];
105
        $nt = $info[1];
106
        	$nt = $info[1];
-
 
107
        } else {
-
 
108
        	$nt = 0;
-
 
109
        }
106
        preg_match('/<etr_id_vpt2>(\d+)</etr_id_vpt2>/', $contenu, $info);
110
        preg_match('/<etr_id_vpt2>(\d+)<\/etr_id_vpt2>/', $contenu, $info);
-
 
111
        if (isset($info[1])) {
107
        $aso_taxon['nvp'] = $info[1];
112
        	$aso_taxon['nvp'] = $info[1];
108
        $nvp = $info[1];
113
        	$nvp = $info[1];
-
 
114
        }
109
        preg_match('/<en_id_n>(\d+)</en_id_n>/', $contenu, $info);
115
        preg_match('/<en_id_n>(\d+)<\/en_id_n>/', $contenu, $info);
-
 
116
        if (isset($info[1])) {
110
        $aso_taxon['nn'] = $info[1];
117
        	$aso_taxon['nn'] = $info[1];
-
 
118
        }
-
 
119
        if ($nt != 0) {
111
        array_push($tab_nom_sup, $aso_taxon);
120
        	array_push($tab_nom_sup, $aso_taxon);
-
 
121
        }
112
    }
122
    }
-
 
123
    // Nous avons des taxons supérieurs
-
 
124
    if (count($tab_nom_sup) > 0) {
113
    $retour .= '<ul>';
125
	    $retour .= '<ul>'."\n";
114
    $j = 0;
126
	    $j = 0;
115
    for($i = count($tab_nom_sup); $i > 0; $i--) {
127
	    for($i = (count($tab_nom_sup)-1); $i >= 0; $i--) {
-
 
128
	    	$contenu = file_get_contents(sprintf(EFLORE_URL_INFO_NOM_LATIN, rawurlencode($tab_nom_sup[$i]['nn'])));
-
 
129
        	preg_match("/<eni_in>(.+?)<\/eni_in>/", $contenu, $info);
-
 
130
        	if (isset($info[1])) {
116
        $retour .= '<li>'.str_repeat('&nbsp;', $j++).$tab_nom_sup[$i]['nn'].'</li>';
131
        		$retour .= '<li>'.str_repeat('&nbsp;', ($j++ * 3)).$info[1].'</li>';
-
 
132
        	} else {
-
 
133
        		$retour .= '<li>'.str_repeat('&nbsp;', ($j++ * 3)).'???'.'</li>';
-
 
134
        	}
-
 
135
	        
-
 
136
	    }
-
 
137
	    $retour .= '</ul>'."\n";
-
 
138
    } else {
-
 
139
    	$retour .= 'Aucun taxon supérieur.';
117
    }
140
    }
118
    $retour .= '</ul>';
-
 
119
    return $retour;
141
    return $retour;
120
}
142
}
121
/* +--Fin du code ----------------------------------------------------------------------------------------+
143
/* +--Fin du code ----------------------------------------------------------------------------------------+
122
*
144
*
123
* $Log: not supported by cvs2svn $
145
* $Log: not supported by cvs2svn $
-
 
146
* Revision 1.3  2005/06/30 15:24:26  jpm
-
 
147
* Début des modifications pour ajout de l'arborescence de la classif.
-
 
148
*
124
* Revision 1.2  2005/06/24 09:46:43  jpm
149
* Revision 1.2  2005/06/24 09:46:43  jpm
125
* Test pour mathilde
150
* Test pour mathilde
126
*
151
*
127
* Revision 1.1  2005/01/28 19:48:11  jpm
152
* Revision 1.1  2005/01/28 19:48:11  jpm
128
* Ajout d'une fiche de synthèse.
153
* Ajout d'une fiche de synthèse.