loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

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

version 1.76, 2004/03/29 19:41:24	version 1.78, 2004/03/29 19:50:23
Line 186 my @Fields = (	Line 186 my @Fields = (
sortable => 'yes',	sortable => 'yes',
graphable => 'yes',	graphable => 'yes',
long_title => 'Number of Students able to Solve',	long_title => 'Number of Students able to Solve',
selectable => 'no',	selectable => 'yes',
selected => 'yes',	selected => 'yes',
},	},
{ name => 'num_override',	{ name => 'num_override',
Line 369 sub BuildProblemStatisticsPage {	Line 369 sub BuildProblemStatisticsPage {
'statsoutputmode' => 'scalar',	'statsoutputmode' => 'scalar',
'Section' => 'array',	'Section' => 'array',
'StudentData' => 'array',	'StudentData' => 'array',
'Maps' => 'array');	'Maps' => 'array',
	'fieldselections'=> 'array');
&Apache::loncommon::store_course_settings('statistics',	&Apache::loncommon::store_course_settings('statistics',
\%Saveable_Parameters);	\%Saveable_Parameters);
&Apache::loncommon::restore_course_settings('statistics',	&Apache::loncommon::restore_course_settings('statistics',
Line 415 sub BuildProblemStatisticsPage {	Line 416 sub BuildProblemStatisticsPage {
} else {	} else {
my $count = 0;	my $count = 0;
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {	foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
$count += $seq->{'num_assess'};	$count += $seq->{'num_assess_parts'};
}	}
if ($count > 10) {	if ($count > 10) {
$r->print('<h2>'.	$r->print('<h2>'.