--- loncom/interface/lonviewclasslist.pm 2004/07/19 17:57:25 1.1 +++ 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.1 2004/07/19 17:57:25 matthew 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, @@ -180,7 +177,7 @@ sub html_classlist { $domain).''. ''.(' 'x2). &Apache::loncommon::messagewrapper - (' '. + (' '. $username.'@'.$domain,$username,$domain).''; if (! $limit_to_section) { $Str .= ''.$section.'';