Subversion Repositories eFlore/Archives.eflore-consultation-v2

Rev

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

Rev 172 Rev 173
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.2 2005-06-24 09:46:43 jpm Exp $
 24 
// CVS : $Id: eflore_fiche.inc.php,v 1.3 2005-06-30 15:24:26 jpm 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.2 $ $Date: 2005-06-24 09:46:43 $
 36 
*@version       $Revision: 1.3 $ $Date: 2005-06-30 15:24:26 $
37 
// +------------------------------------------------------------------------------------------------------+
 37 
// +------------------------------------------------------------------------------------------------------+
38 
*/
 38 
*/
Line 39... Line 39...
39 
 
 39 
 
40 
// +------------------------------------------------------------------------------------------------------+
 40 
// +------------------------------------------------------------------------------------------------------+
Line 54... Line 54...
54 
        // Avec le projet par défaut (BDNFF)
 54 
        // Avec le projet par défaut (BDNFF)
55 
        $contenu = file_get_contents(sprintf(EFLORE_URL_FICHE_SYNTHESE, $_REQUEST['nn']));
 55 
        $contenu = file_get_contents(sprintf(EFLORE_URL_FICHE_SYNTHESE, $_REQUEST['nn']));
56 
    }
 56 
    }
Line 57... Line 57...
57
57
58 
    //Analyse du squelette
 58 
    //Analyse du squelette
59 
    require_once 'HTML/Template/IT.php';
 59 
    require_once 'HTML/Template/ITX.php';
60 
    $squelette = new HTML_Template_IT();
 60 
    $squelette = new HTML_Template_ITX();
Line -... Line 61...
- 
 
 61 
    $squelette->setTemplate($contenu, FALSE, FALSE);
- 
 
 62
- 
 
 63 
    // Gestion des niveaux taxonomiques supérieurs
- 
 
 64 
    $squelette->setCallbackFunction('selectionnerEfloreRef', 'selectionnerEfloreRef');
61 
    $squelette->setTemplate($contenu, FALSE, FALSE);
 65 
    $squelette->performCallback();
62
66
Line 63... Line 67...
63 
    // Indique l'url pour obtenir fiche d'un nom
 67 
    // Indique l'url pour obtenir fiche d'un nom
64 
    $squelette->setCurrentBlock('corps');
 68 
    $squelette->setCurrentBlock('corps');
65
69
66 
    //http://testv4.tela-botanica.org/papyrus.php?site=5&menu=39&action=fiche&onglet=synthese&nn=1573
 70 
    //http://testv4.tela-botanica.org/papyrus.php?site=5&menu=39&action=fiche&onglet=synthese&nn=1573
67 
    $GLOBALS['_EFLORE_']['url']->addQueryString(EFLORE_LG_URL_ACTION, EFLORE_LG_URL_ACTION_FICHE);
 71 
    $GLOBALS['_EFLORE_']['url']->addQueryString(EFLORE_LG_URL_ACTION, EFLORE_LG_URL_ACTION_FICHE);
68 
    $GLOBALS['_EFLORE_']['url']->addQueryString(EFLORE_LG_URL_ONGLET, EFLORE_LG_URL_ONGLET_SYNTHESE);
 72 
    $GLOBALS['_EFLORE_']['url']->addQueryString(EFLORE_LG_URL_ONGLET, EFLORE_LG_URL_ONGLET_SYNTHESE);
69 
    $GLOBALS['_EFLORE_']['url']->addQueryString(EFLORE_LG_URL_NN, $_REQUEST['nn']);
 73 
    $GLOBALS['_EFLORE_']['url']->addQueryString(EFLORE_LG_URL_NN, $_REQUEST['nn']);
- 
 
 74 
    $squelette->setVariable('FormUrlProjetChangement', $GLOBALS['_EFLORE_']['url']->getURL());
- 
 
 75 
    $GLOBALS['_EFLORE_']['url']->addQueryString(EFLORE_LG_URL_NVP, '');
- 
 
 76 
    $squelette->setVariable('LienUrlProjetChangement', $GLOBALS['_EFLORE_']['url']->getURL());
