Subversion Repositories eFlore/Archives.eflore-consultation-v1

<?php

/*vim: set expandtab tabstop=4 shiftwidth=4: */

// +------------------------------------------------------------------------------------------------------+

// | PHP version 4.1                                                                                      |

// +------------------------------------------------------------------------------------------------------+

// | Copyright (C) 2005 Tela Botanica (accueil@tela-botanica.org)                                         |

// +------------------------------------------------------------------------------------------------------+

// | This file is part of Integrateur eFlore.                                                             |

// |                                                                                                      |

// | Foobar is free software; you can redistribute it and/or modify                                       |

// | it under the terms of the GNU General Public License as published by                                 |

// | the Free Software Foundation; either version 2 of the License, or                                    |

// | (at your option) any later version.                                                                  |

// |                                                                                                      |

// | Foobar is distributed in the hope that it will be useful,                                            |

// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |

// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                                        |

// | GNU General Public License for more details.                                                         |

// |                                                                                                      |

// | You should have received a copy of the GNU General Public License                                    |

// | along with Foobar; if not, write to the Free Software                                                |

// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |

// +------------------------------------------------------------------------------------------------------+

// CVS : $Id: eflore_transfo_xslt.inc.php,v 1.1 2005-05-24 15:57:48 jpm Exp $

/**

* Réalisation de la transfo XSL du XML d'eFlore.

*

*@package eFlore

*@subpackage Ancien

//Auteur original :

*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>

//Autres auteurs :

*@author        Aucun

*@copyright     Tela-Botanica 2000-2005

*@version       $Revision: 1.1 $ $Date: 2005-05-24 15:57:48 $

// +------------------------------------------------------------------------------------------------------+

*/

// +------------------------------------------------------------------------------------------------------+

// |                                            ENTETE du PROGRAMME                                       |

// +------------------------------------------------------------------------------------------------------+

// Récupération des valeurs du formulaire

switch ($flore) {

    case 'FRA':

        $services = 'servicesxml/';

        $baseURL .= '&flore=FRA&';

        $tab_champ['esd_nom_index'] = 'France metropole';

        break;

    case 'REU':

        $services = 'services_xml_mascareignes/';

        $baseURL .= '&flore=REU&';

        $tab_champ['esd_nom_index'] = 'France mascareignes';

        break;

    case 'ANT':

        $services = 'services_xml_antilles/';

        $baseURL .= '&flore=ANT&';

        $tab_champ['esd_nom_index'] = 'France antilles';

        break;

}

$numclass = (isset($_POST['numclass'])) ? $_POST['numclass'] : 1;

switch ($recherche) {

    case 'LATIN':

        $xml  = 'donnelistetaxons.php';

        $xslt = 'listetaxons.xsl';

        break;

    case 'VERNA':

        $xml  = 'donnelistenomsvernaculaires.php';

        $xslt = 'listenomsvernaculaires.xsl';

        break;

}

(isset($_GET['servicexml'])) ? $xml = $_GET['servicexml'] : '';

(isset($_GET['xslt'])) ? $xslt = $_GET['xslt'] : '';

//Nous recherchons le navigateur utilisé par le client. S'il s'agit de Netscape 4.x nous

//lui attribuons une nouvelle feuille xslt pour la fiche identité taxon.

$navigateur = get_browser($_SERVER['HTTP_USER_AGENT']);

if ( is_object($navigateur) && $navigateur->browser == 'Netscape' && $navigateur->majorver == '4' && $xslt == 'identitetaxon.xsl') {

    $xslt = 'identitetaxon_nn4.xsl';

}

$radical = rawurlencode($radical);

$param = '?radical='.$radical;

if (!empty($numclass)) $param .= '&numclass='.$numclass;

if (!empty($numnom)) $param .= '&numnom='.$numnom;

if (!empty($paramxslt)) $param .= '&paramxslt='.$paramxslt;

if (!empty($profondeur)) $param .= '&profondeur='.$profondeur;

if (!empty($numtaxo)) $param .= '&numtaxo='.$numtaxo;

