--- loncom/interface/loncoursedata.pm	2005/03/07 20:12:08	1.145
+++ loncom/interface/loncoursedata.pm	2005/04/07 06:56:23	1.146
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.145 2005/03/07 20:12:08 matthew Exp $
+# $Id: loncoursedata.pm,v 1.146 2005/04/07 06:56:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -50,7 +50,7 @@ package Apache::loncoursedata;
 
 use strict;
 use Apache::Constants qw(:common :http);
-use Apache::lonnet();
+use Apache::lonnet;
 use Apache::lonhtmlcommon;
 use Time::HiRes;
 use Apache::lonmysql;
@@ -71,8 +71,8 @@ sub LoadDiscussion {
     my %Discuss=();
     my %contrib=&Apache::lonnet::dump(
                 $courseID,
-                $ENV{'course.'.$courseID.'.domain'},
-                $ENV{'course.'.$courseID.'.num'});
+                $env{'course.'.$courseID.'.domain'},
+                $env{'course.'.$courseID.'.num'});
 				 
     #my %contrib=&DownloadCourseInformation($name, $courseID, 0);
 
@@ -645,7 +645,7 @@ Returns: nothing
 ################################################
 sub delete_caches {
     my $courseid = shift;
-    $courseid = $ENV{'request.course.id'} if (! defined($courseid));
+    $courseid = $env{'request.course.id'} if (! defined($courseid));
     #
     &setup_table_names($courseid);
     #
@@ -861,7 +861,7 @@ sub get_student {
 sub populate_student_table {
     my ($courseid) = @_;
     if (! defined($courseid)) {
-        $courseid = $ENV{'request.course.id'};
+        $courseid = $env{'request.course.id'};
     }
     #
     &setup_table_names($courseid);
@@ -1351,7 +1351,7 @@ Returns nothing on success and 'error' o
 ######################################
 sub ensure_tables_are_set_up {
     my ($courseid) = @_;
-    $courseid = $ENV{'request.course.id'} if (! defined($courseid));
+    $courseid = $env{'request.course.id'} if (! defined($courseid));
     # 
     # Clean out package variables
     &setup_table_names($courseid);
@@ -1408,7 +1408,7 @@ sub ensure_current_data {
     my ($sname,$sdom,$courseid) = @_;
     my $status = 'okay';   # return value
     #
-    $courseid = $ENV{'request.course.id'} if (! defined($courseid));
+    $courseid = $env{'request.course.id'} if (! defined($courseid));
     &ensure_tables_are_set_up($courseid);
     #
     # Get the update time for the user
@@ -1457,7 +1457,7 @@ sub ensure_current_full_data {
     my ($sname,$sdom,$courseid) = @_;
     my $status = 'okay';   # return value
     #
-    $courseid = $ENV{'request.course.id'} if (! defined($courseid));
+    $courseid = $env{'request.course.id'} if (! defined($courseid));
     &ensure_tables_are_set_up($courseid);
     #
     # Get the update time for the user
@@ -1633,7 +1633,7 @@ an empty list is returned.
 sub get_current_state {
     my ($sname,$sdom,$symb,$courseid,$forcedownload)=@_;
     #
-    $courseid = $ENV{'request.course.id'} if (! defined($courseid));
+    $courseid = $env{'request.course.id'} if (! defined($courseid));
     #
     return () if (! defined($sname) || ! defined($sdom));
     #
@@ -1736,7 +1736,7 @@ able to answer it correctly.
 sub get_problem_statistics {
     my ($Sections,$status,$symb,$part,$courseid,$starttime,$endtime) = @_;
     return if (! defined($symb) || ! defined($part));
-    $courseid = $ENV{'request.course.id'} if (! defined($courseid));
+    $courseid = $env{'request.course.id'} if (! defined($courseid));
     #
     &setup_table_names($courseid);
     my $symb_id = &get_symb_id($symb);
@@ -1885,7 +1885,7 @@ sub execute_SQL_request {
 sub populate_weight_table {
     my ($courseid) = @_;
     if (! defined($courseid)) {
-        $courseid = $ENV{'request.course.id'};
+        $courseid = $env{'request.course.id'};
     }
     #
     &setup_table_names($courseid);
@@ -2035,7 +2035,7 @@ sub rank_students_by_scores_on_resources
     my ($resources,$Sections,$enrollment,$courseid,$starttime,$endtime) = @_;
     return if (! defined($resources) || ! ref($resources) eq 'ARRAY');
     if (! defined($courseid)) {
-        $courseid = $ENV{'request.course.id'};
+        $courseid = $env{'request.course.id'};
     }
     #
     &setup_table_names($courseid);
@@ -2095,7 +2095,7 @@ Returns: the sum of the score on the pro
 sub get_sum_of_scores {
     my ($symb,$part,$students,$courseid,$starttime,$endtime) = @_;
     if (! defined($courseid)) {
-        $courseid = $ENV{'request.course.id'};
+        $courseid = $env{'request.course.id'};
     }
     if (defined($students) && 
         ((@$students == 0) ||
@@ -2159,7 +2159,7 @@ Returns: minimum, maximum, mean, s.d., n
 sub score_stats {
     my ($Sections,$enrollment,$symbs,$starttime,$endtime,$courseid)=@_;
     if (! defined($courseid)) {
-        $courseid = $ENV{'request.course.id'};
+        $courseid = $env{'request.course.id'};
     }
     #
     &setup_table_names($courseid);
@@ -2233,7 +2233,7 @@ Returns: minimum, maximum, mean, s.d., a
 sub count_stats {
     my ($Sections,$enrollment,$symbs,$starttime,$endtime,$courseid)=@_;
     if (! defined($courseid)) {
-        $courseid = $ENV{'request.course.id'};
+        $courseid = $env{'request.course.id'};
     }
     #
     &setup_table_names($courseid);
@@ -2290,7 +2290,7 @@ sub count_stats {
 ######################################################
 sub get_student_data {
     my ($students,$courseid) = @_;
-    $courseid = $ENV{'request.course.id'} if (! defined($courseid));
+    $courseid = $env{'request.course.id'} if (! defined($courseid));
     &setup_table_names($courseid);
     my $dbh = &Apache::lonmysql::get_dbh();
     return undef if (! defined($dbh));
@@ -2331,7 +2331,7 @@ sub get_response_data {
     my ($Sections,$enrollment,$symb,$response,$courseid) = @_;
     return undef if (! defined($symb) || 
                ! defined($response));
-    $courseid = $ENV{'request.course.id'} if (! defined($courseid));
+    $courseid = $env{'request.course.id'} if (! defined($courseid));
     #
     &setup_table_names($courseid);
     my $symb_id = &get_symb_id($symb);
@@ -2404,7 +2404,7 @@ sub get_response_data_by_student {
     my ($student,$symb,$response,$courseid) = @_;
     return undef if (! defined($symb) || 
                      ! defined($response));
-    $courseid = $ENV{'request.course.id'} if (! defined($courseid));
+    $courseid = $env{'request.course.id'} if (! defined($courseid));
     #
     &setup_table_names($courseid);
     my $symb_id = &get_symb_id($symb);
@@ -2460,7 +2460,7 @@ sub get_response_time_data {
     my ($sections,$enrollment,$symb,$part,$courseid) = @_;
     return undef if (! defined($symb) || 
                      ! defined($part));
-    $courseid = $ENV{'request.course.id'} if (! defined($courseid));
+    $courseid = $env{'request.course.id'} if (! defined($courseid));
     #
     &setup_table_names($courseid);
     my $symb_id = &get_symb_id($symb);
@@ -2527,7 +2527,7 @@ sub get_response_time_data {
 ################################################
 sub get_student_scores {
     my ($sections,$Symbs,$enrollment,$courseid,$starttime,$endtime) = @_;
-    $courseid = $ENV{'request.course.id'} if (! defined($courseid));
+    $courseid = $env{'request.course.id'} if (! defined($courseid));
     &setup_table_names($courseid);
     my $dbh = &Apache::lonmysql::get_dbh();
     return (undef) if (! defined($dbh));
@@ -2617,7 +2617,7 @@ Cleans up the package variables for loca
 sub setup_table_names {
     my ($courseid) = @_;
     if (! defined($courseid)) {
-        $courseid = $ENV{'request.course.id'};
+        $courseid = $env{'request.course.id'};
     }
     #
     if (! defined($current_course) || $current_course ne $courseid) {
@@ -2692,8 +2692,8 @@ from the students environment.
 
 Optional arguments are $cid, $cdom, and $cnum (course id, course domain,
 and course number, respectively).  Any omitted arguments will be taken 
-from the current environment ($ENV{'request.course.id'},
-$ENV{'course.'.$cid.'.domain'}, and $ENV{'course.'.$cid.'.num'}).
+from the current environment ($env{'request.course.id'},
+$env{'course.'.$cid.'.domain'}, and $env{'course.'.$cid.'.num'}).
 
 Returns a reference to a hash which contains:
  keys    '$sname:$sdom'
@@ -2721,9 +2721,9 @@ sub CL_LOCKEDTYPE   { return 9; }
 
 sub get_classlist {
     my ($cid,$cdom,$cnum) = @_;
-    $cid = $cid || $ENV{'request.course.id'};
-    $cdom = $cdom || $ENV{'course.'.$cid.'.domain'};
-    $cnum = $cnum || $ENV{'course.'.$cid.'.num'};
+    $cid = $cid || $env{'request.course.id'};
+    $cdom = $cdom || $env{'course.'.$cid.'.domain'};
+    $cnum = $cnum || $env{'course.'.$cid.'.num'};
     my $now = time;
     #
     my %classlist=&Apache::lonnet::dump('classlist',$cdom,$cnum);