version 1.286, 2005/04/18 22:33:38
|
version 1.288, 2005/04/18 22:39:35
|
Line 349 sub store_aggregates {
|
Line 349 sub store_aggregates {
|
my ($symb,$courseid) = @_; |
my ($symb,$courseid) = @_; |
my %aggregate; |
my %aggregate; |
my @parts; |
my @parts; |
my ($cdomain,$cname) = split(/_/,$courseid); |
my $cdomain = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $cname = $env{'course.'.$env{'request.course.id'}.'.num'}; |
foreach my $key (keys(%Apache::lonhomework::results)) { |
foreach my $key (keys(%Apache::lonhomework::results)) { |
if ($key =~ /resource\.(\d+)\.tries/) { |
if ($key =~ /resource\.([^\.]+)\.tries/) { |
push(@parts, $1); |
push(@parts, $1); |
} |
} |
} |
} |
Line 360 sub store_aggregates {
|
Line 361 sub store_aggregates {
|
eq 'APPROX_ANS' || |
eq 'APPROX_ANS' || |
$Apache::lonhomework::results{'resource.'.$part.'.award'} |
$Apache::lonhomework::results{'resource.'.$part.'.award'} |
eq 'EXACT_ANS') { |
eq 'EXACT_ANS') { |
$aggregate{$symb.'_'.$part.'_correct'} = 1; |
$aggregate{$symb."\0".$part."\0correct"} = 1; |
} |
} |
if ($Apache::lonhomework::results{'resource.'.$part.'.tries'} == 1) { |
if ($Apache::lonhomework::results{'resource.'.$part.'.tries'} == 1) { |
$aggregate{$symb.'_'.$part.'_users'} = 1; |
$aggregate{$symb."\0".$part."\0users"} = 1; |
} |
} |
$aggregate{$symb.'_'.$part.'_attempts'} = 1; |
$aggregate{$symb."\0".$part."\0attempts"} = 1; |
} |
} |
&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate, |
&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate, |
$cdomain,$cname); |
$cdomain,$cname); |