if (empty($eFlore_rangtaxomin)) $eFlore_rangtaxomin = '';

if (empty($eFlore_rangtaxomax)) $eFlore_rangtaxomax = '';

if (empty($eFlore_nommin)) $eFlore_nommin = '';

if (empty($eFlore_nommax)) $eFlore_nommax = '';

if ($eFlore_rangtaxomin == -1) { $eFlore_rangtaxomin = 0; }

if ($eFlore_rangtaxomax == -1) { $eFlore_rangtaxomax = 100000000; }

if ($eFlore_nommin == '') { $eFlore_nommin = 'aaaa'; }

if ($eFlore_nommax == '') { $eFlore_nommax = 'zzzz'; }

//$chemin_service_XML = "http://test.tela-botanica.org/modules/client/eflore/servicesxml/".$xml.$param;

$chemin_service_XML = 'http://eflore.tela-botanica.org/'.$services.$xml.$param;

//$chemin_service_XML = "http://".$HTTP_HOST."/".EF_PATH_SERVICES.$xml.$param;

$xsl = join('', file(EF_PATH_XSLT.$xslt));

$xml = join ('', file($chemin_service_XML));

$arguments = array(

     '/_xml' => $xml,

     '/_xsl' => $xsl

    );

// Nom du fichier temporaire pdf

//include ("php/lib/lib.divers.php") ;

//$tmp_pdf = "eflore_pdf".create_new_random(5) ;

// Début pour PHP 4 avec utilisation de Sablotron

$xh = xslt_create();//Crée un nouvel analyseur XSLT.

xslt_set_encoding($xh,'ISO-8859-1');

$result = xslt_process($xh,'arg:/_xml', 'arg:/_xsl', NULL, $arguments);

// Fin pour PHP 4

/*

// Début pour PHP 5

$inputDom = new DomDocument(); //Crée un nouvel analyseur XSLT.

$inputDom->load($chemin_service_XML);

$xsl = new DomDocument();

$xsl->load(EF_PATH_XSLT.$xslt);

$proc = new xsltprocessor();

$xsl = $proc->importStylesheet($xsl);

$result = $proc->transformToXML($inputDom);

// Fin PHP 5

*/

$result = ereg_replace ('transformer.php\?', $baseURL, $result) ;

//$result = ereg_replace ("pdf.php", $tmp_pdf.".php", $result) ;

if ($result) {

    $res = $result;

    $tab_champ['ESD_RESULTAT'] = 'ok';

} else {

    // Début pour PHP 4 avec utilisation de Sablotron

    print 'Message d\'erreur XSLT: ' . xslt_error($xh) .//xslt_error -- Retourne le message d'erreur courant

    print ' avec le code : ' . xslt_errno($xh);//xslt_errno -- Retourne le numéro d'erreur courant

    // Fin pour PHP 4

    $tab_champ['ESD_RESULTAT'] = 'ERREUR';

}

// Début pour PHP 4 avec utilisation de Sablotron

xslt_free($xh);//Détruit l'analyseur XSLT

// Fin pour PHP 4

// Début pour PHP 5

//unset($xsl);//Détruit l'analyseur XSLT

//unset($inputDom);

// Fin pour PHP 5

//if ($servicexml == "donneidentitestaxons.php") {

//    $xsl = join('', file(EF_PATH_XSLT.'identitetaxon_pdf.xsl'));

//    $xml = join ('', file($chemin_service_XML));

//    $xh = xslt_create() ;

//    $arguments = array(

//        '/_xml' => $xml,

//        '/_xsl' => $xsl

//    );

//    $result = xslt_process($xh,'arg:/_xml', 'arg:/_xsl', NULL, $arguments) ;

//    $result = ereg_replace("&lt;", "<", $result) ;

//    $result = ereg_replace(">", ">" , $result) ;

//$file_php = fopen("tmp/$tmp_pdf.php","w") ;

//fputs($file_php, $result) ;

//    xslt_free($xh) ;

//}

?>