--- loncom/html/adm/helper/resettimes.helper	2005/01/16 08:21:49	1.2
+++ loncom/html/adm/helper/resettimes.helper	2005/04/07 06:56:22	1.3
@@ -23,7 +23,7 @@
       <exec>
          my ($uname,$udom,$sec,$fullname)=split(':',$helper->{'VARS'}{'stu1'});
          my %times=&Apache::lonnet::dump('firstaccesstimes',$udom,$uname,
-					 "^$ENV{'request.course.id'}\0");
+					 "^$env{'request.course.id'}\0");
          foreach my $res (sort(keys(%times))) {
 	     my (undef,$symb)=split("\0",$res);
 	     my $escsymb=&Apache::lonnet::escape($symb);
@@ -63,7 +63,7 @@
         &Apache::lonnet::logthis($helper->{'VARS'}{'delete'});
         if ($helper->{'STATE'} ne 'FinishStu') { return; }
         my $result;
-        my $courseid=$ENV{'request.course.id'};
+        my $courseid=$env{'request.course.id'};
         my ($uname,$udom,$sec,$fullname)=split(':',$helper->{'VARS'}{'stu1'});
         &Apache::lonnet::logthis($helper->{'VARS'}{'delete'});
         foreach my $escsymb (split(/\|\|\|/,$helper->{'VARS'}{'delete'})) {
@@ -121,7 +121,7 @@
         if ($helper->{'STATE'} ne 'FINISH') { return; }
         my $result;
         my $symb=$helper->{'VARS'}{'res2'};
-        my $key=$ENV{'request.course.id'}."\0".$symb;
+        my $key=$env{'request.course.id'}."\0".$symb;
 	my @names=split(/\|\|\|/,$helper->{'VARS'}{'stu1'});
 	foreach my $name (@names) {
 	    my ($uname,$udom,$sec,$fullname)=split(':',$name);