loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.286, 2005/04/18 22:33:38	version 1.287, 2005/04/18 22:35:52
Line 351 sub store_aggregates {	Line 351 sub store_aggregates {
my @parts;	my @parts;
my ($cdomain,$cname) = split(/_/,$courseid);	my ($cdomain,$cname) = split(/_/,$courseid);
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 360 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);