loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.87, 2004/06/04 21:42:18	version 1.88, 2004/06/16 14:21:16
Line 1387 sub compute_statistics_on_sequence {	Line 1387 sub compute_statistics_on_sequence {
foreach my $res (@{$seq->{'contents'}}) {	foreach my $res (@{$seq->{'contents'}}) {
next if ($res->{'type'} ne 'assessment');	next if ($res->{'type'} ne 'assessment');
foreach my $part (@{$res->{'parts'}}) {	foreach my $part (@{$res->{'parts'}}) {
	next if ($res->{'partdata'}->{$part}->{'Survey'});
#	#
# This is where all the work happens	# This is where all the work happens
my $data = &get_statistics($seq,$res,$part,scalar(@StatsArray)+1);	my $data = &get_statistics($seq,$res,$part,scalar(@StatsArray)+1);