Subversion Repositories Sites.tela-botanica.org

Compare Revisions

No changes between revisions

Ignore whitespace Rev 3 → Rev 4

/trunk/sites/reseau/fr/images/graph_forum.php
New file
0,0 → 1,91
<?php
 
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' ;
$month=array(
"Jan","Feb","Mar","Apr","Maj","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
 
$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&eacute;boguage : ' . $db->getDebugInfo() . "\n";
exit;
}
 
$GraphData = array() ;
$requete = "select min(IS_DATE) as min,max(IS_DATE) as max from ins_STATS" ;
$resultat = $db->query($requete) ;
if (DB::isError ($resultat)) {
die ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;
}
$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;
$date_fin = $ligne->max ;
$currentDate = $ligne->min ;
$i = 0 ;
 
// requête pour les trois premières semaines
$query2 = "select IS_ACTION from ins_STATS where IS_DATE>=\"$currentDate\"
and IS_DATE < DATE_ADD(\"$currentDate\", INTERVAL 21 DAY)" ;
 
$result2 = $db->query($query2) ;
if (DB::isError ($result2)) {
die ("Echec de la requete : $query2<br />".$result2->getMessage()) ;
}
$NBR = 0 ;
while ($row2 = $result2->fetchRow(DB_FETCHMODE_OBJECT)) {
if ($row2->IS_ACTION=="add") $NBR++ ;
if ($row2->IS_ACTION=="del") $NBR-- ;
}
$GraphData[$i] = $NBR + $GraphData[$i-1];
$i++ ;
$query3 = "select DATE_ADD(\"$currentDate\", INTERVAL 21 DAY) as new_date" ;
$result3 = $db->query ($query3) ;
$row3 = $result3->fetchRow(DB_FETCHMODE_OBJECT) ;
$currentDate = $row3->new_date ;
 
 
//Requete pour les autres semaines
while ($currentDate <= $date_fin) {
$query2 = "select IS_ACTION from ins_STATS where IS_DATE>=\"$currentDate\"
and IS_DATE < DATE_ADD(\"$currentDate\", INTERVAL 7 DAY)" ;
 
$result2 = $db->query($query2) ;
$NBR = 0 ;
while ($row2 = $result2->fetchRow(DB_FETCHMODE_OBJECT)) {
if ($row2->IS_ACTION=="add") $NBR++ ;
if ($row2->IS_ACTION=="del") $NBR-- ;
}
$GraphData[$i] = $NBR + $GraphData[$i-1];
$i++ ;
$query4 = "select DATE_ADD(\"$currentDate\", INTERVAL 7 DAY) as new_date" ;
$result4 = $db->query ($query4) ;
$row3 = $result4->fetchRow(DB_FETCHMODE_OBJECT);
$currentDate = $row3->new_date ;
}
 
$datay = array_values($GraphData) ;
 
$graph = new Graph(500,400,"auto");
$graph->img->SetMargin(30,30,30,40);
$graph->SetMarginColor("white");
$graph->SetScale("int");
$graph->SetShadow();
 
 
$graph->title->Set("Evolution du nombre d'inscrits au Réseau");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
 
$graph->xaxis->title->Set("Semaines depuis le 1er avril 2002");
$p1 = new LinePlot($datay);
$p1->SetColor("brown") ;
 
$graph->Add($p1);
 
$graph->Stroke();
?>
/trunk/sites/reseau/fr/images/graph_niv.php
New file
0,0 → 1,64
<?php
 
include ("../../../../api/jpgraph_1.12.2/jpgraph.php") ;
include ("../../../../api/jpgraph_1.12.2/jpgraph_pie.php");
include ("../../../../papyrus/configuration/pap_config.inc.php") ;
include_once 'DB.php' ;
 
 
$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&eacute;boguage : ' . $db->getDebugInfo() . "\n";
exit;
}
 
// requête sur les semaines
 
$data = array() ;
$legend = array() ;
 
$requete = "SELECT count( U_NIV ) AS NBR, LABEL_NIV
FROM annuaire_tela, annuaire_LABEL_NIV
WHERE U_NIV = ID_LABEL_NIV AND U_NIV <>4
GROUP BY ID_LABEL_NIV " ;
$resultat = $db->query($requete) ;
if (DB::isError ($resultat)) {
die ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;
}
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
$data[] = $ligne->NBR ;
$legende[] = $ligne->LABEL_NIV;
}
$datay = array_values($data) ;
 
