X-Git-Url: http://git.polytechnique.org/?a=blobdiff_plain;f=modules%2Flists.php;h=422dd77446f40c795d39104c683f34e2f30613ae;hb=c99ef281118de7ab4b45de299701925ad5ebb26c;hp=9a4432cd08892dd0cd96c7c61729dfdf7583ae28;hpb=924231449d16c87d373b7cce27efcf787ee3dcbc;p=platal.git

diff --git a/modules/lists.php b/modules/lists.php
index 9a4432c..422dd77 100644
--- a/modules/lists.php
+++ b/modules/lists.php
@@ -44,6 +44,12 @@ class ListsModule extends PLModule
         );
     }
 
+    function on_subscribe($forlife, $uid, $promo, $password)
+    {
+        $this->prepare_client(null);
+        $this->client->subscribe("promo$promo");
+    }
+
     function prepare_client(&$page)
     {
         require_once 'lists.inc.php';
@@ -267,7 +273,7 @@ class ListsModule extends PLModule
 
         $page->changeTpl('listes/archives.tpl');
 
-        $page->addCssLink('css/lists.archives.css');
+        $page->addCssLink('lists.archives.css');
         if (list($det) = $this->client->get_members($liste)) {
             if (substr($liste,0,5) != 'promo' && ($det['ins'] || $det['priv'])
             && !$det['own'] && ($det['sub'] < 2))
@@ -310,6 +316,7 @@ class ListsModule extends PLModule
         $page->changeTpl('listes/moderate.tpl');
 
         $page->register_modifier('qpd', 'quoted_printable_decode');
+        $page->register_modifier('hdc', 'list_header_decode');
 
         if (Env::has('sadd')) { /* 4 = SUBSCRIBE */
             $this->client->handle_request($liste,Env::v('sadd'),4,'');
@@ -606,7 +613,7 @@ class ListsModule extends PLModule
     }
 
     function handler_admin_all(&$page) {
-        $page->changeTpl('admin/lists.tpl');
+        $page->changeTpl('listes/admin_all.tpl');
         $page->assign('xorg_title','Polytechnique.org - Administration - Mailing lists');
         require_once 'lists.inc.php';