--- loncom/interface/lonfeedback.pm 2006/07/17 23:02:33 1.208 +++ loncom/interface/lonfeedback.pm 2006/07/18 17:20:32 1.209 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.208 2006/07/17 23:02:33 raeburn Exp $ +# $Id: lonfeedback.pm,v 1.209 2006/07/18 17:20:32 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -138,25 +138,10 @@ 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 = (); - if ($env{'form.sectionpick'} =~ /,/) { - @sectionpick = split/,/,$env{'form.sectionpick'}; - } 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 @sectionpick = split(/,/,$env{'form.sectionpick'}); + my @grouppick = split(/,/,$env{'form.grouppick'}); + my @rolefilter = split(/,/,$env{'form.rolefilter'}); + my $totposters = $env{'form.totposters'}; $previous = $env{'form.previous'}; if ($previous > 0) {