--- loncom/interface/lonfeedback.pm	2006/07/18 17:20:32	1.209
+++ loncom/interface/lonfeedback.pm	2006/07/18 17:31:50	1.210
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.209 2006/07/18 17:20:32 albertel Exp $
+# $Id: lonfeedback.pm,v 1.210 2006/07/18 17:31:50 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -752,15 +752,16 @@ END
             if (($group ne '') && ($mode eq 'board')) {  
                 if (&check_group_priv($group,'pgd') eq 'ok') {
                     $discussion .=
-         &postingform_display($mode,$ressymb,$now,$subject,$comment,
-                              $outputtarget,$attachnum,$currnewattach,
-                              $currdelold,$group);
+			&postingform_display($mode,$ressymb,$now,$subject,
+					     $comment,$outputtarget,$attachnum,
+					     $currnewattach,$currdelold,
+					     $group);
                 }
             } else {
 	        $discussion.= 
-         &postingform_display($mode,$ressymb,$now,$subject,$comment,
-                              $outputtarget,$attachnum,$currnewattach,
-                              $currdelold);
+		    &postingform_display($mode,$ressymb,$now,$subject,
+					 $comment,$outputtarget,$attachnum,
+					 $currnewattach,$currdelold);
             }
 	}
     } else {
@@ -843,15 +844,15 @@ sub build_posting_display {
     my ($usernamesort,$subjectsort,$namesort,$notshown,$newitem,$dischash,$shown,$alldiscussion,$imsitems,$imsfiles,$roleinfo,$discussionitems,$replies,$depth,$posters,$maxdepth,$visible,$newpostsflag,$current,$status,$viewgrades,$seeid,$prevread,$sortposts,$ressymb,$target,$readkey,$showunmark,$showonlyunread,$totposters,$rolefilter,$sectionpick,$grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,$anonhash,$anoncnt,$group) = @_;
     my @original=();
     my @index=();
-    my $skipgrpcheck = 0;
+    my $skip_group_check = 0;
     my $symb=&Apache::lonenc::check_decrypt($ressymb);
     my $escsymb=&escape($ressymb);
     my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
 			  $env{'course.'.$env{'request.course.id'}.'.domain'},
 			  $env{'course.'.$env{'request.course.id'}.'.num'});
 
-    if ((@{$grouppick} == 0) || (grep/^all$/,@{$grouppick})) {
-        $skipgrpcheck = 1;
+    if ((@{$grouppick} == 0) || (grep(/^all$/,@{$grouppick}))) {
+        $skip_group_check = 1;
     }
     if ($contrib{'version'}) {
         my $oldest = $contrib{'1:timestamp'};
@@ -1167,7 +1168,7 @@ sub build_posting_display {
                                         }
                                     }
                                 }
-                                if ($$shown{$idx} && !$skipgrpcheck) {
+                                if ($$shown{$idx} && !$skip_group_check) {
                                     my $showflag = 0;
                                     if (ref($$classgroups{$poster}{active}) eq 'HASH') {
                                         foreach my $grp (@{$grouppick}) {