version 1.287, 2005/04/18 22:35:52
|
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\.([^\.]+)\.tries/) { |
if ($key =~ /resource\.([^\.]+)\.tries/) { |
push(@parts, $1); |
push(@parts, $1); |