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