[LON-CAPA-cvs] cvs: loncom /interface lonfeedback.pm

[albertel]

albertel		Tue Jul 18 13:31:53 2006 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  - style
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.209 loncom/interface/lonfeedback.pm:1.210
--- loncom/interface/lonfeedback.pm:1.209	Tue Jul 18 13:20:32 2006
+++ loncom/interface/lonfeedback.pm	Tue Jul 18 13:31:50 2006
@@ -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 @@
             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 @@
     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 @@
                                         }
                                     }
                                 }
-                                if ($$shown{$idx} && !$skipgrpcheck) {
+                                if ($$shown{$idx} && !$skip_group_check) {
                                     my $showflag = 0;
                                     if (ref($$classgroups{$poster}{active}) eq 'HASH') {
                                         foreach my $grp (@{$grouppick}) {