[LON-CAPA-cvs] cvs: loncom /interface lonstatistics.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Mon, 01 May 2006 16:11:28 -0000
albertel Mon May 1 12:11:28 2006 EDT
Modified files:
/loncom/interface lonstatistics.pm
Log:
- style police
Index: loncom/interface/lonstatistics.pm
diff -u loncom/interface/lonstatistics.pm:1.130 loncom/interface/lonstatistics.pm:1.131
--- loncom/interface/lonstatistics.pm:1.130 Mon May 1 01:39:44 2006
+++ loncom/interface/lonstatistics.pm Mon May 1 12:11:25 2006
@@ -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 @@
($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 @@
&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') {