From 33364b4a63d9082eed3a956f7a1567f343839999 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Mon, 24 Sep 2012 21:48:09 +0200
Subject: wibble

---
 lib/Fripost/Panel/Interface.pm | 2 ++
 lib/Fripost/Panel/Login.pm     | 7 ++++---
 lib/Fripost/Schema/Local.pm    | 1 +
 template/edit-list.html        | 5 +++--
 4 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/lib/Fripost/Panel/Interface.pm b/lib/Fripost/Panel/Interface.pm
index 7b172af..db6752e 100644
--- a/lib/Fripost/Panel/Interface.pm
+++ b/lib/Fripost/Panel/Interface.pm
@@ -338,6 +338,8 @@ sub EditLocal : Runmode {
     $template->param( newChanges => $news );
     $template->param( error => encode_entities ($error, "‘‘") ) if $error;
     $template->param( canDelete => 1 ) if $t eq 'alias'; # TODO
+    $template->param( listurl => $CFG{'listurl_'.$local{transport}}.$l.'@'.$d )
+        if $t eq 'list';
     $q->delete('a');
     return $template->output;
 }
diff --git a/lib/Fripost/Panel/Login.pm b/lib/Fripost/Panel/Login.pm
index 1483e06..8132310 100644
--- a/lib/Fripost/Panel/Login.pm
+++ b/lib/Fripost/Panel/Login.pm
@@ -110,9 +110,10 @@ sub setup {
         return 'ListDomains' unless (defined $null) and $null eq '';
 
         unless (defined $domain and $domain ne '') {
-            if (defined $a) {
-                return 'AddDomain' if $a eq 'add';
-            }
+            # TODO
+#            if (defined $a) {
+#                return 'AddDomain' if $a eq 'add';
+#            }
             return 'ListDomains';
         }
 
diff --git a/lib/Fripost/Schema/Local.pm b/lib/Fripost/Schema/Local.pm
index 89c0a9a..bf92555 100644
--- a/lib/Fripost/Schema/Local.pm
+++ b/lib/Fripost/Schema/Local.pm
@@ -87,6 +87,7 @@ sub get {
     elsif ($local->dn =~ /^fvl=/) {
         $ret{type} = 'list';
         $ret{list} = $local->get_value('fvl');
+        $ret{transport} = $local->get_value('fripostListManager');
     }
     $ret{isactive} = $local->get_value('fripostIsStatusActive') eq 'TRUE';
     $ret{description} = concat($concat, $local->get_value('description'));
diff --git a/template/edit-list.html b/template/edit-list.html
index 25d7af5..f44e38c 100644
--- a/template/edit-list.html
+++ b/template/edit-list.html
@@ -22,8 +22,9 @@
     <hr/>
 
     <div id="content">
-    <h1>Edit list <span class="email"><TMPL_VAR NAME=list>@<TMPL_VAR NAME=domain></span></h1>
-
+    <h1>Edit list <a class="external" target="_blank" href="<TMPL_VAR NAME=listurl>"
+                  ><span class="email"><TMPL_VAR NAME=list>@<TMPL_VAR NAME=domain></span
+                  ></a></h1>
 
     <TMPL_IF NAME=newChanges>
       <TMPL_IF NAME=error>
-- 
cgit v1.2.3