--- loncom/interface/lonviewclasslist.pm 2004/12/08 19:30:58 1.3 +++ loncom/interface/lonviewclasslist.pm 2006/03/15 19:41:26 1.6 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to display the classlist # -# $Id: lonviewclasslist.pm,v 1.3 2004/12/08 19:30:58 matthew Exp $ +# $Id: lonviewclasslist.pm,v 1.6 2006/03/15 19:41:26 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -36,6 +36,7 @@ use Apache::loncommon(); use Apache::lonhtmlcommon(); use Apache::Constants qw(:common :http REDIRECT); use Apache::lonlocal; +use Apache::lonnet; ################################################################### @@ -67,28 +68,24 @@ sub handler { text=>"View Classlist", faq=>9,bug=>'Instructor Interface',}); # Needs to be in a course - if (! ($ENV{'request.course.fn'})) { - $ENV{'user.error.msg'}= + if (! ($env{'request.course.fn'})) { + $env{'user.error.msg'}= "/adm/viewclasslist:not in course role"; return HTTP_NOT_ACCEPTABLE; } &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; # - my $bodytag=&Apache::loncommon::bodytag('Classlist'); - my $breadcrumbs=&Apache::lonhtmlcommon::breadcrumbs(undef, - 'Enrollment Manager'); + my $start = &Apache::loncommon::start_page('Classlist'); + my $breadcrumbs= &Apache::lonhtmlcommon::breadcrumbs(undef, + 'Enrollment Manager'); $r->print(< - -Classlist - -$bodytag +$start_page $breadcrumbs ENDHEADER # # Print classlist - my $cid = $ENV{'request.course.id'}; + my $cid = $env{'request.course.id'}; my $viewpermission = 'course.'.$cid.'.student_classlist_view'; if (&allowed_to_view_classlist()) { $r->print(&html_classlist()); @@ -99,17 +96,17 @@ ENDHEADER } # # Finish up - $r->print(''); + $r->print(&Apache::loncommon::end_page()); return OK; } sub allowed_to_view_classlist { - return 0 if (! exists($ENV{'request.course.id'})); - my $cid = $ENV{'request.course.id'}; + return 0 if (! exists($env{'request.course.id'})); + my $cid = $env{'request.course.id'}; my $viewpermission = 'course.'.$cid.'.student_classlist_view'; - if (exists($ENV{$viewpermission}) && - $ENV{$viewpermission} =~ /^(all|section)$/) { - return $ENV{$viewpermission}; + if (exists($env{$viewpermission}) && + $env{$viewpermission} =~ /^(all|section)$/) { + return $env{$viewpermission}; } else { return 0; } @@ -119,13 +116,13 @@ sub html_classlist { my $limit_to_section = (&allowed_to_view_classlist()=~ /^section$/i); my $Str; if ($limit_to_section) { - if ($ENV{'request.course.sec'} eq '') { + if ($env{'request.course.sec'} eq '') { $Str .= '

'. &mt('Students with no section').'

'; } else { $Str.='

'. &mt('Students in section "[_1]"', - $ENV{'request.course.sec'}). + $env{'request.course.sec'}). '

'; } } @@ -165,7 +162,7 @@ sub html_classlist { my $status = $classlist->{$student}->[$statusidx]; next if (lc($status) ne 'active'); if ($limit_to_section) { - if ($section ne $ENV{'request.course.sec'}) { + if ($section ne $env{'request.course.sec'}) { next; } }