loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.208, 2006/07/17 23:02:33
+version 1.209, 2006/07/18 17:20:32
  Line 138  sub list_discussion {
      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['previous','sortposts','rolefilter','statusfilter','sectionpick','grouppick','totposters']);
      my $sortposts = $env{'form.sortposts'};
      my $statusfilter = $env{'form.statusfilter'};
-     my @sectionpick = ();
+     my @sectionpick = split(/,/,$env{'form.sectionpick'});
-     if ($env{'form.sectionpick'} =~ /,/) {
+     my @grouppick   = split(/,/,$env{'form.grouppick'});
-         @sectionpick = split/,/,$env{'form.sectionpick'};
+     my @rolefilter  = split(/,/,$env{'form.rolefilter'});
-     } else {
-         $sectionpick[0] = $env{'form.sectionpick'};
-     }
-     my @grouppick = ();
-     if ($env{'form.grouppick'} =~ /,/) {
-         @grouppick = split/,/,$env{'form.grouppick'};
-     } else {
-         $grouppick[0] = $env{'form.grouppick'};
-     }
-     my @rolefilter = ();
-     if ($env{'form.rolefilter'} =~ /,/) {
-         @rolefilter = split/,/,$env{'form.rolefilter'};
-     } else {
-         $rolefilter[0] = $env{'form.rolefilter'};
-     }
      my $totposters = $env{'form.totposters'};
      $previous = $env{'form.previous'};
      if ($previous > 0) {