Subversion Repositories Sites.tela-botanica.org

<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1                                                                                      |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org)                                    |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of tela_botanica_v4.                                                                         |
// |                                                                                                      |
// | tela_botanica_v4 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.                                                                  |
// |                                                                                                      |
// | tela_botanica_v4 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$
/**
* tela_botanica_v4 - graph_distribution_europe.php
*
* Description :
*
*@package tela_botanica_v4
//Auteur original :
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author        Aucun
*@copyright     Tela-Botanica 1999-2007
*@version       $Revision$ $Date$
// +------------------------------------------------------------------------------------------------------+
*/

// +------------------------------------------------------------------------------------------------------+
// |                                            ENTÊTE du PROGRAMME                                       |
// +------------------------------------------------------------------------------------------------------+
// Inclusion des fichiers jpgraph nécessaires
include '../../../../api/jpgraph_2.1.4/jpgraph.php';
include '../../../../api/jpgraph_2.1.4/jpgraph_pie.php';
include '../../../../api/jpgraph_2.1.4/jpgraph_pie3d.php';

// Inclusion du fichier de configuration de Papyrus
include '../../../../papyrus/configuration/pap_config.inc.php';

// Inclusion de la bibliothèque PEAR DB nécessaire
include 'DB.php';

// +------------------------------------------------------------------------------------------------------+
// |                                            CORPS du PROGRAMME                                        |
// +------------------------------------------------------------------------------------------------------+

// Connexion à la base de données
$db = DB::connect(PAP_DSN) ;
if (DB::isError($db)) {
    echo 'Message Standard         : ' . $db->getMessage() . "\n";
    echo 'Message DBMS/Utilisateur : ' . $db->getUserInfo() . "\n";
    echo 'Message DBMS/Déboguage   : ' . $db->getDebugInfo() . "\n";
    exit;
}

// Initialisation des variables
$tab_legende_fr = array();
$tab_legende_ss_fr = array();
$tab_donnees_fr = array() ;
$tab_donnees_ss_fr = array() ;
$total_autre = 0;

// Recherche des données
$requete =      'SELECT CP_ID_Pays, CP_Intitule_pays, COUNT(CP_ID_Pays) AS nbre '.
                        'FROM annuaire_tela, carto_PAYS '.
                        'WHERE U_COUNTRY = CP_ID_Pays '.
                        'AND CP_ID_Continent = 4 '.
                        'GROUP BY CP_ID_Pays '.
                        'ORDER BY nbre DESC';

$resultat = $db->query($requete) ;

while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
        $id = $ligne->CP_ID_Pays;
    $legende_libelle = $ligne->CP_Intitule_pays.' (%1.2f%%)';
    if ($id != 'fr' && $id != 'FR') {
        $tab_donnees_ss_fr[] = $ligne->nbre;
        $tab_legende_ss_fr[] = $legende_libelle;
        $total_autre += $ligne->nbre;
    } else {
        $tab_donnees_fr[] = $ligne->nbre;
        $tab_legende_fr[] = $legende_libelle;
    }
}
$tab_donnees_fr[] = $total_autre;
$tab_legende_fr[] = 'Autres pays européens (%1.2f%%)';

//echo '<pre>'.print_r($tab_donnees_ss_fr, true).'</pre>';
//echo '<pre>'.print_r($tab_legende, true).'</pre>';

$graph  = new PieGraph(510, 700, 'camembert_distribution_europe.png', 3600);

$graph->SetShadow();
$graph->title->Set('Distribution des inscrits en Europe');
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$graph->legend->Pos(0.02, 0.10, 'right', 'top');

$p1 = new PiePlot($tab_donnees_fr);
$p1->setStartAngle(180);
$p1->SetSize(0.15);
$p1->SetCenter(0.60, 0.15);
//$p1->SetLegends($tab_legende_fr);
$p1->SetLabelType(PIE_VALUE_PER);
//$p1->value->SetFormat('%1.2f%%');
$p1->SetLabels($tab_legende_fr);  
//$p1->title->Set('France');
$p1->SetLabelPos(1);

$p2 = new PiePlot($tab_donnees_ss_fr);
$p2->setStartAngle(180);
$p2->SetSize(0.22);
$p2->SetCenter(0.60, 0.75);
//$p2->SetLegends($tab_legende_ss_fr);
$p2->SetLabelType(PIE_VALUE_PER);
//$p2->value->SetFormat('%1.2f%%');
$p2->SetLabels($tab_legende_ss_fr);
$p2->title->Set('Détails des "autres pays"');
$p2->title->SetMargin(20);
$p2->SetLabelPos(1); 

$graph->Add($p1);
$graph->Add($p2);
$graph->Stroke();

/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log$
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>