70 
    $squelette->setVariable('FormUrlProjetChangement', $GLOBALS['_EFLORE_']['url']->getURL());
 77 
    // Référentiel sélectionné par défaut
Line 71... Line 78...
71 
    $GLOBALS['_EFLORE_']['url']->addQueryString(EFLORE_LG_URL_NVP, '');
 78 
    $squelette->setCallbackFunction('NiveauTaxo', 'afficherNiveauTaxoSuperieur');
72 
    $squelette->setVariable('LienUrlProjetChangement', $GLOBALS['_EFLORE_']['url']->getURL());
 79 
    $squelette->performCallback();
73 
    $squelette->parseCurrentBlock('corps');
 80 
    $squelette->parseCurrentBlock('corps');
Line -... Line 81...
- 
 
 81
- 
 
 82 
    // Récupère le bloc "corps"
- 
 
 83 
    $sortie .= $squelette->get('corps');
- 
 
 84 
}
- 
 
 85 
 
- 
 
 86 
// +------------------------------------------------------------------------------------------------------+
- 
 
 87 
// |                                            LISTE des FONCTIONS                                       |
- 
 
 88 
// +------------------------------------------------------------------------------------------------------+
- 
 
 89 
 
- 
 
 90 
function afficherNiveauTaxoSuperieur($arguments) {
- 
 
 91 
    $tab_nom_sup = array();
- 
 
 92 
    $retour = '';
- 
 
 93 
    $nt = $arguments[0];
- 
 
 94 
    $nvp = $arguments[1];
- 
 
 95 
    $nr = 1000;
- 
 
 96 
    while ($nr != 0) {
- 
 
 97 
        $aso_taxon = array();
- 
 
 98 
        $contenu = file_get_contents(sprintf(EFLORE_URL_TAXON_SUP, rawurlencode($nt), rawurlencode($nvp)));
- 
 
 99 
        preg_match('/<en_ce_r>(\d+)</en_ce_r>/', $contenu, $info);
- 
 
 100 
        $aso_taxon['nr'] = $info[1];
- 
 
 101 
        $retour .= 'ici'.$aso_taxon['nr'];
- 
 
 102 
        $nr = $info[1];
- 
 
 103 
        preg_match('/<etr_id_t2>(\d+)</etr_id_t2>/', $contenu, $info);
- 
 
 104 
        $aso_taxon['nt'] = $info[1];
- 
 
 105 
        $nt = $info[1];
- 
 
 106 
        preg_match('/<etr_id_vpt2>(\d+)</etr_id_vpt2>/', $contenu, $info);
- 
 
 107 
        $aso_taxon['nvp'] = $info[1];
- 
 
 108 
        $nvp = $info[1];
- 
 
 109 
        preg_match('/<en_id_n>(\d+)</en_id_n>/', $contenu, $info);
- 
 
 110 
        $aso_taxon['nn'] = $info[1];
- 
 
 111 
        array_push($tab_nom_sup, $aso_taxon);
- 
 
 112 
    }
- 
 
 113 
    $retour .= '<ul>';
- 
 
 114 
    $j = 0;
- 
 
 115 
    for($i = count($tab_nom_sup); $i > 0; $i--) {
74
116 
        $retour .= '<li>'.str_repeat('&nbsp;', $j++).$tab_nom_sup[$i]['nn'].'</li>';
75 
    // Récupère le bloc "corps"
 117 
    }
76 
    $sortie .= $squelette->get('corps');
 118 
    $retour .= '</ul>';
- 
 
 119 
    return $retour;
- 
 
 120 
}
- 
 
 121 
/* +--Fin du code ----------------------------------------------------------------------------------------+
77 
}
 122 
*
78 
 
 123 
* $Log: not supported by cvs2svn $
79 
/* +--Fin du code ----------------------------------------------------------------------------------------+
 124 
* Revision 1.2  2005/06/24 09:46:43  jpm
80 
*
 125 
* Test pour mathilde
81 
* $Log: not supported by cvs2svn $
 126 
*