[LON-CAPA-cvs] cvs: loncom /interface lonviewclasslist.pm
matthew
lon-capa-cvs@mail.lon-capa.org
Wed, 08 Dec 2004 19:30:58 -0000
matthew Wed Dec 8 14:30:58 2004 EDT
Modified files:
/loncom/interface lonviewclasslist.pm
Log:
Bug 3689: Only show active students in classlist.
Index: loncom/interface/lonviewclasslist.pm
diff -u loncom/interface/lonviewclasslist.pm:1.2 loncom/interface/lonviewclasslist.pm:1.3
--- loncom/interface/lonviewclasslist.pm:1.2 Fri Aug 27 00:18:11 2004
+++ loncom/interface/lonviewclasslist.pm Wed Dec 8 14:30:58 2004
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to display the classlist
#
-# $Id: lonviewclasslist.pm,v 1.2 2004/08/27 04:18:11 raeburn Exp $
+# $Id: lonviewclasslist.pm,v 1.3 2004/12/08 19:30:58 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -78,7 +78,6 @@
my $bodytag=&Apache::loncommon::bodytag('Classlist');
my $breadcrumbs=&Apache::lonhtmlcommon::breadcrumbs(undef,
'Enrollment Manager');
-
$r->print(<<ENDHEADER);
<html>
<head>
@@ -87,7 +86,6 @@
$bodytag
$breadcrumbs
ENDHEADER
-
#
# Print classlist
my $cid = $ENV{'request.course.id'};
@@ -115,7 +113,6 @@
} else {
return 0;
}
-
}
sub html_classlist {
@@ -166,13 +163,12 @@
}
my $section = $classlist->{$student}->[$sectionidx];
my $status = $classlist->{$student}->[$statusidx];
-# next if (lc($status) ne 'active');
+ next if (lc($status) ne 'active');
if ($limit_to_section) {
if ($section ne $ENV{'request.course.sec'}) {
next;
}
}
-
$Str .= '<tr>'.
'<td>'.$count++.'</td>'.
'<td>'.&Apache::loncommon::aboutmewrapper($fullname,