W3C validation script.

1 files changed, 5 insertions, 4 deletions

diff --git a/lib/Fripost/Panel/Interface.pm b/lib/Fripost/Panel/Interface.pm
index b9a9500..f102a21 100644
--- a/lib/Fripost/Panel/Interface.pm
+++ b/lib/Fripost/Panel/Interface.pm
@@ -17,7 +17,7 @@ use Fripost::Schema;
 use Fripost::Password;
 use HTML::Entities 'encode_entities';
 use URI::Escape::XS 'encodeURIComponent';
-use Net::IDN::Encode qw/email_to_unicode domain_to_ascii/;
+use Net::IDN::Encode qw/email_to_unicode email_to_ascii/;
 
 
 # This method is called right before the 'setup' method below. It
@@ -136,8 +136,8 @@ sub ListLocals : Runmode {
               , isactive => $_->{isactive}
               , ispending => $_->{ispending}
               , transport => $_->{transport}
-              , listURL => $CFG{'listurl_'.$_->{transport}}.$_->{list}.
-                           '@'.domain_to_ascii($d)
+              , listURL => $CFG{'listurl_'.$_->{transport}}.
+                           email_to_ascii($_->{list}.'@'.$d)
               };
             }
             @lists
@@ -325,7 +325,8 @@ sub EditLocal : Runmode {
     $template->param( newChanges => $news );
     $template->param( error => encode_entities ($error) ) if $error;
     $template->param( canDelete => 1 ) if $t eq 'alias';
-    $template->param( listURL => $CFG{'listurl_'.$local{transport}}.$l.'@'.$d )
+    $template->param( listURL => $CFG{'listurl_'.$local{transport}}.
+                                 email_to_ascii($l.'@'.$d) )
         if $t eq 'list';
     $q->delete('a');
     return $template->output;