[livejournal] r18514: LJSUP-8119: Remove "Comments from non fr...

U   trunk/cgi-bin/LJ/Setting/CommentScreening.pm

Modified: trunk/cgi-bin/LJ/Setting/CommentScreening.pm
===================================================================
--- trunk/cgi-bin/LJ/Setting/CommentScreening.pm	2011-03-11 08:12:48 UTC (rev 18513)
+++ trunk/cgi-bin/LJ/Setting/CommentScreening.pm	2011-03-11 08:24:47 UTC (rev 18514)
@@ -26,6 +26,10 @@
     my $key = $class->pkgkey;
 
     my $commentscreening = $class->get_arg($args, "commentscreening") || $u->prop("opt_whoscreened");
+    if ($commentscreening eq 'L') {
+        $u->set_prop( opt_whoscreened => 'R' );
+        $commentscreening = 'R';
+    }
 
     my @options = (
         N => $class->ml('setting.commentscreening.option.select.none'),