--- loncom/interface/lonstatistics.pm 2006/05/01 05:39:44 1.130 +++ loncom/interface/lonstatistics.pm 2006/05/01 16:11:25 1.131 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstatistics.pm,v 1.130 2006/05/01 05:39:44 raeburn Exp $ +# $Id: lonstatistics.pm,v 1.131 2006/05/01 16:11:25 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -281,18 +281,18 @@ sub PrepareClasslist { ($enrollment_status eq 'Any')) ){ my $groupcheck = 0; - if (grep/^all$/,@selected_groups) { - push (@Students,$studenthash); + if (grep(/^all$/,@selected_groups)) { + push(@Students,$studenthash); last; - } elsif (grep/^none$/,@selected_groups) { + } elsif (grep(/^none$/,@selected_groups)) { if ($studenthash->{'groups'} eq 'none') { - push (@Students,$studenthash); + push(@Students,$studenthash); last; } } else { foreach my $group (@selected_groups) { - if (grep/^$group$/,@studentsgroups) { - push (@Students,$studenthash); + if (grep(/^$group$/,@studentsgroups)) { + push(@Students,$studenthash); $groupcheck = 1; last; } @@ -453,7 +453,7 @@ sub section_and_enrollment_description { &Apache::lonnet::logthis($description); } $description = §ion_or_group_text($mode,'section',@sections). - ' '.§ion_or_group_text($mode,'group',@groups); + ' '.§ion_or_group_text($mode,'group',@groups); if ($mode eq 'localized') { $description .= &mt(' [_1] enrollment status.',$env{'form.Status'}); } elsif ($mode eq 'plaintext') {