Subversion Repositories Sites.tela-botanica.org

Rev

Rev 609 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
255 jpm 1
<?php
2
 
3
include ("../../../../api/jpgraph_1.12.2/jpgraph.php") ;
4
include ("../../../../api/jpgraph_1.12.2/jpgraph_line.php") ;
5
include ("../../../../api/jpgraph_1.12.2/jpgraph_bar.php");
6
include ("../../../../papyrus/configuration/pap_config.inc.php") ;
7
 
8
include_once 'DB.php' ;
9
$db = DB::connect (PAP_DSN) ;
10
if (DB::isError($db)) {
11
    echo 'Message Standard         : ' . $db->getMessage() . "\n";
12
    echo 'Message DBMS/Utilisateur : ' . $db->getUserInfo() . "\n";
13
    echo 'Message DBMS/D&eacute;boguage   : ' . $db->getDebugInfo() . "\n";
14
    exit;
15
}
16
 
257 jpm 17
$tab_mois = array('Jan', 'Fev', 'Mar', 'Avr', 'Mai', 'Juin', 'Juil', 'Août', 'Sep', 'Oct', 'Nov', 'Dec');
255 jpm 18
$tab_donnees = array() ;
257 jpm 19
if (isset($_GET['annee'])) {
20
	$tps_debut = mktime(0,0,0,1,1, $_GET['annee']);
21
	$tps_fin = mktime(23,59,59,12,31, $_GET['annee']);
22
	$annee = $_GET['annee'];
23
} else {
24
	$tps_debut = mktime(0,0,0,1,1);
25
	$tps_fin = time();// jour courrant
26
	$annee = date('Y', $tps_fin);
27
}
255 jpm 28
$tps_courrant = $tps_debut;
29
$i = 1;
30
//Requete par mois
31
while  ($tps_courrant <= $tps_fin) {
32
	//$tps_semaine_suivante = $tps_courrant + (7 * 24 * 60 * 60);
257 jpm 33
	$tps_mois_suivant = mktime(0,0,0,$i+1,1,$annee);
255 jpm 34
	//echo date('Y-m-d H:i:s', $tps_courrant).' - '.date('Y-m-d H:i:s', $tps_mois_suivant);
35
	$requete = 	'SELECT U_DATE '.
36
				'FROM annuaire_tela '.
37
				'WHERE U_DATE >= "'.date('Y-m-d H:i:s', $tps_courrant).'" '.
38
				'AND U_DATE < "'.date('Y-m-d H:i:s', $tps_mois_suivant).'" ';
39
	$resultat = $db->query($requete) ;
40
	$tab_donnees[$i++] = $resultat->numRows();
41
	//echo ' - '.$resultat->numRows().'<br/>';
42
	$tps_courrant = $tps_mois_suivant;
43
}
44
//echo '<pre>'.print_r($tab_donnees, true).'</pre>';
45
$tab_donnees = array_values($tab_donnees);
46
 
257 jpm 47
$graph = new Graph(500, 400, 'auto');
48
$graph->img->SetMargin(30, 30, 30, 40);
49
$graph->SetMarginColor('white');
255 jpm 50
$graph->SetScale('textint');
51
$graph->xaxis->SetTickLabels($tab_mois);
52
$graph->SetShadow();
53
$graph->title->Set("Nombre d'inscrits au Réseau au ".date('d-m-Y', $tps_fin));
54
$graph->title->SetFont(FF_FONT1,FS_BOLD);
257 jpm 55
$graph->xaxis->title->Set("Mois depuis le 1er janvier $annee");
255 jpm 56
 
57
$bPlot = new BarPlot($tab_donnees);
58
$bPlot->value->Show();
257 jpm 59
$bPlot->value->SetFormat('%s');
60
$bPlot->SetColor('brown') ;
255 jpm 61
 
62
$graph->Add($bPlot);
63
$graph->Stroke();
64
?>