--- loncom/interface/lonviewclasslist.pm	2005/02/17 08:29:43	1.4
+++ loncom/interface/lonviewclasslist.pm	2005/04/07 06:56:23	1.5
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to display the classlist 
 #
-# $Id: lonviewclasslist.pm,v 1.4 2005/02/17 08:29:43 albertel Exp $
+# $Id: lonviewclasslist.pm,v 1.5 2005/04/07 06:56:23 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,8 +68,8 @@ 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; 
     }
@@ -89,7 +90,7 @@ $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());
@@ -105,12 +106,12 @@ ENDHEADER
 }
 
 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;
     }
@@ -120,13 +121,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 .= '<h2>'.
                 &mt('Students with no section').'</h2>';
         } else {
             $Str.='<h2>'.
                 &mt('Students in section "[_1]"',
-                    $ENV{'request.course.sec'}).
+                    $env{'request.course.sec'}).
                     '</h2>';
         }
     }
@@ -166,7 +167,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;
             }
         }