[dw-free] Manage Comments page: 'Manage Comment Settings' link without ?authas

[afuna]

[commit: http://hg.dwscoalition.org/dw-free/rev/d859441db241]

http://bugs.dwscoalition.org/show_bug.cgi?id=1989

Add "?authas=community" to link to manage/comments if applicable.

Patch by yvi.

Files modified:

• htdocs/tools/recent_comments.bml

--------------------------------------------------------------------------------
diff -r cb3016e86c40 -r d859441db241 htdocs/tools/recent_comments.bml
--- a/htdocs/tools/recent_comments.bml	Sat Nov 28 10:01:10 2009 +0000
+++ b/htdocs/tools/recent_comments.bml	Sat Nov 28 10:19:16 2009 +0000
@@ -85,7 +85,8 @@ body<=
     $ret .= BML::ml('Actionlink', { link => $ML{'.latest.received'}}) . " "
         if $u->is_person;
     $ret .= BML::ml('Actionlink', { link => "<a href='#posted'>$ML{'.latest.posted'}</a>"}) . " ";
-    $ret .= BML::ml('Actionlink', { link => "<a href='$LJ::SITEROOT/manage/comments'>$ML{'.managesettings'}</a>"});
+    my $getextra = $authas ne $remote->user ? "?authas=$authas" : "";
+    $ret .= BML::ml('Actionlink', { link => "<a href='$LJ::SITEROOT/manage/comments$getextra'>$ML{'.managesettings'}</a>"});
 
     $ret .= "<br />";
     $ret .= " $ML{ '.view.latest' } [ ";
--------------------------------------------------------------------------------