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.                                                                         |

// |                                                                                                      |

// | 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$

/**

* tela_botanica_v4 - graph_niveau_bota.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                                       |

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

include ("../../../../api/jpgraph_1.12.2/jpgraph.php") ;

include ("../../../../api/jpgraph_1.12.2/jpgraph_line.php") ;

include ("../../../../api/jpgraph_1.12.2/jpgraph_bar.php");

include ("../../../../papyrus/configuration/pap_config.inc.php") ;

include_once 'DB.php' ;

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

// |                                            CORPS du PROGRAMME                                        |

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

$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;

}

$tab_mois = array('Jan', 'Fev', 'Mar', 'Avr', 'Mai', 'Juin', 'Juil', 'Août', 'Sep', 'Oct', 'Nov', 'Dec');

$tab_legende_axe_x = array('');

$tab_legende = array();

$tab_donnees = array() ;

$tab_donnees_max = array();

$annee = 2002;

$tps_debut = mktime(0,0,0,1,1,$annee);

$tps_courrant = $tps_debut;

$tps_fin = mktime(0,0,0,0,0);// dernier jour du mois précedent le mois courrant

//Requete par mois

$i = 0;

while  ($tps_courrant <= $tps_fin) {

	$tps_suivant = mktime(0,0,0,1,1,$annee+1);

	//echo date('Y-m-d H:i:s', $tps_courrant).' - '.date('Y-m-d H:i:s', $tps_suivant);

	$requete = 	'SELECT ID_LABEL_NIV, COUNT( U_NIV ) AS nbre, LABEL_NIV '.

				'FROM annuaire_tela, annuaire_LABEL_NIV '.

				'WHERE U_DATE >= "'.date('Y-m-d H:i:s', $tps_courrant).'" '.

				'AND U_NIV = ID_LABEL_NIV '.

				'AND U_DATE < "'.date('Y-m-d H:i:s', $tps_suivant).'" '.

				'GROUP BY ID_LABEL_NIV ';

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

	$tab_donnees_max[$i] = 0;

	while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {

    	$tab_donnees[$ligne->ID_LABEL_NIV][$i] = $ligne->nbre;

    	$tab_donnees_max[$i] += $ligne->nbre;

    	if (!isset($legende[$ligne->ID_LABEL_NIV])) {

    		$tab_legende[$ligne->ID_LABEL_NIV] = $ligne->LABEL_NIV;

    	}

	}

	//echo ' - '.$resultat->numRows().'<br/>';

	$tab_legende_axe_x[$i] = $annee;

	$tps_courrant = $tps_suivant;

	$annee++;

	$i++;

}

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

foreach ($tab_donnees as $cle1 => $niveaux) {

	foreach ($niveaux as $cle2 => $quantite) {

		$tab_donnees[$cle1][$cle2] = $quantite/$tab_donnees_max[$cle2]*100;

	}

}

$graph = new Graph(500, 550, 'auto');

$graph->img->SetMargin(50, 30, 50, 150);

$graph->SetMarginColor('white');

$graph->SetScale('textint');

$graph->xaxis->SetTickLabels($tab_legende_axe_x);

$graph->xaxis->SetLabelAngle(90);

$graph->SetShadow();

$graph->title->Set("Évolution du niveau en botanique des inscrits au Réseau au ".date('d-m-Y', $tps_fin));

$graph->title->SetFont(FF_FONT1,FS_BOLD);

$graph->legend->SetLayout(LEGEND_VERT);

$graph->legend->Pos(0.10, 0.80, 'left', 'top');

$txt = new Text('Années', 400, 450);

$graph->AddText($txt);

// Création des lignes

$p1 = new BarPlot($tab_donnees[1]); // Débutant

$p1->value->Show();

$p1->value->SetFormat('%01.0f%%');

$p1->value->SetFont(FF_FONT1,FS_BOLD);

$p2 = new BarPlot($tab_donnees[2]); // Ayant une bonne pratique

$p2->value->Show();

$p2->value->SetFormat('%01.0f%%');

$p2->value->SetFont(FF_FONT1,FS_BOLD);

$p3 = new BarPlot($tab_donnees[3]); // Confirmé

$p3->value->Show();

$p3->value->SetFont(FF_FONT1,FS_BOLD);

$p3->value->SetFormat('%01.0f%%');

$p4 = new BarPlot($tab_donnees[4]); // Ne se prononce pas

$p4->value->Show();

$p4->value->SetFormat('%01.0f%%');

$p4->value->SetFont(FF_FONT1,FS_BOLD);

// Attribution des couleurs

$p1->SetFillColor('#cc3333');

$p2->SetFillColor('#c3d9ff');

$p3->SetFillColor('green');

$p4->SetFillColor('white');

// Attribution des textes pour la légende

$p1->SetLegend($tab_legende[1]);

$p2->SetLegend($tab_legende[2]);

$p3->SetLegend($tab_legende[3]);

$p4->SetLegend($tab_legende[4]);

// Nous ajoutons ensemble les lignes

$ap = new AccBarPlot(array($p4, $p3, $p2, $p1));

// Add the accumulated line plot to the graph

$graph->Add($ap);

$graph->Stroke();

/* +--Fin du code ----------------------------------------------------------------------------------------+

*

* $Log$

*

* +-- Fin du code ----------------------------------------------------------------------------------------+

*/

?>