| 448 |
ddelon |
1 |
<?php
|
|
|
2 |
/*vim: set expandtab tabstop=4 shiftwidth=4: */
|
|
|
3 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
4 |
// | PHP version 4.1 |
|
|
|
5 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
6 |
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
|
|
|
7 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
8 |
// | This library is free software; you can redistribute it and/or |
|
|
|
9 |
// | modify it under the terms of the GNU General Public |
|
|
|
10 |
// | License as published by the Free Software Foundation; either |
|
|
|
11 |
// | version 2.1 of the License, or (at your option) any later version. |
|
|
|
12 |
// | |
|
|
|
13 |
// | This library is distributed in the hope that it will be useful, |
|
|
|
14 |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
|
15 |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
|
|
|
16 |
// | General Public License for more details. |
|
|
|
17 |
// | |
|
|
|
18 |
// | You should have received a copy of the GNU General Public |
|
|
|
19 |
// | License along with this library; if not, write to the Free Software |
|
|
|
20 |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
|
|
21 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
22 |
// CVS : $Id: arbre_des_forumsV3.php,v 1.1 2005-09-22 14:02:48 ddelon Exp $
|
|
|
23 |
/**
|
|
|
24 |
* Application arbre des forums
|
|
|
25 |
*
|
|
|
26 |
* Fichier d'appel pour papyrus
|
|
|
27 |
*
|
|
|
28 |
*@package projet
|
|
|
29 |
//Auteur original :
|
|
|
30 |
*@author Alexandre Granier <alexandre@tela-botanica.org>
|
|
|
31 |
//Autres auteurs :
|
|
|
32 |
*@author Aucun
|
|
|
33 |
*@copyright Tela-Botanica 2000-2004
|
|
|
34 |
*@version $Revision: 1.1 $
|
|
|
35 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
36 |
*/
|
|
|
37 |
|
|
|
38 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
39 |
// | ENTETE du PROGRAMME |
|
|
|
40 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
41 |
|
|
|
42 |
|
|
|
43 |
include_once 'configuration/projet.config.inc.php' ;
|
|
|
44 |
include_once PROJET_CHEMIN_API_ARBRE.'arbre.class.php' ;
|
|
|
45 |
|
|
|
46 |
// Inclusion des styles selon papyrus
|
|
|
47 |
if (function_exists("GEN_stockerStyleExterne")) {
|
|
|
48 |
GEN_stockerStyleExterne('projet','client/projet/arbre.css') ;
|
|
|
49 |
}
|
|
|
50 |
|
|
|
51 |
|
|
|
52 |
function afficherContenuNavigation()
|
|
|
53 |
{
|
|
|
54 |
$sortie = '';
|
|
|
55 |
if (isset($_GET['forum']) || isset($GLOBALS['_GEN_commun']['info_application']->aide)) {
|
|
|
56 |
if (!isset($_GET['forum'])) {
|
|
|
57 |
$_GET['forum'] = '[exemple]' ;
|
|
|
58 |
$_GET['aide'] = 1 ;
|
|
|
59 |
}
|
|
|
60 |
$sortie .= '<ul class="menu_classique_n3">';
|
|
|
61 |
if (isset($_GET['aide'])) {
|
|
|
62 |
$style_aide = 'menu_actif' ;
|
|
|
63 |
$style_info = 'menu_inactif' ;
|
|
|
64 |
} else {
|
|
|
65 |
$style_aide = 'menu_inactif' ;
|
|
|
66 |
$style_info = 'menu_actif' ;
|
|
|
67 |
}
|
|
|
68 |
$GLOBALS['url']->addQueryString('forum', $_GET['forum']);
|
|
|
69 |
$sortie .= '<li class="'.$style_info.'"><a href="'.$GLOBALS['url']->getURL().'">Infos</a></li>';
|
|
|
70 |
$GLOBALS['url']->addQueryString('aide', 1);
|
|
|
71 |
$sortie .= '<li class="'.$style_aide.'"><a href="'.$GLOBALS['url']->getURL().'">Aide</a></li>';
|
|
|
72 |
$sortie .= '</ul>';
|
|
|
73 |
}
|
|
|
74 |
return $sortie;
|
|
|
75 |
}
|
|
|
76 |
|
|
|
77 |
|
|
|
78 |
function afficherContenuCorps () {
|
|
|
79 |
|
|
|
80 |
if (isset ($_GET['forum']) && !isset($_GET['aide']) /*&& isset($GLOBALS['_GEN_commun']['info_application']->aide)*/) {
|
|
|
81 |
|
|
|
82 |
include_once PROJET_CHEMIN_APPLI.'forums-lst.php' ;
|
|
|
83 |
return putFrame() ;
|
|
|
84 |
}
|
|
|
85 |
|
|
|
86 |
if (isset ($_GET['aide']) ||isset($GLOBALS['_GEN_commun']['info_application']->aide)) {
|
|
|
87 |
if (!isset($_GET['forum'])) $_GET['forum'] = '[exemple]' ;
|
|
|
88 |
if (!isset($_GET['aide'])) $_GET['aide'] = 1 ;
|
|
|
89 |
include_once PROJET_CHEMIN_APPLI.'forums-hlp.php' ;
|
|
|
90 |
return putFrame() ;
|
|
|
91 |
}
|
|
|
92 |
|
|
|
93 |
// Récupération des arguments de papyrus
|
|
|
94 |
$thema = $GLOBALS['_GEN_commun']['info_appli']->theme ;
|
|
|
95 |
|
|
|
96 |
global $num_sem; // le numero de la semaine
|
|
|
97 |
|
|
|
98 |
// requete sur le sommet de l'arbre
|
|
|
99 |
$requete = "SELECT NB_ABONNES,NUM_SEM FROM agora_stats WHERE FORUM=\"tela-botanicae\" ORDER BY NUM_SEM DESC" ;
|
|
|
100 |
$resultat =$GLOBALS['projet_db']->query($requete) ;
|
|
|
101 |
if (DB::isError ($resultat)) {
|
|
|
102 |
die ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;
|
|
|
103 |
}
|
|
|
104 |
$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
|
|
|
105 |
|
|
|
106 |
// le numero de la semaine
|
|
|
107 |
if (empty($num_sem)) $num_sem = $ligne->NUM_SEM ;
|
|
|
108 |
|
|
|
109 |
// requete sur le sommet de l'arbre avec le bon numero de semaine
|
|
|
110 |
$resultat_sommet = $GLOBALS['projet_db']->query("SELECT NB_ABONNES,NB_MESSAGES FROM agora_stats WHERE FORUM=\"tela-botanicae\" AND NUM_SEM=\"$num_sem\"");
|
|
|
111 |
$ligne_sommet = $resultat_sommet->fetchRow(DB_FETCHMODE_OBJECT) ;
|
|
|
112 |
$nb_total_mess = $ligne_sommet->NB_MESSAGES;
|
|
|
113 |
$nb_total_abon = $ligne_sommet->NB_ABONNES;
|
|
|
114 |
|
|
|
115 |
$requete_donnee_sommet = "SELECT AGO_A_LIEN_PUCE,AGO_A_LIEN_FEUILLE,AGO_A_LIEN_BRANCHE FROM agora WHERE AGO_A_NOMGRP=\"tela-botanicae\"" ;
|
|
|
116 |
$resultat_donnee_sommet = $GLOBALS['projet_db']->query($requete_donnee_sommet) or die ("Echec de la requête sur les forums2");
|
|
|
117 |
$ligne_donnee_sommet = $resultat_donnee_sommet->fetchRow(DB_FETCHMODE_OBJECT) ;
|
|
|
118 |
|
|
|
119 |
// creation de l'arbre
|
|
|
120 |
$arbreforum = new arbre("Botanique générale",$ligne_donnee_sommet->AGO_A_LIEN_BRANCHE,$nb_total_abon, $ligne_donnee_sommet->AGO_A_LIEN_FEUILLE,
|
|
|
121 |
"http://fr.groups.yahoo.com/group/tela-botanicae/messages") ;
|
|
|
122 |
|
|
|
123 |
$res = "<h1>L'arbre des forums de Tela Botanica</h1>\n" ;
|
|
|
124 |
$res .= '<table width="600" cellspacing="5" cellpadding="0" border="0" summary="">' ;
|
|
|
125 |
$GLOBALS['url']->addQueryString ('forum', 'tela-botanicae') ;
|
|
|
126 |
$ligne_donnee_sommet->AGO_A_LIEN_BRANCHE = $GLOBALS['url']->getURL() ;
|
|
|
127 |
$res .= $arbreforum->cime("Botanique générale",$ligne_donnee_sommet->AGO_A_LIEN_BRANCHE,$nb_total_abon,
|
|
|
128 |
$ligne_donnee_sommet->AGO_A_LIEN_FEUILLE,
|
|
|
129 |
"http://fr.groups.yahoo.com/group/tela-botanicae/messages") ;
|
|
|
130 |
// requete sur les branches
|
|
|
131 |
// d'abord les nom des groupes
|
|
|
132 |
$requete_branche = "SELECT agora.AGO_A_NOMGRP FROM agora" ;
|
|
|
133 |
if (!empty($thema)) $requete_branche.= ",agora_join" ;
|
|
|
134 |
$requete_branche .= " WHERE agora.AGO_A_NOMGRP<>\"tela-botanicae\" AND agora.AGO_A_VISIBLE=1 and AGO_A_GRP_TB=0" ; // On ne garde que les projets hors Tela
|
|
|
135 |
if (!empty($thema)) $requete_branche .= " AND agora.AGO_A_ID=agora_join.AGO_J_IDFORUM and AGO_J_IDCATEG=\"$thema\"" ;
|
|
|
136 |
$requete_branche .= " ORDER BY AGO_A_ALIAS ASC" ;
|
|
|
137 |
|
|
|
138 |
$resultat_branche = $GLOBALS['projet_db']->query($requete_branche) ;
|
|
|
139 |
|
|
|
140 |
//tableau stockant la différence du nbre de messages entre la semaine en cours dans la page et la semaine précédente
|
|
|
141 |
$diff_message = array();
|
|
|
142 |
while ($ligne_branche = $resultat_branche->fetchRow(DB_FETCHMODE_OBJECT)) {
|
|
|
143 |
$query_nb_message_1 = "SELECT NB_MESSAGES FROM agora_stats WHERE FORUM=\"$ligne_branche->AGO_A_NOMGRP\" AND NUM_SEM=\"$num_sem\"";
|
|
|
144 |
$result_nb_message_1 = mysql_query($query_nb_message_1) or die ("Echec sur la requête _nb_message_1") ;
|
|
|
145 |
$row_nb_message_1 = mysql_fetch_object($result_nb_message_1) ;
|
|
|
146 |
$query_nb_message_2 = "SELECT NB_MESSAGES FROM agora_stats WHERE FORUM=\"$ligne_branche->AGO_A_NOMGRP\" AND NUM_SEM= ".($num_sem -1)."";
|
|
|
147 |
$result_nb_message_2 = mysql_query($query_nb_message_2) or die ("Echec sur la requête _nb_message_2") ;
|
|
|
148 |
$row_nb_message_2 = mysql_fetch_object($result_nb_message_2) ;
|
|
|
149 |
$diff_message[$row_message->AGO_A_NOMGRP] = $row_nb_message_1->NB_MESSAGES - $row_nb_message_2->NB_MESSAGES;
|
|
|
150 |
}
|
|
|
151 |
$result1 = mysql_query($requete_branche) or die ("Echec de la requête sur les forums");
|
|
|
152 |
while ($row1 = mysql_fetch_object($result1)) {
|
|
|
153 |
// pour chaque groupe, le nbre de messages et le nbre d'abonnes
|
|
|
154 |
$query2 = "SELECT NB_MESSAGES,NB_ABONNES FROM agora_stats WHERE FORUM=\"$row1->AGO_A_NOMGRP\" AND NUM_SEM=\"$num_sem\"" ;
|
|
|
155 |
$result2 = mysql_query($query2) or die ("Echec de la requête sur agora_stats");
|
|
|
156 |
$row2 = mysql_fetch_object($result2) ;
|
|
|
157 |
// et le reste des informations pour chaque groupe
|
|
|
158 |
$query3 = "SELECT AGO_A_ALIAS,AGO_A_LIEN_BRANCHE,AGO_A_LIEN_FEUILLE,AGO_A_LIEN_PUCE,AGO_A_COULEUR,AGO_A_TAILLE_B,AGO_A_NOMGRP FROM agora WHERE AGO_A_NOMGRP=\"$row1->AGO_A_NOMGRP\"";
|
|
|
159 |
$result3 = mysql_query($query3) or die ("Echec sur la requête 3") ;
|
|
|
160 |
$row3 = mysql_fetch_object($result3) ;
|
|
|
161 |
$lien_feuille = "http://fr.groups.yahoo.com/group/$row1->AGO_A_NOMGRP/messages" ;
|
|
|
162 |
$lien_nombre = "http://fr.groups.yahoo.com/group/$row1->AGO_A_NOMGRP/members" ;
|
|
|
163 |
// On cherche à obtenir une valeur entre 0 et 100 pour déterminer la couleur de la feuille de l'arbre
|
|
|
164 |
$maxi_message = max($diff_message);
|
|
|
165 |
if ($maxi_message == 0){$maxi_message = 0.01;}
|
|
|
166 |
$calcul_couleur = ($diff_message[$row1->AGO_A_NOMGRP])/$maxi_message*100;
|
|
|
167 |
//Fin. La valeur de la couleur pour le groupe en cours est stocké dans $calcul_couleur
|
|
|
168 |
if ($row2->NB_ABONNES != 0) {//pour ne pas afficher les branches n'existant pas encore à la semaine donnée
|
|
|
169 |
$GLOBALS['url']->addQueryString('forum', $row3->AGO_A_NOMGRP) ;
|
|
|
170 |
$row3->AGO_A_LIEN_BRANCHE = $GLOBALS['url']->getURL() ;
|
|
|
171 |
$arbreforum->addBranche($row3->AGO_A_ALIAS,$row3->AGO_A_LIEN_BRANCHE,$row2->NB_ABONNES,$lien_nombre,$lien_feuille,$calcul_couleur,$row3->AGO_A_TAILLE_B);
|
|
|
172 |
// info pour le cartouche
|
|
|
173 |
$nb_total_mess += $row2->NB_MESSAGES;
|
|
|
174 |
$nb_total_abon += $row2->NB_ABONNES;
|
|
|
175 |
}
|
|
|
176 |
}
|
|
|
177 |
|
|
|
178 |
$res .= $arbreforum->affBranche() ;
|
|
|
179 |
$res .= $arbreforum->affRacine() ;
|
|
|
180 |
$res .= '</table>' ;
|
|
|
181 |
include_once PROJET_CHEMIN_APPLI.'cartouche.php' ;
|
|
|
182 |
return $res ;
|
|
|
183 |
}
|
|
|
184 |
|
|
|
185 |
|
|
|
186 |
//-- End of source ------------------------------------------------------------
|
|
|
187 |
?>
|