$graph = new PieGraph(500,400,"auto");
$graph->SetShadow();
 
 
// Set A title for the plot
$graph->title->Set("Répartition des inscrits au réseau selon leur niveau en botanique");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$graph->title->SetColor('black');
$graph->legend->Pos(0.04,0.08);
 
// Create pie plot
$p1 = new PiePlot($datay);
$p1->SetSliceColors(array('yellow','orange','red'));
$p1->SetCenter(0.5,0.6);
 
$p1->SetLabelType(PIE_VALUE_PER) ;
$p1->value->SetFormat('%d %%') ;
$p1->value->Show();
 
$p1->SetLegends($legende);
 
$graph->Add($p1);
$graph->Stroke();
 
 
 
?>
/trunk/sites/reseau/fr/images/schema_com_pilo.png
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/schema_com_pilo.png
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/reseau.png
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/reseau.png
New file
Property changes:
Added: svn:executable
+*
\ No newline at end of property
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/revue_presse/EchoGaillarde.png
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/revue_presse/EchoGaillarde.png
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/revue_presse/logo_herbalia.png
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/revue_presse/logo_herbalia.png
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/revue_presse/logo_flora_quebeca.gif
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/revue_presse/logo_flora_quebeca.gif
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/revue_presse/plante_et_nature.png
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/revue_presse/plante_et_nature.png
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/revue_presse/gazette_jardin.png
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/revue_presse/gazette_jardin.png
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/revue_presse/logo_rustica.png
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/revue_presse/logo_rustica.png
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/revue_presse/ecofor.gif
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/revue_presse/ecofor.gif
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/revue_presse/garance.png
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/revue_presse/garance.png
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/revue_presse/loiseau.png
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/revue_presse/loiseau.png
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/revue_presse/pindalepe.jpeg
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/revue_presse/pindalepe.jpeg
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/revue_presse/mediterranee-2000.gif
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/revue_presse/mediterranee-2000.gif
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/revue_presse/logo_BFM.gif
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/revue_presse/logo_BFM.gif
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/revue_presse/lettre_environnement.png
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/revue_presse/lettre_environnement.png
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/revue_presse/sbco.gif
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/revue_presse/sbco.gif
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/revue_presse/brg.png
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/revue_presse/brg.png
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/revue_presse/logo_libe.gif
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/revue_presse/logo_libe.gif
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/reseau2.png
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/sites/reseau/fr/images/reseau2.png
New file
Property changes:
Added: svn:executable
+*
\ No newline at end of property
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/sites/reseau/fr/images/graph_ass.php
New file
0,0 → 1,60
<?php
include ("../../../../api/jpgraph_1.12.2/jpgraph.php") ;
include ("../../../../api/jpgraph_1.12.2/jpgraph_pie.php");
include ("../../../../papyrus/configuration/pap_config.inc.php") ;
include_once 'DB.php' ;
 
 
$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&eacute;boguage : ' . $db->getDebugInfo() . "\n";
exit;
}
 
// requête sur les semaines
 
$data = array() ;
 
for ($i = 1 ; $i < 3 ; $i++) {
$requete = "select count(U_ASS) as NBR from annuaire_tela where U_ASS=\"$i\"" ;
$resultat = $db->query($requete) ;
if (DB::isError ($resultat)) {
die ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;
}
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
$data[] = $ligne->NBR ;
}
}
$datay = array_values($data) ;
 
$graph = new PieGraph(500,400,"auto");
$graph->SetShadow();
 
 
// Set A title for the plot
$graph->title->Set("Appartenance a une association");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$graph->title->SetColor("black");
$graph->legend->Pos(0.1,0.1);
 
// Create pie plot
$p1 = new PiePlot($datay);
$p1->SetSliceColors(array('red','yellow'));
 
$p1->SetCenter(0.5,0.6);
$p1->SetLabelType(PIE_VALUE_PER) ;
$p1->value->SetFormat('%d %%') ;
$p1->value->Show();
 
$p1->SetLegends(array("oui", "non"));
 
$graph->Add($p1);
$graph->Stroke();
 
 
 
?>