X-Git-Url: http://git.polytechnique.org/?a=blobdiff_plain;f=include%2Fbanana%2Fml.inc.php;h=83959ff772c87f3922cd622c4b49ef58679a4f22;hb=bc0276a2d79d88a56656514fe24bd427c0ef3b88;hp=f17e02a0fc590fd1a47dc6a0bc5d2a5e252b0084;hpb=b8971a3ed64f3ba69becf1cd8f3b32ee2292026d;p=platal.git

diff --git a/include/banana/ml.inc.php b/include/banana/ml.inc.php
index f17e02a..83959ff 100644
--- a/include/banana/ml.inc.php
+++ b/include/banana/ml.inc.php
@@ -1,6 +1,6 @@
 <?php
 /***************************************************************************
- *  Copyright (C) 2003-2008 Polytechnique.org                              *
+ *  Copyright (C) 2003-2013 Polytechnique.org                              *
  *  http://opensource.polytechnique.org/                                   *
  *                                                                         *
  *  This program is free software; you can redistribute it and/or modify   *
@@ -19,7 +19,6 @@
  *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
  ***************************************************************************/
 
-require_once 'banana/banana.inc.php';
 require_once 'banana/hooks.inc.php';
 
 class PlatalBananaMLPage extends PlatalBananaPage
@@ -47,25 +46,23 @@ class MLBanana extends Banana
     static public $domain;
     private $user;
 
-    function __construct(User &$user, $params = null)
+    function __construct(User $user, $params = null)
     {
         global $globals;
         $this->user = &$user;
 
-        Banana::$spool_root = $globals->banana->spool_root;
+        Banana::$spool_root = $globals->spoolroot . '/spool/banana/';
         Banana::$spool_boxlist = false;
         Banana::$msgedit_canattach = true;
         Banana::$debug_mbox = ($globals->debug & DEBUG_BT);
         Banana::$debug_smarty = ($globals->debug & DEBUG_SMARTY);
-        Banana::$mbox_helper = $globals->banana->mbox_helper;
+        Banana::$mbox_helper = $globals->spoolroot . '/banana/mbox-helper/mbox-helper';
         Banana::$feed_updateOnDemand = true;
-        if (S::has_perms()) {
+        if (S::admin()) {
             Banana::$msgshow_mimeparts[] = 'source';
         }
         array_push(Banana::$msgparse_headers, 'x-org-id', 'x-org-mail');
-        if (!S::v('core_rss_hash')) {
-            Banana::$feed_active = false;
-        }
+        Banana::$feed_active = S::hasAuthToken();
 
         MLBanana::$listname = $params['listname'];
         MLBanana::$domain   = $params['domain'];
@@ -82,6 +79,17 @@ class MLBanana extends Banana
         $sig  = $nom . ' (' . S::v('promo') . ')';
         Banana::$msgedit_headers['X-Org-Mail'] = $this->user->forlifeEmail();
 
+        // Tree color
+        $req = XDB::query('SELECT  tree_unread, tree_read
+                             FROM  forum_profiles
+                            WHERE  uid= {?}', $this->user->id());
+        if (!(list($unread, $read) = $req->fetchOneRow())) {
+            $unread = 'o';
+            $read = 'dg';
+        }
+        Banana::$tree_unread = $unread;
+        Banana::$tree_read = $read;
+
         // Build user profile
         Banana::$profile['headers']['From']         = "$nom <$mail>";
         Banana::$profile['headers']['Organization'] = make_Organization();
@@ -96,7 +104,7 @@ class MLBanana extends Banana
     }
 }
 
-require_once('banana/mbox.inc.php');
+require_once dirname(__FILE__) . '/../../banana/banana/mbox.inc.php';
 
 class BananaMLArchive extends BananaMBox
 {