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.89, 2004/06/16 16:22:52
Line 263 my @Fields = (	Line 263 my @Fields = (
graphable => 'yes',	graphable => 'yes',
long_title => 'Degree of Discrimination',	long_title => 'Degree of Discrimination',
selectable => 'yes',	selectable => 'yes',
defaultselected => 'no',	defaultselected => 'yes',
},	},
## duedate included for research purposes. Commented out most of the time.	## duedate included for research purposes. Commented out most of the time.
# { name => 'duedate',	# { name => 'duedate',
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);