Subversion Repositories Applications.papyrus

Rev

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

Rev Author Line No. Line
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&ecirc;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&ecirc;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&ecirc;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&ecirc;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&ecirc;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&ecirc;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 
?>