--- loncom/interface/lonviewclasslist.pm 2004/07/19 17:57:25 1.1 +++ loncom/interface/lonviewclasslist.pm 2006/08/25 03:26:05 1.7 @@ -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.7 2006/08/25 03:26:05 raeburn 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,30 +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_page = &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()); @@ -101,34 +96,33 @@ 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; } - } 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'}). '

'; } } @@ -166,13 +160,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'}) { + if ($section ne $env{'request.course.sec'}) { next; } } - $Str .= ''. ''.$count++.''. ''.&Apache::loncommon::aboutmewrapper($fullname, @@ -180,7 +173,7 @@ sub html_classlist { $domain).''. ''.(' 'x2). &Apache::loncommon::messagewrapper - (' '. + (' '. $username.'@'.$domain,$username,$domain).''; if (! $limit_to_section) { $Str .= ''.$section.'';