--- 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 @@
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);