From 33364b4a63d9082eed3a956f7a1567f343839999 Mon Sep 17 00:00:00 2001 From: Guilhem Moulin Date: Mon, 24 Sep 2012 21:48:09 +0200 Subject: wibble --- lib/Fripost/Panel/Interface.pm | 2 ++ lib/Fripost/Panel/Login.pm | 7 ++++--- 2 files changed, 6 insertions(+), 3 deletions(-) (limited to 'lib/Fripost/Panel') 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'; } -- cgit v1.2.3