loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

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

version 1.89, 2004/06/16 16:22:52	version 1.91, 2004/07/22 15:56:41
Line 704 sub BuildProblemStatisticsPage {	Line 704 sub BuildProblemStatisticsPage {
sub output_sequence_statistics {	sub output_sequence_statistics {
my ($r) = @_;	my ($r) = @_;
my $c=$r->connection();	my $c=$r->connection();
$r->print('<h2>'.&mt('Sequence Statistics').'</h2>');	$r->print('<h2>'.&mt('Sequence Statistics').
	&Apache::loncommon::help_open_topic('Statistics_Sequence').
	'</h2>');
$r->print('<table border="0"><tr><td bgcolor="#777777">'."\n".	$r->print('<table border="0"><tr><td bgcolor="#777777">'."\n".
'<table border="0" cellpadding="3">'."\n".	'<table border="0" cellpadding="3">'."\n".
'<tr bgcolor="#FFFFE6">');	'<tr bgcolor="#FFFFE6">');
Line 1579 sub compute_discrimination_factor {	Line 1581 sub compute_discrimination_factor {
map {	map {
$_->[&Apache::loncoursedata::RNK_student()];	$_->[&Apache::loncoursedata::RNK_student()];
} @{$ranking}[($num_students-$number_to_grab)..($num_students-1)];	} @{$ranking}[($num_students-$number_to_grab)..($num_students-1)];
	if (! @BottomSet \|\| (@BottomSet == 1 && $BottomSet[0] eq '') \|\|
	! @TopSet \|\| (@TopSet == 1 && $TopSet[0] eq '')) {
	return 'nan';
	}
my ($bottom_sum,$bottom_max) =	my ($bottom_sum,$bottom_max) =
&Apache::loncoursedata::get_sum_of_scores($resource,$part,\@BottomSet,	&Apache::loncoursedata::get_sum_of_scores($resource,$part,\@BottomSet,
undef,$starttime,$endtime);	undef,$starttime,$endtime);