--- loncom/interface/lonviewclasslist.pm 2004/08/27 04:18:11 1.2 +++ loncom/interface/lonviewclasslist.pm 2005/02/17 08:29:43 1.4 @@ -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.4 2005/02/17 08:29:43 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -78,16 +78,15 @@ sub handler { my $bodytag=&Apache::loncommon::bodytag('Classlist'); my $breadcrumbs=&Apache::lonhtmlcommon::breadcrumbs(undef, 'Enrollment Manager'); - + my $html=&Apache::lonxml::xmlbegin(); $r->print(< +$html Classlist $bodytag $breadcrumbs ENDHEADER - # # Print classlist my $cid = $ENV{'request.course.id'}; @@ -115,7 +114,6 @@ sub allowed_to_view_classlist { } else { return 0; } - } sub html_classlist { @@ -166,13 +164,12 @@ sub html_classlist { } 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 .= ''. ''.$count++.''. ''.&Apache::loncommon::aboutmewrapper($fullname,